Jump to content
Fivewin Brasil

Refresh no Listbox

Geraldo (gbsilva)

By Geraldo (gbsilva)
in Programação

 Share

Recommended Posts

Geraldo (gbsilva) Newbie

Geraldo (gbsilva)

Posted
Posted

Pessoal preciso do seguinte. Faço uma pesquisa que abre um Listbox com os registros selecionados, ao clicar sobre ele abre a tela para alteração. Gostaria que ao fechar a tela de alteração, por exemplo altero o Endereço, então ao fechar aparecesse o endereço atualizado.

AltRds(oCpo,oLbx:UpStable(),oLbx:SetFocus(),oLbx:Refresh())

Isso não esta resolvendo.

Um abraço,

Geraldo B. Silva

FWH 2.6, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, MyMake, Sqllib and MySql.

Windows Xp SP2

lucgera@terra.com.br

São Paulo - SP

Link to comment
Share on other sites
Geraldo (gbsilva) Newbie

Geraldo (gbsilva)

Posted
  • Author
Posted

Pessoal preciso do seguinte. Faço uma pesquisa que abre um Listbox com os registros selecionados, ao clicar sobre ele abre a tela para alteração. Gostaria que ao fechar a tela de alteração, por exemplo altero o Endereço, então ao fechar aparecesse o endereço atualizado.

AltRds(oCpo,oLbx:UpStable(),oLbx:SetFocus(),oLbx:Refresh())

Isso não esta resolvendo.

Um abraço,

Geraldo B. Silva

FWH 2.6, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, MyMake, Sqllib and MySql.

Windows Xp SP2

lucgera@terra.com.br

São Paulo - SP

Link to comment
Share on other sites
Kbelo Newbie

Kbelo

Posted
Posted

Bom o ideal seria voce mostra a rotina e o Refresh coloque dentro a sua função.

Verifique sei la se as variaveis estão como private etc...

e tb nunca usei esse update.

Marcelo Michels

celo.michels@ibestvip.com.br

celo.michels@hotmail.com

marcelo@lorenzi.com.br

-> Lorenzi Soluções Têxteis <-

Criciuma - SC

xHarbour build 0.99.2 + WS

Link to comment
Share on other sites
Geraldo (gbsilva) Newbie

Geraldo (gbsilva)

Posted
  • Author
Posted

Ai está o código.

Vagner obrigado, mas testei e não funcionou.



    DEFINE DIALOG oDlg RESOURCE "RDS02" OF oDlg          ;


           TITLE "Faturamento - Relação Detalhada RD/RQ" ;


           ICON oIco


    REDEFINE GET oRds[1] VAR oCpo:cData ID 21 OF oDlg PICTURE "@K99/99/9999"  ;


             WHEN GetIni(oRds[1]) FONT oFont


    ..... outros comandos


    REDEFINE BTNBMP oBusca ID 301 RESOURCE "16_LUPA1" PROMPT "Faturas" LEFT BUTTON OF oDlg ;


             ACTION GbBusca(oCpo) UPDATE


    REDEFINE BTNBMP oFecha ID 702 RESOURCE "22_KSCREEN" PROMPT "Fechar" LEFT BUTTON OF oDlg ;


             ACTION ( oDlg:End() ) CANCEL


    oFecha:lCancel := .T.


    ACTIVATE DIALOG oDlg CENTERED


    gRefresh(oDlg)


    Fecha()


return NIL


//-> Tela para digitação da Obra a ser pesquisada (Ordem de Serviço)


Function GbBusca(oCpo)


  LOCAL oDlg, oIco, oFont, oFant, IdCor


  LOCAL oGrava,oFecha,oBusca[1],aBusca[1]


  DEFINE FONT oFant  NAME "Ms Sans Serif" SIZE 0,-10   BOLD


  DEFINE FONT oFont NAME "Time New Roman" SIZE 0,15 BOLD


  DEFINE CURSOR oHand RESOURCE "Dedo"


  DEFINE ICON OICO RESOURCE "FACE"


  DEFINE DIALOG oDlg RESOURCE "GBUSCA01" OF oDlg  ;


         Title "RD/RQ Cadastradas" COLOR CLR_HRED,CLR_AZULXP


  oDlg:lHelpIcon := .F.


  REDEFINE SENSITIVE SAY ID 501 IdCor COLOR CLR_HBLUE LIGHT OF oDlg UPDATE FONT oFant


  REDEFINE GET oBusca[1] VAR oCpo:cOrdem ID 351 OF oDlg PICTURE "@K999999999"     ;


           WHEN GetIni(oBusca[1]) FONT oFont UPDATE


  REDEFINE BTNBMP oGrava ID 701 RESOURCE "144_POSTE" PROMPT "Busca" LEFT BUTTON OF oDlg ;


           ACTION SeleRds(oCpo,oBusca[1],9)


  REDEFINE BTNBMP oFecha ID 702 RESOURCE "22_KSCREEN" PROMPT "Fecha" LEFT BUTTON OF oDlg ;


           ACTION ( oDlg:End() ) CANCEL


  ACTIVATE DIALOG oDlg CENTERED


return nil


