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

App_Code/Modelos.vb

@@ -1561,7 +1561,8 @@ Namespace Modelos
                     If Not TieneError Then
                         AlmacenEntrada = CveAlmacenOrigen
 
-                        CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, 8, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, CveOS:=CveOS)
+                        CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, 8, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+                                                                           CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, CveOS:=CveOS, Modulo:="Mod/OS")
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada <= 0 Then
@@ -1588,7 +1589,8 @@ Namespace Modelos
                     If Not TieneError Then
                         AlmacenEntrada = CveAlmacenDestino
 
-                        CveMovimientoEntrada2 = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida2, CveOS:=CveOS)
+                        CveMovimientoEntrada2 = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1,
+                                                                            CveMovimientoRelacionado:=CveMovimientoSalida2, CveOS:=CveOS, Modulo:="Mod/OS")
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada2 <= 0 Then
@@ -1615,7 +1617,8 @@ Namespace Modelos
                     If Not TieneError Then
                         AlmacenEntrada = CveAlmacenDestino
 
-                        CveMovimientoEntrada3 = ObjInventario.AddMovimiento(AlmacenEntrada, 3, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida3, CveOS:=CveOS)
+                        CveMovimientoEntrada3 = ObjInventario.AddMovimiento(AlmacenEntrada, 3, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1,
+                                                                            CveMovimientoRelacionado:=CveMovimientoSalida3, CveOS:=CveOS, Modulo:="Mod/OS")
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada3 <= 0 Then
@@ -1654,7 +1657,7 @@ Namespace Modelos
 
 
             'MOVIMIENTO DE SALIDA POR TRASPASO DEL ALMACEN DE CONSIGNACION
-            CveMovimientoSalidaConsignacion = ObjInventario.AddMovimiento(CveAlmacenExistenciasContrato, 8, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1)
+            CveMovimientoSalidaConsignacion = ObjInventario.AddMovimiento(CveAlmacenExistenciasContrato, 8, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/E")
             If CveMovimientoSalidaConsignacion > 0 Then
                 Dim CveProducto As Integer
                 Dim CveUnidad As Integer
@@ -1697,7 +1700,7 @@ Namespace Modelos
 
 
             'ENTRADA POR TRASPASO A GENERAL
-            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 9, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalidaConsignacion)
+            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 9, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalidaConsignacion, Modulo:="Mod/E")
             If CveMovimientoEntradaGeneral > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -1711,7 +1714,7 @@ Namespace Modelos
             End If
 
             'SALIDA GENERAL
-            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 3, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1)
+            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 3, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/E")
             If CveMovimientoEntradaGeneral > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -3106,7 +3109,7 @@ Namespace Modelos
             Dim OcurrioError As Boolean = False
             If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") AndAlso (DtRecepcionUsados IsNot Nothing Or DtAjustes IsNot Nothing) Then
                 If factura.CveAlmacenRecepcionUsados > 0 Then
-                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacenRecepcionUsados, 2, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1)
+                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacenRecepcionUsados, 2, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E")
 
                     Dim DtTemporal As DataTable = Nothing
                     Dim DtTemporalMovimientosDetalle As DataTable = Nothing
@@ -3163,7 +3166,7 @@ Namespace Modelos
 
             If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                 If factura.CveAlmacen > 0 AndAlso DtInventario.Rows.Count > 0 Then
-                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1)
+                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E")
 
                     If CveMovimientoInventario <= 0 Then
                         OcurrioError = True
@@ -4421,6 +4424,11 @@ Namespace Modelos
                     End Select
 
                     If CveEstatus.Contiene(4, 5) Then
+
+                        If CvePACCancelacion <= 0 Then
+                            CvePACCancelacion = UsuarioActual.Empresa.CvePAC
+                        End If
+
                         If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion) Then
                             ErrorCancelar = True
                             MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
@@ -4435,26 +4443,34 @@ Namespace Modelos
 
                     If CancelarRemisiones Then
                         If SeCancelaRemisionProceso Then
-                            For Each CveRemisionCancelar In ListaRemisionesCancelar
-                                If Not ObjVentas.AddRemisionesXCancelar(CveVenta, CveRemisionCancelar) Then
-                                    ErrorCancelar = True
-                                    MensajeError = "Ocurrió un error al guardar la remisión x cancelar."
-                                End If
-                            Next
 
-                            If Not ObjVentas.UpdateCancelaRemision(CveVenta, SeCancelaRemisionProceso) Then
+                            If Not ErrorCancelar Then
-                                ErrorCancelar = True
+                                For Each CveRemisionCancelar In ListaRemisionesCancelar
-                                MensajeError = "Ocurrió un error al actualizar que la remision sea cancelable."
+                                    If Not ObjVentas.AddRemisionesXCancelar(CveVenta, CveRemisionCancelar) Then
+                                        ErrorCancelar = True
+                                        MensajeError = "Ocurrió un error al guardar la remisión x cancelar."
+                                        Exit For
+                                    End If
+                                Next
+                            End If
+
+                            If Not ErrorCancelar Then
+                                If Not ObjVentas.UpdateCancelaRemision(CveVenta, SeCancelaRemisionProceso) Then
+                                    ErrorCancelar = True
+                                    MensajeError = "Ocurrió un error al actualizar que la remision sea cancelable."
+                                End If
                             End If
 
                         Else
 
