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

App_Code/ClsInventarios.vb

@@ -1625,6 +1625,44 @@ Public Class ClsInventarios
 
     End Function
 
+    Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_KardexPSNavegacionGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Entrada", SqlDbType.Bit).Value = Entrada
+            .Add("@Salida", SqlDbType.Bit).Value = Salida
+            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveTiposAlmacen", SqlDbType.VarChar).Value = CveTiposAlmacen
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
+            .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes
+            .Add("@Siguiente", SqlDbType.Bit).Value = Siguiente
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener el kardex.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el kardex.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
     Public Function GetExistenciasProductoSerie(CvePS As Integer, CveUsuario As Integer, CveEmpresa As Integer, Fecha As DateTime, Optional CveAlmacenes As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 

App_Code/ClsPaginas.vb

@@ -9010,6 +9010,22 @@ Public Class ClsPaginas
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
             End If
         End If
+
+        If Pago.TipoPago.Contiene("RNC") AndAlso Not ErrorMovtos Then ' R E M I S I Ó N   D E   N O T A   D E   C R E D I T O 
+            '371
+            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
+
+            If Pago.CveMonedaPago > 1 Then
+                'Agregamos la Extranjera
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 371, Pago.Referencia, Concepto, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, Pago.Referencia, Concepto, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+            Else
+                'Agregamos Nacional
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 371, Pago.Referencia, Concepto, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            End If
+        End If
+
         If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R   D I V E R S O
             Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(17, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
             If Pago.CveMonedaPago > 1 Then

App_Code/Modelos.vb

@@ -1458,7 +1458,7 @@ Namespace Modelos
                                      Optional CveSubProyecto As Integer = -1,
                                      Optional SubProyecto As String = "", Optional PorcentajeIVA As Decimal = -1,
                                      Optional CuentaPredial As String = "", Optional CveVentaDetallePadre As Integer = -1,
-                                     Optional CveVentaDetalleRemision As Integer = -1, Optional CveViajePasajero As Integer = -1) As Boolean
+                                     Optional CveVentaDetalleRemision As Integer = -1, Optional CveViajePasajero As Integer = -1, Optional RedondearTotal As Boolean = True) As Boolean
 
             If Not CvePS > 0 Then
                 Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
@@ -1622,7 +1622,13 @@ Namespace Modelos
             Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
             Row("TipoDescuento") = -1
             Row("CvePromocionDetalle") = -1
-            Row("Total") = (Cantidad * PU)
+
+            If RedondearTotal Then
+                Row("Total") = (Cantidad * PU).RoundSQL(NumeroDecimales)
+            Else
+                Row("Total") = (Cantidad * PU)
+            End If
+
             Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
             Row("SATClaveProdServ") = DrPS("SATClavePS")
             Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
@@ -4320,20 +4326,30 @@ Namespace Modelos
 
 
                 'TEMPORAL. PARA OPTIMIZAR LOS TIEMPOS PARA LA GENERACION DE LA FACTURA GLOBAL
-                If factura.EsFacturaGlobal Then
+                'If factura.EsFacturaGlobal Then
-                    If Not ObjInventario.ActualizarEsDevolucionVenta(factura.CveVenta, 2) Then
+                '    If Not ObjInventario.ActualizarEsDevolucionVenta(factura.CveVenta, 2) Then
-                        OcurrioError = True
+                '        OcurrioError = True
-                    End If
+                '    End If
-                Else
+                'Else
-                    If RemisionesLista IsNot Nothing AndAlso factura.TipoDocto = "Ing" AndAlso RemisionesLista.Count > 0 Then
+                '    If RemisionesLista IsNot Nothing AndAlso factura.TipoDocto = "Ing" AndAlso RemisionesLista.Count > 0 Then
-                        For Each CveRemision As Integer In RemisionesLista
+                '        For Each CveRemision As Integer In RemisionesLista
-                            'El almacen general es el Primer Almacen de Material en la Sucursal
+                '            'El almacen general es el Primer Almacen de Material en la Sucursal
-                            If Not TraspasoAlmacen(ObjInventario, ObjVentas, CveRemision, ObjConta, True, 9, factura.EsFacturaGlobal) Then
+                '            If Not TraspasoAlmacen(ObjInventario, ObjVentas, CveRemision, ObjConta, True, 9, factura.EsFacturaGlobal) Then
-                                OcurrioError = True
+                '                OcurrioError = True
-                                Exit For
+                '                Exit For
-                            End If
+                '            End If
-                        Next
+                '        Next
-                    End If
+                '    End If
+                'End If
+
+                If RemisionesLista IsNot Nothing AndAlso factura.TipoDocto = "Ing" AndAlso RemisionesLista.Count > 0 Then
+                    For Each CveRemision As Integer In RemisionesLista
+                        'El almacen general es el Primer Almacen de Material en la Sucursal
+                        If Not TraspasoAlmacen(ObjInventario, ObjVentas, CveRemision, ObjConta, True, 9, factura.EsFacturaGlobal) Then
+                            OcurrioError = True
+                            Exit For
+                        End If
+                    Next
                 End If
 
                 If factura.TipoDocto = "Rem" AndAlso factura.ServicioDomicilio Then

