FiveTech Support Forums

   DEFINE DIALOG oDlgE NAME "DLG_USUARIOE" OF oDlg ICON GetIcon() FONT oFontD ;
      COLOR CLR_BLACK, CLR_MYCELESTE2 TRANSPARENT

   REDEFINE GET nNumUsua ;
      ID 101 OF oDlgE ;
      WHEN FALSE ;
      PICTURE "999"

   REDEFINE GET cNomUsua ;
      ID 102 OF oDlgE ;
      PICTURE "@!"

   REDEFINE GET cIdeUsua ;
      ID 103 OF oDlgE ;
      VALID Usuarios_ValidarIdentidad( lNuevo ) ;
      PICTURE "@!"

   REDEFINE GET cClaUsua ;
      ID 104 OF oDlgE

   REDEFINE COMBOBOX nTipUsua ;
      ID 105 OF oDlgE ;
      ITEMS LOGIN_TYPEUSER

   REDEFINE GET oNomCiud VAR cNomCiud ;
      ID 106 OF oDlgE ;
      WHEN FALSE ;
      UPDATE

   REDEFINE BUTTON ;
      ID 107 OF oDlgE ;
      ACTION Usuarios_SeleccionarCiudad()

   REDEFINE GET cNotUsua ;
      ID 108 OF oDlgE ;
      MEMO

   REDEFINE CHECKBOX lActivo ;
      ID 109 OF oDlgE ;
      WHEN !lNuevo ;
      UPDATE

   REDEFINE CHECKBOX lBloqueado ;
      ID 110 OF oDlgE ;
      WHEN FALSE ;
      UPDATE

   REDEFINE BUTTON oBtnDesbloquear ;
      ID 111 OF oDlgE ;
      WHEN !lNuevo .and. lBloqueado ;
      ACTION Usuarios_Desbloquear()

   REDEFINE BUTTON ;
      ID 201 OF oDlgE ;
      WHEN !Empty( cNomUsua ) .and. !Empty( cIdeUsua ) .and. !Empty( cClaUsua ) .and. nTipUsua > 0 .and. nNumCiud > 0;
      ACTION IIf( Usuarios_Grabar( lNuevo ), oDlgE:END(), NIL )

   REDEFINE BUTTON ;
      ID 202 OF oDlgE ;
      ACTION oDlgE:END() ;
      CANCEL

   ACTIVATE DIALOG oDlgE

   CLASSDATA lDisColors INIT .T. // Use standard disabled colors
   CLASSDATA lClrFocus  INIT .F. // change GET color when focused
   CLASSDATA nClrFocus  INIT nRGB( 235, 235, 145 ) // color to use when GET is focused and lClrFocus is .T.