Jump to content
Fivewin Brasil

LISTBOX + FOLDER A SAGA AINDA CONTINUA...

nancouto

By nancouto
in Programação

 Share

Recommended Posts

nancouto Newbie

nancouto

Posted
Posted

redefine listbox oLbx fields PACIENTE->CODIGO,PACIENTE->NOMECOMPL ,;

PACIENTE->FONETRABA,PACIENTE->FONECASA_,;

PACIENTE->FONECELU_ ;

fieldsizes 56,360,112,112,112 ;

headers "Cód nº","Identificação","Trabalho","Casa","Celular" update id 4001 of oFld:aDialogs[1] ;

colors Branco, Branco ;

on change ( oDbf:Load(), oFld:aDialogs[2]:UpDate(), oFld:aDialogs[2]:aControls[1]:Disable() )

/* ____

Atualização do listbox

________________________________________________________________________ */

oLbx:setfont(oFont)

oLbx:cTooltip := "Selecione o paciente desejado"

oLbx:nClrBackHead := Ciano_Escuro // Cor do fundo do cabeçalho

oLbx:nClrForeHead := Branco // Cor do texto do cabeçalho

oLbx:nClrText := Azul_Escuro // Cor do texto da tabela

oLbx:nClrPane := Branco // Cor do fundo da tabela

oLbx:nClrForeFocus:= Branco // Cor do texto da barra ativa

oLbx:nClrBackFocus:= Ciano_Escuro // Cor do fundo barra ativa

oLbx:lCellStyle := .F. // Habilita as colunas independentes

/* ________

Aba - Dados do Cadastro

_________________________ */

redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro

redefine get oDbf:NOMECOMPL ID 4004 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:ENDERECO_ ID 4007 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:NUMERO ID 4008 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:BAIRRO ID 4010 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font OFont

redefine get oDbf:COMPLEMEN ID 4012 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CEP ID 4016 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CIDADE ID 4017 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:UF ID 4018 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:PROFISSAO ID 4025 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:LOCALTRAB ID 4026 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONETRABA ID 4027 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONECASA_ ID 4028 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONECELU_ ID 4029 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:E_MAIL ID 4031 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine say oSay prompt "Estado Civil?" id 4033 of oFld:aDialogs[2] color Azul_Claro font oFont

redefine get oDbf:DATANASC_ ID 4038 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CPF ID 4040 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:RG ID 4043 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:ORGAOESP ID 4044 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine say oSay prompt "Informações do Paciente:" id 4045 of oFld:aDialogs[2] color Azul_Claro font oFont

redefine get oDbf:INDICAC_ ID 4057 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

/* ___________________________________

Aba - Complemento

__________________ */

**** Aqui está o rolo todo ****

redefine say oSay var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont

redefine say oSay var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont

redefine say oSay var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont

Obrigado.

NANCOUTO - FWH 6.02 BCC HB 6.02 PELLEC WINDOWS 7

Link to comment
Share on other sites
nancouto Newbie

nancouto

Posted
  • Author
Posted

redefine listbox oLbx fields PACIENTE->CODIGO,PACIENTE->NOMECOMPL ,;

PACIENTE->FONETRABA,PACIENTE->FONECASA_,;

PACIENTE->FONECELU_ ;

fieldsizes 56,360,112,112,112 ;

headers "Cód nº","Identificação","Trabalho","Casa","Celular" update id 4001 of oFld:aDialogs[1] ;

colors Branco, Branco ;

on change ( oDbf:Load(), oFld:aDialogs[2]:UpDate(), oFld:aDialogs[2]:aControls[1]:Disable() )

/* ____

Atualização do listbox

________________________________________________________________________ */

oLbx:setfont(oFont)

oLbx:cTooltip := "Selecione o paciente desejado"

oLbx:nClrBackHead := Ciano_Escuro // Cor do fundo do cabeçalho

oLbx:nClrForeHead := Branco // Cor do texto do cabeçalho

oLbx:nClrText := Azul_Escuro // Cor do texto da tabela

