Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada para adição de informações na gravação da Baixa Automática de Títulos, na rotina Orç. Por Fases.

Localização:

Atualização / Mov Peças / Orc. Por Fases

Eventos:

if SE1->E1_VENCTO == ddatabase

aBaixa := {;

{"E1_PREFIXO" ,E1_PREFIXO ,Nil } ,;

{"E1_NUM" ,E1_NUM ,Nil } ,;

{"E1_PARCELA" ,E1_PARCELA ,Nil } ,;

{"E1_TIPO" ,E1_TIPO ,Nil } ,;

{"AUTMOTBX" ,"NOR" ,Nil } ,;

{"AUTDTBAIXA" ,dDataBase ,Nil } ,;

{"AUTDTCREDITO",dDataBase ,Nil } ,;

{"AUTHIST" ,"BAIXA AUTOMATICA" ,Nil } ,;

{"AUTVALREC" ,SE1->E1_VALOR ,Nil }}

//


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

If ExistBlock("OX004BXF")

aBaixa := ExecBlock("OX004BXF", .F., .F., {aBaixa})

Endif


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

Programa Fonte:

OFIXX004.PRW

Função:

OX004GERFIN()

Parâmetros:
NomeTipoDescrição

aBx

Matriz

Vetor contendo informações que servirão para a gravação do registro na Baixa de Títulos(SE5).

Retorno:
NomeTipoDescrição

aBx

Matriz

Vetor contendo informações que servirão para a gravação do registro na Baixa de Títulos(SE5).

Exemplo:

Include totvs.ch

User Function OX004BXF()

Local aBx := PARAMIXB

aadd(aBx, {"AUTBANCO" ,Padr("235", GetSX3Cache("E5_BANCO", "X3_TAMANHO")), Nil})

aadd(aBx, {"AUTAGENCIA" ,Padr("141", GetSX3Cache("E5_AGENCIA", "X3_TAMANHO")), Nil})

aadd(aBx, {"AUTCONTA" ,Padr("3054", GetSX3Cache("E5_CONTA", "X3_TAMANHO")), Nil})

Return aBx



ASSUNTOS RELACIONADOS