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

Repcomprasaf, compras ver cultivos en subproyectos

Browse Source
This commit is contained in:
rakcsle
2022-06-22 17:09:55 -07:00
parent b5cec47ca0
commit 2b50e557e1
9 changed files with 227 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Inventarios/CartaPorteManual.aspx.vb
View File

@@ -362,7 +362,7 @@ Partial Class Inventarios_CartaPorteManual
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("") ' Estado = -1
If DrPS IsNot Nothing AndAlso ValidaPSSAT(DrPS) Then
If DrPS IsNot Nothing AndAlso ValidaPSSAT(DrPS, TxtPesoKg.Text.ToDecimal) Then
'codigo temporal
Dim tLote As String
@@ -1553,11 +1553,11 @@ Partial Class Inventarios_CartaPorteManual
Function ValidaPSSAT(DrPS As DataRow) As Boolean
Function ValidaPSSAT(DrPS As DataRow, PesoKg As Decimal) As Boolean
Dim Respuesta As Boolean = False
Dim CveSATPS As Integer = DrPS("CveSATPS").ToString.ToEntero
Dim PesoKg As Decimal = DrPS("PesoKg").ToString.ToDecimal
'Dim PesoKg As Decimal = DrPS("PesoKg").ToString.ToDecimal
Dim SATClaveUnidadMedida As String = DrPS("SATClaveUnidadMedida").ToString.Trim
If CveSATPS > 0 And PesoKg > 0 And SATClaveUnidadMedida.Length > 0 Then