oLbx:nClrPane := Branco // Cor do fundo da tabela

oLbx:nClrForeFocus:= Branco // Cor do texto da barra ativa

oLbx:nClrBackFocus:= Ciano_Escuro // Cor do fundo barra ativa

oLbx:lCellStyle := .F. // Habilita as colunas independentes

/* ________

Aba - Dados do Cadastro

_________________________ */

redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro

redefine get oDbf:NOMECOMPL ID 4004 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:ENDERECO_ ID 4007 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:NUMERO ID 4008 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:BAIRRO ID 4010 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font OFont

redefine get oDbf:COMPLEMEN ID 4012 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CEP ID 4016 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CIDADE ID 4017 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:UF ID 4018 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:PROFISSAO ID 4025 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:LOCALTRAB ID 4026 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONETRABA ID 4027 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONECASA_ ID 4028 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONECELU_ ID 4029 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:E_MAIL ID 4031 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine say oSay prompt "Estado Civil?" id 4033 of oFld:aDialogs[2] color Azul_Claro font oFont

redefine get oDbf:DATANASC_ ID 4038 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CPF ID 4040 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:RG ID 4043 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:ORGAOESP ID 4044 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine say oSay prompt "Informações do Paciente:" id 4045 of oFld:aDialogs[2] color Azul_Claro font oFont

redefine get oDbf:INDICAC_ ID 4057 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

/* ___________________________________

Aba - Complemento

__________________ */

**** Aqui está o rolo todo ****

redefine say oSay var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont

redefine say oSay var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont

redefine say oSay var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont

Obrigado.

NANCOUTO - FWH 6.02 BCC HB 6.02 PELLEC WINDOWS 7

Link to comment
Share on other sites
ricardomouramarques Newbie

ricardomouramarques

Posted
Posted

fácil, fácil...

Antes de tudo, dê um nome diferente para cada objeto do SAY. Tipo: oSay1, oSay2... etc.

faça assim:



redefine say oSay1 var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont


redefine say oSay2 var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont


redefine say oSay3 var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont


id=code>id=code>
blz...


Agora vamos fazer com que o clique na terceira aba do folder atualize esses SAYs. 


Não ví no seu código qual é o objeto do folder, então vou usar como exemplo "oFolder". Logo após a declaração do folder coloque essa linha:






oFolder:bChange := {|| if(oFolder:nOption = 3, Carga(), NIL) }


id=code>id=code>
Agora crie a função CARGA(), onde os SAYs serão atualizados:






Function Carga()


//------------------------------------------


Function Carga()


  oDbf:Load()


  oSay1:Refresh()


  oSay2:Refresh()


  oSay3:Refresh()


Return NIL


id=code>id=code>
Taí... prontinho.


19336244_th.jpg


Ricado Marques


Araguari-MG



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		nancouto
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


nancouto
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
fácil, fácil...


Antes de tudo, dê um nome diferente para cada objeto do SAY. Tipo: oSay1, oSay2... etc.


faça assim:






redefine say oSay1 var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont


redefine say oSay2 var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont


redefine say oSay3 var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont


id=code>id=code>
blz...


Agora vamos fazer com que o clique na terceira aba do folder atualize esses SAYs. 


Não ví no seu código qual é o objeto do folder, então vou usar como exemplo "oFolder". Logo após a declaração do folder coloque essa linha:






oFolder:bChange := {|| if(oFolder:nOption = 3, Carga(), NIL) }


id=code>id=code>
Agora crie a função CARGA(), onde os SAYs serão atualizados:






Function Carga()


//------------------------------------------


Function Carga()


  oDbf:Load()


  oSay1:Refresh()


  oSay2:Refresh()


  oSay3:Refresh()


Return NIL


id=code>id=code>
Taí... prontinho.


19336244_th.jpg


Ricado Marques


Araguari-MG




id=quote>id=quote>
Ricardo, valeu pela dica, vou fazer as alteraçoes e mando


notícias.


Um abraço


Luiz Fernando



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •