Saludos y les solicito informacion sobre el porque no funciona la clase crw32 en versiones como la fwh10 hice pruebas con la version 8.07 y si lo hace per con la version 8.10 no se sale del programa y asi mismo necesito saber como pasar una variable a traves del activex a crystal como lo menciono abajo, agradecido de ante mano por la atencion prestada.
Esto es parte de mi programa
cTitulo:= "Libro de Ventas "
cText:=AllTrim(DTOC(dFechaI))+AllTrim(DTOC(dFechaF))+Substr(cCodEmp1,1,3)+Substr(cCodEmp2,1,3)
oCrw:PeOpenPrintJob("..\RJR\usu01\iva32.rpt", , .T.)
StarRep1(oCrw, cText, .T., oWinMain, cTitulo, oDlg )
ocrw:peClosePrintJob()
//--------------------------------------------------------------------------
Static Function StarRep1(oCrw, cText, lSalida, oWin, cTitulo, oDlg)
oCrw:PeSetFormula("xTest",['] + Trim(cText) + ['] )
//oCrw:aBtnBarHide:={2}
If lSalida=.t.
oCrw:PeSetWindowOptions()
oCrw:PeOutPutToWindow(oWin,, 1 )
Else
oCrw:PeOutToPrinter()
End
oCrw:PeStartPrintJob()
oDlg:aControls[1]:SetFocus()
Return Nil
Esto es lo que realmente deseo hacer con el Activex como se hace ello, gracias
oCrw:PeSetFormula("xTest",['] + Trim(cText) + ['] )
