OIA280AG - Validação da Gravação da Tabela VM0

Descrição

Este Ponto de Entrada permite criar validações adicionais, de acordo com os critérios estabelecidos antes de realizar a gravação da tabela VM0.

Localização: Rotina Gera Faturam. Sc (OFIIA280), antes da gravação da tabela VM0.

Observações

Exemplos

User Function OIA280AG()
lRet := .t.
MsgInfo("Ponto de entrada OIA280AG executado com sucesso!")

Return(lRet)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

N/A

Retorno

lRet = Retorno lógico. Informa se a validação foi feita com sucesso ou não.

Eventos de chamada do Ponto de Entrada

// PONTO DE ENTRADA ANTES DA GRAVAÇÃO DO VM0
If ExistBlock("OIA280AG")
lRet := ExecBlock("OIA280AG",.f.,.f.)
EndIf

if lRet

dbselectArea("TRB")
dbgotop()

do while !eof()

dbselectArea("VM0")

RecLock("VM0", .T. )
VM0->VM0_FILIAL := xFilial("VM0")
VM0->VM0_CODMAR := TRB->TRB_CODMAR
VM0->VM0_DATREF := TRB->TRB_DATREF
VM0->VM0_GRUITE := TRB->TRB_GRUITE
VM0->VM0_CODITE := TRB->TRB_CODITE
VM0->VM0_SITNFI := TRB->TRB_SITNFI
VM0->VM0_QTDITE += TRB->TRB_QTDITE
VM0->VM0_VALTOT += TRB->TRB_VALTOT
VM0->VM0_VALICM += TRB->TRB_VALICM
VM0->VM0_DEPGAR := TRB->TRB_DEPGAR
VM0->VM0_LOCVEN := TRB->TRB_LOCVEN

MsUnlock()

dbselectArea("TRB")
dbskip()

enddo

TRB->(DBCLOSEAREA())

Endif

Variáveis

Programa Fonte

OFIIA280.PRW