Apagando arquivo do FastReport

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

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

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

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

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?

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

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

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

o texto é escrito no proprio fastreport

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

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

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.

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 :D

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

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

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.

Quem está online