FRIENDS CALL A OBJECT 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))
SEE ERRORS
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)
SEE LIBS
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
THANKS
