FAQ - RELATÓRIOS

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

Situação:

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

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

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.

Geração Lista de Itens Peso 0 CD0903

Situação:

Geração Lista de Itens Peso 0 - CD0903

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.

Geração de Lista de Observações das Notas fiscais dos Pedidos

Situação:

Lista de Observações das Notas fiscais dos Pedidos

Possíveis Soluções:

DEF TEMP-TABLE tt-pedido

FIELD nr-pedcli LIKE nota-fiscal.nr-pedcli.

DEF VAR observa AS CHAR.

INPUT FROM "v:\temp\pedidos.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 v:\temp\obs_nf_ped.csv.

PUT UNFORMATTED

"PEDIDO" ";"

"NOTA FISCAL" ";"

"NF SERIE" ";"

"NF ESTAB" ";"

"OBSERVACOES" 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 nota-fiscal WHERE // find first ler o primeiro item da tabela

nota-fiscal.dt-emis >= 01/01/2023 AND

nota-fiscal.dt-cancela = ? AND

nota-fiscal.cod-estabel = "04" AND

nota-fiscal.nr-pedcli = tt-pedido.nr-pedcli NO-LOCK NO-ERROR.

IF AVAIL nota-fiscal THEN DO:

ASSIGN observa = TRIM(nota-fiscal.observ-nota).

ASSIGN observa = REPLACE(observa,CHR(13)," "). /*enter*/

ASSIGN observa = REPLACE(observa,CHR(10)," "). /*line*/

ASSIGN observa = REPLACE(observa,CHR(9)," "). /*tab*/

ASSIGN observa = REPLACE(observa,CHR(32),""). /*espaço*/

PUT UNFORMATTED

nota-fiscal.nr-pedcli ";"

nota-fiscal.nr-nota-fis ";"

nota-fiscal.serie ";"

nota-fiscal.cod-estabel ";"

observa SKIP.

END.

OUTPUT CLOSE.

Relatório de Cadastro de Usuários TOTVS MOUT073

Situação:

Relatório de Cadastro de Usuários TOTVS MOUT073

Possíveis Soluções:

Gerar Relatório de Cadastro de Usuários TOTVS MOUT073:

Relatório de usuários para auditoria, inclusive com os acessos por empresa e estabelecimento

Lista de usuários Datasul:

Geração de Lista de Clientes e Fornecedores

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

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

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.

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.

PUT UNFORMATTED

"COD TOTVS" ";"

"COD CRM" ";"

"NOME ABREV" ";"

"NOME COMPLETO" ";"

"GRUPO" ";"

"E-MAIL" ";"

"CNPJ ou CPF" ";"

"INSC.ESTADUAL" ";"

"CIDADE" ";"

"CEP" ";"

"ESTADO" ";"

"ENDERECO" ";"

"BAIRRO" SKIP.

FOR EACH emitente NO-LOCK

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

emitente.cod-emitente ";"

moe-emitente.codigo-crm ";"

emitente.nome-abrev ";"

emitente.nome-emit ";"

emitente.cod-gr-cli ";"

REPLACE(REPLACE(REPLACE(emitente.e-mail,CHR(13),' '),CHR(10),' '),';',' ') ";"

emitente.cgc ";"

emitente.ins-estadual ";"

emitente.cidade ";"

emitente.cep ";"

emitente.estado ";"

REPLACE(REPLACE(REPLACE(emitente.endereco,CHR(13),' '),CHR(10),' '),';',' ') ";"

emitente.bairro SKIP.

END.

OUTPUT CLOSE.

Excluir componente da Estrutura Kit

Situação:

Remover da estrutura dos kits abaixo, os itens informados:

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

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.

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

Para excluir apenas um item

FOR EACH estrutura

WHERE estrutura.it-codigo = "779000708" AND

estrutura.es-codigo = "532869".

DISP estrutura.it-codigo

estrutura.es-codigo.

//DELETE estrutura.

END.

Relatório de Prestadores MORE048

Situação:

Relatório de Prestadores MORE048

Possíveis Soluções:

DEF VAR nome-contr LIKE mo-adp-responsavel.nome.

DEF VAR nome-dir LIKE mo-adp-responsavel.nome.

DEF VAR nome-gestor LIKE mo-adp-responsavel.nome.

