Descrição

Este ponto de entrada está localizado na rotina Gera Faturam. Sc (OFIIA280). Está localizado antes da gravação da tabela VM0. Tem como finalidade criar validações adicionais de acordo com critérios estabelecidos pelo usuário antes de realizar a 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