Apoio FCI Código: DEFINE VARIABLE c-indice AS CHARACTER NO-UNDO. DEF VAR c-uf-destino AS CHAR NO-UNDO EXTENT 27 INITIAL ["AC", "AL", "AM", "AP", "BA", "CE", "DF", "ES", "GO", "MA", "MG", "MS", "MT", "PA", "PB", "PE", "PI", "PR", "RJ", "RN", "RO", "RR", "RS", "SC", "SE", "TO"]. DEF VAR i AS INT INIT 1 NO-UNDO. DEF TEMP-TABLE tt-4icms NO-UNDO FIELD it-codigo LIKE ITEM.it-codigo. INPUT FROM "c:\temp\4ICMS.csv". REPEAT: CREATE tt-4icms. IMPORT DELIMITER ";" tt-4icms. END. DELETE tt-4icms. INPUT CLOSE. /* ASSIGN c-indice = trim('av/pod') + CHR(2) + TRIM('sp') + CHR(2) + TRIM('rj'). */ /* */ /* FOR FIRST reg-inf-compl NO-LOCK */ /* WHERE reg-inf-compl.cod-tab-inform = "it-UForig-UFdest":U */ /* AND reg-inf-compl.cod-campo-inform = "icms":U, */ /* FIRST inf-compl NO-LOCK */ /* WHERE inf-compl.cdn-identif = reg-inf-compl.cdn-identif /*5*/ */ /* AND inf-compl.cod-indice = c-indice: /*Item + UF Orig + UF Dest*/ */ /* */ /* DISP inf-compl.cod-indice FORMAT "x(30)". */ /* */ /* END. */ DEFINE VARIABLE h-bodi538 AS HANDLE NO-UNDO. RUN dibo/bodi538.p PERSISTENT SET h-bodi538. FOR EACH tt-4icms NO-LOCK: DO i = 1 TO 26: /* CAMPOS QUE ESTÇO NA TELA DE INCLUSÇO DO CD0908 */ RUN pi-Inclui-Altera-ItensUF IN h-bodi538 (INPUT tt-4icms.it-codigo, INPUT "SP", INPUT c-uf-destino[i], INPUT "4,00") NO-ERROR. END. END. IF VALID-HANDLE(h-bodi538) THEN DO: DELETE PROCEDURE h-bodi538. ASSIGN h-bodi538 = ?. END.