Histórico da Página

#INCLUDE "Totvs.ch"   

User function F887View()
Local oView := PARAMIXB[1] //Viewdef
oView:AddUserButton("TC a usar?", "TC a usar?",{ |oView| U_TASBAJ(oView:GetModel()) },,,{MODEL_OPERATION_INSERT}) //Tasa de Baja
Return  

User Function TASBAJ(oView)
oModel := oView:GetModel()
local  oModelFJT 	:= oModel:GetModel("FJT_MASTER")
Local oModelSE1   := oModel:GetModel("SE1_DETAIL")
Local nX := 1

Default oView	:= FwViewActive()

If MsgYesNo("Desea utilizar tasa origen") 
	oModelFJT:SetValue("CALTASA",.T.) 
   
Else 
   oModelFJT:SetValue("CALTASA",.F.) 
EndIf
Return



For nX := 1  To oModelSE1:Length()
   If  oModelSE1:GetValue("CHECK",nX) 
      oModelSE1:GoLine(nX)
      oModelSE1:SetValue("BAIXAR1",0,)// se realiza el seteo del valor de la baja en Pesos para que al cambiar la tasa tenga que tomar la tasa que el usuario elija
   Endif
NExt

   oModelSE1:GoLine(1)// regresa a la linea 1 para que visualice correctamente
   F887ActSal(oView:GetModel()) // hace la actualización de saldos en el apartado de totales
   oView:Refresh() //Refesh  de la view

Return