Jump to content
Fivewin Brasil

AJUDA COM FASTREPORT

marcio1361303176

By marcio1361303176
in Programação

 Share

Recommended Posts

marcio1361303176 Newbie

marcio1361303176

Posted
Posted

Amigos

Estou migrando meu sistema para o five 8.09,

e migrando ainda os relatorios que forma feitos em

RPV para o FASTREPORT, porem as duvidas eram inevitaveis.

Imaginem assim as TABELAS

T_COMPRA = tabela que grava os dados do cabeçalho da NF de compra

ITENS_COMPRAS = Itens da NF de compra. Resumindo, é o que foi comprado

SEPARA_ICMS = Separação dos IMCS/IPI da NF de compra.

CONTAS_PAGAR = tabela de como foi parcelado a compra.(porem esse não apareceu na imagem)

A pergunta então é a seguinte;

Preciso emitir esse relatorio que deve ser de aproximadamente 30 paginas e

a cada Registro do T_COMPRA lido tenho que mostrar (ITENS_COMPRAS / SEPARA_ICMS / CONTAS_PAGAR)

até que o T_COMPRA seja EOF

Seria um Relatorio usando 04 tabelas..

Será que poderiam mandar exemplos em FR3 ou algo pra me ajudar....

ABAIXO IMAGEM DE UM RELATORIO COM RPV QUE ESTOU QUERENDO FAZER EM FAST.

relatoriorpv.jpg

ANTECIPADAMENTE

OBRIGADO A TODOS

informaisvrb@gmail.com

FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual)

Msn.: mastermarvrb@msn.com

Link to comment
Share on other sites
marcio1361303176 Newbie

marcio1361303176

Posted
  • Author
Posted

Amigos

Estou migrando meu sistema para o five 8.09,

e migrando ainda os relatorios que forma feitos em

RPV para o FASTREPORT, porem as duvidas eram inevitaveis.

Imaginem assim as TABELAS

T_COMPRA = tabela que grava os dados do cabeçalho da NF de compra

ITENS_COMPRAS = Itens da NF de compra. Resumindo, é o que foi comprado

SEPARA_ICMS = Separação dos IMCS/IPI da NF de compra.

CONTAS_PAGAR = tabela de como foi parcelado a compra.(porem esse não apareceu na imagem)

A pergunta então é a seguinte;

Preciso emitir esse relatorio que deve ser de aproximadamente 30 paginas e

a cada Registro do T_COMPRA lido tenho que mostrar (ITENS_COMPRAS / SEPARA_ICMS / CONTAS_PAGAR)

até que o T_COMPRA seja EOF

Seria um Relatorio usando 04 tabelas..

Será que poderiam mandar exemplos em FR3 ou algo pra me ajudar....

ABAIXO IMAGEM DE UM RELATORIO COM RPV QUE ESTOU QUERENDO FAZER EM FAST.

relatoriorpv.jpg

ANTECIPADAMENTE

OBRIGADO A TODOS

informaisvrb@gmail.com

FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual)

Msn.: mastermarvrb@msn.com

Link to comment
Share on other sites
fernandoluizol Newbie

fernandoluizol

Posted
Posted

Boa tarde Marcio, eu crio estes relatorios usando indices que sejam chaves na mesma tabela, exemplo:



// Esta é a tabela mestre Itens: TabTmpIte


// Esta é a tabela detalhe Numeros Series: TabNse


TabTmpIte->(DbSetOrder(1))


TabNse->(DbSetOrder(2))


oFrPrn:SetMasterDetail("TabTmpIte","TabNse",||TabTmpIte->Codigo5})      


id=code>id=code>
Ambas tabelas tem a mesma chave o codigo do produto


entao na hora de montar o relatorio coloco a masterdata, e abaixo o detaildata, caso for colocar mais detalhes adicione um detaildata a ultima detaildata.


Abaixo este exemplo só com uma detaildata


fast.bmp


FWH 8.12,XHARBOUR 1.1,PELES,XDEV,VLIB, TexPad 4, SQLLIB, FASTREPORT


Msn:


fernando@success.inf.br


fernandoluizol@hotmail.com



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
						
    
							
							
								
  • 
									3 weeks later...
								
    • 
							
						

					
					
					
				

					

					
					






	

	

	

		

			

				


	
		marcio1361303176
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


marcio1361303176
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá amigos, bom dia 


Fiz alguns testes e percebi que USANDO INDICES, funciona, já usando sql nativo não roda.


os indices estão assim criados






USE CLIENTES ALIAS CLIENTES


INDEX ON CLICOD  TO CLIENTES_01 


INDEX ON CLINOM	 TO CLIENTES_02 


