by jbrita » Wed Apr 28, 2021 4:12 pm
hay 2 Ejemplos:
oBrw1:bLDblClick := { |nRow,nCol,nKeyFlags|(VerDisponibilidad(oBrw1),oBrw1:Refresh(),oDlg:End())}
REDEFINE XBROWSE oLbx FIELDS cExi_Suca:ma_CodBar,cExi_SucA:ma_des1,Stock_PtoA(),PrecioA_1();
HEADERS "Cod.Barra","Descripcion","Stock","Pr.venta";
JUSTIFY .f.,.F.,.T.,.T.;
FIELDSIZES 140,440,55,90;
ID 102 OF oDlg ON DBLCLICK (IIF(Stockk()>0,(lAceptar := .T.,oDlg:End()),Alert("Sr.Usuario no hay Stock")))
saludos