FAQ - RELATÓRIOS
Marcos Miasson
Leopoldo Michelin de Oliveira
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.
Situação:
Geração Lista de Itens Peso 0 - CD0903
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.
Lista de Observações das Notas fiscais dos Pedidos
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.
Relatório de Cadastro de Usuários TOTVS MOUT073
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:
exportação de usuários atuais do grupo 35 Força de venda do Totvs/ERP:
Codigo Totvs | Nome | Nome Abrev | Telefone(s) | Telefone | CPF | Endereço | Bairro | CEP | Cidade | UF | Endereço Completo |
valor 1 -- somente clientes
valor 2 -- somente fornecedores
valor 3 -- cliente e fornecedor.
R:\ESP2\qgp\Lista de Clientes Output.p
*************************************************************************
OUTPUT TO c:\temp\fornecedores.csv.
************************************************
OUTPUT TO i:\Leopoldo\clientes_2023-10-06.csv.