VXI002BXF Ponto de Entrada para adicionar/alterar informações na gravação da Baixa Automática de Títulos na rotina de Atendimento de Veículos Mod. 2 (VEIXA018)

Descrição:

Ponto de Entrada criado para adicionar/alterar informações na gravação da Baixa Automática de Títulos na rotina de Atendimento de Veículos.

Eventos:

For nLinha := 1 to len(aBaixaAut)

If !Empty(aBaixaAut[nLinha,3]) // Possui nro da parcela

aParcela := {}

For nColuna := 1 to len(aCampoAut)

If aBaixaAut[nLinha,nColuna] <> NIL

aAdd(aParcela,{aCampoAut[nColuna],aBaixaAut[nLinha,nColuna],nil})

EndIf

Next

If len(aParcela) > 0

lMsErroAuto := .f.

DbSelectArea("SE1")

DbSetOrder(1)

If DbSeek(xfilial("SE1")+aParcela[1,2]+aParcela[2,2]+aParcela[3,2]+aParcela[4,2])

aAdd(aParcela,{"AUTBANCO",IIF(SE1->E1_SITUACA $ "0FG", aBancoBxa[1] ,SE1->E1_PORTADO),nil})

aAdd(aParcela,{"AUTAGENCIA",IIF(SE1->E1_SITUACA $ "0FG", aBancoBxa[2] ,SE1->E1_AGEDEP),nil})

aAdd(aParcela,{"AUTCONTA",IIF(SE1->E1_SITUACA $ "0FG", aBancoBxa[3] ,SE1->E1_CONTA),nil})

Endif

//PE criado para passagem de parâmetros customizados no ExecAuto do FINA070, seguindo o parâmetro MV_BXVEI

If ExistBlock("VXI002BXF")

aParcela := ExecBlock("VXI002BXF", .F., .F., aParcela)

Endif

MSExecAuto({|x| FINA070(x)},aParcela)

If lMsErroAuto

MostraErro()

Return .f.

EndIf

EndIf

EndIf

Next

Função:

VEIXI002CR()