Histórico da Página
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: |
| ||||||
Retorno: |
|
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
ASSUNTOS RELACIONADOS
- OX004BXF Ponto de Entrada para possibilitar a adição de informações na gravação da Baixa Automática de Títulos, na rotina Orç. Por Fases - Linha Microsiga Protheus - TDN (totvs.com)
- 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) - Linha Microsiga Protheus - TDN (totvs.com)