BOTONES
- Code: Select all Expand view
- DEFINE BUTTON aBtnBar[1] OF oBar NOBORDER GROUP ;
RESOURCE "NUEVO32" ;
Tooltip "Crear Registro" ;
ACTION ( lNew := .t., oFldx:SetOption(2), oFldx:aDialogs[2]:aEvalwhen() ,;
oFldx:aDialogs[ 2 ]:SetFocus(), cargadata( oQry, aVar, aGet ) )
DEFINE BUTTON aBtnBar[2] OF oBar NOBORDER ;
RESOURCE "MODIFI32" ;
Tooltip "Modificar Registro" ;
ACTION ( lNew := .f., oFldx:SetOption(2), oFldx:aDialogs[2]:aEvalWhen() ,;
oFldx:aDialogs[ 2 ]:SetFocus(), cargadata( oQry, aVar, aGet ) ) ;
WHEN ( oQry:RecCount() > 0 )
FUNCION cargadata()
- Code: Select all Expand view
- STATIC PROCEDURE cargadata( oQry, aVar, aGet )
LOCAL nFor := 0
*? lnew
aVar[1] := IF( lNew, SPACE(10), oQry:gru_codigo )
aVar[2] := IF( lNew, SPACE(50), oQry:gru_nombre )
aVar[3] := IF( lNew, SPACE(10), oQry:gru_observa )
* IF( lNew, aGet[1]:SetFocus(), aGet[2]:SetFocus() )
oFldx:aDialogs[2]:UPDATE()
RETURN