OX100BXF Ponto de Entrada para adicionar informações no vetor de gravação da Baixa Automática de Títulos na rotina Fechamento de OS

Ponto de Entrada

Descrição:

Ponto de Entrada para adicionar informações no vetor de gravação da Baixa Automática de Títulos na rotina Fechamento de OS.

Localização:

Atualizações / Mov Oficina / Fechamento os Mod 2

Eventos:

aBaixa := {{"E1_PREFIXO" , SE1->E1_PREFIXO ,Nil},;

{"E1_CLIENTE" , SE1->E1_CLIENTE ,Nil},;

{"E1_LOJA" , SE1->E1_LOJA ,Nil},;

{"E1_NUM" , SE1->E1_NUM ,Nil},;

{"E1_PARCELA" , SE1->E1_PARCELA ,Nil},;

{"E1_TIPO" , SE1->E1_TIPO ,Nil},;

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

{"AUTDTBAIXA" , dDataBase ,Nil},;

{"AUTDTCREDITO" , dDataBase ,Nil},;

{"AUTHIST" , STR0043 ,Nil},; //"Baixa Automatica"

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

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

If ExistBlock("OX100BXF")

aBaixa := ExecBlock("OX100BXF", .F., .F., aBaixa)

Endif

lMSHelpAuto := .t.

lMsErroAuto := .f.

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

Programa Fonte:

OFIXX100.PRW

Função:

OX100BXFIN()

Parâmetros:

Nome	Tipo	Descrição
aBx	Matriz	Vetor com informações que serão gravadas no registro da Baixa Automática de Títulos na Rotina de Fechamento de OS.

Retorno:

Nome	Tipo	Descrição
aBx	Matriz	Vetor com informações que serão gravadas no registro da Baixa Automática de Títulos na rotina de Fechamento de OS.

Exemplo:

Include totvs.ch

User Function OX100BXF() //PE para adição de Campos na Baixa do Título Automática

Local aBx := PARAMIXB

Local aInfBco := u_InsBanco()

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