-                            For Each CveRemisionCancelar In ListaRemisionesCancelar
+                            If Not ErrorCancelar Then
-                                If Not ObjVentas.UpdateEstatusFactura(12, "", "", CancelacionFecha, CveRemisionCancelar) Then
+                                For Each CveRemisionCancelar In ListaRemisionesCancelar
-                                    ErrorCancelar = True
+                                    If Not ObjVentas.UpdateEstatusFactura(12, "", "", CancelacionFecha, CveRemisionCancelar) Then
-                                    MensajeError = "Ocurrió un error al guardar el estatus de cancelación de la remisión."
+                                        ErrorCancelar = True
-                                End If
+                                        MensajeError = "Ocurrió un error al guardar el estatus de cancelación de la remisión."
-                            Next
+                                    End If
+                                Next
+                            End If
 
                         End If
                     End If
@@ -4599,8 +4615,8 @@ Namespace Modelos
 
                         If Not SeCancela Then
                             Dim ObjRem As New Modelos.Factura(UsuarioActual, DrMovtos("CveRem").ToString.ToEntero(), UsuarioActual.CveEmpresa)
-
+                            'SI LA REMISION ESTA SALDADA DEBE REVIVIR LOS MOVIMIENTOS COMPLETAMENTE O PARCIALMENTE
-                            If ObjRem.SaldoAlmacen = 0 Then
+                            If ObjRem.SaldoAlmacen >= 0 Then
                                 CveAlmacenTraspasoDestinoDevRem = DrMovtos("CveAlmacenTraspasoDestino").ToString.ToEntero
 
                                 If Not CveAlmacenTraspasoDestinoDevRem > 0 Then

Compras/Compras.aspx.vb

@@ -4916,7 +4916,7 @@ Partial Class Compras_Compras
                                                         If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
 
                                                         folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
-                                                        cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar))
+                                                        cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G")
                                                         If cvemovimientoentrada <= 0 Then
                                                             ErrorMovInv = True
                                                             Exit For
@@ -4940,7 +4940,7 @@ Partial Class Compras_Compras
 
                                                         'agregamos la salida gasto
                                                         folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa)
-                                                        cvemovimientosalidagasto = ObjInventario.AddMovimiento(tcvealmacen, 3, DdlMoneda.SelectedValue.ToEntero, fecha.AddSeconds(1), folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1)
+                                                        cvemovimientosalidagasto = ObjInventario.AddMovimiento(tcvealmacen, 3, DdlMoneda.SelectedValue.ToEntero, fecha.AddSeconds(1), folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, Modulo:="Comp/G")
                                                         If cvemovimientosalidagasto <= 0 Then
                                                             ErrorMovInv = True
                                                             Exit For
@@ -4997,7 +4997,7 @@ Partial Class Compras_Compras
                                                     Dim fecha As Date = TxtFecha.Text.ToDate
                                                     If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
 
-                                                    CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, 2, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar))
+                                                    CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, 2, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G")
 
                                                     If CveMovimientoInventario <= 0 Then
                                                         ErrorMovInv = True
@@ -13405,7 +13405,7 @@ Partial Class Compras_Compras
             'si el subtotal es iwal a la nc lo guardo si no marco error
             If subtotal > subtotaldevolucion - 1 AndAlso subtotal < subtotaldevolucion + 1 Then
 
-                Dim CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 13, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1)
+                Dim CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 13, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, Modulo:="Comp/G")
                 If CveMovimientoEntrada <= 0 Then
                     ErrorMovInv = True
                 Else

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2033,7 +2033,9 @@ Partial Class Inventarios_RecepcionAlmacen
             If HdnTipoDocto.Value <> "Fac" Then RecibidaCompleta = False
 
             'ENTRADA ALMACÉN
-            CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, If(TipoMovimiento > 1, 13, 2), 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text)
+            CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, If(TipoMovimiento > 1, 13, 2), 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                        CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
+                                                        MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text, Modulo:="RA/G")
             If CveMovimiento > 0 Then
                 InvFolio = ObjInventario.Folio.ToString
                 Dim DtDetalle As New DataTable
@@ -2144,7 +2146,9 @@ Partial Class Inventarios_RecepcionAlmacen
                             End If
                         End If
 
-                        CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente)
+                        CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1,
+                                                                            CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
+                                                                            MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RA/G")
                         FolioSalidaDirecta = ObjInventario.Folio
 
                         If Not CveMovtoSalidaDirecta > 0 Then
@@ -2188,7 +2192,9 @@ Partial Class Inventarios_RecepcionAlmacen
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
 
                             If CveVendedorActual = -1 Or (Dr("CveVendedor").ToString.ToEntero <> CveVendedorActual Or Dr("CveCliente").ToString.ToEntero <> CveClienteActual) Then
