Page Comparison

...

Expand

title	Geração de Lista de Clientes e Fornecedores

Panel

panelIconId	1f321
panelIcon	:thermometer:
panelIconText	🌡️
bgColor	#FFEBE6

Situação:

exportação de usuários atuais do grupo 35 Força de venda do Totvs/ERP:

Codigo Totvs

Nome

Nome Abrev

Telefone(s)

Telefone

Email

CPF

Endereço

Bairro

CEP

Cidade

UF

Endereço Completo

Tip
Possíveis Soluções:

valor 1 -- somente clientes

valor 2 -- somente fornecedores

valor 3 -- cliente e fornecedor.

R:\ESP2\qgp\Lista de Clientes Output.p

Code Block

DEF VAR l-ctrl AS LOGICAL FORMAT "Sim/Nao" LABEL "Modal.Frete FOB" NO-UNDO.
 
OUTPUT TO c:\temp\clientes.csv.
 
PUT UNFORMATTED
   "CODIGO TOTVS"     ";"
   "NOME ABREV"       ";"
   "RAZAO SOCIAL"     ";"
   "GRUPO"            ";"
   "BANCO"            ";"
   "AGENCIA"          ";"
   "CONTA CORRENTE"   ";"
   "PREFERENCIAL"     ";"
   "TELEFONE 1"       ";"
   "TELEFONE 2"       ";"
   "E-MAIL"           ";"
   "CNPJ ou CPF"      ";"
   "INSC.ESTADUAL"    ";"
   "DATA IMPLANT"     ";"
   "MODALIDADE FRETE" ";"
   "CIDADE"           ";"
   "CEP"              ";"
   "ESTADO"           ";"
   "ENDERECO"         ";"
   "BAIRRO"           SKIP.
 
    FOR EACH  emitente NO-LOCK
      WHERE emitente.cod-emitente = 950449.
      // WHERE emitente.identific <> 2. // valor 1 -- clientes, 2 -- fornecedores, 3 - cliente e fornecedor.
      //  WHERE emitente.data-implant >05/23/2023: //mê / dia / ano 10/01/1996
      //  WHERE emitente.cod-gr-cli = 35.
       ASSIGN l-ctrl = NO.
FIND FIRST cta-emitente WHERE cta-emitente.cod-emitente = emitente.cod-emitente NO-LOCK NO-ERROR.
    IF AVAIL cta-emitente THEN ASSIGN l-ctrl = moe-emitente.ind-modal-frete-fob.
FIND FIRST moe-emitente WHERE moe-emitente.cod-emitente = emitente.cod-emitente NO-LOCK NO-ERROR.
    IF AVAIL moe-emitente THEN ASSIGN l-ctrl = moe-emitente.ind-modal-frete-fob.
       
    PUT UNFORMATTED                    
        emitente.cod-emitente               ";"
        emitente.nome-abrev                 ";"
        emitente.nome-emit                  ";"
        emitente.cod-gr-cli                 ";"
        cta-emitente.cod-banco              ";"
        cta-emitente.agencia                ";"
        cta-emitente.conta-corrente         ";"
        cta-emitente.preferencial           ";"
        emitente.telefone[1]                ";"
        emitente.telefone[2]                ";"
        REPLACE(emitente.e-mail,';',' ')    ";"  
        emitente.cgc                        ";"
        emitente.ins-estadual               ";"
        emitente.data-implant               ";"
        l-ctrl                              ";"
        emitente.cidade                     ";"
        emitente.cep                        ";"
        emitente.estado                     ";"
        REPLACE(emitente.endereco,';',' ')  ";"
        emitente.bairro                     SKIP.                                 

END.
OUTPUT CLOSE.

*************************************************************************

OUTPUT TO c:\temp\fornecedores.csv.

Code Block

PUT UNFORMATTED
   "CODIGO TOTVS" ";"
   "NOME ABREV" ";"
   "RAZAO SOCIAL" ";"
   "GRUPO" ";"
   "BANCO" ";"
   "AGENCIA" ";"
   "CONTA CORRENTE" ";"
   "PREFERENCIAL" ";"
   "TELEFONE 1" ";"
   "TELEFONE 2" ";"
   "E-MAIL" ";"
   "CNPJ ou CPF" ";"
   "INSC.ESTADUAL" ";"
   "DATA IMPLANT" ";"
   "CIDADE" ";"
   "CEP" ";"
   "ESTADO" ";"
   "ENDERECO" ";"
   "BAIRRO" SKIP.
 
    FOR EACH  emitente NO-LOCK
         WHERE emitente.identific <> 1. // valor 1 -- clientes, 2 -- fornecedores, 3 - cliente e fornecedor.
        // WHERE emitente.data-implant >07/01/2023: //mê / dia / ano 10/01/1996
        //  WHERE emitente.cod-gr-cli = 35.
    FIND FIRST cta-emitente WHERE cta-emitente.cod-emitente = emitente.cod-emitente NO-LOCK NO-ERROR.
 
    IF AVAIL cta-emitente THEN
 
        PUT UNFORMATTED
        emitente.cod-emitente ";"
        emitente.nome-abrev ";"
        emitente.nome-emit ";"
        emitente.cod-gr-cli ";"
        "'" STRING(cta-emitente.cod-banco,"999") "'" ";"
        "'" STRING(cta-emitente.agencia,"9999999") "'" ";"
        "'" STRING(cta-emitente.conta-corrente,"99999999999") "'" ";"
        cta-emitente.preferencial ";"
        emitente.telefone[1] ";"
        emitente.telefone[2] ";"
        REPLACE(emitente.e-mail,';',' ') ";"  
        emitente.cgc ";"
        emitente.ins-estadual ";"
        emitente.data-implant ";"
        emitente.cidade ";"
        emitente.cep ";"
        emitente.estado ";"
        REPLACE(emitente.endereco,';',' ') ";"
        emitente.bairro SKIP. 
 
    ELSE
        PUT UNFORMATTED
        emitente.cod-emitente ";"
        emitente.nome-abrev ";"
        emitente.nome-emit ";"
        emitente.cod-gr-cli ";"
        "" ";"
        "" ";"
        "" ";"
        "" ";"
        emitente.telefone[1] ";"
        emitente.telefone[2] ";"
        REPLACE(emitente.e-mail,';',' ') ";"  
        emitente.cgc ";"
        emitente.ins-estadual ";"
        emitente.data-implant ";"
        emitente.cidade ";"
        emitente.cep ";"
        emitente.estado ";"
        REPLACE(emitente.endereco,';',' ') ";"
        emitente.bairro SKIP.
 
