Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: VXI02CR - Manipula o vetor do Contas a Receber
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 Receber) a ser gerado na integração com o FINA040. Executado a cada titulo (antes da integração).
Eventos
 User Function VXI02CR()
Local aParcela := ParamIxb[01]  // Parametro 1 - Titulo a ser manipulado
MsgInfo("Ponto de Entrada VXI02CR executado com sucesso!","Atenção")
Return(aParcela)
Programa Fonte 
VEIXI002
Sintaxe

VXI02CR - Manipula o vetor do Contas a Receber ( [ 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 Receber) que sera gerado.
Retorno
    aParcela(vetor)
  • contendo os campos referente aos campos do Titulo (Contas a Receber) que sera gerado.
Observações
 DbSelectArea("SE1")
For nLinha := 1 to len(aParcelE1)
aParcela := {}
For nColuna := 1 to len(aCamposE1)
If aParcelE1[nLinha,nColuna] <> NIL
aAdd(aParcela,{aCamposE1[nColuna],aParcelE1[nLinha,nColuna],nil})
EndIf
Next
if lExistPE
aAuxParc := ExecBlock("VXI02CR",.f.,.f.,{ aClone(aParcela) })
if ValType(aAuxParc) == "A"
aParcela := aClone(aAuxParc)
endif
endif
If len(aParcela) > 0
Pergunte("FIN040",.f.)
lMsErroAuto := .f.
MSExecAuto({|x| FINA040(x)},aParcela)
If lMsErroAuto
MostraErro()
Return(.f.)
EndIf
EndIf
Next
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não