-                                CveMovtoSalidaActual = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 8, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, MovimientoFijo:=True, CveVendedor:=Dr("CveVendedor").ToString.ToEntero, CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text)
+                                CveMovtoSalidaActual = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 8, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
+                                                                                   TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, MovimientoFijo:=True, CveVendedor:=Dr("CveVendedor").ToString.ToEntero,
+                                                                                   CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text, Modulo:="RA/G")
                                 MovtosSalida.Add(CveMovtoSalidaActual)
                                 FoliosSalida.Add(ObjInventario.Folio)
 
@@ -2268,7 +2274,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                         Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim)
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G")
                         FolioVirtual = ObjInventario.Folio
 
                         For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -2780,7 +2786,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjContaAC As ClsContPAQi = Nothing
 
         'ENTRADA ALMACÉN
-        CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text)
+        CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G")
         If CveMovimiento > 0 Then
             InvFolio = ObjInventario.Folio.ToString
             Dim DtDetalle As New DataTable

Inventarios/RecepcionEntrega.aspx.vb

@@ -1657,7 +1657,9 @@ Partial Class Inventarios_RecepcionEntrega
                                             CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero
 
                                             If Not CveMovimientoSalida > 0 Then
-                                                CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero)
+                                                CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                                                  Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
+                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G")
                                                 FolioSalida = ObjInventario.Folio
 
                                                 If Not CveMovimientoSalida > 0 Then
@@ -1706,7 +1708,9 @@ Partial Class Inventarios_RecepcionEntrega
                                             CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero
 
                                             If Not CveMovimientoSalida > 0 Then
-                                                CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero)
+                                                CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
+                                                                                                  Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
+                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G")
                                                 FolioSalida = ObjInventario.Folio
 
                                                 If Not CveMovimientoSalida > 0 Then
@@ -1753,7 +1757,9 @@ Partial Class Inventarios_RecepcionEntrega
                                         CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero
 
                                         If Not CveMovimientoSalida > 0 Then
-                                            CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero)
+                                            CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                                              Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
+                                                                                              CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G")
                                             FolioSalida = ObjInventario.Folio
 
                                             If Not CveMovimientoSalida > 0 Then
@@ -1800,7 +1806,9 @@ Partial Class Inventarios_RecepcionEntrega
                         For Each Dr1 As DataRow In DtTraspasos.Rows
                             CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString.ToEntero
 
-                            CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente)
+                            CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                                       Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
+                                                                                       Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G")
                             FolioEntrada = ObjInventario.Folio
 
                             If Not CveMovimientoEntradaApartado > 0 Then
@@ -1841,7 +1849,7 @@ Partial Class Inventarios_RecepcionEntrega
                 End If
 
                 If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then
-                    CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text)
+                    CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, Modulo:="RE/G")
                     FolioGarantia = ObjInventario.Folio
 
                     For Each RowGarantia As DataRow In DtGarantias.Rows
@@ -1923,7 +1931,8 @@ Partial Class Inventarios_RecepcionEntrega
                 End If
 
                 If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
-                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual)
+                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G")
                     FolioVirtual = ObjInventario.Folio
 
                     If CveMovimientoVirtual > 0 Then
@@ -1975,7 +1984,8 @@ Partial Class Inventarios_RecepcionEntrega
                     CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero
                 End If
 
-                CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino)
+                CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text,
+                                                            CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G")
                 Folio = ObjInventario.Folio
 
                 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
@@ -2065,7 +2075,8 @@ Partial Class Inventarios_RecepcionEntrega
             'ENTRADA POR TRASPASO CUANDO ES REMISION
             If Not ErrorMovInv Then
                 If CveAlmacenTraspasoDestino > 0 AndAlso Not (TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1) Then ' TRASPASO CUANDO ES REMISION
-                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero)
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato,
+                                                                       CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G")
                     FolioEntrada = ObjInventario.Folio
 
                     If CveMovimientoEntrada <= 0 Then
@@ -2185,7 +2196,9 @@ Partial Class Inventarios_RecepcionEntrega
                         For Each Dr As DataRow In DtTempApartados.Rows
 
                             If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString.ToEntero Then
-                                CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero)
+                                CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                                          Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente,
+                                                                                          CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="RE/G")
                                 FolioSalida = ObjInventario.Folio
                                 CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero
 
@@ -2214,7 +2227,10 @@ Partial Class Inventarios_RecepcionEntrega
                             For Each Dr1 As DataRow In DtTraspasos.Rows
                                 CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString.ToEntero
 
-                                CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente)
+                                CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                                                           -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero,
+                                                                                           CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
+                                                                                           CveCliente:=CveCliente, Modulo:="RE/G")
                                 FolioEntrada = ObjInventario.Folio
 
                                 If Not CveMovimientoEntradaApartado > 0 Then
@@ -2452,7 +2468,8 @@ Partial Class Inventarios_RecepcionEntrega
         'SALIDA POR TRASPASO
         If Not ErrorMovInv Then
             ConceptoMovimiento = 26
-            CveMovimientoSalida = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:="", CveContrato:=-1, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""))
+            CveMovimientoSalida = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:="",
+                                                              CveContrato:=-1, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/G")
             FolioSalida = ObjInventario.Folio
             If CveMovimientoSalida > 0 Then
                 Dim CantidadPendiente As Decimal = 0
