Page Comparison

...

Expand

title	Geração Lista de Itens Peso 0 CD0903

Panel

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

Situação:

Geração Lista de Itens Peso 0 - CD0903

Tip
Possíveis Soluções:

Code Block
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.

Expand

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

Panel

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

Situação:

Lista de Observações das Notas fiscais dos Pedidos

Tip
Possíveis Soluções:

Code Block
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.


END.


OUTPUT CLOSE.

Expand

title	Relatório de Cadastro de Usuários TOTVS MOUT073

Panel

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

Situação:

Relatório de Cadastro de Usuários TOTVS MOUT073

Tip
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:

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
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.


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.

Expand

title	Relatório de Prestadores MORE048

Panel

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

Situação:

Relatório de Prestadores MORE048

Tip
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.

...

Expand

title	Lista Itens Valor MAT GGF MOB

Panel

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

Situação:

Lista Itens Valor MAT GGF MOB

Tip
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].

Expand

title	Relatório Pedidos Compras de pagamentos por usuário e pedido

Panel

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

Situação:

SANTIBR-68976 Relatório de pedidos de pagamentos por usuário e pedido

Olá, tudo bem? Por favor, preciso de um relatório de pedidos de pagamentos com as seguintes premissas:

Empresa: Santillana Educação (Matriz) 98 Período: 2023 Emitido pelos usuários: dmarques, allima, acomar, vbrito e nataliac.

No relatório deve constar o número do pedido, o valor do pedido e a data de geração do pedido.

Tip
Possíveis Soluções:

Situação

1 - Não Confirmada

2 - Confirmada

3 - Cotada

4 - Eliminada

5 - Em Cotação

6 - Recebida

Code Block

OUTPUT TO i:\Leopoldo\pedidos_compras_98.csv.
PUT UNFORMATTED
    "PEDIDO" ";"
    "COD CLIENTE" ";"
    "NOME ABREV" ";"
    "EMERGENCIAL" ";"
    "USUARIO" ";"
    "DT PEDIDO" ";"
    "ESTAB" ";"
    "ORDEM" ";"
    "ITEM" ";"
    "SITUACAO" ";"
    "QTDE" ";"
    "PRECO" ";"
    "TOTAL" SKIP.

FOR EACH pedido-compr 
   WHERE pedido-compr.responsavel = "dmarques"
      OR pedido-compr.responsavel = "allima"
      OR pedido-compr.responsavel = "acomar"
      OR pedido-compr.responsavel = "nataliac"
      OR pedido-compr.responsavel = "vanessab"
     AND pedido-compr.cod-estab-gestor ="98"
     AND pedido-compr.data-pedido >= 01/01/2023 NO-LOCK.
    FOR EACH emitente
        WHERE emitente.cod-emitente = pedido-compr.cod-emitente.
        FOR EACH ordem-compra
            WHERE ordem-compra.num-pedido = pedido-compr.num-pedido.
        PUT UNFORMATTED 
        pedido-compr.num-pedido   ";"
        pedido-compr.cod-emitente ";"
        emitente.nome-abrev       ";"
        pedido-compr.emergencial  ";"
        pedido-compr.responsavel  ";"
        pedido-compr.data-pedido  ";"
        ordem-compra.cod-estabel  ";"
        ordem-compra.numero-ordem ";"
        ordem-compra.it-codigo    ";"
        ordem-compra.situacao     ";"
        ordem-compra.qt-solic     ";"
        ordem-compra.preco-unit   ";"
        ordem-compra.qt-solic * ordem-compra.preco-unit SKIP.
        END.
    END.
END.

Code Block

FOR EACH pedido-compr 
   WHERE pedido-compr.num-pedido = 233409
     AND pedido-compr.cod-estab-gestor ="98"
     AND pedido-compr.data-pedido >= 01/01/2023 NO-LOCK.
    FOR EACH emitente
        WHERE emitente.cod-emitente = pedido-compr.cod-emitente.
        FOR EACH ordem-compra
            WHERE ordem-compra.num-pedido = pedido-compr.num-pedido.
    DISP 
        pedido-compr.num-pedido
        pedido-compr.cod-emitente
        emitente.nome-abrev
        pedido-compr.emergencial
        pedido-compr.responsavel
        pedido-compr.data-pedido
        ordem-compra.cod-estabel
        ordem-compra.numero-ordem
        ordem-compra.it-codigo
        ordem-compra.situacao
        ordem-compra.qt-solic
        ordem-compra.preco-unit WITH 1 COL 2 DOWN SCROLLABLE.
        END.
    END.

Version	Old Version 6	New Version 7
Changes made by	Leopoldo Michelin de Oliveira	Leopoldo Michelin de Oliveira
Saved on	Oct 31, 2023	Nov 01, 2023

Versions Compared

Key

Situação:

Possíveis Soluções:

Situação:

Possíveis Soluções:

Situação:

Possíveis Soluções:

Situação:

Possíveis Soluções:

Situação:

Possíveis Soluções:

Situação:

Possíveis Soluções:

Situação:

Possíveis Soluções:

Situação:

Possíveis Soluções: