GFEA0701 - Manipulação de tabela na exclusão de um documento de frete relacionado a uma fatura.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

 

Ponto de Entrada - GFEA0701

Descrição:

Manipulação de tabela na exclusão de um documento de frete relacionado a uma fatura.

Localização:

Botão "Excluir" da grade inferior ("Documentos de Frete da Fatura Relacionados"), opção disponível em "Documentos de Frete".

Programa Fonte:

GFEA070A - Digitação de Faturas de Frete (SIGAGFE)

Parâmetros:

 

Retorno:

 

 

Exemplo: GFEA0701

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13

User Function GFEA0701()

dbSelectArea("GW3")
GW3->( dbSetOrder(8) )
GW3->( dbSeek(GW6->GW6_FILIAL + GW6->GW6_EMIFAT + GW6->GW6_SERFAT + GW6->GW6_NRFAT + DToS(GW6->GW6_DTEMIS)) )
While !GW3->( Eof() ) .And. GW6->GW6_FILIAL + GW6->GW6_EMIFAT + GW6->GW6_SERFAT + GW6->GW6_NRFAT + DToS(GW6->GW6_DTEMIS) == ;
GW3->GW3_FILFAT + GW3->GW3_EMIFAT + GW3->GW3_SERFAT + GW3->GW3_NRFAT + DToS(GW3->GW3_DTEMFA)

 

If GW3->GW3_DTEMIS > dDATABASE

RecLock("GW3", .F.)
GW3->GW3_MOTBLQ := "Data de Emissão do documento de frete não poderá ser maior que Data Corrente."
GW3->GW3_DTBLQ := DDATABASE
GW3->( MsUnlock() )

EndIf

GW3->(dbSkip())

End

 

Return