App_Code/Timbrado.vb

@@ -2534,137 +2534,69 @@ 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
+        If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
-                cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
 
-                'UBICACIONES
+            Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
-                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
+            ''DATOS GENERALES
-                If Carta.Mercancias IsNot Nothing Then
+            cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
-                    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
 
+            'UBICACIONES
+            If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
+                For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
+                    'origen
+                    cfdi.CartaPorte30Ubicacion(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.CartaPorte30Domicilio(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
-        Else
 
-
+            'MERCANCIAS
-            If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
+            If Carta.Mercancias IsNot Nothing Then
-
+                cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion)
-                Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
+                If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
-
+                    For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-                ''DATOS GENERALES
+                        If concep.ValorMercancia <= 0 Then concep.Moneda = ""
-                cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
+                        cfdi.CartaPorte30Mercancia(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.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion,
-                'UBICACIONES
+                                                    If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado,
-                If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
+                                                    concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
-                    For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
+                        For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
-                        'origen
+                            cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
-                        cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
+                        Next
-                        '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.CartaPorte30Domicilio(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
+            End If
+            '
+            If Carta.FiguraTransporte IsNot Nothing Then
 
-                'MERCANCIAS
+                If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
-                If Carta.Mercancias IsNot Nothing Then
+
-                    cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion)
+                    cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
-                    If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
+
-                        For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
+                    cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
-                            If concep.ValorMercancia <= 0 Then concep.Moneda = ""
+
-                            cfdi.CartaPorte30Mercancia(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, ""),
+                    cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
-                                                        concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion,
+                                            Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
-                                                        If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado,
+                                            Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
-                                                        concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                                            Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
-                            For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
+
-                                cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
+                    If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
-                            Next
+                        For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
+                            cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa)
                         Next
                     End If
                 End If
-                '
-                If Carta.FiguraTransporte IsNot Nothing Then
 
