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. |
Exemplo: GFEA0701
#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