Versions Compared

Version Old Version 5 New Version 6
Changes made by

Marcos Miasson

Leopoldo Michelin de Oliveira

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Expand
titleGeração de Lista de Pedidos através de Importação de uma planilha
Panel
panelIconId1f321
panelIcon:thermometer:
panelIconText🌡️
bgColor#FFEBE6

Situação:

 Lista de Pedidos através de Importação de uma planilha

Tip

Possíveis Soluções:

Geração de Lista de Pedidos através de Importação de uma planilha:

R:\ESP2\qgp\MOPD\Output Lista Informacoes Pedidos Imput from csv.p

 

Code Block
DEF TEMP-TABLE tt-pedido

    FIELD nr-pedcli    LIKE ped-venda.nr-pedcli

    FIELD cod-emitente LIKE ped-venda.cod-emitente.

 



INPUT FROM "c:\temp\clientes.csv". // Lista de códigos de pedidos e código dos emitentes

REPEAT:

    CREATE tt-pedido.

    IMPORT DELIMITER ";" tt-pedido.

END.

INPUT CLOSE.

 



OUTPUT TO c:\temp\pedidos.csv.

PUT UNFORMATTED

               "PEDIDO"           ";"

               "COD CLIENTE"      ";"

               "NOME ABREV"       ";"

               "RAZAO SOCIAL"     ";"

               "OBS"              SKIP.

 

FOR EACH tt-pedido WHERE

         tt-pedido.nr-pedcli <> "": //Diferente de branco na tt-pedido

 

    PROCESS EVENTS. // Para não travar a tela quando lê muitos dados

 

    FIND FIRST ped-venda WHERE // find first ler o primeiro item da tabela

               ped-venda.nr-pedcli    = tt-pedido.nr-pedcli AND

               ped-venda.cod-emitente = tt-pedido.cod-emitente NO-LOCK NO-ERROR.

 

    IF AVAIL ped-venda  THEN DO:

 

        FIND emitente WHERE emitente.cod-emitente = ped-venda.cod-emitente NO-LOCK NO-ERROR.

 

        PUT UNFORMATTED                    

                        ped-venda.nr-pedcli               ";"

                        emitente.cod-emitente             ";"     

                        ped-venda.nome-abrev              ";"

                        emitente.nome-emit                ";"

        REPLACE(REPLACE(ped-venda.observacoes,CHR(13),' '),CHR(10) ,' ') SKIP.    

 

    END.

END.

OUTPUT CLOSE.

 

Expand
titleGeração Lista de Itens Peso 0 CD0903
Panel
panelIconId1f321
panelIcon:thermometer:
panelIconText🌡️
bgColor#FFEBE6

Situação:

Geração Lista de Itens Peso 0 - CD0903

Tip

Possíveis Soluções:

FOR EACH ITEM

    WHERE //ITEM.it-codigo > "500940" AND ITEM.it-codigo < "510004" AND

          ITEM.peso-bruto = 0 AND ITEM.peso-liquido = 0.

 

    PUT UNFORMATTED

        ITEM.it-codigo ";"

        ITEM.peso-bruto ";"

        ITEM.peso-liquido SKIP.

END.

 

OUTPUT CLOSE.

...