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