Ventas/Ventas.aspx.vb

@@ -9576,24 +9576,24 @@ Partial Class Ventas
                                                     TCFluctuacion = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
                                                 End If
 
-                                                If DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
-                                                    ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion
-                                                ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
-                                                    ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion
-                                                ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
-                                                    Importe251 = Dr("Importe").ToString.ToDecimal / TCFluctuacion
-                                                    ImporteMN251 = Dr("Importe").ToString.ToDecimal
-                                                Else
-                                                    ImporteMN251 = Dr("Importe").ToString.ToDecimal
-                                                End If
+                                            If DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion
+                                            ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion
+                                            ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                Importe251 = Dr("Importe").ToString.ToDecimal / TCFluctuacion
+                                                ImporteMN251 = Dr("Importe").ToString.ToDecimal
+                                            Else
+                                                ImporteMN251 = Dr("Importe").ToString.ToDecimal
+                                            End If
 
-                                                Importe251 = (Importe251 * Multiplicador).RoundSQL
+                                            Importe251 = Importe251.RoundSQL
 
-                                                Importe91 = (Importe91 * ValorMultiplicador).RoundSQL
-                                                ImporteMN91 = (ImporteMN91 * Multiplicador).RoundSQL
-                                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}"
+                                            Importe91 = (Importe91).RoundSQL
+                                            ImporteMN91 = (ImporteMN91 * Multiplicador).RoundSQL
+                                            If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}"
 
-                                                CveUltimaVenta = Dr("CveVenta").ToString.ToEntero
+                                            CveUltimaVenta = Dr("CveVenta").ToString.ToEntero
 
                                                 Dim ImporteComplementarioIngreso As Decimal = 0
                                                 If UsaComplementariaClientes = True AndAlso tipoCambio > 1 Then
@@ -10304,9 +10304,9 @@ Partial Class Ventas
                                         Exit For
                                     End If
 
-                                    If DrPago("CveTipoMovimiento").ToString.ToEntero = 8 Then '13
-                                        DrPago("Importe") = DrPago("Importe").ToString.ToDecimal - TxtCambio.Text.ToDecimal
-                                    End If
+                                    'If DrPago("CveTipoMovimiento").ToString.ToEntero = 8 Then '13
+                                    '    DrPago("Importe") = DrPago("Importe").ToString.ToDecimal - TxtCambio.Text.ToDecimal
+                                    'End If
 
                                     CveIEPago = ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString.ToEntero, DrPago("CveTipoMovimiento").ToString.ToEntero, Fecha, FolioIE.ToString, String.Format("PAGO: {0}", TxtFolio.Text), DrPago("Importe").ToString.ToDouble, DdlMoneda.SelectedValue.ToEntero, tipoCambio, DrPago("Observaciones").ToString, "", False, False, -1, ObjFactura.CvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte, MesesSinIntereses:=DrPago("MesesSinIntereses").ToString.ToEntero)
 
@@ -16464,10 +16464,15 @@ Partial Class Ventas
 
         If total <= 0 Then Alert("No se ha ingresado importe", TipoMensaje.MsgAdvertencia) : Exit Sub
 
-        'If DtPagos.SUM("Importe").ToString.ToDecimal + total > TxtTotal.Text.ToDecimal Then
-        '    Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor rectifique.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
+        If TxtCambio.Text.ToDecimal > 0 And TxtImporteEfectivo.Text.ToDecimal < TxtCambio.Text.ToDecimal Then
+            Alert("Debe haber un pago en efectivo y ser mayor que el cambio. Si no, ser pago exacto.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If (DtPagos.SUM("Importe").ToString.ToDecimal + total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
+            Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor rectifique.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
         'Pago en Efectivo
         If TxtImporteEfectivo.Text.ToDecimal > 0 Then
@@ -16477,7 +16482,7 @@ Partial Class Ventas
                 DrEfectivo("TipoMovimiento") = "Pago en Efectivo"
                 DrEfectivo("CveCuenta") = DdlCuentaEfectivo.SelectedValue
                 DrEfectivo("Cuenta") = DdlCuentaEfectivo.SelectedItem.Text
-                DrEfectivo("Importe") = TxtImporteEfectivo.Text
+                DrEfectivo("Importe") = TxtImporteEfectivo.Text.ToDecimal - TxtCambio.Text.ToDecimal
                 DrEfectivo("Folio") = CargaFolioContado(DdlCuentaEfectivo.SelectedValue.ToEntero, 6)
                 DrEfectivo("Observaciones") = ""
                 DrEfectivo("Tipo") = "Caja Chica"
@@ -16674,15 +16679,15 @@ Partial Class Ventas
     Private Function ValidaPagosContado() As Boolean
         Dim Retorno = False
 
-        If (UsuarioActual.CveEmpresa = 140) AndAlso (Not PermiteCredito) AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) Then
+        If (UsuarioActual.CveEmpresa = 140) AndAlso (Not PermiteCredito) AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) And TxtTotal.Text.ToDecimal > 0 Then
             Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia)
             Retorno = True
         End If
 
-        'If DtPagos.SUM("Importe").ToString.ToDecimal > TxtTotal.Text.ToDecimal Then
-        '    Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia)
-        '    Retorno = True
-        'End If
+        If (DtPagos.SUM("Importe").ToString.ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
+            Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia)
+            Retorno = True
+        End If
 
         Return Retorno
     End Function