Registro de Entrega por Engano no GFE
- Leopoldo Michelin de Oliveira
Situação:
BAIXA DE ENTREGA INDEVIDA NO GFE
De <https://project-tools-santillana.atlassian.net/browse/SANTIBR-76205 >
Boa tarde, Equipe Cau, Poderia ajudar no caso abaixo, precisamos que seja excluído a data de entrega desta nota abaixo no GFE, devido ser uma baixa indevida realizada; Segue nota abaixo:
ESTAB | PEDIDO | EMBARQUE | SERIE | NR NOTA FISCAL | DESCRICAO DA NATUREZA | RAZAO SOCIAL | CLIENTE | CIDADE ENTREGA | UF | DT.SAIDA | DT.PREV.ENTREGA | DT.ENTREGA CLI | |
99 | 6642777A | 44886 | 3 | 162243 | REMESSA DE LIVRO PARA ESCOLA | COLEGIO SANTO ANTONIO | 54258 | FEIRA DE SANTANA | BA | 25/03/2024 | 25/03/2024 | 03/04/2024 | 04/09/2024 |
Possíveis Soluções:
Acessar o programa Registrar Entrega no GFE
Selecionar o Documento e em Outras Ações, Cancelar Entrega
Vai sair a informação da entrega no Documento de Carga
Depois deletar a Data e hora da entrega no TOTVS.
FOR EACH moft-dados-nota-gfe
WHERE moft-dados-nota-gfe.cod-estabel = "99"
AND moft-dados-nota-gfe.serie = "3"
AND moft-dados-nota-gfe.nr-nota-fis = "0162243":
DISP nr-nota-fis
dt-entrega
hr-entrega.
UPDATE dt-entrega // Colocar ? para deixar em branco
hr-entrega. // Só deletar
END.
Em lote
DEF TEMP-TABLE tt-nota-gfe
FIELD tt-estab LIKE moft-dados-nota-gfe.cod-estabel
FIELD tt-serie LIKE moft-dados-nota-gfe.serie
FIELD tt-nota LIKE moft-dados-nota-gfe.nr-nota-fis.
INPUT FROM "i:\leopoldo\DTEntrega_SANTIBR-83281.csv".
REPEAT:
CREATE tt-nota-gfe.
IMPORT DELIMITER ";" tt-nota-gfe.
END.
INPUT CLOSE.
OUTPUT TO c:\temp\moft-dados-nota-gfe.csv.
PUT UNFORMATTED
"ESTAB" ";"
"SERIE" ";"
"NOTA" ";"
"DT EMISS" ";"
"DT ENTRE" ";"
"HR ENTRE" SKIP.
FOR EACH tt-nota-gfe WHERE
tt-nota-gfe.tt-nota <> ? : //Diferente de branco na tt-pedido // quando é inteiro é <> 0, quando é char é <> "", quando é data <> ?
PROCESS EVENTS.
FIND FIRST moft-dados-nota-gfe WHERE
moft-dados-nota-gfe.dt-emis-nota >= 01/01/2023 AND
moft-dados-nota-gfe.cod-estabel = tt-nota-gfe.tt-estab AND
moft-dados-nota-gfe.serie = tt-nota-gfe.tt-serie AND
moft-dados-nota-gfe.nr-nota-fis = tt-nota-gfe.tt-nota NO-ERROR.
IF AVAIL moft-dados-nota-gfe THEN
DO:
ASSIGN moft-dados-nota-gfe.dt-entrega = ? // Colocar ? para deixar em branco
moft-dados-nota-gfe.hr-entrega = "". // Só deletar
END.
PUT UNFORMATTED
moft-dados-nota-gfe.cod-estabel ";"
moft-dados-nota-gfe.serie ";"
moft-dados-nota-gfe.nr-nota-fis ";"
moft-dados-nota-gfe.dt-emis-nota ";"
moft-dados-nota-gfe.dt-entrega ";"
moft-dados-nota-gfe.hr-entrega SKIP.
END.
OUTPUT CLOSE.