-varios

2020-07-03 17:34:25 -07:00
parent 8d366f4eb0
commit 17471e8ab6
11 changed files with 2513 additions and 2245 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10039,7 +10039,17 @@ Partial Class Ventas
                                CveCuentaCliente = CveCuenta
                            End If

+                        Case 7 'descuentos
+                            If LblDescuentos.Text.ToDecimal > 0 Then

+                                importeMovimiento = (ObjFactura.Descuento) * ValorMultiplicador
+                                importeMX = importeMovimiento * tipoCambio * Multiplicador
+                                FechaMovimiento = ObjFactura.FechaPago
+                                CveSubProyectoContabilizar = CveSubProyectoVenta
+                                IdCtaContable = 0
+                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
+                            End If
                        Case 3 'Cliente

                            If ObjFactura.TipoDocto = "Ant" Then