--- E140, saldado de garantía total, con dif de 0.01

Ventas/Ventas.aspx.vb

@@ -2646,6 +2646,8 @@ Partial Class Ventas
             CargarAlmacenes()
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                 CargaFormaEntrega()
+                'DdlClasificacion.Visible = False
+                'brclasif.Visible = False
             End If
 
             CargaCuentasTerminal()
@@ -2742,7 +2744,7 @@ Partial Class Ventas
 
             'MUESTRA EL MODAL PARA PODER RELACIONAR FACTURAS
             If UsuarioActual.TienePermisoProceso(321) Then
-                HlFacturasRelaciondas.Visible = True
+                LnkFacturasRelacionadas.Visible = True
             End If
 
             If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
@@ -3322,7 +3324,7 @@ Partial Class Ventas
             End If
 
             'CARGA VALORES INICIALES PARA AGREGAR PS DESDE MODAL
-            CargaMetodosPSModal()
+            'CargaMetodosPSModal()
 
             'CARGA VALORES DE ORDEN DE PRODUCCION 
             Dim CveOrdenProduccion As Integer = IfNull(Request("CveOrdenProduccion"), "-1").ToString().ToEntero()
@@ -3436,7 +3438,7 @@ Partial Class Ventas
                 LnkAplicarRNCDevolucion.Visible = False
                 HLPagar.Visible = False
                 HLSaldarVenta.Visible = False
-                HlFacturasRelaciondas.Visible = False
+                LnkFacturasRelacionadas.Visible = False
             End If
 
             ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ???
@@ -7108,7 +7110,7 @@ Partial Class Ventas
                     CargaPorcentajeMarcas()
                 End If
 
-                CargaFacturasARelacionar()
+                'CargaFacturasARelacionar()
 
                 UpFacturar.Update()
                 UpEstatus.Update()
@@ -15227,15 +15229,6 @@ Partial Class Ventas
 
                             End If
                             importeMovimiento = 0
-                        'Case 103 'Descuento
-                        '    'si se amortiza anticipo por concepto de descuento, no debe de registrar esta partida.
-                        '    If DdlTipoAmortizacionAnticipo.SelectedValue <> "1" Then
-                        '        importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
-                        '        importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
-                        '        FechaMovimiento = ObjFactura.FechaPago
-                        '        If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
-                        '    End If
-
                         Case 8 'Ret IVA por Trasladar
                             If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoRetencion <> 4 Then 'SI NO ES RETENCION DE IVA DE SERVICIOS
                                 importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador
@@ -15481,6 +15474,18 @@ Partial Class Ventas
                     End If
                 Next
 
+                'verificar si es garantía total y si el saldo es 0.01
+                If Me.EsGarantia AndAlso ObjFactura.TipoDocto.Contiene("Ing") AndAlso HdnVentaSaldo.Value.ToDecimal = 0.01D Then
+                    Dim SaldoaSaldar As Decimal = 0.01D
+                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, SaldoaSaldar, SaldoaSaldar, 211, $"{ObjFactura.Serie}-{ObjFactura.Folio}", $"{NombreCliente} {ObjFactura.Serie}-{ObjFactura.Folio}", CveCliente:=ObjFactura.CveCliente, CveVenta:=ObjFactura.CveVenta, CveCuenta:=-1, TipoCambio:=ObjFactura.TipoCambio, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyectoVenta) Then
+                        ErrorPrepoliza = True
+                    End If
+
+                    If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, SaldoaSaldar, SaldoaSaldar, 2, $"{ObjFactura.Serie}-{ObjFactura.Folio}", $"{NombreCliente} {ObjFactura.Serie}-{ObjFactura.Folio}", CveCliente:=ObjFactura.CveCliente, CveVenta:=ObjFactura.CveVenta, CveCuenta:=-1, TipoCambio:=ObjFactura.TipoCambio, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyectoVenta) Then
+                        ErrorPrepoliza = True
+                    End If
+                End If
+
             End If
 
             'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora
@@ -25245,6 +25250,10 @@ Partial Class Ventas
                         ChkDevAlm.Checked = True
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then
+                        ChkDevAlm.Checked = True
+                    End If
+
                     'LOS PEDIDOS SE DEBE CANCELAR EN UN PROCESO DISTINTO
                     If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Ped" Then
                         ChkDevAlm.Checked = True
@@ -26090,7 +26099,7 @@ Partial Class Ventas
         DdlMarca.SelectedIndex = 0
         DdlMarcaPSDes.SelectedIndex = 0
         CargaClasificacionesDetalles()
-
+        CargaMetodosPSModal()
         UpAddPS.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddPS"))
     End Sub
@@ -37895,5 +37904,11 @@ Partial Class Ventas
 
         RegistraScript("$('#DivAplicaRNCDevolucion').modal('hide')")
     End Sub
+
+    Protected Sub LnkFacturasRelacionadas_Click(sender As Object, e As EventArgs)
+        CargaFacturasARelacionar()
+        RegistraScript("$('#DivFacturasRelacionadas').modal('show')")
+        UpFacturasRelacionadas.Update()
+    End Sub
 End Class