Histórico da Página

Este parâmetro não obedece a sequência de baixa gravada na tabela SE5, portanto, em um cenário com 4 baixas parciais, por exemplo, ao cancelar a segunda baixa (parâmetro igual a 2) e em seguida, for opção do usuário, cancelar a terceira baixa, o parâmetro deve ser passado com o valor 2 novamente, pois a baixa anteriormente cancelada não é mais considerada na sequência de baixas, a rotina considera uma nova sequência, de 1 a 3, sendo a primeira baixa equivalente a 1, a terceira baixa equivalente a 2 e a quarta baixa equivalente a 3.

Caso o valor do parâmetro seja superior ao número de baixas existente (por exemplo, 3 baixas parciais e o parâmetro com valor 4), a rotina considera automaticamente o parâmetro como valor 1, cancelando a primeira baixa da sequência (seja essa sequência a original, ou seja, respeitando a ordem das baixas, ou seja a ordem atual, já após ter havido o cancelamento de alguma baixa parcial).

cFiltro: Grava um filtro nos títulos da MBrowse.

Este parámetro no obedece la secuencia de baja grabada en la tabla SE5, por lo tanto, en un escenario con 4 bajas parciales, por ejemplo, al anular la segunda baja (parámetro igual a 2) y a continuación, fuera opción del usuario, anular la tercera baja, el parámetro debe transferirse con el valor 2 nuevamente, pues la baja anteriormente anulada no se considera más en la secuencia de bajas, la rutina considera una nueva secuencia, de 1 a 3, siendo la primera baja equivalente a 1, la tercera baja equivalente a 2 y la cuarta baja equivalente a 3.

Si el valor del parámetro fuera superior al número de bajas existente (por ejemplo, 3 bajas parciales y el parámetro con valor 4), la rutina considera automáticamente el parámetro como valor 1, anulando la primera baja de la secuencia (sea esta secuencia la original, es decir, respetando el orden de las bajas, o el orden actual, después de la anulación de alguna baja parcial).

cFiltro: Graba un filtro en los títulos de la  MBrowse.

#INCLUDE "Protheus.ch"

//-------------------------------
// BaixaBaja dodel titulotítulo apor recebercobrar
//-------------------------------

User Function BAIXA070()
 
	Local aBaixa := {}
 
	aBaixa := {{"E1_PREFIXO"  ,"   "                ,Nil    },;
			{"E1_NUM"      ,"200      "            ,Nil    },;
			{"E1_PARCELA"  ," "                    ,Nil    },;
			{"E1_TIPO"     ,"NF "                  ,Nil    },;
			{"AUTMOTBX"    ,"NOR"                  ,Nil    },;
			{"AUTBANCO"    ,"001"                  ,Nil    },;
			{"AUTAGENCIA"  ,"00001"                ,Nil    },;
			{"AUTCONTA"    ,"0000000001"           ,Nil    },;
			{"AUTDTBAIXA"  ,dDataBase              ,Nil    },;
			{"AUTDTCREDITO",dDataBase              ,Nil    },;
			{"AUTHIST"     ,"BAIXA TESTE"          ,Nil    },;
			{"AUTJUROS"    ,0                      ,Nil,.T.},;
			{"AUTVALREC"   ,700                    ,Nil    }}
 
	MSExecAuto({|x,y| Fina070(x,y)},aBaixa,3) 
 
Return

//-------------------------------
// Anulación Cancelamentode dala baixabaja dodel titulotítulo apor recebercobrar
//-------------------------------
User Function CANC070()
 
	Local aBaixa := {}
 	
	aBaixa := {{"E1_PREFIXO"  ,"   "                ,Nil    },;
			{"E1_NUM"      ,"200      "            ,Nil    },;
			{"E1_PARCELA"  ," "                    ,Nil    },;
			{"E1_TIPO"     ,"NF "                  ,Nil    },;
			{"AUTMOTBX"    ,"NOR"                  ,Nil    },;
			{"AUTBANCO"    ,"001"                  ,Nil    },;
			{"AUTAGENCIA"  ,"00001"                ,Nil    },;
			{"AUTCONTA"    ,"0000000001"           ,Nil    },;
			{"AUTDTBAIXA"  ,dDataBase              ,Nil    },;
			{"AUTDTCREDITO",dDataBase              ,Nil    },;
			{"AUTHIST"     ,"BAIXA TESTE"          ,Nil    },;
			{"AUTJUROS"    ,0                      ,Nil,.T.},;
			{"AUTVALREC"   ,700                    ,Nil    }}
 
	MSExecAuto({|x,y| Fina070(x,y)},aBaixa,5) 
 
Return

#INCLUDE "Protheus.ch"

//-------------------------------
// BaixaBaja dodel titulotítulo apor recebercobrar
//-------------------------------

User Function BAIXA070()
 
	Local aBaixa := {}
 
	aBaixa := {{"E1_PREFIXO"  ,"   "                ,Nil    },;
			{"E1_NUM"      ,"200      "            ,Nil    },;
			{"E1_PARCELA"  ," "                    ,Nil    },;
			{"E1_TIPO"     ,"NF "                  ,Nil    },;
			{"AUTMOTBX"    ,"NOR"                  ,Nil    },;
			{"AUTBANCO"    ,"001"                  ,Nil    },;
			{"AUTAGENCIA"  ,"00001"                ,Nil    },;
			{"AUTCONTA"    ,"0000000001"           ,Nil    },;
			{"AUTDTBAIXA"  ,dDataBase              ,Nil    },;
			{"AUTDTCREDITO",dDataBase              ,Nil    },;
			{"AUTHIST"     ,"BAIXA TESTE"          ,Nil    },;
			{"AUTJUROS"    ,0                      ,Nil,.T.},;
            {"AUTTXMOEDA"  ,5.0000                 ,Nil    }}
 
	MSExecAuto({|x,y| Fina070(x,y)},aBaixa,3) 
 
Return