Crystal Report - HMG

por **gilsonpaulo** » 31 Ago 2011 08:17

Segue em anexo um exemplo do que fiz com crystal reports.

Para executar tera que instalar o runtime do crystal reports.

http://www.gsinformatica.inf.br/cr8/CR8.zip

As Fontes.:
http://www.gsinformatica.inf.br/cr8/HMG.zip

por **masteragm** » 09 Set 2011 21:41

Hola amigos :
soy relativamente nuevo en esto , necesito con urgencia solucionar algunos problemas
que tengo al utilizar hmg+crystal report :

If IsControlDefined(CrystalControl,Win_Edit)=.T.
02 DoMethod("Win_Edit","CrystalControl","SetFocus")
03 Else
04 @ 220,10 ACTIVEX CrystalControl ;
05 OF Win_Edit ;
06 WIDTH 0 ;
07 HEIGHT 0 ;
08 PROGID "Crystal.CrystalReport"
09 Endif
10 Win_Edit.CrystalControl.Object:WindowTitle := "Reporte de Crystal"
11 Win_Edit.CrystalControl.Object:ReportFileName := "ETI_PRO126_1.rpt"
12 Win_Edit.CrystalControl.Object:WindowShowPrintSetupBtn := .T.
13 Win_Edit.CrystalControl.Object:WindowShowRefreshBtn := .T.
14 Win_Edit.CrystalControl.Object:PrintReport()

como mando parametros ????

como anido crystal report en un form ????

por **gilsonpaulo** » 10 Set 2011 07:06

Veja um exemplo.:

Function rlcontaspagas_btn_relatorio_action

  
  
  datai:=rlcontaspagas.txt_datainicial.Value
  dataf:=rlcontaspagas.txt_datafinal.Value

  Set date Format "yyyy,mm,dd"
  
  data1:=dtoc(datai)
  data2:=dtoc(dataf)
  
  rlcontaspagas.CrystalControl.Object:DiscardSavedData := .T.
  rlcontaspagas.CrystalControl.Object:SelectionFormula := "{CADPAG.DATPAG}>=Date ("+data1+") AND {CADPAG.DATPAG}<=Date ("+data2+")"
  rlcontaspagas.CrystalControl.Object:WindowTitle := "Contas Pagas"
  rlcontaspagas.CrystalControl.Object:ReportFileName := "cadpag.rpt"
  rlcontaspagas.CrystalControl.Object:WindowState := 2
  rlcontaspagas.CrystalControl.Object:WindowShowPrintSetupBtn := .T.
  rlcontaspagas.CrystalControl.Object:WindowShowRefreshBtn := .T.
  rlcontaspagas.CrystalControl.Object:WindowShowSearchBtn := .T.
  rlcontaspagas.CrystalControl.Object:WindowShowCloseBtn := .T.
  rlcontaspagas.CrystalControl.Object:WindowShowNavigationCtls := .T.
  rlcontaspagas.CrystalControl.Object:WindowShowCancelBtn := .T.
  rlcontaspagas.CrystalControl.Object:WindowShowZoomCtl := .T.
  rlcontaspagas.CrystalControl.Object:WindowControls := .T.
  rlcontaspagas.CrystalControl.Object:WindowControlBox := .T.
  rlcontaspagas.CrystalControl.Object:CopiesToPrinter := 1
  rlcontaspagas.CrystalControl.Object:DetailCopies := 1
  rlcontaspagas.CrystalControl.Object:PrintReport()  

  Set Date Format "dd/mm/yyyy" 

Return

Vc vai ter que criar um relatorio no proprio crystal reporrts, eu usei a versão 8.5 da versão 9 em diante é diferente.

por **Ricardo Mauricio** » 10 Set 2011 10:43

Colega Pablo

Pablo Cesar escreveu
"o que ajuda muito é a internet, senão estava frito... pois a documentação e apresentação do produto é muito precário. Mas como é OPENSOURCE e é isso uma das grandes vantagens, pois convenhamos, muita gente já trabalhou nesse projecto do Harbour e a que custo ? Outros surgiram e surgirão assim que a ferramenta estão melhorando. Agora sobre mudar o nome do site, acho dificil isso acontecer, outra porque o nome Clipper deixa aos saudocistas programadores com gostinho de "netinho" querido... pois é que não lembra do Clipper com carinho ?"

Concordo com vc.

Tb encontro dificuldades agora que to apredendo hmg 3.0.38, Mas nada que uma boa pesquisa e uma santa ajuda deste abençoado forum não faça.

por **masteragm** » 10 Set 2011 10:58

Gracias por responder , pero la duda que tengo
es como pasar un valor a un campo formula ???? no a un selection formula
y como puedo anidar la ventana de crystal haciendola hija de otro form ???

de antemano agradesco la deferencia de leer este post ..

por **masteragm** » 13 Set 2011 10:10

como pasar un valor a un campo formula ???

en visual basic es :
reportes.Formulas(10) = "formula10=' " & pub_banco & "'"

pero en hmg ????