Code: Select all
oBrw : aCols[ 8 ] : bEditValue := { || oRs : sec1 }
Saludos
Code: Select all
oBrw : aCols[ 8 ] : bEditValue := { || oRs : sec1 }
Code: Select all
oBrow2:aCols[03]:bEditValid := { | oLeo, oCol | ValidaCntidad( oLeo, oCol, oBrow2 ) }
FUNCTION ValidaCntidad( oLeo, oCol, oBrow2 )
IF oLeo:Value() < 0
RETURN .T.
ENDIF
SELECT INVENTADET
IF ARLock()
REPLACE INVENTADET->CONTADO WITH oLeo:Value()
ENDIF
DbUnLock()
oBrow2:Refresh()
RETURN .T.