Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada está localizado na rotina Atendimento de Veículos Modelo 2 (Tela de Financiamento Próprio), executado no duploclick do listbox das parcelas, tem como finalidade possibilitar alterações no vetor das parcelas. Colunas do Vetor:

1a.posição: Data de Vencimento

2a.posição: Valor da Parcela

3a.posição: codigo interno, não pode ser manipulado

Localização:

Atendimento / Mov Atendimento / Atendimento de Veiculos Modelo 2 (VEIXA018)

Eventos:

Static Function FS_DBLCLICK(nOpc)

Local aParcAux := {}

If nOpc == 3 .or. nOpc == 4 // Incluir ou Alterar

If ( ExistBlock("VXX09DLB") )// Altera Parcelas do Financiamento Proprio (aParcPro)

aParcAux := ExecBlock("VXX09DLB",.F.,.F.,{aParcPro,oLboxPro:nAt}) // { Data Vencimento , Valor Parcela , Posiciao no aCols do VS9 }

If ( ValType(aParcAux) == "A" )

aParcPro := aClone(aParcAux)

If len(aParcPro) <= 0

aAdd(aParcPro,{dDataBase,0,0})

EndIf

EndIf

EndIf

If len(aParcPro) < oLboxPro:nAt

oLboxPro:nAt := 1

EndIf

oLboxPro:SetArray(aParcPro)

oLboxPro:bLine := { || { Transform(aParcPro[oLboxPro:nAt,1],"@D")+" - "+FG_CDOW(aParcPro[oLboxPro:nAt,1]) , FG_AlinVlrs(Transform(aParcPro[oLboxPro:nAt,02],"@E 999,999.99")) }}

oLboxPro:Refresh()

EndIf

Return(.t.)

Programa Fonte:

VEIXX009                                                                                                                                              

Função:

FS_DBLCLICK                   

Retorno:

aVetParcel - Vetor das Parcelas { Data de Vencimento , Valor da Parcela , Posiciao no aCols do VS9 }

 

Exemplo:

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ VXX09DLB º Autor ³ MIL º Data ³ 28/03/16 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ DuploClick no ListBox das Parcelas do Financiamento Proprioº±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºUso ³ Veiculos -> Atendimento Modelo 2 º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function VXX09DLB()

Local aVetParcel := ParamIXB[01] // Vetor das Parcelas { Data de Vencimento , Valor da Parcela , Posiciao no aCols do VS9 } Obs.: Nao manipular a coluna 3 (Posiciao no aCols do VS9) do vetor das Parcelas

Local nLinParcel := ParamIXB[02] // Linha do ListBox ( Vetor das Parcelas )

//

aVetParcel[nLinParcel,1] := aVetParcel[nLinParcel,1] // Data de Vencimento

aVetParcel[nLinParcel,2] := aVetParcel[nLinParcel,2] // Valor da Parcela

//

MsgAlert("Alteração da linha "+alltrim(str(nLinParcel)))

//

Return(aVetParcel)