Registro de Entrega por Engano no GFE

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

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

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.