Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/Timbrado.vb

@@ -2534,73 +2534,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
 
 #Region "C O M P L E M E N T O   C A R T A   P O R T E"
-        If UsuarioActual.CveEmpresa = 13 Then
-            If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
-                Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
-
-                ''DATOS GENERALES
-                cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
-
-                'UBICACIONES
-                If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
-                    For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
-                        'origen
-                        cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
-                        'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
-                        cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
-                    Next
-                End If
-
-                'MERCANCIAS
-                If Carta.Mercancias IsNot Nothing Then
-                    cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
-                    If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
-                        For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-                            If concep.ValorMercancia <= 0 Then concep.Moneda = ""
-                            cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
-                            For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
-                                cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
-                            Next
-                        Next
-                    End If
-                End If
-                '
-                If Carta.FiguraTransporte IsNot Nothing Then
-
-                    If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
-
-                        cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
-
-                        cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
-
-                        cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
-                                                Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
-                                                Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
-                                                Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
-
-                        If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
-                            For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
-                                cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
-                            Next
-
-                        End If
-                    End If
-
-                    If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
-                        For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
-                            cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
-                            If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
-                                cfdi.CartaPortePartesTransporte("PT01")
-                                cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
-                            End If
-                        Next
-                    End If
-
-                End If
-
-            End If
-        Else
-
 
         If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
@@ -2667,7 +2600,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
                 End If
             End If
         End If
-        End If
 
 
 #End Region

Bancos/RepCortes.aspx

@@ -427,8 +427,6 @@
 
                     </div>
                 </div>
-                <div class="row">
-                    <div class="col-md-12">
                 <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" ToolTip="Reporte de Cortes" CssClass="table table-striped table-advance table-hover Widthall" Style="position: static" UseAccessibleHeader="false" GridLines="None">
                     <Columns>
                         <asp:TemplateField ItemStyle-HorizontalAlign="Left">
@@ -459,21 +457,6 @@
                     <AlternatingRowStyle CssClass="TextoAlterno" />
                 </asp:GridView>
             </div>
-                </div>
-                <div class="row">
-                    <div class="col-md-6">
-                        <br />
-                        <b>Ingresos/Retiros</b>
-                        <asp:GridView ID="GvIngresosRetiros" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%">
-                            <Columns>
-                                <asp:BoundField HeaderText="Tipo" DataField="TipoMovimiento" />
-                                <asp:BoundField HeaderText="Descripción" DataField="Descripcion" />
-                                <asp:BoundField HeaderText="Total" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                            </Columns>
-                        </asp:GridView>
-                    </div>
-                </div>
-            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 

Bancos/RepCortes.aspx.vb

@@ -167,38 +167,31 @@ Partial Class Bancos_RepCortes
         Dim Finalizado As Integer = gvr.DataKey("Finalizado").ToString.ToEntero
         Fecha = gvr.DataKey("FechaInicial").ToString
         Nombre = gvr.DataKey("Nombre").ToString
-        Dim ObjPuntoVenta As New ClsPuntoVenta
+        Dim Vent As New ClsPuntoVenta
-        Dim ObjVentas As New ClsVentas
+        Dim Vn As New ClsVentas
-
+        If Vn.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-        If ObjVentas.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvP.DataSource = Vn.DtResultados
-            GvP.DataSource = ObjVentas.DtResultados
+            DtCortesVentasResumen = Vn.DtResultados
-            DtCortesVentasResumen = ObjVentas.DtResultados
         End If
-
         If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
             DivIVA.Visible = True
-            If ObjVentas.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-                GvPorIVA.DataSource = ObjVentas.DtResultados
+                GvPorIVA.DataSource = Vn.DtResultados
             End If
         End If
 
-        If ObjVentas.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If UsuarioActual.CveEmpresa.contiene(140, 141) AndAlso Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            GvDep.DataSource = ObjVentas.DtResultados
+            GvDep.DataSource = Vn.DtResultados
-            If ObjVentas.DtResultados.Rows.Count > 0 Then
+            If Vn.DtResultados.Rows.Count > 0 Then
                 DivDep.Visible = True
             End If
         End If
 
-        If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
+        If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
-            GvD.DataSource = ObjPuntoVenta.DtResultados
+            GvD.DataSource = Vent.DtResultados
-            DtCortesVentas = ObjPuntoVenta.DtResultados
+            DtCortesVentas = Vent.DtResultados
             divDetalle.Visible = True
         End If
-
-        If ObjPuntoVenta.GetVta_MovimientosCajas(CveCorte, -1) Then
-            GvIngresosRetiros.DataSource = ObjPuntoVenta.DtResultados.Copy()
-        End If
-
         If (DtCortesVentasResumen IsNot Nothing AndAlso DtCortesVentasResumen.Rows.Count > 0) Or (DtCortesVentas IsNot Nothing AndAlso DtCortesVentas.Rows.Count > 0) Then
             HplDownPDF.Visible = True
             HplDownEXCEL.Visible = True
@@ -208,17 +201,16 @@ Partial Class Bancos_RepCortes
             HplDownPDF.Visible = False
             HplDownEXCEL.Visible = False
         End If
-        ObjVentas.Dispose()
+        Vn.Dispose()
-        ObjPuntoVenta.Dispose()
+        Vent.Dispose()
 
 
         GvD.DataBind()
         GvP.DataBind()
         GvDep.DataBind()
         GvPorIVA.DataBind()
-        GvIngresosRetiros.DataBind()
 
-        If UsuarioActual.CveEmpresa = 193 AndAlso UsuarioActual.CveRol = 1 Then
+        If UsuarioActual.CveEmpresa = 193 Then
             DivAnexo.Visible = True
 
             Dim CveCuenta As Integer = 186367

Ventas/RepRecuperacionDetalle.aspx

@@ -290,6 +290,7 @@
                     <asp:BoundField HeaderText="Dias Vencimiento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" DataField="DiasVencimiento" />
                     <asp:BoundField HeaderText="Dias Pago" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" DataField="DiasPagados" />
                     <asp:BoundField HeaderText="Forma Pago"   DataField="TipoTransaccion" /> 
+                    <asp:BoundField HeaderText="MSI"   DataField="MesesSinIntereses" /> 
                 </Columns>
             </asp:GridView>
         </ContentTemplate>