@@ -2496,7 +2513,9 @@ Partial Class Inventarios_RecepcionEntrega
             If Not ChkTransitorio.Checked Then
                 ConceptoMovimiento = 27 ' If(ChkTransitorio.Checked, 2, 27)
                 Almacen2 = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, CveAlmacenTraspasoDestino)
-                CveMovimientoEntrada = ObjInventario.AddMovimiento(Almacen2, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""))
+                CveMovimientoEntrada = ObjInventario.AddMovimiento(Almacen2, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
+                                                                   Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenTraspasoDestino,
+                                                                   Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/G")
                 FolioEntrada = ObjInventario.Folio
                 If CveMovimientoEntrada > 0 Then
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then

Inventarios/RecepcionUsados.aspx

@@ -539,13 +539,13 @@
                                 <tr>
                                     <td><i class="fa fa-barcode" style="font-size: 1.8em; margin-top: 8px;" aria-hidden="true" data-toggle="tooltip" title="Código Barras"></i></td>
                                     <td>
-                                        <asp:Panel ID="PanelCodigo" runat="server" DefaultButton="BtnCodigoPS">
+                                        <asp:Panel ID="PanelCodigo" runat="server">
                                             <asp:TextBox ID="TxtCodigoPS" ClientIDMode="Static" Text="" runat="server" />
                                             <%--<asp:Button Text="" ID="BtnCodigoPS" OnClick="BtnCodigoPS_Click" Style="display: none" runat="server" />--%>
                                         </asp:Panel>
                                     </td>
                                     <td runat="server" visible="false" id="TdSeriePSAdd">
-                                        <asp:Panel ID="Panel2" runat="server" DefaultButton="BtnSeriePSAdd">
+                                        <asp:Panel ID="Panel2" runat="server">
                                             <asp:TextBox ID="TxtSeriePS" Text="" runat="server" />
                                             <%-- <asp:Button Text="" ID="BtnSeriePSAdd" OnClick="BtnSeriePSAdd_Click" Style="display: none" runat="server" />--%>
                                         </asp:Panel>

Inventarios/RecepcionUsados.aspx.vb

@@ -1044,7 +1044,7 @@ Partial Class Inventarios_RecepcionUsados
                     CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
                                                                 CveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero,
                                                                 Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
-                                                                PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor)
+                                                                PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G")
                     If CveMovimiento <= 0 Then
                         Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
                         RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -1208,7 +1208,8 @@ Partial Class Inventarios_RecepcionUsados
         Dim ObjInv As New ClsInventarios
 
         If CveMovimiento <= 0 Then
-            CveMovimiento = ObjInv.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, TxtFecha.Text.ToDate, TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+            CveMovimiento = ObjInv.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, TxtFecha.Text.ToDate, TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                 -1, -1, -1, -1, Modulo:="RU/G")
         End If
 
         ObjInv.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, CostoPromedio, -1, SerieLote:=SerieLote)

Inventarios/TraspasoAlmacen.aspx.vb

@@ -764,7 +764,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                                           CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble,
                                                           CveChofer:=If(ChkTransitorio.Checked, DldChofer.SelectedValue.ToEntero, -1), Placa:=If(ChkTransitorio.Checked, TxtPlaca.Text.Trim, "-1"), FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:=If(ChkTransitorio.Checked, TxtEspecifUnidad.Text.Trim, "-1"),
                                                           ResponsableCarga:=If(ChkTransitorio.Checked, TxtResponsableCarga.Text.Trim, "-1"), ResponsableRecibio:=If(ChkTransitorio.Checked, TxtResponsableRecibio.Text.Trim, "-1"), Identificacion:=If(ChkTransitorio.Checked, TxtIdentificacion.Text.Trim, "-1"), Domicilio:=If(ChkTransitorio.Checked, TxtDomicilio.Text.Trim, "-1"),
-                                                          Telefono:=If(ChkTransitorio.Checked, TxtTelefono.Text.Trim, "-1"), Ciudad:=If(ChkTransitorio.Checked, TxtCiudad.Text.Trim, "-1"), Licencia:=If(ChkTransitorio.Checked, TxtLicencia.Text.Trim, "-1"))
+                                                          Telefono:=If(ChkTransitorio.Checked, TxtTelefono.Text.Trim, "-1"), Ciudad:=If(ChkTransitorio.Checked, TxtCiudad.Text.Trim, "-1"), Licencia:=If(ChkTransitorio.Checked, TxtLicencia.Text.Trim, "-1"), Modulo:="TA/G")
         FolioSalida = ObjInventario.Folio
         Folio = ObjInventario.Folio
         If CveMovimientoSalida <= 0 Then
@@ -799,7 +799,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
-                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida)
+                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G")
                 FolioEntrada = ObjInventario.Folio
                 If CveMovimientoEntrada <= 0 Then
                     TextoError = "Ocurrió un error al generar el movimiento de entrada"
@@ -909,7 +909,8 @@ Partial Class Inventarios_TraspasoAlmacen
 
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
         CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, CveConceptoInventario, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                          Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble)
