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

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

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

Vladimir,

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