VM040AGD - Manipulação dos Dados da aCols

Descrição

Este Ponto de Entrada está localizado na rotina Despesas/Receitas do Veículo (VEIVM040), tem por objetivo a manipulação dos dados da aCols antes de sua gravação na tabela VVD.

Observações

Exemplos

#Include "protheus.ch"

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³VM040AGD ³ Autor ³ Otávio Favarelli ³ Data ³ 18/12/13 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Ponto de Entrada Antes da Gravação da Tabela VVD - Despesas³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VM040AGD()

Local aLocalaHeader := ParamIXB[1] //aHeader
Local aLocalaCols := ParamIXB[2] //aCols

//MsgAlert("Ponto de entrada VM040AGD executado com sucesso!")

Return \{aLocalaHeader , aLocalaCols\}

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

aHeadDesp := aHeader dos campos em uso da tabela VVD.
aColsDesp := aCols contendo as informações dos campos em uso da tabela VVD.

Retorno

aAuxRetorno := matriz contendo dois vetores, onde a primeira posição é o vetor aHeadDesp e a segunda posição é o vetor aColsDesp manipulado.

Eventos de chamada do Ponto de Entrada

If aColsDesp[i,len(aColsDesp[i])] .And. wProcura
RecLock("VVD",.F.,.T.)
DbDelete()
MsUnlock()
WriteSx2("VVD")
Else

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| PE antes da gravação da VVD para despesa |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ExistBlock("VM040AGD")
aAuxRetorno := ExecBlock("VM040AGD",.f.,.f., \{ aHeadDesp,aColsDesp \} )
If ValType(aAuxRetorno) == "A"
aHeadDesp := aClone(aAuxRetorno[1])
aColsDesp := aClone(aAuxRetorno[2])
aAuxRetorno := \{\}
Endif
EndIf

RecLock("VVD",If(wProcura,.F.,.T.))
FG_GRAVAR("VVD",aColsDesp,aHeadDesp,i)
VVD->VVD_TIPOPE := "0"
VVD->VVD_FILIAL := VV1->VV1_FILENT
VVD->VVD_CHAINT := VV1->VV1_CHAINT
VVD->VVD_TRACPA := VV1->VV1_TRACPA
If FG_POSVAR("VVD_EXPCPG","aHeadDesp") > 0
VVD->VVD_EXPCPG := aColsDesp[i,FG_POSVAR("VVD_EXPCPG","aHeadDesp")] //'1'
EndIf
MsUnlock()

Variáveis

Programa Fonte

VEIVM040.PRW