-- limpieza de código de mandar idcta de contpaq

Inventarios/EntradasSalidas.aspx.vb

@@ -947,6 +947,7 @@ Partial Class Inventarios_EntradasSalidas
             If Mov.CveCompra > 0 Then
                 HplCompra.Visible = True
                 HplCompra.Text = DtMov.Rows(0)("SerieFolioCompra").ToString
+                HdnCveCompra.Value = Mov.CveCompra.ToString
                 If UsuarioActual.TienePermisoProceso(201) Then
                     HplCompra.NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", Mov.CveCompra)
                 End If
@@ -1864,7 +1865,6 @@ Partial Class Inventarios_EntradasSalidas
                             Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL()
                             Dim tValorOtro As Decimal = tValorInventario
                             Dim idCtaContable As Integer = 0
-                            Dim IdCtaContableOtro As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
                             Dim TipoMovtoAlmacen As Boolean = False
                             Dim TipoMovtoOtro As Boolean = True
                             Dim tCveSubProyecto As Integer = -1
@@ -1887,11 +1887,8 @@ Partial Class Inventarios_EntradasSalidas
                                     EsContabilizable = True
                                 Case 28, 31
                                     CveConceptoContable = 51
-
-                                    '[IPP] PARCHE CTA CONTABLE PARA SALIDA DE DEMOSTRACION
-                                    If DdlConcepto.SelectedValue.ToEntero = 31 Then
-                                        IdCtaContableOtro = 1319
-                                    Else ''cuando es 28, es otros ingresos.78
+                                    If DdlConcepto.SelectedValue.ToEntero = 28 Then
+                                        ''cuando es 28, es otros ingresos.78
                                         CveConceptoContable = 78
                                     End If
                                     EsContabilizable = True
@@ -1899,9 +1896,9 @@ Partial Class Inventarios_EntradasSalidas
                                     CveConceptoContable = 181
                                     TipoMovtoOtro = False
                                     If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
-                                    If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
-                                        IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
-                                    End If
+                                    'If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
+                                    '    IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
+                                    'End If
                                 Case 34
                                     CveConceptoContable = 51
                                     EsContabilizable = True
@@ -1912,7 +1909,6 @@ Partial Class Inventarios_EntradasSalidas
                                     Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
                                     If drr IsNot Nothing Then
                                         CveClasificacion = drr("CveClasificacion").ToString.ToEntero
-                                        IdCtaContableOtro = drr("IdCuentaCostos").ToString.ToEntero
                                     End If
                                 Case 3
                                     CveConceptoContable = 51
@@ -1935,7 +1931,7 @@ Partial Class Inventarios_EntradasSalidas
                                     For Each Dr As DataRow In Dt.Rows
                                         Dim Total As Decimal = ObjInventario.DtResultados.FiltraParametros($"CveClasificacion = {Dr("CveClasificacion")}").SUM("Total").ToDecimal.RoundSQL()
 
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, Total, Total, CveConceptoContable, TxtFolio.Text, TxtObservaciones.Text.Trim, IdCtaContableOtro, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=Dr("CveClasificacion").ToString.ToEntero, CveSubProyecto:=tCveSubProyecto) Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, Total, Total, CveConceptoContable, TxtFolio.Text, TxtObservaciones.Text.Trim, 0, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=Dr("CveClasificacion").ToString.ToEntero, CveSubProyecto:=tCveSubProyecto) Then
                                             ErrorMovInv = True
                                         End If
                                     Next
@@ -3856,7 +3852,6 @@ Partial Class Inventarios_EntradasSalidas
             DtCostos = ObjInventario.DtResultados
             Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
             Dim DTOCs As DataTable = DtCostos.FiltraParametros("", "", {"CveOrdenCompraDetalle"})
-            Dim IdCtaContable As Integer = 0
             Dim ConceptoPoliza As String = String.Format("{0}-{1}", DdlConcepto.SelectedItem.Text, If(DdlConcepto.SelectedValue.ToEntero.Contiene(3), HplVenta.Text, TxtFolio.Text))
             Dim Contabilizable As Boolean = True
 
@@ -3865,66 +3860,72 @@ Partial Class Inventarios_EntradasSalidas
                 Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                 CvePrePolizaRegistrada = CvePrePoliza
 
