Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: VXI02CP - Manipulação vetor do Contas a Pagar
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
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 título (antes da integração).
Eventos
 User Function VXI02CP()
Local aParcela := ParamIxb[01]  // Parametro 1 - Titulo a ser manipulado
MsgInfo("Ponto de Entrada VXI02CP executado com sucesso!","Atenção")
Return(aParcela)
Programa Fonte 
VEIXI002
Sintaxe

VXI02CP - Manipulação vetor do Contas a Pagar ( [ aParcela ] ) --> aParcela

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aParcela Vetor contendo os campos referente aos campos do Titulo (Contas a Pagar) que sera gerado.
Retorno
    aParcela(vetor)
  • contendo os campos referente aos campos do Titulo (Contas a Pagar) que sera gerado.
Observações
 DbSelectArea("SE2")
For nLinha := 1 to len(aParcelE2)
aParcela := {}
For nColuna := 1 to len(aCamposE2)
If aParcelE2[nLinha,nColuna] <> NIL
aAdd(aParcela,{aCamposE2[nColuna],aParcelE2[nLinha,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
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não