INDEX ON APELIDO TO CLIENTES_03 


INDEX ON CLINAS	 TO CLIENTES_04 


INDEX ON CLICPF  TO CLIENTES_05 


INDEX ON STR(CLICOD,06,0) TO CLIENTES_06 


INDEX ON CLIEND  TO CLIENTES_07 


INDEX ON CLIBAI  TO CLIENTES_08


INDEX ON CLICEP  TO CLIENTES_09


INDEX ON CLIFON  TO CLIENTES_10


INDEX ON CELULAR TO CLIENTES_11


INDEX ON COD_2   TO CLIENTES_12


INDEX ON CLICID  TO CLIENTES_13


USE CLIENTES ALIAS CLIENTES INDEX  CLIENTES_01, CLIENTES_02, CLIENTES_03, CLIENTES_04,; CLIENTES_05, CLIENTES_06, CLIENTES_07, CLIENTES_08,;


CLIENTES_09, CLIENTES_10, CLIENTES_11, CLIENTES_12,; CLIENTES_13


*-------------------------------------------


USE TVENDA ALIAS TVENDA


INDEX ON CODVENDA  TO TVENDA_01 


INDEX ON DATVENDA  TO TVENDA_02 


INDEX ON VALVENDA  TO TVENDA_03 


INDEX ON CLIVENDA  TO TVENDA_04 


INDEX ON FORMAPAG  TO TVENDA_05 


INDEX ON NF_SAIDA  TO TVENDA_06 


INDEX ON CODCLIVE  TO TVENDA_07 


USE TVENDA  ALIAS TVENDA  INDEX TVENDA_01, TVENDA_02, TVENDA_03, TVENDA_04,;


TVENDA_05, TVENDA_06, TVENDA_07


*------------------------------------------------------


Se eu Fizer assim FUNCIONAid=red>


oFrPrn := frReportManager():new()


oFrPrn:SetIcon(1)                                     	//ícone da janela do FRH


oFrPrn:SetTitle( 'Relatorio ' + TITULO )        						//título da janela do FRH


oFrPrn:LoadLangRes( (CurDrive() +":\"+ CurDir() + '\RELS\' + 'brazil.xml' ))     //arquivo de idioma


oFrPrn:SetWorkArea("clientes", select("clientes"))


oFrPrn:SetWorkArea("tvenda", select("tvenda"))


clientes->(DbSetOrder(1))


tvenda->(DbSetOrder(7))


oFrPrn:SetMasterDetail("clientes","tvenda",{||clientes->clicod})      


*=========================================================


Se uso comando nativos NAO FUNCIONAid=red>


*---------------------------------------------------------


IF SELECT("clientes") != 0


   clientes->(DbCloseArea())


ENDIF		


cQuery:='select * from clientes  WHERE CLICOD != 1'


cQuery := cQuery + ' ORDER BY clicod' 


use sql cQuery alias "clientes" new via 'MYSQL'


clientes->( DbGoTop())


*--------------------------------------------------------


IF SELECT("tvenda") != 0


   tvenda->(DbCloseArea())


ENDIF		


cQuery:='select * from tvenda  where CODCLIVE != 1'


cQuery := cQuery + ' ORDER BY CODCLIVE ' 


use sql cQuery alias "tvenda" new via 'MYSQL'


tvenda->( DbGoTop())


oFrPrn := frReportManager():new()


oFrPrn:SetIcon(1)                                     	//ícone da janela do FRH


oFrPrn:SetTitle( 'Relatorio ' + TITULO )        						//título da janela do FRH


oFrPrn:LoadLangRes( (CurDrive() +":\"+ CurDir() + '\RELS\' + 'brazil.xml' ))     //arquivo de idioma


oFrPrn:SetWorkArea("clientes", select("clientes"))


oFrPrn:SetWorkArea("tvenda", select("tvenda"))


clientes->(DbSetOrder(1))


tvenda->(DbSetOrder(1))id=red>


oFrPrn:SetMasterDetail("clientes","tvenda",{||clientes->clicod}) 


id=code>id=code>
POREM GOSTARIA DE SALIENTAR, QUE ESTE SISTEMA TEM O INDICES NO BANCO, POIS FOI O PRIMEIRO QUE FIZ USANDO SQL, E USEI COMADOS RDD, POREM AGORA ESTOU MUDANDO PARA COMANDOS NATIVOS SQL, NAO SEI SE ISSO CAUSARIA O PROBLEMA. id=red>


Editado por - marcio on 22/07/2010  09:09:24



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
						
    
							
							
								
  • 
									2 weeks later...
								
    • 
							
						

					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

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