Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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

Next

Next

Return aRetParc