quinta-feira, 28 de novembro de 2013

Exportação Layout Bens ( Datasul )


def temp-table tt-dados no-undo
    FIELD nr-sequencial-bem     AS INT  FORMAT ">>>>>>>9"
    FIELD empresa               AS CHAR FORMAT "x(03)"
    FIELD conta-patrimonial     AS CHAR FORMAT "x(18)"
    FIELD bem-patrimonial       AS INT  FORMAT ">>>>>>>>9"
    FIELD sequencia-bem         AS INT  FORMAT ">>>>>>>>9"
    FIELD desc-bem-patrimonial  AS CHAR FORMAT "x(40)"
    FIELD nr-plaqueta           AS CHAR FORMAT "x(20)"
    FIELD qt-bens-representados AS INT  FORMAT ">>>>>>>9"
    FIELD periodicidade         AS CHAR FORMAT "x(14)"
    FIELD dt-aquisicao          AS DATE FORMAT "99/99/9999"
    FIELD estabelecimento       AS CHAR FORMAT "x(03)"
    FIELD data-calculo-dpr      AS DATE FORMAT "99/99/9999"
    FIELD data-calculo          AS DATE FORMAT "99/99/9999"
    FIELD fornecedor            AS INT  FORMAT ">>>>>9"
    FIELD narrativa             AS CHAR FORMAT "x(2000)".

FOR EACH tt-dados:
    DELETE tt-dados.
END.

input from e:\ATIVO\BENS.csv.
repeat:
    create tt-dados.
    import delimiter ";" tt-dados.
end.
input close.    