-                If HdnCveOrdenCompra.Value.ToEntero > 0 Then
-                    MovAlmacen = False
-                    For Each RowOC As DataRow In DTOCs.Rows
-                        ValorInventario = DtCostos.SUM("Total", $"CveOrdenCompraDetalle = {RowOC("CveOrdenCompraDetalle")}").ToString.ToDecimal
-                        ValorInventarioME = DtCostos.SUM("TotalExtranjero", $"CveOrdenCompraDetalle = {RowOC("CveOrdenCompraDetalle")}").ToString.ToDecimal
-                        If ValorInventarioME > 0 Then
-                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventarioME, Concepto, 228, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventarioME, ImporteME:=ValorInventarioME, CveOC:=HdnCveOrdenCompra.Value.ToEntero, CveOCDetalle:=RowOC("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=LbTipoCambio.Text.ToDecimal) Then
-                                ValorInventario = ValorInventario - ValorInventarioME
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, Concepto, 229, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, ImporteME:=ValorInventarioME, CveOC:=HdnCveOrdenCompra.Value.ToEntero, CveOCDetalle:=RowOC("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=LbTipoCambio.Text.ToDecimal) Then
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-                            Else
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-                        Else
-                            If ObjConta.GetRetCuenta(176, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCtaContable = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                            End If
+                If HplCompra.Visible AndAlso HplCompra.Text <> "" Then
+                    ValorInventario = DtCostos.SUM("Total").ToString.ToDecimal
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, ValorInventario, 205, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteME:=ValorInventario, CveCompra:=HdnCveCompra.Value.ToEntero, TipoCambio:=LbTipoCambio.Text.ToDecimal) Then
+                        ErrorMovInv = True
+                    End If
+                    '            ValorInventario = ValorInventario - ValorInventarioME
+                    'If HdnCveOrdenCompra.Value.ToEntero > 0 Then
+                    'MovAlmacen = False
+                    'For Each RowOC As DataRow In DTOCs.Rows
+                    '    ValorInventario = DtCostos.SUM("Total", $"CveOrdenCompraDetalle = {RowOC("CveOrdenCompraDetalle")}").ToString.ToDecimal
+                    '    ValorInventarioME = DtCostos.SUM("TotalExtranjero", $"CveOrdenCompraDetalle = {RowOC("CveOrdenCompraDetalle")}").ToString.ToDecimal
+                    '    If ValorInventarioME > 0 Then
+                    '        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventarioME, Concepto, 228, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventarioME, ImporteME:=ValorInventarioME, CveOC:=HdnCveOrdenCompra.Value.ToEntero, CveOCDetalle:=RowOC("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=LbTipoCambio.Text.ToDecimal) Then
+                    '            ValorInventario = ValorInventario - ValorInventarioME
+                    '            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, Concepto, 229, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, ImporteME:=ValorInventarioME, CveOC:=HdnCveOrdenCompra.Value.ToEntero, CveOCDetalle:=RowOC("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=LbTipoCambio.Text.ToDecimal) Then
+                    '                ErrorMovInv = True
+                    '                Exit For
+                    '            End If
+                    '        Else
+                    '            ErrorMovInv = True
+                    '            Exit For
+                    '        End If
+                    '    Else
+                    '        If ObjConta.GetRetCuenta(176, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                    '            IdCtaContable = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
+                    '        End If
 
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, Concepto, 176, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveOC:=HdnCveOrdenCompra.Value.ToEntero, CveOCDetalle:=RowOC("CveOrdenCompraDetalle").ToString.ToEntero) Then
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-                        End If
-                    Next
+                    '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, Concepto, 176, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveOC:=HdnCveOrdenCompra.Value.ToEntero, CveOCDetalle:=RowOC("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                    '            ErrorMovInv = True
+                    '            Exit For
+                    '        End If
+                    '    End If
+                    'Next
                 Else
                     If ObjInventario.Modulo.Contiene("RA/G4") Then
                         Contabilizable = True
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 205, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 205, Concepto, Concepto, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
                             ErrorMovInv = True
                         End If
                     ElseIf ObjInventario.Modulo.Contiene("RE/G5", "EA/G5") Then
                         Contabilizable = True
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 331, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 331, Concepto, Concepto, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
                             ErrorMovInv = True
                         End If
                     Else
                         If ObjInventario.Modulo.Contiene("M/CU", "RU/G") Then
                             Contabilizable = True
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, HplVenta.Text, 278, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 278, HplVenta.Text, Concepto, CveVenta:=CveVenta, CveCompra:=CveCompra, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
                                 ErrorMovInv = True
                             End If
                         Else
                             If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
                                 Contabilizable = False
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
                                     ErrorMovInv = True
                                 End If
                             Else
                                 If ObjInventario.Modulo.Contiene("Consig") Then
                                     Contabilizable = False
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 95, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 95, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
                                         ErrorMovInv = True
                                     End If
                                 Else
                                     If ObjInventario.Modulo.Contiene("ASA/G1", "Vta/E4", "ARMPAQ1", "RE/GSC3") Then
                                         Contabilizable = False
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
                                             ErrorMovInv = True
                                         End If
                                     Else
@@ -3933,8 +3934,7 @@ Partial Class Inventarios_EntradasSalidas
                                             Dim tCveConcepto As Integer = 95
                                             Dim CveCuenta As Integer
                                             If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519
-                                            IdCtaContable = 1
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), tCveConcepto, Concepto, Concepto, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=-1, Contabilizable:=Contabilizable) Then
                                                 ErrorMovInv = True
                                             End If
                                         Else
