Histórico da Página

#INCLUDE "Protheus.ch"

//-------------------------------
// Baja del título por cobrar.
// Título por el valor de R$1.000,00 con descuento de R$100,00.
//-------------------------------

User Function BAIXA070()

 	// Para este ejemplo se utilizó la variable AUTDESCONT,
    // si fuera necesario aplicar decremento a la baja del título  
	// basta modificar la variable para AUTDECRESC, ambas variables
	// tienen el mismo efecto de cálculo.
 
	Local aBaixa := {}
 
    aBaixa := {{"E1_PREFIXO"  ,"TST"                ,Nil    },;
            {"E1_NUM"      ,"TSTDESC  "            ,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    },;
            {"AUTDESCONT"  ,100                    ,Nil    },; 
  			{"AUTVALREC"   ,900                    ,Nil    }}     

	MSExecAuto({|x,y| Fina070(x,y)},aBaixa,3) 
 
Return