PC Toledo

Código: Selecionar todos

        Local lExc:=.F.
        Local Form_2
        Local Botao_salvar, Botao_Cancelar, Botao_Deletar
        Private T_Codigo   
        Private T_Nome     
        Private T_Endereco  
        Private T_Bairro    
        Private T_Cep       
        Private T_Cidade    
        Private T_Estado    
        Private T_Fone1     
        Private T_Fone2     
        Private T_Email     
        Private cCodigo   := ""
        Private cNome     := ""
        Private cEndereco := ""
        Private cBairro   := ""
        Private cCep      := ""
        Private cCidade   := ""
        Private cEstado   := ""
        Private cFone1    := ""
        Private cFone2    := ""
        Private cEmail    := ""
        
        lNovo := lNovo_Registro

	If ! lNovo 	   
           cCodigo:=oBrowse:msrec[oBrowse:tekzp,1]
	   Agenda->(DBSetOrder(1))
	   If ! Agenda->(DBSeek( cCodigo  ))
	      MsgSTOP("Registro "+cCodigo+" não localizado!!","Agenda")
              Return Nil
	   EndIf
           cNome        := AllTrim( Agenda->Nome)
	   cEndereco	:= AllTrim( Agenda->Endereco)
           cBairro      := AllTrim( Agenda->Bairro)
	   cCep		:= AllTrim( Agenda->Cep)
	   cCidade	:= AllTrim( Agenda->Cidade)
	   cEstado	:= AllTrim( Agenda->Estado)
           cFone1       := AllTrim( Agenda->Fone1)
           cFone2       := AllTrim( Agenda->Fone2)
           cEmail       := AllTrim( Agenda->EMail) 
	EndIf	

        INIT DIALOG Form_2   ;
                    AT 0,0                   ;
                    SIZE 490, 300 ;
                    TITLE "Agenda de Contatos - "+Iif( lNovo , "Novo Registro" , "Alterando Registro"); 
                    CLIPPER NOEXIT;
                    FONT oFonte
	
                     @ 10,10 SAY 'Código' COLOR BLUE SIZE 140, 30

                     @ 10,40 SAY  'Nome' COLOR BLUE SIZE 140, 30

                     @ 10,70 SAY 'Endereço'  COLOR BLUE SIZE 140, 30
 
                     @10,100 SAY "Bairro" COLOR BLUE SIZE 140, 30
   
                     @360,100 SAY "Cep" COLOR BLUE SIZE 140, 30
 
                     @10,130  SAY "Cidade" COLOR BLUE SIZE 140, 30
 
                     @345,130 SAY "Estado"  COLOR BLUE SIZE 140, 30
 
                     @10,160 SAY "Fone 1"  COLOR BLUE SIZE 140, 30
 
                     @346,160 SAY "Fone 2" COLOR BLUE SIZE 140, 30

                     @10,190 SAY "E-Mail"  COLOR BLUE SIZE 140, 30
 
                     @70, 13 GET T_Codigo VAR cCodigo STYLE WS_DISABLED SIZE 40, 24

                     @70, 43 GET T_Nome VAR cNome picture Replicate("X",40)  VALID {||Valid_cNome()} SIZE 400, 24     
  
                     @70, 73 GET T_Endereco VAR cEndereco  picture Replicate("X",40) SIZE 400,24
  
                     @70,103 GET T_Bairro VAR cBairro picture Replicate("X",25)  SIZE 250, 24 
 
                     @390,103 GET T_Cep VAR cCep PICTURE "@R 99999-999" SIZE 80, 24

                     @70,133  GET T_Cidade VAR cCidade picture Replicate("X",25)  SIZE 250, 24 

                     @390,133 GET T_Estado VAR cEstado picture Replicate("X",2)  SIZE 30, 24
 
                     @70, 163 GET  T_Fone1 VAR cFone1 picture Replicate("X",10)  SIZE 110, 24
                      
                     @390,163 GET T_Fone2 VAR cFone2  picture Replicate("X",10) SIZE 80, 24
 
                     @70,193 GET T_Email VAR cEmail picture Replicate("X",40)  SIZE 400, 24


                      @ 70, 232 OWNERBUTTON Botao_Salvar  ;
                               TEXT 'Salvar' OF Form_2     ;
                               ON CLICK {||Salvar_Registro(),Sair_Form_2()}      ;
                               SIZE 120, 27      

                      @ 210,232 OWNERBUTTON  Botao_Deletar ;
                                TEXT 'Deletar' OF Form_2;
                                ON CLICK {||Excluir_Registro()}    ;
                                SIZE 120, 27         

                      @ 346,232 OWNERBUTTON Botao_Cancelar;
                                TEXT 'Cancelar' OF Form_2 ;
                                ON CLICK {||EndDialog()};       
                                SIZE 120, 27         

        ACTIVATE DIALOG Form_2

return nil 

Código: Selecionar todos

Function Salvar_Registro()
	Local ProximoCodigo := ""
	Local cCodigo	    := ""

        If Empty( cNome )
	  MsgINFO( "Nome não foi Informado!!" , "Agenda" )
          T_Nome:SetFocus()
          Return Nil
	EndIf


        If lNovo          
	   Agenda->(DBSetOrder(1))
	   Agenda->(DBGoBottom())
	   ProximoCodigo := StrZero(  Val( Agenda->Codigo ) + 1 , 4 )
	   Agenda->(DBAppend())
	   Agenda->Codigo := ProximoCodigo	  
           Agenda->Nome := cNome 
           Agenda->Endereco := cEndereco
           Agenda->Bairro := cBairro
           Agenda->Cep  := cCep 
           Agenda->Cidade       := cCidade 
           Agenda->Estado       := cEstado 
           Agenda->Fone1        := cFone1 
           Agenda->Fone2        := cFone2 
           Agenda->EMail        := cEmail
           lNovo:=.F.
	Else
           cCodigo := cCodigo
	   Agenda->(DBSetOrder(1))
	   If ! Agenda->(DBSeek( cCodigo  ))
	      MsgSTOP("Registro "+cCodigo+" não localizado!!","Agenda")
	   EndIf
	   If BloqueiaRegistroNaRede( "Agenda" )
              Agenda->Nome      := cNome
              Agenda->Endereco  := cEndereco
              Agenda->Bairro    := cBairro
              Agenda->Cep       := cCep 
              Agenda->Cidade    := cCidade 
              Agenda->Estado    := cEstado 
              Agenda->Fone1     := cFone1 
              Agenda->Fone2     := cFone2 
              Agenda->EMail     := cEmail 
	      Agenda->(DBUnlock())
	   EndIf	
        EndIf 

	MsgInfo( "Registo "+Iif( lNovo , "Incluído" ,"Alterado!!" )  )

        Pesquisa_Agenda(alltrim(cnome,1,1))

	Return Nil