@@ -3943,16 +3943,12 @@ Partial Class Inventarios_EntradasSalidas
                                                 Dim tCveConcepto As Integer = 69
                                             If ObjInventario.CveConcepto = 37 Then
                                                 tCveConcepto = 181
-                                                IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
                                             End If
 
                                             For Each RowInv As DataRow In tmpCostos.Rows
-                                                    ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
-                                                    If tCveConcepto = 69 Then
-                                                        IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                                                    End If
+                                                ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
 
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto, Contabilizable:=Contabilizable) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, ValorInventario, tCveConcepto, Concepto, Concepto, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=tCveSubProyecto, Contabilizable:=Contabilizable) Then
                                                     ErrorMovInv = True
                                                     Exit For
                                                 End If
@@ -3966,8 +3962,7 @@ Partial Class Inventarios_EntradasSalidas
                         End If
                     End If
 
-                IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, Contabilizable:=Contabilizable) Then
                     ErrorMovInv = True
                 End If
             End If
@@ -4449,26 +4444,12 @@ Partial Class Inventarios_EntradasSalidas
 
         Dim Prorratear As Boolean = If(UsuarioActual.CveEmpresa = 172 AndAlso DtMovimientosSalidaInvFisico.Rows.Count > 0 AndAlso DtMovimientosEntradaInvFisico.Rows.Count > 0, True, False)
         Dim ProPU As Decimal = 0
-        'Dim ImporteSalida As Decimal = 
 
-        'DtMovimientosSalidaInvFisico
-        'DtMovimientosEntradaInvFisico
-
-
-        Dim IdCuentaOtrosIngresos As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
-        Select Case UsuarioActual.CveEmpresa
-            Case 119
-                IdCuentaOtrosIngresos = 1319
-        End Select
 
         Dim CveAlmacen As Integer = DdlAlmacenInventarioFisico.SelectedValue.ToEntero
-
         Dim CveModalidad As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveModalidad").ToEntero()
-
         Dim EsContabilizable As Boolean = (CveModalidad = 1)
 
-
-
         'MOVIMIENTO DE ENTRADA
         If DtMovimientosEntradaInvFisico.Rows.Count > 0 Then
             'FolioEntrada = ObjInventario.GetFolioSiguiente(32, UsuarioActual.CveEmpresa)
@@ -4614,7 +4595,7 @@ Partial Class Inventarios_EntradasSalidas
             If ValorEntrada >= ValorSalida Then
                 'si el valor entrada es igual al valorsalida, y este sea cero.
                 If tCveSubProyectoEntrada = -1 Then tCveSubProyectoEntrada = tCveSubProyectoSalida
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, 0, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"
                 End If
@@ -4733,18 +4714,11 @@ Partial Class Inventarios_EntradasSalidas
         Dim Fecha = TxtFechaCambio.Text.ToDate.ToString("yyyy/MM/dd").ToDate
         Dim tCveSubProyecto As Integer = -1
         Dim TipoMovto As Boolean = False
-        Dim idCtaContableEntrada As Integer = 0
-        Dim idCtaContableSalida As Integer = 0
 
         Dim FolioSalida As Integer = 0
         Dim FolioEntrada As Integer = 0
-
-        Dim IdCuentaOtrosIngresos As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
-
         Dim CveAlmacen As Integer = DdlAlmacenCambioVigencias.SelectedValue.ToEntero
-
         Dim CveModalidad As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveModalidad").ToEntero()
-
         Dim EsContabilizable As Boolean = (CveModalidad = 1)
 
         'MOVIMIENTOS