--se quitó simplificación

Compras/ReembolsosComprobaciones.aspx.vb

@@ -787,16 +787,6 @@ Partial Class Compras_ReembolsosComprobaciones
                     End If
                 Next
 
-                If MsgError = "" And UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                    If Not ObjMov.PrePolizaSimplificacion(CvePrePolizaPago, UsuarioActual.CveEmpresa) Then
-                        MsgError = "No se pudo simplificar los movimientos"
-                        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
-                    End If
-                    If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso Not ObjMov.PrePolizaSimplificacion(CvePrePolizaExcedente, UsuarioActual.CveEmpresa) Then
-                        MsgError = "No se pudo simplificar los movimientos"
-                        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
-                    End If
-                End If
                 Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
 
                 If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1, AutoConta:=AutoConta) Then
@@ -888,14 +878,6 @@ Partial Class Compras_ReembolsosComprobaciones
             End If
         End If
 
-        'Simplificacion de PrePolizas
-        If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-            If Not ObjMov.PrePolizaSimplificacion(CvePrePolizaNueva, UsuarioActual.CveEmpresa) Then
-                Retorno = "No se pudo simplificar los movimientos"
-                Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
-            End If
-        End If
-
         Return Retorno
     End Function
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1767,7 +1767,7 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
 
         'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD
-        Dim Contador = 0
+        Dim Contador As Integer = 0
         For Each Gvr As GridViewRow In GvInv.Rows
             If Gvr.DataKey("CvePS").ToEntero = CvePSSerie Then
                 Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec"))).Rows.Count
@@ -1782,7 +1782,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
 
-            Dim Dr = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0)
+            Dim Dr As DataRow = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0)
             Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDecimal
             DtInv.AcceptChanges()
         Next
@@ -1806,7 +1806,7 @@ Partial Class Inventarios_RecepcionAlmacen
             Exit Sub
         End If
 
-        Dim SeriesArreglo = Serie.Trim.Split(";"c)
+        Dim SeriesArreglo As Array = Serie.Trim.Split(";"c)
 
         'VALIDACION DE SERIES DUPLICADAS
         Dim MensajeAlert As New StringBuilder
@@ -1839,7 +1839,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
         Dim MensajeSinExistencias As New StringBuilder
         Dim ObjInventarios As New ClsInventarios
-        Dim Index = 0
+        Dim Index As Integer = 0
         Dim Cantidad As Integer = LbCantidad.Text.ToEntero
 
         If CargaMasivaSeries Then Cantidad = DtInv.FiltroPrimeroValor("CantidadF", "Consec = " & CveConsecSerie).ToEntero
@@ -2405,11 +2405,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     'CONTABILIZAR - SIMPLIFICAR 
                     If Retorno Then
-                        If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                            If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                Retorno = False
-                            End If
-                        End If
 
                         If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                             If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
@@ -2476,11 +2471,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     'CONTABILIZAR - SIMPLIFICAR 
                     If Retorno Then
-                        If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                            If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                Retorno = False
-                            End If
-                        End If
 
                         If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                             If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
@@ -3471,13 +3461,6 @@ Partial Class Inventarios_RecepcionAlmacen
                                 End If
                             End If
 
-                            If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                                If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                    ErrorMovInv = True
-                                    MensajeError = "Error al simplificar los conceptos contables"
-                                End If
-                            End If
-
                             If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                                 If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                     MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
@@ -3578,14 +3561,6 @@ Partial Class Inventarios_RecepcionAlmacen
                                 End If
                             End If
 
-
-                            If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                                If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                    ErrorMovInv = True
-                                    MensajeError = "Error al simplificar los conceptos contables"
-                                End If
-                            End If
-
                             If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
 
                                 If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then

Inventarios/RecepcionUsados.aspx.vb

@@ -1455,8 +1455,8 @@ Partial Class Inventarios_RecepcionUsados
 
                 If tmpCostos.Rows.Count > 0 Then
                     Dim Concepto As String = ConceptoPoliza
-                    Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados2", 74, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados2", 74, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+                    Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
                     Dim tCveConcepto As Integer = 278
 
                     For Each RowInv As DataRow In tmpCostos.Rows
@@ -1471,7 +1471,6 @@ Partial Class Inventarios_RecepcionUsados
                         Correcto = False
                     End If
 
-
                     If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
                         If ObjConta.ValorPolizaDescuadre > 0 Then
                             GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
@@ -1479,26 +1478,6 @@ Partial Class Inventarios_RecepcionUsados
                         End If
                     End If
 
-                    'CONTABILIZAR - SIMPLIFICAR 
-                    If Correcto Then
-                        If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                            If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                Correcto = False
-                            End If
-                        End If
-
-                        'If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                        '    If ObjContaContPAQ Is Nothing Then
-                        '        ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                        '        ObjContaContPAQ.IniciaTransacSQL()
-                        '    End If
-
-                        '    If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
-                        '        Retorno = False
-                        '    End If
-                        'End If
-
-                    End If
                 Else
                     Correcto = False
                 End If

Inventarios/RepVentasXSurtir.aspx.vb

@@ -54,7 +54,7 @@ Partial Class Inventarios_RepVentasXSurtir
     Private Sub CargaDatos()
         Dim ObjInventarios As New ClsInventarios
 
-        If ObjInventarios.GetPendietePorSurtirVenta(DdlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlTipo.SelectedValue.ToEntero) Then
+        If ObjInventarios.GetPendientePorSurtirVenta(DdlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlTipo.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjInventarios.DtResultados
         Else
             GvDatos.DataSource = Nothing