How written this Code VB in FW

[Vladimir Zorrilla]

http://serviaduana.netai.net/img.html

Thanks

[anserkk]

Try this

Code: Select all

objCOM:=CreateObject("nsigad_export.CatlTransaction")

objCOM:SetPathApplication:=pathApp
objCOM:SetRuc:=strParam1
objCOM:SetUsuario:=strParam2
objCOM:SetPassword:=strParam3
objCOM:SetCodigoEnvio:=strParam4

objCOM:Init_t()

objCOM:SendFile( strParam5, strParam6, t1, strXml)
i:=t1

objCOM:Final_t()

objCOM:=NIL

Regards
Anser