+                                                          Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""),
+                                                    GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble, Modulo:="TA/G")
         Dim FolioMov As Integer = ObjInventario.Folio
 
         If CveMovimiento <= 0 Then
@@ -1391,7 +1392,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate
 
         CveMovimientoEntrada = ObjInventario.AddMovimiento(GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                           Observaciones:=TxtObservacionesRecepcion.Text.Trim, Recibio:=TxtRecibio.Text, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida)
+                                                           Observaciones:=TxtObservacionesRecepcion.Text.Trim, Recibio:=TxtRecibio.Text, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G")
         Folio = ObjInventario.Folio
 
         If CveMovimientoEntrada <= 0 Then
@@ -1489,7 +1490,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             'AGREGAMOS LA ENTRADA
             CveMovimientoSalida = ObjInventario.AddMovimiento(GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                              Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida)
+                                                              Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G")
             Folio = ObjInventario.Folio
 
             If CveMovimientoSalida <= 0 Then

OC/OC.aspx.vb

@@ -2257,7 +2257,7 @@ Partial Class OC
         Dim PorcentajeIVA As Decimal = DdlIVA.SelectedValue.ToDecimal() - 1
         Dim PorcentajeIVADetalle As Decimal = Me.DtDetalle.MAX("IVAPorcentaje", "IVAPorcentaje > 0").ToDecimal()
 
-        If PorcentajeIVA > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then
+        If PorcentajeIVADetalle > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then
             Alert("El IVA de los conceptos no coincide con el IVA a facturar.", TipoMensaje.MsgAdvertencia)
             TieneError = True
         End If
@@ -2722,14 +2722,14 @@ Partial Class OC
 
                                 'SALIDA ADMINISTRATIVA (CON SALIDA POR TRASPASO) -AJUSTE
                                 If ConceptoSalida = 2 Then
-                                    Dim CveMovimientoSalidaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True)
+                                    Dim CveMovimientoSalidaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True, Modulo:="OC/G")
                                     For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 2").Rows
                                         If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaAjuste, DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("PU").ToString.ToDouble, -1, CveOrdenCompraDetalle:=DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero) Then
                                             TieneError = True
                                             Exit For
                                         End If
                                     Next
-                                    Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+                                    Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="OC/G")
                                     If ObjInventarios.GetMovimientosDetalle(CveMovimientoSalidaAjuste, UsuarioActual.CveEmpresa) Then
                                         For Each Dr As DataRow In ObjInventarios.DtResultados.Rows
                                             If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then

SiteGPS.master

@@ -21,7 +21,7 @@
     <link href="https://fonts.googleapis.com/css?family=Open+Sans:400,300,600,700&subset=all" rel="stylesheet" type="text/css" />
     <asp:ContentPlaceHolder ID="CP" runat="server">
     </asp:ContentPlaceHolder>
-    <link href="http://fonts.googleapis.com/css?family=Open+Sans:400,300,600,700&subset=all" rel="stylesheet" type="text/css" />
+    <link href="https://fonts.googleapis.com/css?family=Open+Sans:400,300,600,700&subset=all" rel="stylesheet" type="text/css" />
     <link href="/Metronic/assets/global/plugins/simple-line-icons/simple-line-icons.css" rel="stylesheet" />
     <link href="/Metronic/assets/global/plugins/font-awesome/css/font-awesome.min.css" rel="stylesheet" />
     <link href="/Metronic/assets/global/plugins/bootstrap/css/bootstrap.css" rel="stylesheet" type="text/css" />

Ventas/Ventas.aspx.vb

@@ -1075,6 +1075,14 @@ Partial Class Ventas
             ViewState("DevolucionAlmacen") = value
         End Set
     End Property
+    Private Property DevolucionAlmacenNC As Integer
+        Get
+            Return IfNull(ViewState("DevolucionAlmacenNC"), 2, ViewState("DevolucionAlmacenNC").ToString().ToString()).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("DevolucionAlmacenNC") = value
+        End Set
+    End Property
     Private ReadOnly Property TipoDoctoDevolucion As String
         Get
             Return ViewState("TipoDoctoDevolucion").ToString
@@ -1633,6 +1641,14 @@ Partial Class Ventas
             ViewState("VentaSaldoAlmacen") = value
         End Set
     End Property
+    Private Property VentaSaldoAlmacenNC As Decimal
+        Get
+            Return IfNull(ViewState("VentaSaldoAlmacenNC"), 0, ViewState("VentaSaldoAlmacenNC").ToString().ToDecimal()).ToString().ToDecimal()
+        End Get
+        Set(value As Decimal)
+            ViewState("VentaSaldoAlmacenNC") = value
+        End Set
+    End Property
     Private Property SeCancelaRemisionProceso As Boolean
         Get
             Return CBool(ViewState("SeCancelaRemisionProceso").ToString)
@@ -5073,50 +5089,54 @@ Partial Class Ventas
                         LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
                         If PorcentajeCredito > 80 Then TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%"
                         If UsuarioActual.CveEmpresa = 119 AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
