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

11
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -842,10 +842,13 @@ Partial Class Inventarios_TraspasoAlmacen
''validaciones de carta porte en productos
If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then
' Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
'If Not ValidaPSSAT(DrPS) Then
' Exit Sub
'End If
For Each gvr As GridViewRow In GvDatos.Rows
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToEntero).FiltroPrimero("")
If Not ValidaPSSAT(DrPS) Then
Exit Sub
End If
Next
End If