VXI02CP - Manipulação de Titulos no Atendimento

Descrição

Ponto de Entrada utilizado para manipular o vetor contendo os campos referente ao Titulo (Contas a Pagar) a ser gerado na integração com o FINA050. Executado a cada titulo (antes da integração).

Observações

Exemplos

DbSelectArea("SE2")
For nLinha := 1 to len(aParcelE2)
aParcela := {
}
For nColuna := 1 to len(aCamposE2)
If aParcelE2nLinha,nColuna <> NIL
aAdd(aParcela,{aCamposE2nColuna,aParcelE2nLinha,nColuna,nil
})
EndIf
Next
If lExistPE
aAuxParc := ExecBlock("VXI02CP",.f.,.f.,{ aClone(aParcela)
})
If ValType(aAuxParc) == "A"
aParcela := aClone(aAuxParc)
EndIf
EndIf
If len(aParcela) > 0
Pergunte("FIN050",.f.)
lMsErroAuto := .f.
MsExecAuto({

x,y,z

FINA050(x,y,z)
},aParcela) If lMsErroAuto MostraErro() Return(.f.) EndIf EndIf Next

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

DbSelectArea("SE2")
For nLinha := 1 to len(aParcelE2)
aParcela := {}
For nColuna := 1 to len(aCamposE2)
If aParcelE2nLinha,nColuna <> NIL
aAdd(aParcela,{aCamposE2nColuna,aParcelE2nLinha,nColuna,nil})
EndIf
Next
If lExistPE
aAuxParc := ExecBlock("VXI02CP",.f.,.f.,{ aClone(aParcela) })
If ValType(aAuxParc) == "A"
aParcela := aClone(aAuxParc)
EndIf
EndIf
If len(aParcela) > 0
Pergunte("FIN050",.f.)
lMsErroAuto := .f.
MsExecAuto({

Variáveis

Programa Fonte

VEIXI002