FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Consulta Objetos y Argumentos‏
Posts: 74
Joined: Mon Jun 10, 2013 01:21 PM
Consulta Objetos y Argumentos‏
Posted: Mon Feb 29, 2016 12:52 PM

Estimado Antonio,
Trabajando con el objeto oFiscal me surge un error de argumentos durante la ejecuciĂłn del programa.

Ejemplo Brindado de Visual Basic
HASAR1.Encabezado(11) = “11 - Texto al pie del comprobante.”

Como seria la misma instruccion en Fivewin?.
oFiscal := CreateObject( "HASAR.Fiscal.1" )
oFiscal:Encabezado(11,"Texto Encabezado") Aqui da error de argumentos

Segun el manual la propiedad Encabezado tiene dos parametros.

AYUDA MANUAL:
Propiedad: Encabezado( )
Comando: SetHeaderTrailer, GetHeaderTrailer
Disponible: OCX Fiscal HASAR, en todas las versiones.
ConfiguraciĂłn: Long (de entrada), String (de entrada)
Retorno: Long (de entrada), String (de salida)
CaracterĂ­stica: Multi-argumento

Te agradeceria mucho me si me puedes aclarar como se acceden a los metodos y propiedades del objeto, y como pasar los parámetros por argumento.

Saludos Cordiales Mariano

/////////////////////////////

Prueba asi:

oFiscal:Encabezado[ 11 ] := "Texto Encabezado"

Antonio
/////////////////////////////

Antonio realice la prueba de la forma que me indicaste pero sigue en problema con el error de argumentos.

oFiscal:Encabezado[ 11 ] := "Texto Encabezado"

ERROR:
Application
===========
Path and name: C:\HASAR\pfhasar.exe (32 bits)
Size: 1,687,040 bytes
Time from start: 0 hours 0 mins 11 secs
Error occurred at: 29/02/16, 10:49:44
Error description: (DOS Error -2147352562) WINOLE/1007 Argument error: ENCABEZADO

Stack Calls

Called from: => TOLEAUTO:ENCABEZADO(0)
Called from: pfhasar.prg => SETHEDTRA(342)
Called from: pfhasar.prg => (b)CONFIGURACION(310)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1427)
Called from: .\source\classes\WINDOW.PRG => _FWH(3353)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(944)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: pfhasar.prg => CONFIGURACION(332)
Called from: pfhasar.prg => (b)MAIN(112)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1427)
Called from: .\source\classes\WINDOW.PRG => _FWH(3353)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1025)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(3353)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(966)
Called from: pfhasar.prg => MAIN(116)

System

CPU type: Intel(R) Core(TM) i3-3120M CPU @ 2.50GHz 2500 Mhz
Hardware memory: 2048 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: Harbour 3.0.0 (Rev. 16951)
Windows version: 6.1, Build 7600

Windows total applications running: 50
1
2 Inicio
3 MSCTFIME UI
4 Default IME
5 CiceroUIWndFrame
6 MT
7 MenĂş Inicio
8 ConmutaciĂłn de tareas
9 Jump List
10 Network Flyout
11 advertencia
12 TF_FloatingLangBar_WndTitle
13 DETALLES DEL CONTROLADOR
14 PFHASAR v1.01
15 Administrador: C:\Windows\system32\cmd.exe
16 Find
17 C:\HASAR\PFHASAR.PRG - Notepad++
18 FiveTech Software tech support forums • Publicar un nuevo tema - Google Chrome
19 OCX Fiscal HASAR v150423.pdf - Adobe Acrobat Reader DC
20 Font Capture
21 AcroMissingCompWClass
22 DDE Server Window
23 Acrobat Broker Msg Handling Window
24 Acrobat Instance Window
25 Dialog
26 68DCC1AE
27 TouchPad object helper window
28 MCI command handling window
29 qbittorrent
30 HiddenFaxWindow
31 MS_WebcheckMonitor
32 BluetoothNotificationAreaIconWindowClass
33 SanDiskSecureAccess_Manager
34 SystemEventsNotifier
35 Media Center SSO
36 Medidor de la baterĂ­a
37 VIA HD Audio Deck
38 GDI+ Window
39 Touchpad driver tray icon window
40 PersistWndName
41 HkWndName
42 Touchpad driver backward compatibility window
43 Touchpad driver helper window
44 Monitor Intel(R) USB 3.0
45 igfxtrayWindow
46 Task Host Window
47 DWM Notification Window
48 qBittorrent v3.2.3
49 Untitled.fis - fisem
50 Program Manager

Variables in use