OUTPUT TO c:\temp\prestadores-santillana.csv.

PUT UNFORMATTED

"Contrato" ";"

"Prestador" ";"

"Nome" ";"

"Tipo" ";"

"Admissao" ";"

"Renovacao" ";"

"Termino" ";"

"Prazo" ";"

"Avisar" ";"

"Dt Distrato" ";"

"Tp Distrato" ";"

"Item" ";"

"Descricao" ";"

"Funcao" ";"

"Vl Contrato" ";"

"VR" ";"

"Estab" ";"

"Conta" ";"

"Centro de Custo" ";"

"Situacao" ";"

"Contratante" ";"

"Nome" ";"

"Diretor" ";"

"Nome" ";"

"Gestor" ";"

"Nome" SKIP.

FOR EACH mo-adp-contrato

WHERE /*cod-contrato = 2 NO-LOCK: */

mo-adp-contrato.dt-inicio >= 06/01/2019 AND

mo-adp-contrato.dt-termino <= 04/30/2021 NO-LOCK:

FIND FIRST mo-adp-responsavel

WHERE mo-adp-responsavel.cod-resp = mo-adp-contrato.cod-resp-padrao NO-LOCK NO-ERROR.

IF AVAIL mo-adp-responsavel THEN

ASSIGN nome-contr = mo-adp-responsavel.nome.

FIND FIRST mo-adp-responsavel

WHERE mo-adp-responsavel.cod-resp = mo-adp-contrato.cod-resp-contrato NO-LOCK NO-ERROR.

IF AVAIL mo-adp-responsavel THEN

ASSIGN nome-dir = mo-adp-responsavel.nome.

FIND FIRST mo-adp-responsavel

WHERE mo-adp-responsavel.cod-resp = mo-adp-contrato.cod-resp-prestador NO-LOCK NO-ERROR.

IF AVAIL mo-adp-responsavel THEN

ASSIGN nome-gestor = mo-adp-responsavel.nome.

FIND FIRST emitente

WHERE emitente.cod-emitente = mo-adp-contrato.cod-emitente NO-LOCK NO-ERROR.

FIND FIRST ITEM

WHERE ITEM.it-codigo = mo-adp-contrato.tipo-servico NO-LOCK NO-ERROR.

PUT UNFORMATTED

cod-contrato ";"

emitente.cod-emitente ";"

emitente.nome-emit ";"

emitente.natureza ";"

dt-admissao ";"

dt-inicio ";"

dt-termino ";"

prazo-contrato ";"

aviso-renovacao ";"

dt-distrato ";"

tipo-distrato ";"

tipo-servico ";"

ITEM.desc-item ";"

mo-adp-contrato.funcao ";"

vl-contrato ";"

ind-vr ";"

mo-adp-contrato.cod-estabel ";"

mo-adp-contrato.ct-codigo ";"

mo-adp-contrato.sc-codigo ";"

situacao ";" //2 Impresso, 9 Distratado

cod-resp-padrao ";"

nome-contr ";"

cod-resp-contrato ";"

nome-dir ";"

cod-resp-prestador ";"

nome-gestor SKIP.

END.

OUTPUT CLOSE.

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

DEF VAR nome-contr LIKE mo-adp-responsavel.nome.

DEF VAR nome-dir LIKE mo-adp-responsavel.nome.

DEF VAR nome-gestor LIKE mo-adp-responsavel.nome.

FOR EACH mo-adp-contrato

WHERE cod-contrato = 2 NO-LOCK: /* AND

mo-adp-contrato.dt-inicio >= 06/01/2010 AND

mo-adp-contrato.dt-termino <= 04/30/2024 NO-LOCK:*/

FIND FIRST mo-adp-responsavel

WHERE mo-adp-responsavel.cod-resp = mo-adp-contrato.cod-resp-padrao NO-LOCK NO-ERROR.

IF AVAIL mo-adp-responsavel THEN

ASSIGN nome-contr = mo-adp-responsavel.nome.

FIND FIRST mo-adp-responsavel

WHERE mo-adp-responsavel.cod-resp = mo-adp-contrato.cod-resp-contrato NO-LOCK NO-ERROR.

IF AVAIL mo-adp-responsavel THEN

ASSIGN nome-dir = mo-adp-responsavel.nome.

FIND FIRST mo-adp-responsavel

