Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Clientes.aspx

@@ -5607,7 +5607,7 @@
                                
                                 </div>
                                 <div class="col-md-5">
-                                    <ADS:Dropdownlost ID="DdlClienteImportarSaldos" data-metodo="getcliente" DataValueField="CveCliente" DataTextField="CodigoNombre" Width="260px" CssClass="select2me" runat="server"></ADS:Dropdownlost>
+                                    <ADS:Dropdownlost ID="DdlClienteImportarSaldos" data-metodo="getcliente" DataValueField="CveCliente" DataTextField="CodigoNombre" Width="100%" CssClass="select2me" runat="server"></ADS:Dropdownlost>
                                     <%--<asp:RequiredFieldValidator ID="RFVClienteImportarSaldos" InitialValue="-1" runat="server" ControlToValidate="DdlClienteImportarSaldos" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpImportarSaldos"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCEClienteImportarSaldos" runat="server" HighlightCssClass="vco" TargetControlID="RFVClienteImportarSaldos" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                 </div>
@@ -5647,7 +5647,7 @@
                             <br />
                             <div class="row">
                                 <div style="height: 300px; overflow-y: auto;">
-                                    <asp:GridView ID="GvImportarSaldos" DataKeyNames="CveIE, CveCliente,Total,IVA,Original,PorcentajeIVA" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall" runat="server">
+                                    <asp:GridView ID="GvImportarSaldos" DataKeyNames="CveIE, CveCliente,Total,IVA,Original,PorcentajeIVA,Tipo,CveVenta" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall" runat="server">
                                         <Columns>
                                             <asp:TemplateField ItemStyle-Width="5%">
                                                 <ItemTemplate>

Ventas/Clientes.aspx.vb

@@ -4820,7 +4820,7 @@ Partial Class Clientes
     Private Sub ConsultarAnticiposSaldosClientes()
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetAnticiposNCIxCCliente(DdlClienteImportarSaldos.SelectedValue.ToEntero()) Then
-            GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND Saldo > 0 AND CveIE > 0")
+            GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("ISTotal = 0 AND Saldo > 0 AND Saldo > 0 AND CveIE > 0 AND Tipo IN('NC','IxC','Ant')")
         Else
             GvImportarSaldos.DataSource = Nothing
         End If
@@ -4857,22 +4857,58 @@ Partial Class Clientes
         If CvePrePoliza > 0 Then
             For Each Gvr As GridViewRow In GvImportarSaldos.Rows
                 If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then
+                    ImporteAplicar = 0
 
                     Importe = Gvr.FCTextBox("TxtImporte").Text.ToDecimal()
                     IVA = Importe / Gvr.DataKey("Original").ToDecimal() * Gvr.DataKey("IVA").ToDecimal() 'TOMA EN CUENTA EL IVA - CONCEPTO DIFERENTE
-                    ImporteAplicar = (Importe - IVA)
+
-                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ImporteAplicar, 92, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero()) Then
+                    Dim Tipo As String = Gvr.DataKey("Tipo")
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar, 66, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero()) Then
+
-                            TieneError = True
+                    Dim CveVenta As Integer = -1
-                        End If
+
-                    Else
+                    Select Case Tipo
-                        TieneError = True
+                        Case "Ant"
-                    End If
+                            CveVenta = Gvr.DataKey("CveVenta").ToEntero()
+                            ImporteAplicar = (Importe - IVA)
+
+
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ImporteAplicar, 11, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar, 3, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                                    TieneError = True
+                                End If
+                            Else
+                                TieneError = True
+                            End If
+
+                        Case "IxC"
+                            ImporteAplicar = Importe
+
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ImporteAplicar, 92, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero()) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar, 66, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero()) Then
+                                    TieneError = True
+                                End If
+                            Else
+                                TieneError = True
+                            End If
+
+                        Case "NC"
+                            ImporteAplicar = Importe
+                            CveVenta = Gvr.DataKey("CveVenta").ToEntero()
+
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar * -1, ImporteAplicar * -1, 12, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                                TieneError = True
+                            End If
+
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar, 12, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                                TieneError = True
+                            End If
+
+                    End Select
 
                     If Not TieneError Then
                         If IVA > 0 Then
-                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -IVA, -IVA, 61, "Traspaso de saldos de anticipos.IVA", "Traspaso de saldos de anticipos.IVA", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), PorcentajeImpuesto:=Gvr.DataKey("PorcentajeIVA").ToDecimal) Then
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -IVA, -IVA, 13, "Traspaso de saldos de anticipos.IVA", "Traspaso de saldos de anticipos.IVA", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), PorcentajeImpuesto:=Gvr.DataKey("PorcentajeIVA").ToDecimal, Contabilizable:=False) Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, IVA, 61, "Traspaso de saldos de anticipos. IVA", "Traspaso de saldos de anticipos.IVA", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero(), PorcentajeImpuesto:=Gvr.DataKey("PorcentajeIVA").ToDecimal) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, IVA, 13, "Traspaso de saldos de anticipos. IVA", "Traspaso de saldos de anticipos.IVA", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero(), PorcentajeImpuesto:=Gvr.DataKey("PorcentajeIVA").ToDecimal, Contabilizable:=False) Then
                                     TieneError = True
                                 End If
                             Else
@@ -4880,6 +4916,7 @@ Partial Class Clientes
                             End If
                         End If
                     End If
+
                 End If
             Next
         Else

Ventas/Ventas.aspx.vb

@@ -32256,6 +32256,10 @@ Partial Class Ventas
             UpCliente.Update()
         End If
 
+        'NO RECARGAR EL GV DE INVENTARIO AL HACER CLICK EN EL TAB DE ALMACEN
+        HdnCargarInventario.Value = "False"
+        UpParametros.Update()
+
         RegistraScript("$('#DivAplicaDevolucion').modal('hide')")
 
     End Sub