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

agregando las entregas locales

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-05-23 00:32:26 -07:00
parent fd49875cb7
commit 783b7a6a74
9 changed files with 578 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Contratos/Contrato.aspx.vb
View File

@@ -1939,8 +1939,8 @@ Partial Class Contratos_Default
LimitarCantidad = Gv.Rows(e.RowIndex).FCCheckBox("ChkLimitarCantidad").Checked
Observaciones = Gv.Rows(e.RowIndex).FCTextBox("TxtObservacion").Text.ToString
Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalle))(0)
If row("CantidadContratada").ToString.ToEntero <> Cantidad OrElse row("PU").ToString.ToEntero <> PU OrElse CveUM <> row("CveUM").ToString.ToEntero OrElse row("NoIdentificacion").ToString <> NoIdentificacion OrElse row("OCInterna").ToString <> OCInterna Then
Dim LimitarCantidadValidator As Boolean = row("LimitarCantidad").ToString = "True"
If row("CantidadContratada").ToString.ToEntero <> Cantidad OrElse row("PU").ToString.ToEntero <> PU OrElse CveUM <> row("CveUM").ToString.ToEntero OrElse row("NoIdentificacion").ToString <> NoIdentificacion OrElse row("OCInterna").ToString <> OCInterna OrElse LimitarCantidadValidator <> LimitarCantidad Then
Dim ObjContratos As New ClsContratos
If ObjContratos.UpdateContratosDetalle(CveContratoDetalle, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, LimitarCantidad, OCInterna, Observaciones) Then
@@ -2922,9 +2922,9 @@ Partial Class Contratos_Default
End If
If e.Row.DBCampo("SerieLote").ToString = "-1" Then
e.Row.Cells(7).Text = ""
End If
'If e.Row.DBCampo("SerieLote").ToString = "-1" Then
' e.Row.Cells(7).Text = ""
'End If
End If
End Sub