WHERE mo-adp-responsavel.cod-resp = mo-adp-contrato.cod-resp-prestador NO-LOCK NO-ERROR.

IF AVAIL mo-adp-responsavel THEN

ASSIGN nome-gestor = mo-adp-responsavel.nome.

FIND FIRST emitente

WHERE emitente.cod-emitente = mo-adp-contrato.cod-emitente NO-LOCK NO-ERROR.

FIND FIRST ITEM

WHERE ITEM.it-codigo = mo-adp-contrato.tipo-servico NO-LOCK NO-ERROR.

DISP cod-contrato

emitente.cod-emitente

emitente.nome-emit

emitente.natureza

dt-admissao

dt-inicio

dt-termino

prazo-contrato

aviso-renovacao

dt-distrato

tipo-distrato

tipo-servico

ITEM.desc-item

mo-adp-contrato.funcao

vl-contrato

ind-vr

mo-adp-contrato.cod-estabel

conta-contabil

mo-adp-contrato.ct-codigo

mo-adp-contrato.sc-codigo

situacao //2 Impresso, 9 Distratado

cod-resp-padrao

nome-contr

cod-resp-contrato

nome-dir

cod-resp-prestador

nome-gestor WITH WIDTH 300 1 COL.

END.

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

DEF VAR vl-total LIKE tit_ap.val_origin_tit_ap.

DEF VAR dt-pagto LIKE tit_ap.dat_ult_pagto.

DEF VAR qtde-pagto AS INTEGER.

OUTPUT TO c:\temp\prestadores-santillana.csv.

PUT UNFORMATTED

"Contrato" ";"

"Prestador" ";"

"Nome" ";"

"Tipo" ";"

"Admissao" ";"

"Renovacao" ";"

"Termino" ";"

"Prazo" ";"

"Avisar" ";"

"Dt Distrato" ";"

"Tp Distrato" ";"

"Item" ";"

"Funcao" ";"

"Vl Contrato" ";"

"VR" ";"

"Estabelecimento" ";"

"Conta" ";"

"Dt Pagto" ";"

"Vl Pago" ";"

"Qtde Pagto" ";"

"Centro de Custo" ";"

"CC Descricao" SKIP.

FOR EACH mo-adp-contrato NO-LOCK: /* WHERE

mo-adp-contrato.cod-emitente = 32697:*/

PROCESS EVENTS.

ASSIGN vl-total = 0

qtde-pagto = 0.

FOR EACH tit_ap NO-LOCK WHERE

tit_ap.cdn_fornecedor = mo-adp-contrato.cod-emitente AND

tit_ap.dat_emis_docto >= mo-adp-contrato.dt-admissao AND

tit_ap.dat_emis_docto >= 06/01/2019 AND

tit_ap.dat_emis_docto <= 04/30/2021 AND

(tit_ap.cod_espec_docto = "RA" OR

tit_ap.cod_espec_docto = "NC"):

ASSIGN vl-total = vl-total + tit_ap.val_origin_tit_ap.

qtde-pagto = qtde-pagto + 1.

END.

FIND FIRST emitente WHERE

emitente.cod-emitente = mo-adp-contrato.cod-emitente NO-LOCK NO-ERROR.

IF AVAIL emitente THEN DO:

ASSIGN dt-pagto = ?.

FIND FIRST tit_ap WHERE

tit_ap.cdn_fornecedor = mo-adp-contrato.cod-emitente NO-LOCK NO-ERROR.

IF AVAIL tit_ap THEN

ASSIGN dt-pagto = tit_ap.dat_ult_pagto.

ELSE

ASSIGN dt-pagto = ?.

PUT cod-contrato ";"

emitente.cod-emitente ";"

emitente.nome-emit ";"

emitente.natureza ";"

dt-admissao ";"

dt-inicio ";"

dt-termino ";"

prazo-contrato ";"

aviso-renovacao ";"

dt-distrato ";"

tipo-distrato ";"

tipo-servico ";"

funcao ";"

vl-contrato ";"

ind-vr ";"

cod-estabel ";"

conta-contabil ";"

dt-pagto ";"

vl-total ";"

qtde-pagto ";".

END.

FIND FIRST emscad.ccusto WHERE

ccusto.cod_ccusto = mo-adp-contrato.sc-codigo NO-LOCK NO-ERROR.

