-- condicion para que no marque error

This commit is contained in:
rrene
2020-05-15 10:53:38 -07:00
parent 1820877bc6
commit 09bf8eb2da

View File

@@ -314,8 +314,11 @@ Partial Class CGame_OrdenProduccion
If ObjCGame.GetOrdenProduccionDetalle(CveOrdenProduccion, UsuarioActual.CveEmpresa) Then
DtDetalle = ObjCGame.DtResultados
GvOP.DataSource = DtDetalle
Tipo = DtDetalle.Rows(0)("Tipo").ToString.ToEntero
If Tipo = 2 Then GvLiquidacion.Columns(6).Visible = True : GvLiquidacion.Columns(7).Visible = True : DivPesoPagado.Visible = True : GvLiquidacionModal.Columns(2).Visible = True : RFVPesoPagado.Enabled = True
If DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then
Tipo = DtDetalle.Rows(0)("Tipo").ToString.ToEntero
If Tipo = 2 Then GvLiquidacion.Columns(6).Visible = True : GvLiquidacion.Columns(7).Visible = True : DivPesoPagado.Visible = True : GvLiquidacionModal.Columns(2).Visible = True : RFVPesoPagado.Enabled = True
End If
End If
End Sub