-                    If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
+                If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
-
+                    For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
-                        cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
+                        cfdi.CartaPorte30TiposFigura(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.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
+                            cfdi.CartaPorte30PartesTransporte("PT01")
-
+                            cfdi.CartaPorte30PartesTransporteDomicilio(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)
-                        cfdi.CartaPorte30Seguros(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.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa)
-                            Next
                         End If
-                    End If
+                    Next
-
-                    If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
-                        For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
-                            cfdi.CartaPorte30TiposFigura(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.CartaPorte30PartesTransporte("PT01")
-                                cfdi.CartaPorte30PartesTransporteDomicilio(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
         End If

Bancos/PopIECompras.aspx

@@ -524,7 +524,7 @@
                                                     <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 133px !important; margin-top: -5px; margin-left: -10px;">
                                                         <asp:TextBox ID="TxtFechaDocumento" runat="server" CssClass="form-control" Width="99%"></asp:TextBox>
                                                         <span class="input-group-btn">
-                                                            <asp:LinkButton runat="server" ID="ImgCalendario" class="btn default" ><i class="fa fa-calendar"></i></asp:LinkButton>
+                                                            <asp:LinkButton runat="server" ID="ImgCalendario" class="btn default" type="button" ><i class="fa fa-calendar"></i></asp:LinkButton>
                                                         </span>
                                                     </div>
                                                     <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>

Bancos/PopIECompras.aspx.vb

@@ -1679,13 +1679,6 @@ Partial Class Bancos_PopIECompras
         UpGuardar.Update()
     End Sub
 
-    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
-        RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
-        Calendario.EndDate = NowADS()
-
-    End Sub
-
-
 
     Protected Sub CVTxtImporte_ServerValidate(source As Object, args As ServerValidateEventArgs)
 
@@ -1721,15 +1714,22 @@ Partial Class Bancos_PopIECompras
 
     End Sub
 
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
+        Calendario.EndDate = NowADS().AddDays(2)
+
+    End Sub
 
     Private Sub ValidaFechaDocumentoDiasPosteriores()
 
 
         RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
         Calendario.EndDate = NowADS().AddDays(2)
+        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 6 meses de la fecha actual"
 
         If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then
             RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 6 meses de la fecha actual"
             Calendario.EndDate = NowADS().AddDays(30)
         End If
 

Bancos/ProveedoresAbonar.aspx

@@ -338,7 +338,13 @@
                              <asp:CheckBox Text=" No Validar ante SAT" ID="ChkNoValidaSAT" CssClass="md-checksd" runat="server" Checked="false" Visible="false" />
                             <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
                             <asp:CheckBox Text="Descuento" ID="chkaplicaDescuento" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuento_CheckedChanged" AutoPostBack="true" Visible="false" />
+
+
+                                <asp:Button ID="Button1" runat="server" Text="Valida"  OnClick="Button1_Click" Visible="false" />
                         </td>
+
+                        
+
                         
                     </tr>
                 </table>

Bancos/ProveedoresAbonar.aspx.vb

@@ -317,6 +317,9 @@ Partial Class Bancos_ProveedoresAbonar
                 chkaplicaDescuento.Visible = True
             End If
 
+
+            tmpValida()
+
         End If
     End Sub
 
@@ -1607,10 +1610,10 @@ Partial Class Bancos_ProveedoresAbonar
 #End Region
 
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
-        RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
         RVTxtFechaDocumentoMenor.MinimumValue = NowADS().AddMonths(-38).ToShortDateString
-        RVTxtFechaDocumentoMenor.MaximumValue = NowADS().ToShortDateString
+        RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(2).ToShortDateString
-        Calendario.EndDate = NowADS()
+        Calendario.EndDate = NowADS().AddDays(2)
 
     End Sub
 
@@ -1620,17 +1623,17 @@ Partial Class Bancos_ProveedoresAbonar
         RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
         RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(2).ToShortDateString
 
-        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior 2 días de la fecha actual"
+        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 6 meses de la fecha actual"
 
         Calendario.EndDate = NowADS().AddDays(2)
 
         If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then
 
-            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(182).ToShortDateString
-            RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(30).ToShortDateString
+            RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(182).ToShortDateString
-            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior 30 días de la fecha actual"
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 6 meses de la fecha actual"
 
-            Calendario.EndDate = NowADS().AddDays(30)
+            Calendario.EndDate = NowADS().AddDays(182)
         End If
 
         UpDatos.Update()
@@ -1645,5 +1648,75 @@ Partial Class Bancos_ProveedoresAbonar
         UPCompras.Update()
 
     End Sub
+
+
+
+    Private Sub tmpValida()
+
+        Dim ValidaSAT As Boolean = True
+        Dim ImporteSeleccionado As Decimal = 0
+        'If UsuarioActual.Empresa.Funcionalidad(529) = "1" OrElse ChkNoValidaSAT.Checked Then ValidaSAT = False
+
+        If ValidaSAT Then
+            Dim Validada As Boolean = False
+            Dim MsgValidadas As New StringBuilder
+            Dim Valida As New ClsValidaCFDi()
+            'verifico ante el SAT las compras que voy a pagar
+            For Each gvr As GridViewRow In GvCxP.Rows
+                If gvr.FCCheckBox("Chk").Checked Then
+
+                    ImporteSeleccionado += gvr.FCTextBox("TxtAbonar").Text.ToDecimal
+                    If gvr.DataKey("UUID") <> "" Then
+
+                        Valida.Verificar(gvr.DataKey("UUID"), gvr.DataKey("RFC"), UsuarioActual.Empresa.RFC, gvr.DataKey("TotalOriginal").ToDecimal)
+
+                        If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa < 2 Then
+                            Valida.EsValida = 1
+                        End If
+
+                        If Valida.EsValida <> 1 Then
+
+                            Validada = False
+                            If Valida.EsValida = 2 Then 'Cancelada
+                                'estatus inventario, no surtida
+                                If gvr.DataKey("EstatusInventario") = "1" Then
+                                    MsgValidadas.AppendFormat("Factura Cancelada: {0} - {1} , relacione su factura nueva para descontar saldo<br>", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion"))
+                                Else
+                                    MsgValidadas.AppendFormat("Factura Cancelada: {0} - {1} con movimientos de almacen, relacione su factura nueva para descontar saldo<br>", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion"))
+                                End If
+                            Else
+                                MsgValidadas.AppendFormat("Factura No se pudo Validar: {0} - {1}<br>", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion"))
+                            End If
+                        End If
+                    End If
+                End If
+            Next
+
+            Valida.Dispose()
+
+            'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui
+
+            If MsgValidadas.Length > 0 Then
+                Alert(String.Format("<br>Las Facturas presentan la siguiente situación ante el SAT. <br>{0}", MsgValidadas.ToString), TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        Else
+            For Each gvr As GridViewRow In GvCxP.Rows
+                If gvr.FCCheckBox("Chk").Checked Then
+                    ImporteSeleccionado += gvr.FCTextBox("TxtAbonar").Text.ToDecimal
+                End If
+            Next
+        End If
+
+        If ImporteSeleccionado <= 0 Then
+            Alert("Seleccione facturas", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+    End Sub
+
+
+    Protected Sub Button1_Click(sender As Object, e As EventArgs)
+        tmpValida()
+    End Sub
 End Class
 

Bancos/RepCortes.aspx

@@ -385,7 +385,7 @@
                     </div>
                     <div class="col-md-3" id="DivDep" runat="server" visible="false" style="max-height: 440px; overflow: auto">
                         <br />
-                        <b>Depositos Caja</b>
+                        <b>Depósitos Caja</b>
                         <div class="row">
                             <div class="col-md-12">
                                 <asp:GridView ID="GvDep" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover mysmallbtn ">
@@ -406,7 +406,7 @@
                     </div>
                     <div class="col-md-4" id="DivAnexo" runat="server" visible="false">
                         <br />
-                        <b>Anexo</b>
+                        <b>Contabilidad</b>
                         <div class="row">
                             <div class="col-md-12">
                                 <asp:GridView ID="GvAnexo" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%">

Bancos/RepCortes.aspx.vb

@@ -180,7 +180,7 @@ Partial Class Bancos_RepCortes
             End If
         End If
 
-        If Vn.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 = Vn.DtResultados
             If Vn.DtResultados.Rows.Count > 0 Then
                 DivDep.Visible = True
@@ -210,7 +210,7 @@ Partial Class Bancos_RepCortes
         GvDep.DataBind()
         GvPorIVA.DataBind()
 
-        If UsuarioActual.CveEmpresa = 193 AndAlso UsuarioActual.CveRol = 1 Then
+        If UsuarioActual.CveEmpresa = 193 Then
             DivAnexo.Visible = True
 
             Dim CveCuenta As Integer = 186367
@@ -227,6 +227,13 @@ Partial Class Bancos_RepCortes
         UpAcciones.Update()
     End Sub
 
+    Private Sub GvDep_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDep.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCHyperLink("HplImpPol").NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={ e.Row.DBCampo("CvePrePoliza")}")}"
+        End If
+
+    End Sub
+
 #End Region
 
 

Compras/Compras.aspx.vb

@@ -1511,6 +1511,11 @@ Partial Class Compras_Compras
 
             ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
 
+                If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+                    DdlTipoComprobante.Items.Clear()
+                    DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
+                End If
+
                 ViewState("CveCompra") = Request("CveCompra")
                 CargaCompra()
                 BtnGuardar.Enabled = False
@@ -3235,6 +3240,13 @@ Partial Class Compras_Compras
                     BtnRegenerarPrePolizaAlmacen_Click(Nothing, Nothing)
                 End If
 
+                If DdlTipoComprobante.SelectedValue = "RNC" And CompraSaldo <> TxtTotal.Text.ToDecimal Then
+                    BtnCancelarCompra.Visible = False
+                    BtnEliminarCompra.Visible = False
+                End If
+
+
+
             Else
                 Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             End If
@@ -4386,7 +4398,7 @@ Partial Class Compras_Compras
 
         If UsuarioActual.TienePermisoProceso(121) Then
             If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-                If Not NCDevolucion Then
+                If Not NCDevolucion And Not ChkNCInvNC.Checked Then
                     Alert("Favor de seleccionar un producto en la pestaña de almacen", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
@@ -7012,7 +7024,7 @@ Partial Class Compras_Compras
                                                             Pago.Referencia = CompraActual.SerieFolio
                                                             Pago.TCPago = CompraActual.TC
                                                             Pago.AplicaAcreditable = False
-                                                            Pago.TipoPago = "NC"
+                                                            Pago.TipoPago = "RNC"
                                                             Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
 
                                                             Dim CompraPago As New Compra
@@ -7029,19 +7041,19 @@ Partial Class Compras_Compras
 
                                                             ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraPago, Pago, CvePrePoliza, ObjConta)
 
-                                                            If Not ErrorPrepoliza Then
+                                                            'If Not ErrorPrepoliza Then
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, 371, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
+                                                            '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, 371, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
-                                                                                                    CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
+                                                            '                                        CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
-                                                                    ErrorPrepoliza = True
+                                                            '        ErrorPrepoliza = True
-                                                                End If
+                                                            '    End If
 
-                                                                If Not ErrorPrepoliza Then
+                                                            '    If Not ErrorPrepoliza Then
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 372, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
+                                                            '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 372, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
-                                                                                                            CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
+                                                            '                                                CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
-                                                                        ErrorPrepoliza = True
+                                                            '            ErrorPrepoliza = True
-                                                                    End If
+                                                            '        End If
-                                                                End If
+                                                            '    End If
-                                                            End If
+                                                            'End If
 
 
                                                         End If
@@ -17468,6 +17480,7 @@ Partial Class Compras_Compras
             Descuento = TxtDescuentoModal.Text.ToDouble
             Total = (Cantidad * PU) - Descuento
             DrPS("Cantidad") = Cantidad
+            DrPS("CantidadF") = Cantidad
             DrPS("PU") = PU
             DrPS("Descuento") = Descuento
             DrPS("OtrosGastos") = 0
@@ -18423,7 +18436,7 @@ Partial Class Compras_Compras
         For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
             If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
                 If i < TmpDT.Rows.Count Then
-                    TmpDT.Rows(i)("CveOrdenCompraDetalle") = Gvr.DataKey("CveOrdenCompraDetalle")
+                    TmpDT.Rows(i)("CveOrdenCompraDetalle") = Gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero
                 End If
                 'If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
                 '    TieneError = True

Compras/PopUpVerFactura.aspx.vb

@@ -1653,23 +1653,28 @@ Partial Class PopUpVerFactura
                                     TipoTabla = 2
                                 Case "VentasCorte"
                                     rowData("Columna") = "Total Ventas"
-                                    Orden = 2
+                                    Orden = 1
                                     TipoTabla = 1
                                 Case "NotasCredito"
                                     rowData("Columna") = "N.C."
-                                    Orden = 3
+                                    Orden = 2
                                     TipoTabla = 1
                                 Case "VentasCredito"
                                     rowData("Columna") = "Ventas Crédito"
+                                    Orden = 3
+                                    TipoTabla = 1
+                                Case "VentasContado"
+                                    rowData("Columna") = "Ventas Contado"
                                     Orden = 4
                                     TipoTabla = 1
+
                                 Case "VentaTotalIngreso"
                                     rowData("Columna") = "Ventas Ingreso"
-                                    Orden = 4
+                                    Orden = 5
                                     TipoTabla = 1
                                 Case "VentaTotalRemision"
                                     rowData("Columna") = "Ventas Remisiones"
-                                    Orden = 4
+                                    Orden = 6
                                     TipoTabla = 1
                                 'Case "TotalEfectivo"
                                 '    rowData("Columna") = "Total Efectivo"
@@ -1726,13 +1731,13 @@ Partial Class PopUpVerFactura
                         End If
                     Next
 
-                    Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
+                    'Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
 
-                    Dim rowCredito = DtDatosVentas.NewRow()
+                    'Dim rowCredito = DtDatosVentas.NewRow()
-                    rowCredito("Columna") = "Crédito"
+                    'rowCredito("Columna") = "Crédito"
-                    rowCredito("Importe") = TotalCredito
+                    'rowCredito("Importe") = TotalCredito
-                    rowCredito("Orden") = 4
+                    'rowCredito("Orden") = 4
-                    DtDatosVentas.Rows.Add(rowCredito)
+                    'DtDatosVentas.Rows.Add(rowCredito)
 
                     Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosVentas.FiltraParametros("Orden > 0", "Orden")}
                     lrds.Add(rds3)
@@ -3699,6 +3704,8 @@ Partial Class PopUpVerFactura
 
 
                 Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
+                Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}")
+
                 If Archivo.Exists Then
                     params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     If UsuarioActual.CveEmpresa = 140 Then
@@ -3741,9 +3748,10 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio))
 
                         DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
+
                     End If
 
-                    ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
+                    ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, NombreArchivo, RDSName:="DsInventarios")
                 Else
 
                     params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
@@ -3755,7 +3763,7 @@ Partial Class PopUpVerFactura
                     If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
                         ImprimirPDFStimul(String.Format("Empresas/Grales/Formatos/Traslado.mrt", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
                     Else
-                        ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
+                        ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, NombreArchivo, RDSName:="DsInventarios")
                     End If
 
                 End If
@@ -6309,6 +6317,11 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Numero", FolioPoliza))
                         params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
                         params.Add(New ReportParameter("CodigoPostal", ""))
+
+                        If RutaReporte.Contains("Grales\Formatos\") Then
+                            params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
+                        End If
+
                         If UsuarioActual.CveEmpresa.Contiene(141) Then
                             params.Add(New ReportParameter("Fecha", Fecha.ToString("dd/MM/yyyy hh:mm:ss")))
                         Else

Empresas/13/Formatos/CartaPorteTimbrado.rdlc

@@ -4119,7 +4119,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Carta Porte 2.0</Value>
+                    <Value>Carta Porte 3.0</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
                       <FontSize>7pt</FontSize>

Empresas/190/Formatos/RepCortes.rdlc

@@ -545,7 +545,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet2</DataSetName>
-        <Top>3.73395cm</Top>
+        <Top>1.77603cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
         <Width>18.57619cm</Width>
@@ -1260,7 +1260,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet5</DataSetName>
-        <Top>2.73226cm</Top>
+        <Top>3.41299cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
         <Width>12.81065cm</Width>
@@ -1289,7 +1289,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>2.02643cm</Top>
+        <Top>2.70716cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.6cm</Height>
         <Width>4.82833cm</Width>
@@ -1305,7 +1305,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>1.83665in</Height>
+    <Height>1.71028in</Height>
     <Style />
   </Body>
   <Width>7.44383in</Width>

Empresas/193/Formatos/RepCortes.rdlc

@@ -545,7 +545,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet2</DataSetName>
-        <Top>3.73395cm</Top>
+        <Top>1.77603cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
         <Width>18.57619cm</Width>
@@ -1260,7 +1260,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet5</DataSetName>
-        <Top>2.73226cm</Top>
+        <Top>3.41299cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
         <Width>12.81065cm</Width>
@@ -1289,7 +1289,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>2.02643cm</Top>
+        <Top>2.70716cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.6cm</Height>
         <Width>4.82833cm</Width>
@@ -1305,7 +1305,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>1.83665in</Height>
+    <Height>1.71028in</Height>
     <Style />
   </Body>
   <Width>7.44383in</Width>
@@ -1353,7 +1353,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value> REPORTE DE CORTES </Value>
+                  <Value> REPORTE DE CORTES</Value>
                   <Style>
                     <FontSize>10.5pt</FontSize>
                     <FontWeight>Bold</FontWeight>

Inventarios/Kardex.aspx

@@ -172,9 +172,9 @@
                             <label class="col-md-1 truncate" style="max-width: 80px;" id="lblAlm" runat="server">Almacén:</label>
                             <div class="col-md-2">
                                 <%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
-                                <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
+                                <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox> 
-
                             </div>
+                           
 
                             <label class="col-md-1" style="max-width: 85px;">Fecha Inicio:</label>
                             <div class="col-md-1" style="min-width: 115px;">
@@ -192,6 +192,7 @@
                                         <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                     </div>
                                 </div>
+                                
                             </div>
                             <label class="col-md-1 " style="max-width: 70px;">Fecha Fin:</label>
                             <div class="col-md-1" style="min-width: 115px;">
@@ -254,6 +255,21 @@
                         </div>
                     </div>
 
+
+                     <div class="col-md-1" runat="server" id="DVNavegar" visible="false">
+                         <div class="row">
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary" >Anterior</asp:LinkButton>
+                             </div>
+                             <div class="col-md-2">
+
+                             </div>
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary" >Siguiente</asp:LinkButton>
+                             </div>
+                         </div>
+                     </div>
+
                 </div>
             </div>
             </div>

Inventarios/Kardex.aspx.vb

@@ -2,6 +2,7 @@
 Option Explicit On
 
 Imports System.Data
+Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -25,10 +26,16 @@ Partial Class Inventarios_Kardex
             ViewState("CveMovimiento") = Value
         End Set
     End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
+
+            If UsuarioActual.CveRol = 1 Then
+                DVNavegar.Visible = True
+            End If
+
             TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
             TxtFechaF.Text = NowADS().ToShortDateString
             CargaCombos()
@@ -209,11 +216,17 @@ Partial Class Inventarios_Kardex
     End Sub
 
     Private Sub CargaDatos()
+
+
         Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
 
+
         If CveProducto > 0 Then
             Dim DtTemp = CargarKardex(CveProducto)
+
+
             If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+
                 Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
                 AplicaSerie = DtTemp.MAX("Serie") <> ""
                 AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> ""
@@ -370,8 +383,8 @@ Partial Class Inventarios_Kardex
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetExistenciasCaducidad(ddlProducto2.SelectedValue.ToEntero(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then
             GvProductoCaducidad.DataSource = ObjInventarios.DtResultados
-            GvProductoCaducidad.columns(2).visible = ObjInventarios.DtResultados.max("Serie") <> ""
+            GvProductoCaducidad.Columns(2).Visible = ObjInventarios.DtResultados.MAX("Serie") <> ""
-            GvProductoCaducidad.columns(3).visible = ObjInventarios.DtResultados.max("Lote") <> ""
+            GvProductoCaducidad.Columns(3).Visible = ObjInventarios.DtResultados.MAX("Lote") <> ""
             GvProductoCaducidad.Columns(4).Visible = ObjInventarios.DtResultados.MAX("FechaCaducidad").ToDate > MinFecha
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvProductoCaducidad.Columns(4).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
@@ -537,4 +550,64 @@ Partial Class Inventarios_Kardex
 
 
 
+
+
+    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=False)
+    End Sub
+
+    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=True)
+    End Sub
+    Private Sub NavegacionPS(Siguiente As Boolean)
+        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
+
+        If Not CvePS > 0 Then
+            Exit Sub
+        End If
+
+        Dim dt As DataTable = New DataTable
+
+        Dim Entrada As Boolean = cbEntrada.Checked
+        Dim Salida As Boolean = cbSalida.Checked
+
+        Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
+        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+        If CveAlmacenes.Contains(",") Then
+            CveAlmacen = -1
+        End If
+        If CvePS > 0 Then
+            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+            If dr IsNot Nothing Then
+                ddlProducto2.SelectedText = dr("PSCodigo").ToString
+                ddlProducto2.SelectedValue = CvePS.ToString
+            End If
+
+        End If
+
+        Dim CveTiposAlmacen As String = ""
+        For Each item As ListItem In CBLTiposAlmacen.Items
+            CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
+        Next
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacenes, Siguiente:=Siguiente) Then
+            dt = ObjInventarios.DtResultados.Copy
+        End If
+        ObjInventarios.Dispose()
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            CargaDatos()
+            UPFiltros.Update()
+            UPDatos.Update()
+        End If
+    End Sub
+
+
 End Class

Transportes/RepContratosCalendario.aspx.vb

@@ -5,9 +5,11 @@ Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones.ModExtensiones
 Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
+Imports Newtonsoft.Json.Linq
+
 Partial Class RepContratosCalendario
-    Inherits ClsPaginas
+    Inherits ClsPaginas
-
+
 #Region "PROPIEDADES"
     Public Property DtAvance() As DataTable
         Get
@@ -25,21 +27,18 @@ Partial Class RepContratosCalendario
         Set(value As String)
             ViewState("Contrato") = value
         End Set
-    End Property
+    End Property
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-
-
         If Not IsPostBack Then
             txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
             txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
             InicializaCombos()
             InicializaCalendar()
             CargaDatos()
-        End If
+        End If
         InicializaCalendar()
-
     End Sub
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos
@@ -49,16 +48,56 @@ Partial Class RepContratosCalendario
         If CveCliente = 0 Then CveCliente = -1
 
         If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
-            GvContratos.DataSource = ObjContratos.DtResultados
+            DtAvance = ObjContratos.DtResultados.Copy()
         End If
-        DtAvance = ObjContratos.DtResultados
+        GvContratos.DataSource = DtAvance
 
         ObjContratos.Dispose()
         GvContratos.DataBind()
-        UpTitulos.Update()
+        UpTitulos.Update()
+
+        CargaCronograma()
+    End Sub
+
+    Private Sub CargaCronograma()
+        If DtAvance IsNot Nothing Then
+
+            For Each Row As DataRow In DtAvance.Rows
+                If String.IsNullOrEmpty(Row("NombreAF").ToString()) Then
+                    Row("NombreAF") = "Unidad no asignada"
+                End If
+            Next
+
+            Dim jsonData As New JArray()
+            Dim jsonCategorias As New JArray()
+
+            Dim random = New Random()
+
+            'DATOS
+            For Each Row As DataRow In DtAvance.FiltraParametros("NombreAF <> ''").Rows
+                Dim obj As New JObject(
+                    New JProperty("category", Row("NombreAF")),
+                    New JProperty("fromDate", Row("FechaInicial").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()),
+                    New JProperty("toDate", Row("FechaFinal").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()),
+                    New JProperty("columnSettings", New JObject(
+                        New JProperty("fill", String.Format("#{0:X6}", random.Next(16777216)))
+                    ))
+                 )
+                jsonData.Add(obj)
+            Next
+
+            'CATEGORIAS
+            For Each Row As DataRow In DtAvance.FiltraParametros("NombreAF <> ''", "", {"NombreAF"}).Rows
+                Dim obj As New JObject(
+                    New JProperty("category", Row("NombreAF"))
+                )
+                jsonCategorias.Add(obj)
+            Next
+
+            RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()});", "A1")
+        End If
     End Sub
     Private Sub InicializaCalendar()
-
         RegistraScript("InitCalendar();")
         DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
     End Sub
@@ -158,10 +197,6 @@ Partial Class RepContratosCalendario
         UpModal.Update()
         RegistraScript("$('#ModalActualizar').modal('show');")
     End Sub
-
-    Protected Sub Consultar(sender As Object, e As EventArgs)
-
-    End Sub
     Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
         GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
     End Sub
@@ -190,5 +225,9 @@ Partial Class RepContratosCalendario
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         CargaDatos()
-    End Sub
+    End Sub
+    Protected Sub RBTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)
+        InicializaCalendar()
+        CargaCronograma()
+    End Sub
 End Class

Ventas/FacturacionGlobal.aspx.vb

@@ -218,6 +218,7 @@ Partial Class Ventas_FacturacionGlobal
         ObjFactura.DtRemisiones = DtRemisiones.FiltraParametros($"CveVenta IN ({SbRemisiones.ToString()})")
         ObjFactura.DtPagosFacturaGlobal = DtPagosFacturaGlobal
 
+        Dim RowNum As Integer = 0
         For Each Dr As DataRow In ObjFactura.DtRemisionesPS.Rows
             ObjFactura.AgregarPS(Dr("CvePS").ToString().ToEntero(), Dr("Cantidad").ToString().ToDecimal(), Dr("PU").ToString().ToDecimal(), Dr("Descuento").ToString().ToDecimal, Dr("Obs").ToString(), CveUM:=Dr("CveUM").ToString().ToEntero(),
                                  CveProyecto:=Dr("CveProyecto").ToString().ToEntero(), CveSubProyecto:=Dr("CveSubProyecto").ToString().ToEntero(), CveVentaDetallePadre:=Dr("CveVentaDetalle").ToString().ToEntero(), CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero())
@@ -225,20 +226,13 @@ Partial Class Ventas_FacturacionGlobal
 
         ObjFactura.CalculaTotales()
 
-        'DEBE ESTAR DENTRO DE LA CLASE, COMENTAR UNA VEZ SE HAYA HECHO EL CAMBIO
-        'If ObjFactura.Descuento > 0 Then
-        '    ObjFactura.Total = ObjFactura.Total - ObjFactura.Descuento
-        'End If
-
         ObjFactura.PreparaTimbre()
 
-        If Math.Abs(ObjFactura.Total.RoundSQL(2) - DtPagosFacturaGlobal.SUMD("Importe").RoundSQL(2)) > 0.1 Then
+        If Math.Abs(ObjFactura.Total.RoundSQL(2) - DtPagosFacturaGlobal.SUMD("Importe").RoundSQL(2)) > 0.01D Then
             Alert($"Los pagos no coinciden con el total de la factura [{ObjFactura.Total.RoundSQL(2)}-{ DtPagosFacturaGlobal.SUMD("Importe").RoundSQL(2)}]", TipoMensaje.MsgError)
             Exit Sub
         End If
 
-        'ObjFactura.DtInventario = ObjFactura.DtDetalle.FiltraParametros("CveTipoPs = 2")
-
         Dim SbAlert As New StringBuilder()
 
         Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing

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>

Ventas/Ventas.aspx.vb

@@ -15256,7 +15256,8 @@ Partial Class Ventas
 
                             importeMovimiento = 0
                         Case 103 'Descuento
-                            If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141)) Then
+                            If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
+                                (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190)) Then
 
                                 importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador
                                 importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador
@@ -17697,12 +17698,21 @@ Partial Class Ventas
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                'ES CREDITO, DEBE TOMAR LA LISTA DE PRECIOS DE CREDITO
                 If RBLPago.SelectedValue = "1" Then
                     Dim CvePrecioListaCredito = GlobalDTPrecioListas(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "ISNULL(Credito,False) = True").ToEntero()
                     If CvePrecioListaCredito > 0 Then
                         CvePrecioListaPS = CvePrecioListaCredito
                     End If
                 End If
+
+                'ESTE CLIENTE DEBE TENER PRIORIDAD SU LISTA DE PRECIO, SEA CREDITO O CONTADO
+                If CveCliente = 888648 Then
+                    If Me.CvePrecioListaCliente > 0 Then
+                        CvePrecioListaPS = Me.CvePrecioListaCliente
+                    End If
+                End If
+
             End If
 
             If CvePrecioListaPS > 0 Then