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

--- MEJORA

Browse Source
This commit is contained in:
rrene
2024-01-31 06:55:16 -07:00
parent 7bb616b158
commit 19355ad69b
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1536,7 +1536,8 @@ Partial Class Inventarios_EntradasSalidas
Dim Valido As Boolean = True
Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("")
If RowPS Is Nothing Then Exit Sub
Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero()
@@ -3948,7 +3949,7 @@ Partial Class Inventarios_EntradasSalidas
ErrorMovInv = True
End If
Else
If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
If ObjInventario.Modulo.Contiene("TA/G1", "Recons", "API-PT/C1") Then
Contabilizable = False
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