Clientes Abonar Anticipo Dolares Dolares, CP Nom 043

Ventas/ClientesAbonar.aspx.vb

@@ -345,10 +345,9 @@ Partial Class Ventas_ClientesAbonar
                 End If
 
                 If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then 'GDIaz
-                    divAnticipo.Visible = True
-                    TxtAnticipo.Attributes.Add("onKeyUp", "FnRecalcula(0,1);")
+                    ConfiguraMonedaAntipo()
                     DivAntSubProyecto.Visible = True
-                    DivAntSubProyectoTexto.visible = True
+                    DivAntSubProyectoTexto.Visible = True
                     CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, Nothing, AplicaTodos:="")
                 End If
                 CargaDatos(tCveMoneda)
@@ -360,6 +359,12 @@ Partial Class Ventas_ClientesAbonar
         Return Retorno
     End Function
 
+    Private Sub ConfiguraMonedaAntipo()
+        divAnticipo.Visible = True
+        TxtAnticipo.Attributes.Add("onKeyUp", $"FnRecalcula(0,{If(CveMonedaPago = Nothing, 1, CveMonedaPago)});")
+        UpDatos.Update()
+    End Sub
+
     Private Sub CargaDatos(pCveMoneda As Integer)
         Dim Mov As New ClsMovimientos
         Dim FechaI As String = IfNull(Request("FechaI"), "-1").ToString
@@ -465,6 +470,8 @@ Partial Class Ventas_ClientesAbonar
             TxtFolio.Text = ""
         End If
 
+        ConfiguraMonedaAntipo()
+
     End Sub
 
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged