Compras/Compras.aspx.vb

@@ -3222,6 +3222,14 @@ Partial Class Compras_Compras
 
                 ChkConsignacion.Enabled = True
 
+                'MONEDA PREFERENTE
+                If CveCompra <= 0 Then
+                    If CveFactura <= 0 Then
+                        DdlMoneda.SelectedValueExist(ObjProveedor.CveMonedaPreferente)
+                    End If
+                    CambiaMoneda(False)
+                End If
+
                 ViewState("CveProveedor") = ObjProveedor.CveProveedor
                 ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
                 If ObjProveedor.CveTipoProveedor = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
@@ -3335,7 +3343,6 @@ Partial Class Compras_Compras
                 'CargaDatosEstimaciones(ObjProveedor.CveProveedor)
                 ImgBtnBuscarOC.OnClientClick = String.Format("AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={0}&T={1}&Masterimpoup=true',1000,600,'S'); return false;", ObjProveedor.CveProveedor, DdlTipoComprobante.SelectedValue)
                 CargaAnticipos(ObjProveedor.CveProveedor) : UpAnticipos.Update()
-
                 If UsuarioActual.Empresa.UsaAC Then
                     If (TxtRetIVA.Text.ToDouble > 0 And Not ObjProveedor.IdCtaContRetIVA > 0) Or (TxtRetISR.Text.ToDouble > 0 And Not ObjProveedor.IdCtaContRetISR > 0) Then ' 
                         ImgBtnBuscarOC.Visible = False
@@ -3349,16 +3356,6 @@ Partial Class Compras_Compras
 
                 CargaGvAcarreos(ViewState("CveProveedor").ToString.ToEntero)
 
-
-                'MONEDA PREFERENTE
-                If CveCompra <= 0 Then
-                    If CveFactura <= 0 Then
-                        DdlMoneda.SelectedValueExist(ObjProveedor.CveMonedaPreferente)
-                    End If
-                    CambiaMoneda(False)
-                End If
-
-
                 If CveProveedor > 0 Then
 
                     Dim ObjSAT As New ClsSAT
@@ -3413,6 +3410,7 @@ Partial Class Compras_Compras
         End If
         ObjMovtos.Dispose()
         GVAnticipos.DataBind()
+        UpAnticipos.Update()
     End Sub
 
     Private Sub CargaTiposAF()
@@ -17248,6 +17246,9 @@ Partial Class Compras_Compras
 #Region "  TIPO CAMBIO  "
     Protected Sub DdlMoneda_SelectedIndexChanged(sender As Object, e As EventArgs)
         CambiaMoneda()
+        If DdlProveedor.SelectedValue.ToEntero > 0 Then
+            CargaAnticipos(DdlProveedor.SelectedValue.ToEntero)
+        End If
     End Sub
     Private Sub CambiaMoneda(Optional RecargaTipoCambio As Boolean = True)
         TxtFecha.Attributes.Remove("onblur")