Fizemos um relatorio aqui de notas fiscais emitidas. Fizemos uma tela que vai gerar a consulta, nesta tela tenho 2 bancos temporarios. Um deles mostra as notas fiscais e o outro banco mostra detalhes das notas referentes aos produtos contidos na nota.

de acordo com a imagem Tela_Consulta
http://www.4shared.com/file/215201755/99a7778e/Tela_Consulta.html
" target="_blank">
http://www.4shared.com/file/215201755/99a7778e/Tela_Consulta.html

Ao imprimir eu consigo mandar os dados da nota fiscal, o problema 'e tentar mandar os detalhes das notas. Nao entendi a logica disso para fazer no fastreport! Se eu mandar o segundo temporario ele vai listar tudo.. e meu objetivo seria listar NOTA... PRODUTOS... NOTA... PRODUTOS... NOTAS... PRODUTOS

Espero q tenham entendido amigos

obrigado

Um Xharbraço.
Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar
Impactus Automação Comercial
jef2_timber@hotmail.com
(91)-3238-7012
Belem-PA

A solução passa por grupos. Não fiz relatório parecido com esse mas acho que é por meio de grupos.

[]s,

http://www.fivewin.com.br/exibedicas.asp?id=973

Abraços

Luiz Fernando

Baixei mas da um monte de erros. Fui compilar mas falta o INT.RC alguem tem

citação:

---

Ola amigos

Baixei mas da um monte de erros. Fui compilar mas falta o INT.RC alguem tem

Um Xharbraço.
Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar
Impactus Automação Comercial
jef2_timber@hotmail.com
(91)-3238-7012
Belem-PA

---

Editado por - empresoft on 05/02/2010 15:02:03

 
private FrPrn, F_NmeRel := "Relação de Notas Fiscais - Entrada / Saída"
Private mNmeEmp := Alltrim(oVar:F_Nmeusy)
 //-- Inicializar o objeto do Fast Report
    FrPrn := frReportManager():new( cFilePath( GETMODULEFILENAME( GETINSTANCE() ) ) +"FRSystH.dll" )
    With object FrPrn 
    FrPrn:SetWorkArea("Temp1", Select() )
	 FrPrn:SetWorkArea("Temp2", Select() ) 
    FrPrn:LoadFromFile('C:\Impac\Frep\Rel_Nfe.fr3')
	 FrPrn:PreviewOptions:SetAllowEdit( .T. )             // inibe o botão de edição do relatório pelo usuário
    FrPrn:SetResyncPair( "Temp1", "Temp2",{||CodPed->Numero} )
	 if msgyesno("editar")
	    FrPrn:DesignReport()                        // aqui para "desenhar" o relatório
	 Endif
	    
    FrPrn:ShowReport()                       // aqui para gerar o preview do relatório. 
    FrPrn:DestroyFR()
    end   

Quando eu tento colocar setworkarea temp1 e 2 ele trava o sistema...

FrPrn:SetWorkArea("TEMP1",Select("TEMP1"))
FrPrn:SetWorkArea("TEMP2",Select("TEMP2"))
FrPrn:SetResyncPair("TEMP1","TEMP2")
FrPrn:SetMasterDetail("TEMP1", "TEMP2", {||TEMP1->NUMERO})

Neste caso o detalhe do master vai ser os itens da nota que tenha o número igual ao pedido no TEMP1.

Fiz exatamente assim como vc disse... mesmo assim simplesmenta trava o meu aplicativo. Eu so consigo abrir os bancos se eu mandar com o mesmo alias.. ae ele abre 2.. se eu mandar

FrPrn:SetWorkArea("TEMP1",Select("TEMP1"))
FrPrn:SetWorkArea("TEMP2",Select("TEMP2"))
FrPrn:SetResyncPair("TEMP1","TEMP2")
FrPrn:SetMasterDetail("TEMP1", "TEMP2", {||TEMP1->NUMERO})

da pau

se eu mandar

FrPrn:SetWorkArea("TEMP1",1)
FrPrn:SetWorkArea("TEMP2",2)
FrPrn:SetResyncPair("TEMP1","TEMP2")
FrPrn:SetMasterDetail("TEMP1", "TEMP2", {||TEMP1->NUMERO})

da pau

se eu mandar

FrPrn:SetWorkArea("TEMP1",Select())
FrPrn:SetWorkArea("TEMP2",Select())
FrPrn:SetResyncPair("TEMP1","TEMP2")
FrPrn:SetMasterDetail("TEMP1", "TEMP2", {||TEMP1->NUMERO})

da pau

rapaz... ehehhee comprexo