Aquesta funció comprova carącters no admesos en els fitxer ISO20022 en format XML que fem servir per les normes SEPA
2.1 - Quan informem del fitxer XML definir unicode: “UTF-8” . (loxml.Encoding = “UTF-8”)
2.2 – Afegir funció UTF8( ), davant dels camps que passem al fitxer XML i que queden com a texte.
2.3 – Procedure GEN_NCBS34, canviar nom etiqueta erroni <CtgyPurP> (no) ------ <CtgyPurp> (ok)
2.4 – Composar el nom del fitxer resultant *.XML, segons aquets parąmetres:
FITXER = ALLTRIM(TMPEMPRE.NIF) + '_' + STRTRAN(str(ges_bancs_empre.banc,4),' ','0') + '_' + + 'N19' + ALLTRIM(STR(TEMP_ISO.NORMA_CSB)) +'_' + TTOC(DATETIME(),1) + '.XML'
FITXER = NIF EMPRESA + CODI INTERN DE BANC EMPRESA + 'N19' + ‘14’ (CORE) o ‘15’ (COR1) o ‘44’ (B2B) + DIA_HORA + .XML
FITXER = ALLTRIM(TMPEMPRE.NIF) + '_' + STRTRAN(str(ges_bancs_empre.banc,4),' ','0') + '_' + + 'N3414' + '_' + TTOC(DATETIME(),1) + '.XML'
FITXER = NIF EMPRESA + CODI INTERN DE BANC EMPRESA + 'N3414’ + DIA_HORA + .XML
No s’ha tocat res a nivell de base de dades. Nomes deixem registre a sys_revisions.
Passar Parxe : ADSGEST_0120.SQL, deixar registre al sys_revisions conforme s'ha fet aquesta Revisió.
Tocat a l'Aplicació:
NORMACSB_ISO20022.PRG (Modificat)( 2)
Meta Keywords: Parxes AdsGest
----------------------------------------------------------------------------------------
Judit Camprubķ