Ventas/ClientesAbonar.aspx.vb

@@ -2104,23 +2104,23 @@ Partial Class Ventas_ClientesAbonar
                     ' iva
                     Dim PorcentajeImpuesto As Decimal = gr.DataKey("PorcentajeIVA").ToDecimal
 
-                    Dim IdCtaIVATrasladado As Integer = 0
-                    Dim CveCuentaIVATrasladado As Integer = 0
+                    Dim IdCtaIVAXTrasladar As Integer = 0
+                    Dim CveCuentaIVAxTrasladar As Integer = 0
 
                     If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                        IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero
-                        CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString.ToEntero
+                        IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
+                        CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero
                     End If
 
-                    IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
-                    CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
-                    If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 61, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
+                    CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
+                    If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
-                    IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
-                    CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSTrasladado
-                    If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 39, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
+                    CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSxTrasladar
+                    If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 

Ventas/RepVentasUtilidad.aspx.vb

@@ -41,6 +41,8 @@ Partial Class Ventas_RepVentasUtilidad
         Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         If EsWS Then
             DdlClientes.setEsWebService(True)
+            DdlClientes.SelectedValue = "-1"
+            DdlClientes.SelectedText = "Todos"
         Else
             DdlClientes.setEsWebService(False)
             DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)

Ventas/RepVentasUtilidadDetalle.aspx

@@ -260,6 +260,16 @@
                                 <asp:Label ID="LbSubTotalDolares" Visible="false" runat="server" Text="SubTotal"></asp:Label>
                             </td>
                         </tr>
+                        <tr align="left">
+                            <td><b>Dias Emision:</b>&nbsp;</td>
+                            <td>
+                                <asp:Label ID="LblDiasEmision" runat="server" Text="Dias Emision"></asp:Label>
+                            </td>
+                            <td><b>Dias Vencimiento:</b>&nbsp;</td>
+                            <td>
+                                <asp:Label ID="LblDiasVencimiento" runat="server" Text="Dias Vencimiento"></asp:Label>
+                            </td>
+                        </tr>
                     </table>
                 </div>
             </div>

Ventas/RepVentasUtilidadDetalle.aspx.vb

@@ -181,6 +181,8 @@ Partial Class Ventas_RepVentasUtilidadDetalle
             If ObjVentas.DtResultados.Rows.Count > 0 Then
                 CveMovimiento = ObjVentas.DtResultados.Rows(1)("CveMovimiento").ToString.ToEntero
 
+                LblDiasVencimiento.Text = ObjVentas.DtResultados.Rows(1)("DiasVencimiento").ToString
+                LblDiasEmision.Text = ObjVentas.DtResultados.Rows(1)("DiasEmision").ToString
                 LblCostoFecha.Text = "$" + ObjVentas.Costo.ToString("N2")
                 HLCostoFolio.Text = ObjVentas.FolioCosto
                 LblFechaSalid.Text = ObjVentas.FechaSalidaCosto.ToDate.ToShortDateString

Ventas/RepVentasUtilidadPadre.aspx.vb

@@ -44,8 +44,10 @@ Partial Class Ventas_RepVentasUtilidadPadre
         txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
 
         'Carga Clientes
-        If UsuarioActual.CveEmpresa = 119 Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1" Then
             DdlClientesWS.setEsWebService(True)
+            DdlClientesWS.SelectedValue = "-1"
+            DdlClientesWS.SelectedText = "Todos"
         Else
             DdlClientesWS.setEsWebService(False)
             DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)