Traducir código Visual Fox Pro a PowerCOBOL

[Gatomalo]

Estos codigos a powercobol
LOCAL lcDNI,lcToken

lcToken = "87290E49D50B519" &&SOLICITAR SU TOKEN PERSONALIZADO
lcDNI = "72398649" &&NUMERO DE DNI

IF !VFPs_Consultar_DNI(lcDNI,lcToken)
RETURN .F.
ENDIF

*!* CONSULTA REALIZADA CON EXITO
? _SCREEN.lcDni_lcNombres
? _SCREEN.lcDni_lcApe_Paterno
? _SCREEN.lcDni_lcApe_Materno
? _SCREEN.lcDni_lcNombres + " " + _SCREEN.lcDni_lcApe_Paterno + " " + _SCREEN.lcDni_lcApe_Materno
? _SCREEN.lcDni_lcCod_Verificacion
? _SCREEN.lcDni_lcTelefono
? _SCREEN.lcDni_lcDomicilio

*!* FUNCIÓNES
FUNCTION VFPs_Consultar_DNI (lcDNI,lcToken)

IF TYPE("lcDNI") = "L" .OR. TYPE("lcToken") = "L"
RETURN .F.
ENDIF

LOCAL lnEstado,lcURL,loHTTP,lcResult,laDatos,lnError,lcT oken,lcDNI
DIMENSION laDatos[1]

lnError = 0
lnEstado = -1
lcURL = "http://www.facturacionsunat.com/vfpsws/vfpscondni.php?dni=" + ALLTRIM(lcDNI) + "&token=" + ALLTRIM(lcToken)

TRY
loHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
loHTTP.Open("GET", lcURL, .F.)
loHTTP.Send ()
lnEstado = loHTTP.Status
CATCH TO loError
TRY
loHTTP = CREATEOBJECT("Microsoft.XMLHTTP")
IF TYPE("loHTTP") <> "O"
RETURN .F.
ENDIF

loHTTP.Open("GET", lcURL, .F.)
loHTTP.Send ()
lnEstado = loHTTP.Status
CATCH TO loError
*!* ERROR NO EXISTEN LOS OBJETOS XML
lnEstado = -1
MESSAGEBOX("No se puede instanciar los objetos XMLHTTP. Verificar!!!",48,"VFPSTEAM BI")
ENDTRY
ENDTRY

IF lnEstado <> 200
RETURN .F.
ENDIF
_SCREEN.MousePointer = 0

lcResult = loHTTP.ResponseText
lcResult = ALLTRIM(STRTRAN(lcResult,"</br >",CHR(13) + CHR(10)))
lnLines = ALINES(laDatos,lcResult)
loHTTP = .F.

IF lnLines = 1
MESSAGEBOX(lcResult + ". Verificar!!!",48,"VFPSTEAM BI")
RETURN .F.
ENDIF

*!* LLENAMOS LOS RESULTADOS EN PROPIEDADES DEL _SCREEN
_SCREEN.AddProperty ("lcDni_lcNombres",ALLTRIM(STRTRAN(laDatos[2],"Nombres:","")))
_SCREEN.AddProperty ("lcDni_lcApe_Paterno",ALLTRIM(STRTRAN(laDatos[3],"Ape. Paterno:","")))
_SCREEN.AddProperty ("lcDni_lcApe_Materno",ALLTRIM(STRTRAN(laDatos[4],"Ape. Materno:","")))
_SCREEN.AddProperty ("lcDni_lcCod_Verificacion",ALLTRIM(STRTRAN(laDatos[5],"Verificacion:","")))
_SCREEN.AddProperty ("lcDni_lcTelefono",ALLTRIM(STRTRAN(laDatos[6],"telefono:","")))
_SCREEN.AddProperty ("lcDni_lcDomicilio",ALLTRIM(STRTRAN(laDatos[7],"domicilio:","")))

RETURN .T.
ENDIF

[Kuk]

Gatomalo, cual es la parte que no sabes traducir? Yo no conozco ese lenguaje pero entiendo casi todo.

[Gatomalo]

lcURL = "http://www.facturacionsunat.com/vfpsws/vfpscondni.php?dni=" + ALLTRIM(lcDNI) + "&token=" + ALLTRIM(lcToken)


el token donde lo pongo?

[Kuk]

Gatomalo, en este código el token está definido en hardcode en la línea 3:

lcToken = "87290E49D50B519"

Puedes hacer un STRING igual que se hace en el código original.