Estimado Antonio,
Ya he solucionado varios inconvenientes con el OCX, me podrías ayudar a resolver el tema de las estructuras, en mi código defino la siguiente estructura oEstilo:
oEstilo := TStruct():New()
oEstilo:AddMember('BorradoTexto',BOOL,2)
oEstilo:AddMember('DobleAncho' ,BOOL,2)
oEstilo:AddMember('Centrado' ,BOOL,2)
oEstilo:AddMember('Negrita' ,BOOL,2)
oEstilo:dobleancho:=.T.
Pero cuando quiero ejecutar este comando:
oFiscal:ImprimirTextoFiscal( oEstilo, cTextoFiscal, 48 )
Me dice error de parametro:
Time from start: 0 hours 0 mins 13 secs
Error occurred at: 09/06/17, 12:43:40
Error description: (DOS Error -2147352571) WINOLE/1007 Argument error: IMPRIMIRTEXTOFISCAL
Args:
[ 1] = O TSTRUCT
[ 2] = C Cobertura: (60.00%)
[ 3] = N 48
Variables in use
================
Procedure Type Value
==========================
TOLEAUTO:IMPRIMIRTEXTOFISCAL
Param 1: O Class: ERROR
ENVIAR
Param 1: O Class: TSTRUCT
Param 2: C "Cobertura: (60.00%)"
Param 3: N 48
Local 1: U
Local 2: U
[b:147foypl]La definicion del metodo es:[/b:147foypl]
void ImprimirTextoFiscal(
[in, out] AtributosDeTexto* Atributos,
[in] BSTR Texto,
[in, optional, defaultvalue(48)] ModosDeDisplay ModoDisplay);
Desde ya muchas gracias,
Atte. Mariano
↧