Revisiķ 120 - BUGS VARIS NORMES SEPA |
|
|
1.- Funciķ nova UTF8 en la llibreria LIBPROCS.PRG.
Aquesta funciķ comprova carācters no admesos en els fitxer ISO20022 en format XML que fem servir per les normes SEPA 2.- NORMACSB_ISO20022.PRG
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: Procedure GEN_NCBS1914
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 Procedure GEN_NCBS34
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 Tocat a BBDD:
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ķ: Progs:
LIBPROCS.PRG (FUNCION UTF8) (Nova)(1)
NORMACSB_ISO20022.PRG (Modificat)( 2) Meta Keywords: Parxes AdsGest Documents adjunts: ADSGEST_0120.SQL
---------------------------------------------------------------------------------------- |
|