OUTPUT TO E:\ATIVO\BENS.TXT.
FOR EACH tt-dados
   WHERE tt-dados.nr-sequencial-bem > 0:
     PUT UNFORMATTED
         tt-dados.nr-sequencial-bem                          /*   10  Nro Sequencial Bem                        9(08)                 Sim    */     
         ' "' tt-dados.empresa '"'                           /*   20  Empresa                                   x(3)                  Sim    */ 
         ' "' tt-dados.conta-patrimonial '"'                 /*   30  Conta Patrimonial                         x(18)                 Sim    */ 
         ' '  tt-dados.bem-patrimonial                       /*   40  Bem Patrimonial                           9(09)                 Sim    */ 
         ' '  tt-dados.sequencia-bem                         /*   50  Sequˆncia Bem                             9(05)                 Sim    */ 
         ' "' tt-dados.desc-bem-patrimonial FORMAT "x(40)"'"'/*   60  Descri‡Æo Bem Pat                         x(40)                 Sim    */ 
         ' "' tt-dados.nr-plaqueta '"'                       /*   70  N£mero Plaqueta                           x(20)                 Sim    */ 
         ' '  tt-dados.qt-bens-representados                 /*   80  Quantidade Bens Representados             9(08)                 Sim    */ 
         ' "' tt-dados.periodicidade '"'                     /*   90  Periodicidade                             x(14)                 Sim    */ 
         ' '  tt-dados.dt-aquisicao FORMAT "99/99/9999"      /*  100  Data Aquisi‡Æo                            99/99/9999            Sim    */ 
         ' "' tt-dados.estabelecimento '"'                   /*  110  Estabelecimento                           x(3)                  Sim    */ 
         ' ""'                                               /*  120  Esp‚cie Bem Patrimonial                   x(6)                  NÆo    */ 
         ' ""'                                               /*  130  Marca                                     x(6)                  NÆo    */ 
         ' ""'                                               /*  140  Modelo                                    x(8)                  NÆo    */ 
         ' ""'                                               /*  150  Licen‡a Uso                               x(12)                 NÆo    */ 
         ' ""'                                               /*  160  Especifica‡Æo T‚cnica                     x(8)                  NÆo    */ 
         ' ""'                                               /*  170  Estado F¡sico                             x(8)                  NÆo    */ 
         ' ""'                                               /*  180  Arrendador                                x(6)                  NÆo    */ 
         ' ""'                                               /*  190  Contrato Leasing                          x(12)                 NÆo    */ 
         ' '  tt-dados.fornecedor                            /*  200  Fornecedor                                9(06)                 NÆo    */ 
         ' ""'                                               /*  210  Localiza‡Æo                               x(12)                 NÆo    */ 
         ' ""'                                               /*  220  Respons vel                               x(12)                 NÆo    */ 
         ' ?'                                                /*  230  éltimo Invent rio                         99/99/9999            NÆo    */ 
         ' "' tt-dados.narrativa '"'                         /*  240  Narrativa Bem                             x(2000)               NÆo    */ 
         ' ""'                                               /*  250  Seguradora                                x(8)                  NÆo    */ 
         ' ""'                                               /*  260  Ap¢lice Seguro                            x(12)                 NÆo    */ 
         ' ?'                                                /*  270  In¡cio Valid Ap¢lice                      99/99/9999            NÆo    */ 
         ' ?'                                                /*  280  Fim Validade Ap¢lice                      99/99/9999            NÆo    */ 
         ' 0'                                                /*  290  Prˆmio Seguro                             9(12),99              NÆo    */ 
         ' ""'                                               /*  300  Seguradora (1)                            x(8)                  NÆo    */ 
         ' ""'                                               /*  310  Ap¢lice Seguro (1)                        x(12)                 NÆo    */ 
         ' ?'                                                /*  320  In¡cio Valid Ap¢lice (1)                  99/99/9999            NÆo    */ 
         ' ?'                                                /*  330  Fim Validade Ap¢lice (1)                  99/99/9999            NÆo    */ 
         ' 0'                                                /*  340  Prˆmio Seguro (1)                         9(12),99              NÆo    */ 
         ' ""'                                               /*  350  Seguradora (2)                            x(8)                  NÆo    */ 
         ' ""'                                               /*  360  Ap¢lice Seguro (2)                        x(12)                 NÆo    */ 
         ' ?'                                                /*  370  In¡cio Valid Ap¢lice (2)                  99/99/9999            NÆo    */ 
         ' ?'                                                /*  380  Fim Validade Ap¢lice (2)                  99/99/9999            NÆo    */ 
         ' 0'                                                /*  390  Prˆmio Seguro (2)                         9(12),99              NÆo    */ 
         ' ""'                                               /*  400  Docto Entrada                             x(8)                  NÆo    */ 
         ' 0'                                                /*  410  Numero Item                               9(06)                 NÆo    */ 
         ' 0'                                                /*  420  Pessoa Garantia                           9(09)                 NÆo    */ 
         ' ?'                                                /*  430  Inicio Garantia                           99/99/9999            NÆo    */ 
         ' ?'                                                /*  440  Fim Garantia                              99/99/9999            NÆo    */ 
         ' ""'                                               /*  450  Termo Garantia                            x(2000)               NÆo    */ 
         ' ""'                                               /*  460  Grupo C lculo                             x(6)                  NÆo    */ 
         ' ?'                                                /*  470  Data Movimento                            99/99/9999            NÆo    */ 
         ' 0'                                                /*  480  Perc Baixado                              9(3),99               NÆo    */ 
         ' ' tt-dados.data-calculo-dpr                       /*  490  In¡cio C lculo Dpr                        99/99/9999            NÆo    */ 
         ' ' tt-dados.data-calculo                           /*  500  Data C lculo                              99/99/9999            NÆo    */ 
         ' ""'                                               /*  510  S‚rie Nota                                x(3)                  NÆo    */ 
         ' yes'                                              /*  520  Bem Importado                             yes/no                Sim    */ 
         ' no'                                               /*  530  Credita PIS                               yes/no                Sim    */ 
         ' no'                                               /*  540  Credita COFINS                            yes/no                Sim    */ 
         ' 0'                                                /*  550  Nro Parcelas Cr‚dito PIS/COFINS           9(02)                 Sim    */ 
         ' 0'                                                /*  560  Parcelas Descontadas                      9(02)                 Sim    */ 
         ' 0'                                                /*  570  Valor Cr‚dito PIS                         9(9),99               NÆo    */ 
         ' 0'                                                /*  580  Valor Cr‚dito COFINS                      9(9),99               NÆo    */ 
         ' no'                                               /*  590  Credita CSLL                              yes/no                Sim    */ 
         ' 0'                                                /*  600  Exerc¡cios Cr‚dito CSLL                   9(02)                 Sim    */ 
      SKIP.
END.
OUTPUT CLOSE.

Nenhum comentário:

Postar um comentário