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

mejoras en contratos

Browse Source
This commit is contained in:
rrene
2021-08-03 20:22:52 -07:00
parent 274015cd18
commit 90a3c0f25b
3 changed files with 8 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Contratos/ContratoObra.aspx.vb
View File

@@ -4476,7 +4476,7 @@ Partial Class Contratos_ContratoObra
End Function
Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable)
Private Sub ProcesaDatosCargaPresupuesto(TipoPresupuesto As EnumTipoCargaPresupuesto, DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable)
If Not DTPresupuesto Is Nothing Then
@@ -4548,8 +4548,10 @@ Partial Class Contratos_ContratoObra
End If
End If
'si el presupuesto es de ventas. solo valida con el codigo del producto
'si es presupuesto es de control, valida por ambos
If CvePS = -1 Then
If CvePS = -1 AndAlso TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then
StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
If StrArray.Length > 0 Then
@@ -4584,7 +4586,8 @@ Partial Class Contratos_ContratoObra
End If
ObjPS.Dispose()
Else
RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
End If
End If