Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na Rotina de Entrada por Compra de Veiculos, utilizado para inserir campos do SE2 na grid das parcelas (como pagar). O conteudo dos campos devem ser preenchidos atraves do Ponto de Entrada VX000PAR que é somente executado quando for utilizado uma condição de Pagamento do Tipo "A". A rotina vai gravar automaticamente o campo no SE2 no momento da integração com o Financeiro.

Localização:

Atualizações \ Mov Entrada \ Entrada Por Compra (VEIXA001)

Eventos:

aParcCust := {}

If (FM_PILHA("VEIXA001")) // Somente Entrada de Veiculos por Compra

If ExistBlock("VX000CCP")

aParcCust := ExecBlock("VX000CCP",.f.,.f.) // Campos Customizados na Grid de Parcelas

// aParcCust[x,1] Titulo da Coluna no ListBox

// aParcCust[x,2] Campo do SE2 ( se informado será gravado na integracao com o FINA - Geração do Titulo )

// aParcCust[x,3] Picture do Campo

// aParcCust[x,4] Tamanho da Coluna no ListBox

// aParcCust[x,5] Posicionamento - Alinhamento no ListBox: LEFT / RIGHT

// aParcCust[x,6] Conteudo default

VX0000041_CarregaDefaultCamposCustomizadosParcelas(1)

EndIf

EndIf

Programa Fonte:

VEIXX000.PRW

Função:

VX000EXEC()

Parâmetros:

N/A

Retorno:

aParcCust // vetor com os Campos Customizados na Grid de Parcelas

// aParcCust[x,1] Titulo da Coluna no ListBox

// aParcCust[x,2] Campo do SE2 ( se informado será gravado na integracao com o FINA - Geração do Titulo )

// aParcCust[x,3] Picture do Campo

// aParcCust[x,4] Tamanho da Coluna no ListBox

// aParcCust[x,5] Posicionamento - Alinhamento no ListBox: LEFT / RIGHT

// aParcCust[x,6] Conteudo default

Exemplo:

Include totvs.ch

User Function VX000CCP()

Local aRetCpos := {}

// aRetCpos[x,1] Titulo da Coluna no ListBox

// aRetCpos[x,2] Campo do SE2 ( se informado será gravado na integracao com o FINA - Geração do Titulo )

// aRetCpos[x,3] Picture do Campo

// aRetCpos[x,4] Tamanho da Coluna no ListBox

// aRetCpos[x,5] Posicionamento - Alinhamento no ListBox: LEFT / RIGHT

// aRetCpos[x,6] Conteudo default

aAdd(aRetCpos,{"Motivo","E2_MOTIVO","@!",50,"LEFT",""})

Return aRetCpos