1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Incluir itens no CD0908

Discussão em 'Outros/Diversos' iniciado por fdantas, Novembro 26, 2013.

  1. fdantas

    fdantas Administrator Moderador

    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.
    

Compartilhe esta Página