IF AVAIL ccusto THEN

PUT ccusto.cod_ccusto ";"

ccusto.des_tit_ctbl SKIP.

ELSE

PUT "" ";"

"" SKIP.

END.

DEF TEMP-TABLE tt-item

Situação:

TABLE tt-item

Possíveis Soluções:

DEF TEMP-TABLE tt-item

FIELD nr-item LIKE mocd-it-sape-int.campo1.

INPUT FROM "I:\Leopoldo\item_sape.csv".

REPEAT:

CREATE tt-item.

IMPORT DELIMITER ";" tt-item.

END.

INPUT CLOSE.

OUTPUT TO I:\Leopoldo\itens_sape.csv.

PUT UNFORMATTED

"campo1" ";"

"campo9" SKIP.

FOR EACH tt-item WHERE

tt-item.nr-item <> "":

PROCESS EVENTS.

FIND FIRST mocd-it-sape-int WHERE

mocd-it-sape-int.campo1 = tt-item.nr-item.

IF AVAIL mocd-it-sape-int THEN DO:

PUT UNFORMATTED

campo1 ";"

campo2 SKIP.

END.

DEF TEMP-TABLE tt-item

FIELD nr-item LIKE item.it-codigo.

INPUT FROM "I:\Leopoldo\item_sape.csv".

REPEAT:

CREATE tt-item.

IMPORT DELIMITER ";" tt-item.

END.

INPUT CLOSE.

OUTPUT TO I:\Leopoldo\itens_totvs.csv.

PUT UNFORMATTED

"item código" SKIP.

FOR EACH tt-item WHERE

tt-item.nr-item <> "":

PROCESS EVENTS.

FIND FIRST ITEM WHERE

ITEM.it-codigo = tt-item.nr-item.

IF AVAIL ITEM THEN DO:

PUT UNFORMATTED

it-codigo SKIP.

END.

Lista Cliente Local Entrega

Situação:

QUERY do CD0705 contendo as seguintes informações: Código Emitente e Código de Entrega (Exemplo: Padrão, Local-01)

Possíveis Soluções:

OUTPUT TO c:\temp\cliente_cod_entrega.csv.

PUT UNFORMATTED

"CODIGO TOTVS" ";"

"NOME ABREV" ";"

"RAZAO SOCIAL" ";"

"CNPJ ou CPF" ";"

"COD ENTREGA" SKIP.

FOR EACH emitente

WHERE emitente.identific <> 2. // valor 1 -- clientes, 2 -- fornecedores, 3 - cliente e fornecedor.

FOR EACH loc-entr WHERE loc-entr.nome-abrev = emitente.nome-abrev NO-LOCK.

/* DISP emitente.cod-emitente */

/* loc-entr.cod-entrega. */

PUT UNFORMATTED

emitente.cod-emitente ";"

emitente.nome-abrev ";"

emitente.nome-emit ";"

emitente.cgc ";"

loc-entr.cod-entrega SKIP.

END.

Lista Itens Valor MAT GGF MOB

Situação:

Lista Itens Valor MAT GGF MOB

Possíveis Soluções:

FOR EACH pr-it-per

WHERE it-codigo = "530296" AND

cod-estabel = "99" AND

periodo = 09/30/2023:

DISP cod-estabel

it-codigo

periodo

val-unit-mat-m[1]

val-unit-ggf-m[1]

val-unit-mat-m[1]

val-unit-mob-m[1] WITH SCROLLABLE.

END.

OUTPUT TO i:\leopoldo\ValorMobGGFSantillana.csv.

PUT "Estab;Periodo;Item;Vl Mat; Vl GGF; Vl MOB" SKIP.

FOR EACH pr-it-per WHERE

pr-it-per.periodo = 09/30/2023 AND

(pr-it-per.val-unit-ggf-m[1] <> 0 OR

pr-it-per.val-unit-mob-m[1] <> 0) NO-LOCK: // NO-ERROR.

PROCESS EVENTS.

EXPORT DELIMITER ";"

pr-it-per.cod-estabel

pr-it-per.periodo

pr-it-per.it-codigo

pr-it-per.val-unit-mat-m[1]

pr-it-per.val-unit-ggf-m[1]

pr-it-per.val-unit-mob-m[1].