Histórico da Página
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: | Este ponto de entrada não recebe parâmetros. |
Retorno: | Este ponto de entrada não possui retorno. |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH"
User Function GFEA0701()
Local cExpGW3 := "GW3->GW3_FILFAT+GW3->GW3_EMIFAT+GW3->GW3_SERFAT+GW3->GW3_NRFAT+DToS(GW3->GW3_DTEMFA)"
Local cExpGW6 := "GW6->GW6_FILIAL+GW6->GW6_EMIFAT+GW6->GW6_SERFAT+GW6->GW6_NRFAT+DToS(GW6->GW6_DTEMIS)"
Local cSeek := &cExpGW6
GW3->( dbSetOrder(8) )
GW3->( dbSeek(cSeek) )
While !GW3->( Eof() ) .And. cSeek == &cExpGW3
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())
EndDo
Return
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas