Ayuda para traducir codigo VB a FW

[José Vicente Beltrán]

Hola a todos,
Hace algún tiempo recurrí a esta comunidad solicitando ayuda para traducir el código en VB:

Code: Select all  Expand view  RUN

Dim des As String * 15000
Dim paginahtml As String * 4096
Dim ret As Long
Dim edi As string
Dim nif As String
Dim wadedinet As New OAdedinet

ret = wadedinet.Adedinet(nif, edi, des, paginahtml)

El resultado al que llegamos entonces (con la ayuda de Antonio como siempre) fué:

Code: Select all  Expand view  RUN

local des := space(15000)
local paginahtml := space(4096)
local edi := ""
local nif := ""
local wadedinet := CreateObject( "OAdedinet" )
local ret := OAdedinet:wadedinet(nif, edi, des, paginahtml)

// la dll se registra en el sistema, desde la consola, como: regsvr32 adedinet.dll -> devuelve OK
 

La lib adedinet.dll es un componente editado por la Agencia Tributaria española y de libre distribución:
https://www2.agenciatributaria.gob.es/A ... edinet.htm

Pues retomo la solicitud de ayuda porque no he sido capaz de hacer funcionar la llamada.
Quizás despues de este tiempo alguien haya descubierto el 'truco' y quiera compartirlo

Gracias anticipadas

[Antonio Linares]

José,

Te refieres a esta llamada ?

local ret := OAdedinet:wadedinet(nif, edi, des, paginahtml)

Esta línea se ejecuta bien ?

local wadedinet := CreateObject( "OAdedinet" )

[Antonio Linares]

Prueba a cambiar estas variables:

local edi := Space( 30 )
local nif := Space( 30 )

Prueba con otros valores en vez de 30.

[José Vicente Beltrán]

Antonio, una vez mas gracias por interesarte.

El código que utilizo para probar exactamante es:

Code: Select all  Expand view  RUN

static function pruebasedi()
local des := space(15000)
local paginahtml := space(4096)
local edi := MEMOREAD( "E:\edi.exp" )   // => el archivo existe
local nif := "9999999R"

// ---------------- EDITO ---------------------
local wadedinet := CreateObject( "ADEDINET.OAdedinet" ) //=> aparentemente funciona bien
local ret := wadedinet:ADEDINET(nif, edi, @des, @paginahtml) // => aparentemente funciona bien pero... devuelve archivos vacios
//---------------------------------------------

msginfo( des)  // => devuelve vacio
msginfo(paginahtml) // =>  devuelve vacio
return .t.
 

Debo decir que mientras tanto utilizo un EXE Delphi para esta tarea, que no tiene problemas, pero me gustaría integrarlo en la aplicación de forma nativa

[karinha]

José, donde bajar: ADEDINET.Dll ?

http://www.agenciatributaria.es/AEAT.internet/Inicio_es_ES/Aduanas_e_Impuestos_Especiales/Procedimientos_Aduaneros/Presentacion_Telematica/Informacion_general_sobre_presentacion_por_Internet/Informacion_general_sobre_presentacion_por_Internet.shtml

Saludos.

[Antonio Linares]

José,

Que valor devuelve en ret ?

[José Vicente Beltrán]

Siempre 0

[José Vicente Beltrán]

karinha,

En la dirección que he posteado anteriormente, cuando ves la pagina web en tu pantalla es porque teoricamente ya se ha descargado la dll, pero en cualquier caso si me indicas un mail te la envio

Gracias por el interes

[karinha]

No bajo José. mi email: kmt_karinha@pop.com.br

Gracias, saludos.

[José Vicente Beltrán]

Karinha, enviado