CREATEOBJECT ERRORES

[Vladimir Zorrilla]

AMIGOS LLAMO A UN OBJETO COM

FUNC SUBIRXML
LOCAL t1
LOCAL objCom := CreateObject( "nsigad_export.CatlTransaction" )

objCom:SetPathApplication("C:\CPSADUAN\NSIGAD")
objCom:SetRuc( "20100009804" )
objCom:SetUsuario( "MODDATOS")
objCom:SetPassword( "moddatos" )
objCom:SetCodigoEnvio( "540D3D995F25" )

strParam5:= "1" // NUMERO TRANSACCION O TRANSEFERENCUA
strParam6:= "C:\CPSADUAN\nsigad\archivos" // NOMBRE DE ARCHIVO O RUTA DE BANDEJA


objCom:Init_t()

objCom:SendFile( strParam5, strParam6, @t1, strXML )

i := t1

objCom:Final_t()
objCom := Nil

//****************************************************************************
//ANALIZANDO LOS VALORES DE RETORNO
/////////////////////////////////

If i = 0

MsgAlert("Resultado ==> "+str(i),"NSIGAD" )
MsgAlert("Trama ==> "+strXml,"NSIGAD")
Else
strCode = ""
strDescr = ""
If at("|",strXml) > 0
strCode = subs(strXml, 1, at("|",strXml) - 1)
strDescr = subs(strXml, at("|",strXml) + 1)
End If
strMensaje = "Resultado ==> "+Str(i)+h()
strMensaje +=" Error Codigo : "+strCode+h()
strMensaje +=" Error Descripcion : "+strDescr+h()+h()
MsgAlert( strMensaje, "NSIGAD" )
End

RETU .T.


FUNC H
RETU(CHR(13)+CHR(10))


Y ME SALE ESTOS ERRORES


Application
===========
Path and name: C:\CPSADUAN\XMLDUA.exe (32 bits)
Size: 1,278,464 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 11/17/09, 13:13:55
Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Args:
[ 1] = C nsigad_export.CatlTransaction

Stack Calls
===========
Called from: => THROW(0)
Called from: win32ole.prg => TOLEAUTO:NEW(308)
Called from: win32ole.prg => CREATEOBJECT(67)
Called from: XMLDUA.prg => SUBIRXML(11)

LOS LIB Q USO SON

echo c:\Z\lib\Fivehx.lib + >> b32.bc
echo c:\Z\lib\FiveHC.lib + >> b32.bc
echo C:\Z\lib\rtl.lib + >> b32.bc
echo C:\Z\lib\vm.lib + >> b32.bc
echo C:\Z\lib\gtgui.lib + >> b32.bc
echo C:\Z\lib\lang.lib + >> b32.bc
echo C:\Z\lib\macro.lib + >> b32.bc
echo C:\Z\lib\rdd.lib + >> b32.bc
echo C:\Z\lib\dbfntx.lib + >> b32.bc
echo C:\Z\lib\dbfcdx.lib + >> b32.bc
echo C:\Z\lib\dbffpt.lib + >> b32.bc
echo C:\Z\lib\hbsix.lib + >> b32.bc
echo C:\Z\lib\debug.lib + >> b32.bc
echo C:\Z\lib\common.lib + >> b32.bc
echo C:\Z\lib\pp.lib + >> b32.bc
rem Uncomment these two lines to use Advantage RDD
echo C:\Z\lib\cw32.lib + >> b32.bc
echo C:\Z\lib\import32.lib + >> b32.bc
echo C:\Z\lib\psdk\odbc32.lib + >> b32.bc
echo C:\Z\lib\psdk\rasapi32.lib + >> b32.bc
echo C:\Z\lib\psdk\nddeapi.lib + >> b32.bc
echo C:\Z\lib\psdk\iphlpapi.lib, >> b32.bc

XHARBOUR 0.99 FW 6 BC 55
SEGUN TENGO ENTENDIDO XHB TIENE SOPORTE NATUVO OLE PERO NO
SE SI EN ESA LISTA ESTA LA LIB


GRACIAS

[Antonio Linares]

Vladimir,

La clase de objetos OLE "nsigad_export.CatlTransaction" no está instalada ó registrada (regsvr32.exe) en el ordenador

Ese es el error que te está reportando xHarbour

[Vladimir Zorrilla]

Me sale el siguiengte error
FIVEWIN FOR HARBOUR GPF ERROR

OLEINVOKE(0)
TOLEAUTO:INVOKE(317)
TOLEAUTO:SETPATHAPPLICATION(613)

BUENO EL ERROR PARTE DE EL LLAMADO AL METODO SetPathApplication POR QUE VOTA GPF

FUNC PRUXML
LOCAL t1
LOCAL objCom := CreateObject( "nsigad_export.CatlTransaction" )

objCom:SetPathApplication("C:\CPSADUAN\NSIGAD")


No se como hacer andar este api en FW y lo curioso es que en excell
con Visual Basic si funciona

Si pueden darme una mano se los agradeceria ,aqui os dejo el mismo
codigo corriendo en VB en EXCELL y tambien en este link esta el api y su reducido manual


http://www.clipper.net16.net/vea.html

Gracias por la ayuda

[Antonio Linares]

Vladimir,

Probablemente necesitas usar una versión más reciente de xHarbour