-                            If LblRFC.Text.Trim <> "XAXX010101000" Then
-                                Dim Vta As New ClsVentas
-                                Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
-                                Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
-                                Vta.Dispose()
-                                If Opcion > 0 Then
-                                    'si la cotización no debe de existir este canddado
-                                    If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                                    'RBLPago.SelectedValue = "2"
-                                    'RBLPago.Items(0).Enabled = False
-                                    RBLPago_SelectedIndexChanged(Nothing, Nothing)
-                                    UPCondicionesPago.Update()
-                                    DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
-                                    DdlTipoComprobante.SelectedValue = "PA"
-                                    TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
-                                    'si  llegó por la opción de cotización no debe de restringuir
-                                    If IfNull(Request("Op"), "").ToString = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
-                                    'quito remisión y factura
-                                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
-                                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
-                                    If Opcion = 1 Then
-                                        BtnEmitirImprimir.Visible = False
-                                        BtnsFacturar.Visible = False
-                                        BtnGenerarRemision.Visible = False
-                                        LnkPedido2SinFacturar.Visible = False
-                                        LnkCotizaciones.Visible = False
-                                        LnkOCs.Visible = False
-                                    End If
-                                Else
-                                    ' el cliente tiene crédito disponible, no tiene bloqueo
-                                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA"))
 
-                                    If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+                            'If LblRFC.Text.Trim <> "XAXX010101000" Then
-                                    If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
-                                    DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
 
-                                    TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
+                            Dim Vta As New ClsVentas
+                            Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
+                            Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
+                            Vta.Dispose()
+                            If Opcion > 0 Then
+                                'si la cotización no debe de existir este canddado
+                                If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+                                'RBLPago.SelectedValue = "2"
+                                'RBLPago.Items(0).Enabled = False
+                                RBLPago_SelectedIndexChanged(Nothing, Nothing)
+                                UPCondicionesPago.Update()
+                                DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
+                                DdlTipoComprobante.SelectedValue = "PA"
+                                TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
+                                'si  llegó por la opción de cotización no debe de restringuir
+                                If IfNull(Request("Op"), "").ToString = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
+                                'quito remisión y factura
+                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
+                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                                If Opcion = 1 Then
+                                    BtnEmitirImprimir.Visible = False
+                                    BtnsFacturar.Visible = False
+                                    BtnGenerarRemision.Visible = False
+                                    LnkPedido2SinFacturar.Visible = False
+                                    LnkCotizaciones.Visible = False
+                                    LnkOCs.Visible = False
                                 End If
                             Else
-                                'que no de crédito, solo contado
+                                ' el cliente tiene crédito disponible, no tiene bloqueo
-                                RBLPago.SelectedValue = "2"
+                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA"))
-                                RBLPago.Items(0).Enabled = False
+
+                                If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+                                If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
+                                DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+
+                                TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
                             End If
+
+                            'Else
+                            '    'que no de crédito, solo contado
+                            '    RBLPago.SelectedValue = "2"
+                            '    RBLPago.Items(0).Enabled = False
+                            'End If
+
                         End If
                     Else
 
@@ -5402,6 +5422,8 @@ Partial Class Ventas
 
                     If DTFacNC IsNot Nothing AndAlso DTFacNC.Rows.Count > 0 Then
                         Me.CveEstatusRefacturacion = DTFacNC.Rows(0)("CveEstatusRefacturacion").ToString().ToEntero()
+                        Me.DevolucionAlmacenNC = DTFacNC.Rows(0)("EsDevolucionVenta").ToString.ToEntero
+                        Me.VentaSaldoAlmacenNC = DTFacNC.Rows(0)("SaldoAlmacen").ToString.ToDecimal
                         HdnRFCVenta.Value = DTFacNC.Rows(0)("ClienteRFC").ToString()
                     End If
                 Else
@@ -6657,7 +6679,7 @@ Partial Class Ventas
                         End If
                         'Esquema viejo, evitamos que aparezca por surtir
                         If ErrorList.Count = 0 Then
-                            If VentaSaldoAlmacen <> 0 Then
+                            If VentaSaldoAlmacenNC <> 0 OrElse DevolucionAlmacenNC = 2 Then
                                 If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
                                     ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura")
                                 End If
@@ -23462,130 +23484,130 @@ Partial Class Ventas
         DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})
 
         If Not TmpDT.Columns.Contains("Eliminar") Then
