quarta-feira, 27 de novembro de 2013

Cria Imposto Vinculado ao Fornecedor ( Datasul )


def var c-arquivo1     as c format "x(30)" INIT "e:\faz.txt".

def var c-tit           as c format "x(500)" .
DEF VAR i-emi           LIKE emitente.cod-emitente.

OUTPUT TO e:\criado.txt.

INPUT from value(c-arquivo1)  no-echo.

REPEAT with width 230:

    import unformatted c-tit no-error.

    assign i-emi = int(ENTRY(01,c-tit,";")).

    FIND FIRST impto_vincul_fornec
         WHERE impto_vincul_fornec.cod_empresa       = "1"
           AND impto_vincul_fornec.cdn_fornecedor    = i-emi
           AND impto_vincul_fornec.cod_pais          = "BRA"
           AND impto_vincul_fornec.cod_unid_federac  = ""
           AND impto_vincul_fornec.cod_imposto       = "7"
           AND impto_vincul_fornec.cod_classif_impto = "9001" NO-ERROR.

    IF NOT AVAIL impto_vincul_fornec THEN DO:
        CREATE impto_vincul_fornec.
        ASSIGN impto_vincul_fornec.cod_empresa       = "1"  
               impto_vincul_fornec.cdn_fornecedor    = i-emi
               impto_vincul_fornec.cod_pais          = "BRA"
               impto_vincul_fornec.cod_unid_federac  = ""  
               impto_vincul_fornec.cod_imposto       = "7"  
               impto_vincul_fornec.cod_classif_impto = "9001"
               impto_vincul_fornec.dat_livre_1       = 05/01/2005.
       
        DISP cod_empresa
             cdn_fornecedor
             cod_pais        
             cod_unid_federac
             cod_imposto      
             cod_classif_impto .
   
    END.
   
    FIND FIRST impto_vincul_fornec
         WHERE impto_vincul_fornec.cod_empresa       = "1"
           AND impto_vincul_fornec.cdn_fornecedor    = i-emi
           AND impto_vincul_fornec.cod_pais          = "BRA"
           AND impto_vincul_fornec.cod_unid_federac  = ""
           AND impto_vincul_fornec.cod_imposto       = "8"
           AND impto_vincul_fornec.cod_classif_impto = "9002" NO-ERROR.

    IF NOT AVAIL impto_vincul_fornec THEN DO:
        CREATE impto_vincul_fornec.
        ASSIGN impto_vincul_fornec.cod_empresa       = "1"  
               impto_vincul_fornec.cdn_fornecedor    = i-emi
               impto_vincul_fornec.cod_pais          = "BRA"
               impto_vincul_fornec.cod_unid_federac  = ""  
               impto_vincul_fornec.cod_imposto       = "8"  
               impto_vincul_fornec.cod_classif_impto = "9002"
               impto_vincul_fornec.dat_livre_1       = 05/01/2005.

        DISP cod_empresa
             cdn_fornecedor
             cod_pais        
             cod_unid_federac
             cod_imposto      
             cod_classif_impto  .

    END.

END.

INPUT CLOSE.
OUTPUT CLOSE.

Nenhum comentário:

Postar um comentário