AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
rrene
2023-12-06 15:40:23 -07:00
parent 6fece1a750
commit 0ff5e2851f
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1937,9 +1937,7 @@ Partial Class Inventarios_EntradasSalidas
CveConceptoContable = 181 CveConceptoContable = 181
TipoMovtoOtro = False TipoMovtoOtro = False
If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero 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
Case 34 Case 34
CveConceptoContable = 51 CveConceptoContable = 51
EsContabilizable = True EsContabilizable = True
@@ -3901,9 +3899,6 @@ Partial Class Inventarios_EntradasSalidas
' Exit For ' Exit For
' End If ' End If
' Else ' 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 ' 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 ' ErrorMovInv = True
@@ -5486,7 +5481,6 @@ Partial Class Inventarios_EntradasSalidas
tCveSubProyecto = drAlmacenVirtual("CveSubProyecto").ToString.ToEntero tCveSubProyecto = drAlmacenVirtual("CveSubProyecto").ToString.ToEntero
End If End If
'VERIFICA SI TIENE ALMACEN VIRTUAL 'VERIFICA SI TIENE ALMACEN VIRTUAL
If CveAlmacenVirtual > 0 Then If CveAlmacenVirtual > 0 Then
If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -5528,6 +5522,9 @@ Partial Class Inventarios_EntradasSalidas
End If End If
End If End If
End If
End If
Catch ex As Exception Catch ex As Exception
ErrorMovInv = True ErrorMovInv = True
End Try End Try