PC Toledo

Código: Selecionar todos

		
     DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 90,32 FONT "Arial" SIZE 9 FLAT RIGHTTEXT
     BUTTON Cerrar    CAPTION _HMG_aABMLangButton[1]  PICTURE "MINIGUI_EDIT_CLOSE"  ACTION Form_1.RELEASE
     BUTTON Nuevo   CAPTION _HMG_aABMLangButton[2]  PICTURE "MINIGUI_EDIT_NEW"  ACTION ( modo:='1', IncluiAltera())
     BUTTON Modificar CAPTION _HMG_aABMLangButton[3]  PICTURE "MINIGUI_EDIT_EDIT"   ACTION ( modo:='2', nRec:=S2->COD2, msginfo(nRec))    //IncluiAltera(nRec*10) )        AUTOSIZE
     BUTTON Eliminar  CAPTION _HMG_aABMLangButton[4]  PICTURE "MINIGUI_EDIT_DELETE" ACTION MsgInfo('rotina4')
     BUTTON Buscar    CAPTION _HMG_aABMLangButton[5]  PICTURE "MINIGUI_EDIT_FIND"   ACTION MsgInfo('rotina5')
     BUTTON Imprimir  CAPTION _HMG_aABMLangButton[16] PICTURE "MINIGUI_EDIT_PRINT"  ACTION MsgInfo('rotina6')
     END TOOLBAR

     @ 50,10 BROWSE Browse_1	;
	  WIDTH 870  	;
	  HEIGHT 390 	;	
	  HEADERS { 'Codigo' , 'Nome' , 'Empresa' , 'Funcao', 'CTPS', 'Serie' , 'UF' } ;
	  WIDTHS { 60 , 264 , 200 , 164 , 70 , 60 , 30 } ;
	  WORKAREA S2 ;
	  FIELDS { 'S2->Cod2' , 'S2->Name' , 'If( S1->(DbSeek(left(S2->Cod2,3))) , AllTrim(Left(S1->Empr,30)) , Nil )',     'S2->Carg' , 'S2->CTTR' , 'S2->Seri' , 'S2->UfEm' } ;
                 JUSTIFY { BROWSE_JTFY_CENTER ,,,, BROWSE_JTFY_CENTER, BROWSE_JTFY_CENTER, BROWSE_JTFY_CENTER } ;
                 VALUE 1 ;
                 ON CHANGE Actualizar() ;
                 DELETE

Código: Selecionar todos

*****************************
Function Actualizar
***************************************
    
	Form_1.Browse_1.Value := RecNo()

Return Nil