-                    TmpDT.Columns.Add("Eliminar", GetType(Integer))
+            TmpDT.Columns.Add("Eliminar", GetType(Integer))
+        End If
+
+        For Each drow As DataRow In TmpDT.Rows
+            For Each drow2 As DataRow In DTCvePSCostos.Rows
+                If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then
+                    drow("Eliminar") = 1
+                    Exit For
+                End If
+            Next
+        Next
+
+        Dim TmpDTView As New DataView(TmpDT)
+        TmpDTView.RowFilter = "Eliminar = 1"
+
+        For Each dRowEliminar As DataRowView In TmpDTView
+            dRowEliminar.Delete()
+
+        Next
+
+
+        TmpDT.AcceptChanges()
+
+        Dim ObjProductosServicios As New ClsProductosServicios()
+
+        Dim CveUnidadMedidaPSA As Integer = -1
+        Dim UnidadMedidaPSA As String = "Unidad"
+        Dim CveClacificacionPSA As Integer = -1
+
+        Dim ClacificacionPSA As String = ""
+
+        Dim CveSubProyectoPSA As Integer = -1
+        Dim SubProyectoPSA As String = ""
+
+        Dim PSPSA As String = ""
+
+        Dim DTPSTemp As New DataTable '= TmpDT.Clone
+        'AgregarProductoServicio(1, CveUnidadMedidaPSA, UnidadMedidaPSA, CveClacificacionPSA, ClacificacionPSA, CvePSPSA, PSPSA, "", ImporteCargo, 0, -1, "", CveSubProyectoPSA, SubProyectoPSA)
+        DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
+        DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
+        DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
+        DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer))
+        DTPSTemp.Columns.Add("Clacificacion", GetType(String))
+        DTPSTemp.Columns.Add("CvePS", GetType(Integer))
+        DTPSTemp.Columns.Add("PS", GetType(String))
+        DTPSTemp.Columns.Add("PU", GetType(Decimal))
+        DTPSTemp.Columns.Add("CveSubProyecto", GetType(Integer))
+        DTPSTemp.Columns.Add("SubProyecto", GetType(String))
+
+        For Each DrowPartidas As DataRow In TmpDT.Rows
+            Dim CveTamanioTemp As Integer = DrowPartidas("CveTamaño").ToString.ToEntero
+
+            If CveTamanioTemp > 0 Then
+
+                Dim DTTamanioTemp As New DataTable
+                Dim CvePsTemp As Integer = DTTamanios.FiltraParametros($"CveTamaño = { CveTamanioTemp } ").Rows(0)("CvePSCargo").ToString.ToEntero
+
+
+                CveSubProyectoPSA = DrowPartidas("CveSubProyecto").ToString.ToEntero
+                SubProyectoPSA = DrowPartidas("SubProyecto").ToString
+
+                If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
+                    CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
+                    CveClacificacionPSA = ObjProductosServicios.CveClasificacion
+                    UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
+                    PSPSA = ObjProductosServicios.PS
                 End If
 
-                For Each drow As DataRow In TmpDT.Rows
+
-                    For Each drow2 As DataRow In DTCvePSCostos.Rows
+                If UsuarioActual.Empresa.UsaAC Then
-                        If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then
+                    ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
-                            drow("Eliminar") = 1
+                Else
-                            Exit For
+                    ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion")
+                End If
+
+                Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp  }").ToDecimal
+
+
+                If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then
+
+                    For Each dRowUpdate As DataRow In DTPSTemp.Rows
+
+                        If (dRowUpdate("CvePS").ToString.ToEntero = CvePsTemp) Then
+                            dRowUpdate("Cantidad") = dRowUpdate("Cantidad").ToString.ToDecimal + DrowPartidas("Cantidad").ToString.ToDecimal
+                            dRowUpdate("PU") = Cargo ' dRowUpdate("Total").ToString.ToDecimal + ImporteCargo
                         End If
                     Next
-                Next
 
-                Dim TmpDTView As New DataView(TmpDT)
+                    DTPSTemp.AcceptChanges()
-                TmpDTView.RowFilter = "Eliminar = 1"
 
-                For Each dRowEliminar As DataRowView In TmpDTView
+                Else
-                    dRowEliminar.Delete()
+                    Dim dRowNuevo As DataRow = DTPSTemp.NewRow
 
-                Next
+                    dRowNuevo("Cantidad") = DrowPartidas("Cantidad").ToString.ToDecimal
+                    dRowNuevo("PU") = Cargo
+                    dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
+                    dRowNuevo("UnidadMedida") = UnidadMedidaPSA
+                    dRowNuevo("CveClacificacion") = CveClacificacionPSA
+                    dRowNuevo("Clacificacion") = ClacificacionPSA
+                    dRowNuevo("CvePS") = CvePsTemp
+                    dRowNuevo("PS") = PSPSA
+
+                    dRowNuevo("CveSubProyecto") = DrowPartidas("CveSubProyecto").ToString.ToEntero
+                    dRowNuevo("SubProyecto") = DrowPartidas("SubProyecto").ToString
+
+                    DTPSTemp.Rows.Add(dRowNuevo)
+                    DTPSTemp.AcceptChanges()
+                End If
+
+            End If
+        Next
 
 
-                TmpDT.AcceptChanges()
+        For Each drowPsTamaños As DataRow In DTPSTemp.Rows
+            Modalidad = "A"
+            If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
+                AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
+                                        drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
+                                        drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
+                                        drowPsTamaños("SubProyecto").ToString)
+            End If
+        Next
 
