Jump to content
Fivewin Brasil

Campo Get - RESOLVIDO

senun

By senun
in Programação

 Share

Recommended Posts

senun Newbie

senun

Posted
Posted

Boa tarde a todos,

tenho um campo Get definido em um Resource.

O tamanho do campo do DBF é de 65 caracteres

no meu Get, por medida de espaço , cabe apenas 25 caracteres.

Estou fazendo conforme abaixo, porem quando chega no final do que foi definido no Resource, continua aceitando os caracteres digitados, porem não "rola" para a esquerda.

REDEFINE GET oVar:email VAR oDbf:email ID 240 OF oDlg ;

PICTURE "@S65"

Como faço para digitar uma informação maior do que o definido no Resource , de forma que o que foi digitado a esquerda vai se "escondendo" e mostrando o que está sendo digitado ?

Obrigado a todos,

Nelson Nunes de Araujo

Santo André - SP

MSN : nelson.n.araujo@hotmail.com

EMAIL: nelson.n.araujo@gmail.com

nelson.n.araujo@terra.com.br

Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop

Editado por - senun on 15/06/2012 09:43:21

Link to comment
Share on other sites
senun Newbie

senun

Posted
  • Author
Posted

Boa tarde a todos,

tenho um campo Get definido em um Resource.

O tamanho do campo do DBF é de 65 caracteres

no meu Get, por medida de espaço , cabe apenas 25 caracteres.

Estou fazendo conforme abaixo, porem quando chega no final do que foi definido no Resource, continua aceitando os caracteres digitados, porem não "rola" para a esquerda.

REDEFINE GET oVar:email VAR oDbf:email ID 240 OF oDlg ;

PICTURE "@S65"

Como faço para digitar uma informação maior do que o definido no Resource , de forma que o que foi digitado a esquerda vai se "escondendo" e mostrando o que está sendo digitado ?

Obrigado a todos,

Nelson Nunes de Araujo

Santo André - SP

MSN : nelson.n.araujo@hotmail.com

EMAIL: nelson.n.araujo@gmail.com

nelson.n.araujo@terra.com.br

Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop

Editado por - senun on 15/06/2012 09:43:21

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted 



DLG_TIPO_OUTLOOK DIALOG 200, 63, 300, 280


STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME


CAPTION "Enviar Email"


FONT 8, "MS Sans Serif"


{


 EDITTEXT 20, 60, 1, 212, 12, ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER


 EDITTEXT 21, 60, 14, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP


 EDITTEXT 22, 60, 27, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP


 EDITTEXT 23, 60, 40, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP


 EDITTEXT 24, 60, 53, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP


 EDITTEXT 25, 0, 79, 300, 58, ES_MULTILINE | WS_BORDER | WS_VSCROLL | WS_TABSTOP


 EDITTEXT 26, 0, 153, 300, 12, ES_MULTILINE | ES_WANTRETURN | NOT WS_TABSTOP | WS_BORDER | WS_HSCROLL | WS_GROUP


 PUSHBUTTON "&Enviar", 301, 94, 252, 60, 16


 PUSHBUTTON "&Saida", 302, 160, 252, 50, 16


 PUSHBUTTON "Email &Automático", 303, 199, 138, 100, 14


 PUSHBUTTON "A&nexar", 304, 98, 166, 50, 14


 PUSHBUTTON "E&xcluir", 305, 151, 166, 50, 14


 LISTBOX 101, 0, 182, 300, 40, LBS_NOTIFY | WS_BORDER | LBS_USETABSTOPS | LBS_DISABLENOSCROLL | WS_BORDER | WS_VSCROLL | WS_TABSTOP


 RTEXT "De:", 401, 7, 1, 50, 12, SS_RIGHT | NOT WS_GROUP


 RTEXT "Para:", 402, 7, 14, 50, 12, SS_RIGHT | NOT WS_GROUP


 RTEXT "Cc:", 403, 7, 27, 50, 12, SS_RIGHT | NOT WS_GROUP


 RTEXT "Cco:", 404, 7, 40, 50, 12, SS_RIGHT | NOT WS_GROUP


 RTEXT "Assunto:", 405, 7, 53, 50, 12, SS_RIGHT | NOT WS_GROUP


 CTEXT "Mensagem do Email", 406, 100, 67, 100, 12, SS_CENTER | NOT WS_GROUP


 LTEXT "Anexo(s):", 407, 17, 139, 70, 12, NOT WS_GROUP


 LTEXT " Sair", 408, 5, 250, 50, 12, NOT WS_GROUP


 CONTROL "TBitMap", 120, "TBitMap", WS_CHILD | WS_VISIBLE, 273, 14, 20, 12


 CONTROL "TBitMap", 121, "TBitMap", WS_CHILD | WS_VISIBLE, 273, 27, 20, 12


 CONTROL "TBitMap", 122, "TBitMap", WS_CHILD | WS_VISIBLE, 273, 40, 20, 12


 CONTROL "TBitMap", 125, "TBitMap", WS_CHILD | WS_VISIBLE, 230, 224, 70, 40


}


