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

Ventas/Ventas.aspx

@@ -386,7 +386,7 @@
                 <asp:LinkButton runat="server" ID="LnkEnviarPolizaVirtual" Visible="false" OnClick="LnkEnviarPolizaVirtual_Click">Enviar Póliza Virtual</asp:LinkButton>
             </li>
             <li>
-                <asp:HyperLink ID="HlFacturasRelaciondas" Visible="false" NavigateUrl="#" data-toggle="modal" data-backdrop="static" data-keyboard="false" data-target="#DivFacturasRelaciondas" runat="server"><i class='fa fa-file'></i> Relacionar Facturas</asp:HyperLink>
+                <asp:LinkButton ID="LnkFacturasRelacionadas" Visible="false" OnClick="LnkFacturasRelacionadas_Click"   data-target="#DivFacturasRelacionadas" runat="server"><i class='fa fa-file'></i> Relacionar Facturas</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkSolicitarCredito" Visible="false" runat="server"><i class="fa fa-plus"></i>Solicitar autorización de crédito</asp:LinkButton>
@@ -1149,7 +1149,7 @@
 
                                                                 <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
                                                                     <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
-                                                                </asp:DropDownList><br />
+                                                                </asp:DropDownList><br id="brclasif" runat="server" />
                                                                 <ADS:Dropdownlost runat="server" ID="DdlPS" TabIndex="2" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" data-onresult="CargaExistenciaAlmacenes" />
 
                                                                 <%--<asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="DdlPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto o Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>--%>

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