HMGforum.com

Code: Select all

Function Main() 		
	Local i := 0

	SET DELETED ON
	SET CENTURY ON

	Private lNovo := .F.

	AgendaOpen()	

	DEFINE WINDOW Form_1   ;
	             AT 0,0	              ;
	             WIDTH 470	;                                          // PONER "WIDTH 470"
	             HEIGHT 470	;
	             TITLE "Agenda de Contatos";		
	             MAIN	              ;      
	             ICON "AGENDA"	;
	             NOMAXIMIZE	;
	             NOSIZE		;      	
	             ON RELEASE Finaliza_Sistema() ;
                           BACKCOLOR BLUE
	             
                           @ 010,415 Grid GIndice Of Form_1 WIDTH 40 HEIGHT 360 HEADERS {""} WIDTHS { 20 } ;  //PONER "WIDTH 40"                                  
                                            FONT "Arial" SIZE 07.5 ;
                                            TOOLTIP "Click na Letra Desejada"  ;		                           	                                    
	                              ON DBLCLICK Pesquisa_Agenda() 

Code: Select all

*------------------------------------------------------------------------------*
PROCEDURE AbrirTablas
*------------------------------------------------------------------------------*
LOCAL nArea := SELECT('Tipos')
LOCAL aMidb := {}

	IF nArea == 0
	   IF ! FILE('Tipos.DBF' )
		  aMidb:= {{ "Cod_Tipo"   , "N", 03, 0}, ; 
				   { "Desc"       , "C", 32, 0}}
		  DBCREATE('Tipos.DBF', aMidb )
		  USE Tipos ALIAS Tipos NEW SHARED
		  IF ! FILE( 'Tipos.CDX' )
			 INDEX ON STR(Cod_Tipo, 3) TAG Cod_Tipo
			 INDEX ON Desc TAG Desc
		  ENDIF
		  Tipos->(DBCLOSEAREA())
	   ELSE
		  IF ! FILE( 'Tipos.CDX' )
			 USE Tipos ALIAS Tipos NEW SHARED
			 INDEX ON STR(Cod_Tipo, 3) TAG Cod_Tipo
			 INDEX ON UPPER(DESC) TAG DESC
			 Tipos->(DBCLOSEAREA())
		  ENDIF
	   ENDIF
	ENDIF

	USE Tipos ALIAS Tipos NEW SHARED
    INDEX ON Cod_Tipo TAG Cod_Tipo
	INDEX ON UPPER(Desc) TAG Desc
	Tipos->(DbGoTop())
	
*///////////////////////////////////////////////////////////////////////////////////////////////////////	
	nArea := SELECT('Contactos')
	aMidb := {}

	IF nArea == 0
	   IF ! FILE('Contactos.DBF' )
		  aMidb:= {{ "Apellido"   , "C", 25, 0}, ; 
				   { "Nombres"    , "C", 25, 0}, ;
				   { "Calle"      , "C", 25, 0}, ;
				   { "Numero"     , "N", 10, 0}, ;
				   { "Piso"       , "N", 02, 0}, ;
				   { "Dpto"       , "C", 01, 0}, ;
				   { "Tel_Part"   , "C", 16, 0}, ;
				   { "Tel_Cel"    , "C", 16, 0}, ;
				   { "E_Mail"     , "C", 32, 0}, ;
				   { "Fecha_Nac"  , "D", 8, 0}, ;
				   { "Observ"     , "M", 10, 0}, ;
				   { "Cod_Tipo"   , "N", 03, 0}}
		  DBCREATE('Contactos.DBF', aMidb )
		  USE Contactos ALIAS Contactos NEW SHARED
		  IF ! FILE( 'Contactos.CDX' )
			 INDEX ON UPPER(Apellido) TAG Apellido
			 INDEX ON Cod_Tipo TAG Cod_Tipo
		  ENDIF
		  Contactos->(DBCLOSEAREA())
	   ELSE
		  IF ! FILE( 'Contactos.CDX' )
			 USE Contactos ALIAS Contactos NEW SHARED
			 INDEX ON UPPER(Apellido) TAG Apellido
			 INDEX ON Cod_Tipo TAG Cod_Tipo
			 Contactos->(DBCLOSEAREA())
		  ENDIF
	   ENDIF
	ENDIF

	USE Contactos ALIAS Contactos NEW SHARED
    INDEX ON UPPER(Apellido) TAG Apellido
    Contactos->(ORDSETFOCUS('Apellido'))
	Contactos->(DbGoTop())

RETURN NIL 


*------------------------------------------------------------------------------*
PROCEDURE CerrarTablas
*------------------------------------------------------------------------------*
	DBCLOSEALL()
	FErase("Tipos.cdx")
	FErase("Contactos.cdx")
RETURN