id=code>id=code>


João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832 / 5150-7341 - TIM


https://www.facebook.com/kapiaba


FWH 2.7 - xHARBOUR WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Se voce tiver varios GETS com MEMO, faca assim para "pular" de um para outro.






      REDEFINE GET oGet[6] VAR cCCO       ID 23 OF oDlgEnv MEMO   ;


               FONT oFont1 UPDATE COLORS CLR_BLACK, CLR_WHITE


      oGet[6]:cToolTip := OemToAnsi( "Contato(Email) " + ;


                                     "Para Enviar com C¢pia Oculta " )


      // Para que o GET com MEMO possa "pular" Para o Proximo GET. Afff!!


      oGet[6]:bKeyDown:={|nKey|IF(nKey==VK_RETURN, ( xFocus( oGet[7] ) ), ;


                               IF(nKey==VK_UP, oGet[5]:SetFocus(), ) ) }


id=code>id=code>


João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832 / 5150-7341 - TIM


https://www.facebook.com/kapiaba


FWH 2.7 - xHARBOUR WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		senun
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


senun
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Se for Wordkshop a propriedade Automatic Scroll, marcar Horizontal


EDITTEXT 23, 60, 40, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP




id=quote>id=quote>
Olá, João(s) kkk


obrigado pelas respostas..... testei as duas formas.


quando digito o email, por ex.: WWW.nelson e terminou o campo, fica aparecendo somente WWW.nel


o son que digitei não mostra.


se eu teclar END, ahi sim, aparece .nelson


O que preciso é que enquanto eu estiver digitando o email continue mostrando conforme vou digitando;


Grato a todos


Nelson Nunes de Araujo


Santo André - SP 


MSN : nelson.n.araujo@hotmail.com


EMAIL: nelson.n.araujo@gmail.com


nelson.n.araujo@terra.com.br


Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		senun
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


senun
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Veja:


ID 23 OF oDlgEnv MEMO  <----


João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832 / 5150-7341 - TIM


https://www.facebook.com/kapiaba


FWH 2.7 - xHARBOUR WorkShop.Exe




id=quote>id=quote>
Olá, Kapiaba,


 obrigado pela dica.... deu o seguinte erro:


PRGS\MAN_CED.PRG(466) Error E0030  Syntax error: "parse error at 'GET'"


1 error


No code generated


substitui apos VAR oDbf:Email por oVar:cEmail iniciando com space(65) e está dando o mesmo problema.


Mais alguma dica ?


Obrigado,


Abraços


Nelson Nunes de Araujo


Santo André - SP 


MSN : nelson.n.araujo@hotmail.com


EMAIL: nelson.n.araujo@gmail.com


nelson.n.araujo@terra.com.br


Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		senun
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


senun
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Ou


REDEFINE GET oVar VAR cEmail OF oDlg MEMO...


João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832 / 5150-7341 - TIM


https://www.facebook.com/kapiaba


FWH 2.7 - xHARBOUR WorkShop.Exe




id=quote>id=quote>
Olá, Kapiaba,


obrigado pelas dicas..


resolvi da seguinte forma: retirei a clausula PICTURE e funcionou.


REDEFINE GET oVar:email VAR oDbf:email MEMO ID 240  OF oDlg


//               PICTURE "@XS65"


Obrigado a todos pela atenção,


Abraços


Nelson Nunes de Araujo


Santo André - SP 


MSN : nelson.n.araujo@hotmail.com


EMAIL: nelson.n.araujo@gmail.com


nelson.n.araujo@terra.com.br


Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
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...
    •