Apagando arquivo do FastReport

Daiane · Mensagem por **Daiane** » 13 Out 2015 16:14

Galera é a primeira vez q to usando o fastreport e toda vez que vou abrir o relatório algo exclui o arquivo.fr3
dei olhada se no meu codigo tem alguma comando para apagar o arquivo e não achei
alguem pode me ajudar?
vou colocar o codigo fonte

Código: Selecionar todos

METHOD Build() class RelCtps
  NomeEmp := 13->NOME 
  CnpjEmp := 13->CGC 
  	oFrPrn := frReportManager():new()     		 // instancia o objeto FasReport
	oFrPrn:LoadLangRes( 'brazil.xml')         //arquivo de idioma
	oFrPrn:SetWorkArea("RELCTPS",           select("RELCTPS")) 
	3->(DBGOTOP())
	3->(ORDSETFOCUS(1))
	3->(DBSEEK(1->CCUSTO+1->CCUSTO1))
	IF 3->(FOUND())
	   CCFunc    := 1-CODIGO + "." + 1->CODIGO1 + " - " + 3->DESCRICAO
	ELSE
	   CCFunc    := ""   
	ENDIF
	oFrPrn:SetTitle(NomeEmp) // USAR VARIAVEIS
	oFrPrn:SetTitle(CnpjEmp)
	NomeFunc  := 1->NOME
	CodFunc   := 1->CODIGO
	AdmissaoF := 1->ADMISSAO
	DemissaoF := 1->DEMISSAO
	CtpsFunc  := STRTRAN(1->CRPROF,"/")
	PisFunc   := ALLTRIM(1->PISPASEP)
	CpfFunc   := 1->CPF
	
	oFrPrn:SetTitle(NomeFunc)
	oFrPrn:SetTitle(CodFunc)
	oFrPrn:SetTitle(AdmissaoF)
	oFrPrn:SetTitle(DemissaoF)
	oFrPrn:SetTitle(CCFunc)  //CODIGO+CODIGO1
	oFrPrn:SetTitle(CtpsFunc)
	oFrPrn:SetTitle(PisFunc)
	oFrPrn:SetTitle(CpfFunc)
	
	
	oFrPrn:PreviewOptions:SetAllowEdit( .f. )      		// inibe o botão de edição do relatório pelo usuário
	oFrPrn:LoadFromFile("C:\MFOLHA\RELATORIOS\RELCTPS.FR3")   // para leitura direta de arquivo FR3
	oFrPrn:DesignReport()							// abre em modo desinr
//	oFrPrn:ShowReport()								// Abre ol relatorio em preview 
	oFrPrn:DestroyFR()

RETURN

Mensagem por **Kapiaba** » 14 Out 2015 11:15

Código: Selecionar todos

METHOD Build() class RelCtps
 NomeEmp := 13->NOME 
 CnpjEmp := 13->CGC 
  oFrPrn := frReportManager():new()     // instancia o objeto FasReport
 oFrPrn:LoadLangRes( 'brazil.xml')    //arquivo de idioma
 oFrPrn:SetWorkArea("RELCTPS",     select("RELCTPS")) 
 3->(DBGOTOP())
 3->(ORDSETFOCUS(1))
 3->(DBSEEK(1->CCUSTO+1->CCUSTO1))
 IF 3->(FOUND())
  CCFunc  := 1-CODIGO + "." + 1->CODIGO1 + " - " + 3->DESCRICAO
 ELSE
  CCFunc  := "" 
 ENDIF
 oFrPrn:SetTitle(NomeEmp) // USAR VARIAVEIS
 oFrPrn:SetTitle(CnpjEmp)
 NomeFunc := 1->NOME
 CodFunc := 1->CODIGO
 AdmissaoF := 1->ADMISSAO
 DemissaoF := 1->DEMISSAO
 CtpsFunc := STRTRAN(1->CRPROF,"/")
 PisFunc := ALLTRIM(1->PISPASEP)
 CpfFunc := 1->CPF
 
 oFrPrn:SetTitle(NomeFunc)
 oFrPrn:SetTitle(CodFunc)
 oFrPrn:SetTitle(AdmissaoF)
 oFrPrn:SetTitle(DemissaoF)
 oFrPrn:SetTitle(CCFunc) //CODIGO+CODIGO1
 oFrPrn:SetTitle(CtpsFunc)
 oFrPrn:SetTitle(PisFunc)
 oFrPrn:SetTitle(CpfFunc)

 oFrPrn:LoadFromFile("C:\MFOLHA\RELATORIOS\RELCTPS.FR3") // para leitura direta de arquivo FR3
 
 oFrPrn:PrepareReport()

 oFrPrn:PreviewOptions:SetAllowEdit( .f. )     // inibe o botão de edição do relatório pelo usuário

 //oFrPrn:DesignReport()       // abre em modo desinr - Editor
 oFrPrn:ShowReport()        // Abre ol relatorio em preview

 oFrPrn:ClearDataSets()
 oFrPrn:DestroyFR()

RETURN

Daiane · Mensagem por **Daiane** » 14 Out 2015 14:00

Obrigada Kapiaba,deu certo.
aproveitando a oportunidade,vc sabe me dizer como faz p pular uma linha no fastreport caso minha condição seja atendida?

Mensagem por **Kapiaba** » 14 Out 2015 14:33

Explique melhor. Você pega o texto de onde? Ou é um .XML?

Daiane · Mensagem por **Daiane** » 14 Out 2015 14:35

o texto é escrito no proprio fastreport

Daiane · Mensagem por **Daiane** » 14 Out 2015 14:36

e a questão de excluir o relatorio voltou de novo e n fiz nada kkkk

Mensagem por **Kapiaba** » 14 Out 2015 14:59

Veja se ajuda:

https://www.fast-report.com/public_down ... ual-en.pdf

Você está dizendo que o seu arquivo.FR3 esta sendo destruido? Pode ser virus ou tem um DELETE ou FERASE, exemplo: FERASE( *.* ) ou FERASE( "*.FR3) ) pesquise.

Daiane · Mensagem por **Daiane** » 15 Out 2015 08:37

TEm um ferase pra apagar meu banco,mas p o relatorio não tem. vou dar uma olhada no link q vc mandou. brigadinha

Mensagem por **Kapiaba** » 15 Out 2015 09:54

Mostre a sintaxe do comando FERASE() que usas para apagar o banco. abs.

Daiane · Mensagem por **Daiane** » 15 Out 2015 15:56

Nossa,como muito esforço descobrir oq era,o problema não era nem no meu fonte e nem no fast report.
era com o SVN,algum programador q trabalhou aq na empresa configurou para que quando compilasse o projeto todos os relatórios arquivados no versionador sobrepõem os que estão salvos na pasta q eu estava salvando o meu relatório.não sei se expliquei direito,mas enfim consegui resolver.

Obrigada pela ajuda.