-                Dim ObjProductosServicios As New ClsProductosServicios()
+        ObjProductosServicios.Dispose()
-
-                Dim CveUnidadMedidaPSA As Integer = -1
-                Dim UnidadMedidaPSA As String = "Unidad"
-                Dim CveClacificacionPSA As Integer = -1
-
-                Dim ClacificacionPSA As String = ""
-
-                Dim CveSubProyectoPSA As Integer = -1
-                Dim SubProyectoPSA As String = ""
-
-                Dim PSPSA As String = ""
-
-                Dim DTPSTemp As New DataTable '= TmpDT.Clone
-                'AgregarProductoServicio(1, CveUnidadMedidaPSA, UnidadMedidaPSA, CveClacificacionPSA, ClacificacionPSA, CvePSPSA, PSPSA, "", ImporteCargo, 0, -1, "", CveSubProyectoPSA, SubProyectoPSA)
-                DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
-                DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
-                DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
-                DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer))
-                DTPSTemp.Columns.Add("Clacificacion", GetType(String))
-                DTPSTemp.Columns.Add("CvePS", GetType(Integer))
-                DTPSTemp.Columns.Add("PS", GetType(String))
-                DTPSTemp.Columns.Add("PU", GetType(Decimal))
-                DTPSTemp.Columns.Add("CveSubProyecto", GetType(Integer))
-                DTPSTemp.Columns.Add("SubProyecto", GetType(String))
-
-                For Each DrowPartidas As DataRow In TmpDT.Rows
-                    Dim CveTamanioTemp As Integer = DrowPartidas("CveTamaño").ToString.ToEntero
-
-                    If CveTamanioTemp > 0 Then
-
-                        Dim DTTamanioTemp As New DataTable
-                        Dim CvePsTemp As Integer = DTTamanios.FiltraParametros($"CveTamaño = { CveTamanioTemp } ").Rows(0)("CvePSCargo").ToString.ToEntero
-
-
-                        CveSubProyectoPSA = DrowPartidas("CveSubProyecto").ToString.ToEntero
-                        SubProyectoPSA = DrowPartidas("SubProyecto").ToString
-
-                        If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
-                            CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
-                            CveClacificacionPSA = ObjProductosServicios.CveClasificacion
-                            UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
-                            PSPSA = ObjProductosServicios.PS
-                        End If
-
-
-                        If UsuarioActual.Empresa.UsaAC Then
-                            ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
-                        Else
-                            ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion")
-                        End If
-
-                        Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp  }").ToDecimal
-
-
-                        If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then
-
-                            For Each dRowUpdate As DataRow In DTPSTemp.Rows
-
-                                If (dRowUpdate("CvePS").ToString.ToEntero = CvePsTemp) Then
-                                    dRowUpdate("Cantidad") = dRowUpdate("Cantidad").ToString.ToDecimal + DrowPartidas("Cantidad").ToString.ToDecimal
-                                    dRowUpdate("PU") = Cargo ' dRowUpdate("Total").ToString.ToDecimal + ImporteCargo
-                                End If
-                            Next
-
-                            DTPSTemp.AcceptChanges()
-
-                        Else
-                            Dim dRowNuevo As DataRow = DTPSTemp.NewRow
-
-                            dRowNuevo("Cantidad") = DrowPartidas("Cantidad").ToString.ToDecimal
-                            dRowNuevo("PU") = Cargo
-                            dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
-                            dRowNuevo("UnidadMedida") = UnidadMedidaPSA
-                            dRowNuevo("CveClacificacion") = CveClacificacionPSA
-                            dRowNuevo("Clacificacion") = ClacificacionPSA
-                            dRowNuevo("CvePS") = CvePsTemp
-                            dRowNuevo("PS") = PSPSA
-
-                            dRowNuevo("CveSubProyecto") = DrowPartidas("CveSubProyecto").ToString.ToEntero
-                            dRowNuevo("SubProyecto") = DrowPartidas("SubProyecto").ToString
-
-                            DTPSTemp.Rows.Add(dRowNuevo)
-                            DTPSTemp.AcceptChanges()
-                        End If
-
-                    End If
-                Next
-
-
-                For Each drowPsTamaños As DataRow In DTPSTemp.Rows
-                    Modalidad = "A"
-                    If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
-                        AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
-                                                drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
-                                                drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
-                                                drowPsTamaños("SubProyecto").ToString)
-                    End If
-                Next
-
-                ObjProductosServicios.Dispose()
         'End If
 
         ' ObjAcum.Dispose()

asmx/WSGPSApp.asmx

@@ -938,6 +938,40 @@ Public Class WSGPSApp
 
     End Function
 
+    <WebMethod>
+    Public Function GetTrayectos(CveCliente As Integer) As String
+        Dim Retorno As String = "[]"
+
+
+        Return Retorno
+
+    End Function
+
+    <WebMethod>
+    Public Function GetEstatusTrayectos(CveCliente As Integer) As String
+        Dim Retorno As String = "[]"
+
+
+        Return Retorno
+
+    End Function
+    <WebMethod>
+    Public Function GetEstatusTrayectosHistorial(CveCliente As Integer) As String
+        Dim Retorno As String = "[]"
+
+
+        Return Retorno
+
+    End Function
+    <WebMethod>
+    Public Function GetTrayectosEstatusHistorial(CveTrayecto As Integer) As String
+        Dim Retorno As String = "[]"
+
+
+        Return Retorno
+
+    End Function
+
 #Region "F U N C I O N E S"
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
         Dim ObjEmpresa As New ClsSisEmpresas()