Procedure Type Value
==========================
TOLEAUTO:ENCABEZADO
Param 1: O Class: ERROR
SETHEDTRA
Local 1: U
Local 2: N 0
(b)CONFIGURACION
Param 1: C "A "
Param 2: C "A "
Param 3: C "A "
Param 4: C "A "
Param 5: C "A "
Param 6: C "A "
Local 1: U
Local 2: U
Local 3: U
Local 4: C "TEST MARIANO"
TBUTTON:CLICK
TBUTTON:HANDLEEVENT
_FWH
Param 1: N 2048
Param 2: N 0
Param 3: N 0
SENDMESSAGE
Param 1: N 0
Param 2: N 2048
Param 3: N 0
Param 4: N 0
Param 5: N 15
Local 1: O Class: TBUTTON
TDIALOG:COMMAND
Param 1: N 394842
Param 2: N 2048
Param 3: N 0
Param 4: N 0
TWINDOW:HANDLEEVENT
Param 1: N 4021
Param 2: N 394842
Local 1: O Class: TBUTTON
Local 2: N 0
Local 3: N 4021
Local 4: N 394842
TDIALOG:HANDLEEVENT
Param 1: N 273
Param 2: N 4021
Param 3: N 394842
DIALOGBOX
Param 1: N 273
Param 2: N 4021
Param 3: N 394842
TDIALOG:ACTIVATE
Param 1: N 28180480
Param 2: C "CONFIGURAIF"
Param 3: N 721846
Param 4: O Class: TDIALOG
CONFIGURACION
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: N 721846
Local 2: S
Local 3: O Class: TDIALOG
(b)MAIN
Local 1: O Class: TCOMBOBOX
Local 2: O Class: TCOMBOBOX
Local 3: O Class: TCOMBOBOX
Local 4: C "TICKET_C *84"
Local 5: C "A "
Local 6: C "A "
Local 7: C "A "
Local 8: C "A "
Local 9: C "A "
Local 10: C "A "
TBUTTON:CLICK
TBUTTON:HANDLEEVENT
_FWH
Param 1: N 2048
Param 2: N 0
Param 3: N 0
SENDMESSAGE
Param 1: N 0
Param 2: N 2048
Param 3: N 0
Param 4: N 0
Param 5: N 2
Local 1: O Class: TBUTTON
TWINDOW:COMMAND
Param 1: N 263620
Param 2: N 2048
Param 3: N 0
Param 4: N 0
TWINDOW:HANDLEEVENT
Param 1: N 102
Param 2: N 263620
Local 1: N 0
Local 2: N 102
Local 3: N 263620
_FWH
Param 1: N 273
Param 2: N 102
Param 3: N 263620
WINRUN
Param 1: N 263620
Param 2: N 273
Param 3: N 102
Param 4: N 263620
Param 5: N 1
Local 1: O Class: TWINDOW
TWINDOW:ACTIVATE
Param 1: N 721846
MAIN
Param 1: C "NORMAL"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U

Linked RDDs

DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX

DataBases in use

Classes in use:

 1 ERROR
 2 HBCLASS
 3 HBOBJECT
 4 TFONT
 5 TWINDOW
 6 TCONTROL
 7 TICON
 8 TBRUSH
 9 TBUTTON
10 TTRAYICON
11 TSTRUCT
12 WIN_OLEAUTO
13 TOLEAUTO
14 TTIMER
15 TDIALOG
16 TCOMBOBOX
17 TGET
18 GET
19 TCLIPGET
20 TSAY
21 TREG32

Memory Analysis

  190 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

Saludos Mariano

Posts: 74
Joined: Mon Jun 10, 2013 01:21 PM
Re: Consulta Objetos y Argumentos‏
Posted: Mon Feb 29, 2016 01:16 PM

Otro Ejemplo con error: Parece que reconoce los 2 parametros

I:=1
linea:="MIO"
ofiscal:encabezado(i,linea)

/////////
Application
===========
Path and name: C:\HASAR\pfhasar.exe (32 bits)
Size: 1,687,040 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 29/02/16, 11:12:28
Error description: (DOS Error -2147352562) WINOLE/1007 Argument error: ENCABEZADO
Args:
[ 1] = N 1
[ 2] = C MIO

Stack Calls

Called from: => TOLEAUTO:ENCABEZADO(0)
Called from: pfhasar.prg => SETHEDTRA(344)
Called from: pfhasar.prg => (b)CONFIGURACION(310)

Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: Consulta Objetos y Argumentos‏
Posted: Mon Feb 29, 2016 02:38 PM

Estimado Mariano,

Por el error parece que está llamando al metodo GET. Cuando se trata de métodos SET_GET, para hacer un SET se depe anteponer el underscore '_' antes del nombre, por lo que yo probaría:

oFiscal:_Encabezado(11,"Texto Encabezado")

No uso ese OCX pero no se pierde nada con probar, no?

Un saludo

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Posts: 74
Joined: Mon Jun 10, 2013 01:21 PM
Re: Consulta Objetos y Argumentos‏
Posted: Mon Feb 29, 2016 02:56 PM

Estimado Carlos,
Realice la prueba que me enviaste y todo funcionando utilizando oFiscal:_Encabezado(linea, CHR(127) ) y todo OK!!!

Muchas gracias por tu colaboraciĂłn!

Saludos Mariano

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Consulta Objetos y Argumentos‏
Posted: Tue Mar 01, 2016 08:09 AM

muy bien :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 5
Joined: Thu Jul 09, 2009 06:25 PM
Re: Consulta Objetos y Argumentos‏
Posted: Wed May 11, 2016 08:26 PM

Hola...me gustaria contactarme contigo para hacerte algunas consultas sobre el mismo tema...Hasar en Argentina...
Mi correo es siddhartha_38@hotmail.com
Me acaba de llegar el Fiscal150423.ocx y me gustarĂ­a saber por donde comenzar..
Muchas Gracias...

Continue the discussion