END.
OUTPUT CLOSE.

************************************************

OUTPUT TO i:\Leopoldo\clientes_2023-10-06.csv.

Code Block

OUTPUT TO i:\Leopoldo\clientes_2023-11-16.csv.

PUT UNFORMATTED
     "COD TOTVS" ";"
     "COD CRM" ";"
     "NOME ABREV" ";"
     "NOME COMPLETO" ";"
     "GRUPO" ";"
     "E-MAIL" ";"
   "TELEFONE 1" ";"
     "TELEFONE 2" ";"
   "CNPJ ou CPF" ";"
     "INSC.ESTADUAL" ";"
     "CIDADE" ";"
     "CEP" ";"
     "ESTADO" ";"
     "ENDERECO" ";"
     "BAIRRO" SKIP.

        FOR EACH EACH  emitente NO-LOCK
         WHERE emitente      WHERE emitente.identific <> 2
       
        AND emitente.cod-emitente = 959697. // valor 1 -- clientes, 2 -- fornecedores, 3 - cliente e fornecedor.
               FOR EACH moe-emitente        
        WHERE moe-emitente.cod-emitente = emitente.cod-emitente.

        PUT UNFORMATTED                    
        UNFORMATTED                     
        emitente.cod-emitente emitente  ";"
               moe-emitente.codigo-crm ";"
            emitente.nome-abrev  ";"         emitente.nome-emit abrev  ";"         emitente.
        emitente.nome-emit  ";" 
        emitente.cod-gr-cli cli  ";"        
        REPLACE(REPLACE(REPLACE(emitente.e-mail,CHR(13),' '),CHR(10),' '),';',' ')   ";"
        emitente.telefone[1] ";"
        emitente.telefone[2] ";"
               emitente.cgc cgc  ";"
        
        emitente.ins-estadual estadual  ";"        
        emitente.cidade cidade  ";"        
        emitente.cep cep  ";"
        
        emitente.estado estado  ";"
        
        REPLACE(REPLACE(REPLACE(emitente.endereco,CHR(13),' '),CHR(10),' '),';',' ')   ";"        
        emitente.bairro bairro  SKIP.  
       

        END.
END.
OUTPUT CLOSE.

Expand

title	Excluir componente da Estrutura Kit

Panel

panelIconId	1f321
panelIcon	:thermometer:
panelIconText	🌡️
bgColor	#FFEBE6

Situação:

Remover da estrutura dos kits abaixo, os itens informados:

Tip
Possíveis Soluções:

Conforme o programa R:\ESP2\mop\mocg020e.p, os componentes / itens iniciados com "5" e "6" não interferem na abertura dos kits e na margem do D.A. e portanto podem ser excluídos da estrutura.

R:\ESP2\qgp\Excluir Componentes Estrutura Kit.p

Code Block

DEF TEMP-TABLE tt-it
    FIELD it-cod LIKE estrutura.it-codigo
    FIELD es-cod LIKE estrutura.es-codigo.
 
        INPUT FROM "c:\temp\kit.csv".
        REPEAT:
            CREATE tt-it.
            IMPORT DELIMITER ";"tt-it.
       END.
        INPUT CLOSE.
 
    OUTPUT TO c:\temp\estrutura.csv.
    PUT UNFORMATTED
        "it-codigo" ";"
        "es-codigo" SKIP.
       
FOR EACH tt-it
    WHERE tt-it.it-cod <> "":
    
    PROCESS EVENTS.
       
    FIND FIRST estrutura
        WHERE estrutura.it-codigo = tt-it.it-cod AND
              estrutura.es-codigo = tt-it.es-cod.
   
    IF AVAIL estrutura THEN DO:
       
    PUT UNFORMATTED
        estrutura.it-codigo ";"
        estrutura.es-codigo SKIP.
 
        // DELETE estrutura.
    END.
END.

View file

name	estrutura.csv

View file

name	kit.csv

kit foi o lido e estrutura o que foi excluído.

Para excluir apenas um item

Code Block
FOR EACH estrutura WHERE estrutura.it-codigo = "779000708" AND estrutura.es-codigo = "532869". DISP estrutura.it-codigo estrutura.es-codigo. //DELETE estrutura. END.

...

Version	Old Version 8	New Version Current
Changes made by	Leopoldo Michelin de Oliveira	Leopoldo Michelin de Oliveira
Saved on	Nov 06, 2023	Nov 16, 2023

Versions Compared

Key

Situação:

Possíveis Soluções:

Situação:

Possíveis Soluções: