Pueden ayudarme a convertir una rutina de WB a VFP9?
Publicado por Santiago (3 intervenciones) el 26/11/2013 23:58:52
La rutina que me viene dada en VB, la he escrito en VFP9.
La ejecuto en VFP9 y me devuelve el error: "Cannot find entry point wadedinet in dll"
Tengo muchas dudas sobre si estoy definiendo correctamete las variables que luego paso como parámetros Me he leído la ayuda pero no hay ningún ejemplo parecido a lo que necesito.Además no tengo ninguna experiencia con las dlls externas.
Muchas gracias deantemano
* En VB
*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)
****************************************
* En VFP9
des = SPACE(15000)
paginahtml = SPACE(4096)
ret = SPACE(4096)
edi = SPACE(500)
nif = SPACE(11)
nif = 'ES99999999'
edi = FILETOSTR("C:\AEAT\ADEDILOP\ENTRADA\CUSDECPRU.TXT")
DECLARE INTEGER wadedinet IN "c:\foxglog\Adedinet.dll" string @nif, string @edi, string @des, string @paginahtml
ret = wadedinet(@nif,@edi,@des,@paginahtml)
?ret
La ejecuto en VFP9 y me devuelve el error: "Cannot find entry point wadedinet in dll"
Tengo muchas dudas sobre si estoy definiendo correctamete las variables que luego paso como parámetros Me he leído la ayuda pero no hay ningún ejemplo parecido a lo que necesito.Además no tengo ninguna experiencia con las dlls externas.
Muchas gracias deantemano
* En VB
*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)
****************************************
* En VFP9
des = SPACE(15000)
paginahtml = SPACE(4096)
ret = SPACE(4096)
edi = SPACE(500)
nif = SPACE(11)
nif = 'ES99999999'
edi = FILETOSTR("C:\AEAT\ADEDILOP\ENTRADA\CUSDECPRU.TXT")
DECLARE INTEGER wadedinet IN "c:\foxglog\Adedinet.dll" string @nif, string @edi, string @des, string @paginahtml
ret = wadedinet(@nif,@edi,@des,@paginahtml)
?ret
Valora esta pregunta


0