HMGforum.com

Code: Select all

FUNCTION Modifica_DB( )
	LOCAL nCpos := LEN( aCpos1 ), aReadOnly := ARRAY( nCpos ), afColor := ARRAY( nCpos ), aColCtrls := { }
	AFILL( aReadOnly, .F. )
	AFILL( afColor, fColor )
	*  aCpos, aTips, aLong, aDec
	FOR i1 = 1 TO nCpos
		IF aTips[ i1 ] = "N"
			AADD( aColCtrls, { 'TEXTBOX', 'NUMERIC', '$ 9,999,999.99' } )
		ELSEIF aTips[ i1 ] = "D"
			AADD( aColCtrls, { 'DATEPICKER', 'DROPDOWN' } )
		ELSEIF aTips[ i1 ] = "L"			
			AADD( aColCtrls, { 'CHECKBOX' , 'Yes' , 'No' } )			
		ELSEIF aTips[ i1 ] = "C"			
			AADD( aColCtrls, { 'TEXTBOX', 'CHARACTER' } )
[color=#FF0000]		ELSEIF aTips[ i1 ] = "M"			
			AADD( aColCtrls, { 'EDITBOX' })[/color]
		ENDIF
	NEXT
	DEFINE WINDOW Form_GridCtes AT 0 , 0 WIDTH 1024 HEIGHT 600 TITLE '| ABC CLIENTES |' ON RELEASE Form_Main.Restore BACKCOLOR { 0, 33, 38 }

		@ 300 , 005 GRID   Grid_2 OF Form_GridCtes WIDTH 1000 HEIGHT 250 FONT "VERDANA" SIZE 10 FONTCOLOR BLUE ;
					ROWSOURCE "Ctes" VALUE 1 WIDTHS aLong HEADERS aCpos1 COLUMNFIELDS aCpos2 COLUMNCONTROLS aColCtrls	; 
                                        ON HEADCLICK { { || nil }, { || nil }, { || nil } }	;
					EDIT ALLOWAPPEND ALLOWDELETE EDITOPTION GRID_EDIT_INSERTCHAR ;
					DYNAMICBACKCOLOR afColor ;
	                                [color=#FF0000]COLUMNWHEN { {|| .F. }, {|| .T. }, {|| .T. }, {|| .T. }, {|| .T. }, {|| .T. }, {|| .T. } }  ;[/color]
					TOOLTIP '<Doble Click>=Editar  <ALT-A>=Añadir   <SUP>=Borrar' LOCKCOLUMNS 2								
					Form_GridCtes.Grid_2.ToolTip := '<Doble Click>=Editar  <ALT-A>=Añadir   <SUP>=Borrar'  				
					
	END WINDOW
	CENTER WINDOW Form_GridCtes
	ACTIVATE WINDOW Form_GridCtes
RETURN nil
[/code


-i use it replace command to save the modification
-is see it so the tooltip doesn't work perfectly in modal window, because the tooltip is behind the window

Code: Select all

FUNCTION GridOnSave( )
LOCAL k 
   FOR k = 1 TO HMG_LEN (This.EditBuffer)   // Numbers of edit cell
      MsgDebug( This.EditBuffer [ k ] )     // { nLogicalRow , nLogicalCol , xValue , nRecNo } 
      DbGoTo( This.EditBuffer [ k ][ 4 ] )
      If RegEnRed( "Ctes" )
         FIELDPUT( This.EditBuffer [ k ][ 2 ], This.EditBuffer [ k ][ 3 ] )
      ELSE
         MsgInfo("No se pudo grabar el Registro...","Verifique" )
      ENDIF
      UNLOCK
   NEXT
RETURN NIL