Function SeleRds(oCpo,oFoco,nFoco)


  Local oLbx,oFont,oHand,oIco,oDlg,oSai,oCarrega,oApaga,oFecha


  Local cmdSql


  use sql("select oBdRds.os,oBdRds.mdl,oBdRds.mdc,oBdRds.mdg,oBdRds.mdp,oBdRds.mdb,oBdRds.mdd ,;


             oBdRds.mda,oBdRds.mdh, oBdRds.mdn,oBdRds.mesano,oBdRds.DATA,oBdRds.rd ,;


             oBdRds.acesso,oBdRds.final,oBdRds.pontos,oBdRds.valor ,;


             oBdOts.ata ;


             FROM BdRds oBdRds LEFT JOIN BdOts oBdOts ON oBdRds.os=oBdOts.os ;


             WHERE oBdRds.os='"+oCpo:cOrdem+"' " ) ALIAS oFaturas new


  oFaturas->(DbGotop() )


  if empty(oFaturas->os)


     oFaturas->(DbCloseArea() )


     GbMsg("Não existe faturamento nesta Obra!",,2)


     GbFoco(oFoco,nFoco)


     return(.f.)


  endif


  DEFINE FONT oFont NAME "Time New Roman" SIZE 0, 14 BOLD


  DEFINE CURSOR oHand RESOURCE "Dedo"


  DEFINE ICON OICO RESOURCE "MONEY"


  DEFINE DIALOG oDlg RESOURCE "TELA04" OF oDlg ;


         TITLE "Relação de Faturamento(s) - Ordem de Serviço: "+oCpo:cOs ;


         ICON oIco COLOR CLR_BLACK,CLR_VERDE


  oDlg:lHelpIcon := .F.


  REDEFINE LISTBOX oLbx ;


           Fields oFaturas->os      ,;


                  oFaturas->ata     ,;


                  oFaturas->rd      ,;


                  oFaturas->mesano  ,;


                  TRANSFORM( oFaturas->mdl,"@E 99,999.999") ,;


                  TRANSFORM( oFaturas->mdc,"@E 99,999.999") ,;


                  TRANSFORM( oFaturas->mdg,"@E 99,999.999") ,;


                  TRANSFORM( oFaturas->mdp,"@E 99,999.999")  ;


           Headers "Ordem Serviço","Ata  ","RD/RQ ","Mês/Ano","Classe(L) " ,;


                   "Classe© ","Dutos(G) ","Projetos(P)" ;


           ID 600 ;


           ON DBLCLICK  AltRds(oCpo,oLbx:UpStable(),oLbx:SetFocus(),oLbx:Refresh()) ;


           OF oDlg ;


           FONT oFont;


           CURSOR oHand;


           UPDATE


  CoresBox(oLbx,,CLR_HRED,CLR_LGREEN,CLR_LGREEN,CLR_LGRAY,CLR_AMARELO,CLR_HRED)


  oLbx:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,AltRds(oCpo), ) }


  REDEFINE BTNBMP oCarrega ID 601 RESOURCE "22_BALDE1" PROMPT "Carrega" LEFT BUTTON OF oDlg ;


           ACTION AltRds(oCpo,oLbx:UpStable(),oLbx:SetFocus(),oLbx:Refresh())


  REDEFINE BTNBMP oApaga ID 602 RESOURCE "22_DEL1" PROMPT "Excluir" LEFT BUTTON OF oDlg ;


           ACTION IIF(DelRds(),oDlg:End(),.t.) UPDATE


  REDEFINE BTNBMP oFecha ID 603 OF oDlg RESOURCE "FECHAR" PROMPT "Fechar" LEFT BUTTON ;


           ACTION(oDlg:End() )  CANCEL


  oFecha:lCancel := .T.


  ACTIVATE DIALOG oDlg CENTERED


  oFaturas->(DbCloseArea() )


  GbFoco(oFoco,nFoco)


return(.T.)


Static Procedure AltRds(oCpo)


    Local oDlg,oIco,oFont,nFonte,tFonte


    Local oGrava,oFecha,oBusca,oManOts,oBaixa,ICores,IdGroup


    Local oRds[20],oSay[20]


    DadosRds(oCpo,oRds,oSay)


    DEFINE FONT tFont  NAME "Ms Sans Serif" SIZE 0,-8  // BOLD       //0,-8


    DEFINE FONT nFont  NAME "Arial Black"   SIZE 12,28    BOLD


    DEFINE FONT oFont NAME "Time new Roman"  SIZE 0, 15 BOLD


    DEFINE ICON OICO RESOURCE "MONEY"


    DEFINE DIALOG oDlg RESOURCE "RDS02" OF oDlg          ;


           TITLE "Faturamento - Relação Detalhada RD/RQ" ;


           ICON oIco COLOR CLR_HRED,CLR_CREME


    ... Comandos para Alteração do Registro


    REDEFINE BTNBMP oGrava ID 701 RESOURCE "22_FLOPPY" PROMPT "Gravar" LEFT BUTTON OF oDlg ;


             ACTION ( IIF(GravaRds(2,oCpo,oRds,oSay),oDlg:End(),.t.) )


    REDEFINE BTNBMP oFecha ID 702 RESOURCE "22_KSCREEN" PROMPT "Fechar" LEFT BUTTON OF oDlg ;


             ACTION ( oDlg:End() ) CANCEL


    oFecha:lCancel := .T.


    ACTIVATE DIALOG oDlg


    gRefresh(oDlg)


return NIL


 
id=code>id=code>
Geraldo B. Silva


FWH 2.6, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, MyMake, Sqllib and MySql.


Windows Xp SP2


lucgera@terra.com.br


São Paulo - SP



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





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