VX000PAR Preencher vetor da gridbox de parcelas na Rotina Entrada Por Compra (VEIXA001)

Ponto de Entrada

Descrição:	Ponto de Entrada na Rotina de Entrada por Compra de Veiculos, utilizado para manipular o vetor aIteParc (grid Como Pagar). É somente executado quando o usuário seleciona uma condição de Pagamento do Tipo "A".
Localização:	Atualizações \ Mov Entrada \ Entrada Por Compra (VEIXA001)
Eventos:	If (FM_PILHA("VEIXA001")) // Somente Entrada de Veiculos por Compra If Alltrim(SE4->E4_TIPO) == "A" // Somente quando SE4 for do tipo Negociada If ExistBlock("VX000PAR") // chamar PE que possibilita customizar o aIteParc e/ou preencher os campos adicionais customizadaos no aIteParc[x,3] aIteParc := ExecBlock("VX000PAR",.f.,.f.,{aIteParc,aParcCust}) EndIf EndIf EndIf
Programa Fonte:	VEIXX000.PRW
Função:	VX000ATUCP()
Parâmetros:	aIteParc = Vetor com as Parcelas (grid Como Pagar). Se utilizar o ponto de Entrada VX000CCP, a 3a.posição do aIteParc será um vetor com o conteudo dos campos customizados do SE2. aParcCust = Vetor com os campos customizados do SE2 (retorno do VX000CCP)
Retorno:	aIteParc = Vetor com as Parcelas (grid Como Pagar). Se utilizar o ponto de Entrada VX000CCP, a 3a.posição do aIteParc será um vetor com o conteudo dos campos customizados do SE2.

Exemplo:

Include totvs.ch

User Function VX000PAR()

Local aRetParc := ParamIXB[1] // Vetor das Parcelas (aIteParc) - grid Como Pagar

Local aCposCust := ParamIXB[2] // Vetor com os campos customizados da SE2 - definicao no Ponto de Entrada VX000CCP

Local nParc := 0

Local nCpos := 0

For nParc := 1 to len(aRetParc) // Parcelas (linhas da grid Como Pagar)

For nCpos := 1 to len(aCposCust) // Campos Customizados SE2

aRetParc[nParc,3,nCpos] := "Teste "+strzero(nParc,3)+strzero(nCpos,2) // Inserindo conteudo nos campos customizados do SE2

Return aRetParc