[Sintaxis] Traducir código Visual Fox Pro a PowerCOBOL

Gatomalo · 01.07.2020 17:41

Estos codigos a powercobol

Código VB:

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,lcToken,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** · 25.05.2022 09:09

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

Gatomalo · 01.07.2020 17:41

Código VB:

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

el token donde lo pongo?

**Kuk** · 25.05.2022 09:09

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

Código VB:

lcToken  = "87290E49D50B519"

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

Tema	Autor	Foro	Respuestas	Último post
[Componente] Imprimir código QR	Armando	PowerCOBOL (ActiveX, v4 - v11)	12	18 de junio de 2019 22:53
[Sintaxis] Traducir código de VB a Power	Xavier	PowerCOBOL (ActiveX, v4 - v11)	10	22 de septiembre de 2016 23:03
[Noticia] Código fuente extendido de 72 a 250 columnas	Kuk	Cocina MicroFocus	0	16 de febrero de 2016 12:54
[Problema con el Foro] Ha desaparecido código en un Tema	Roger	COBOLForo.es	5	14 de julio de 2015 11:05
[Noticia] Codejock Xtreme Suite Pro ActiveX	Kuk	Controles y Componentes de Pago	3	6 de abril de 2015 14:24

IDENTIFICATION DIVISION Kuk Administrador ENVIRONMENT DIVISION DATA DIVISION diciembre 2014 Madrid 37 años 25.05.2022 09:09 PROCEDURE DIVISION Posts: 1.990 Enviado: 688 Recibido: 850 Soluciones: 100 Reputación: 10	Gatomalo, cual es la parte que no sabes traducir? Yo no conozco ese lenguaje pero entiendo casi todo. NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro. ¿Te han ayudado? NO TE OLVIDES de darle a ¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick

IDENTIFICATION DIVISION Gatomalo Junior ENVIRONMENT DIVISION DATA DIVISION abril 2015 Panama 01.07.2020 17:41 PROCEDURE DIVISION Posts: 61 Enviado: 6 Recibido: 2 Soluciones: 1 Reputación: 8	Código VB: lcURL = "http://www.facturacionsunat.com/vfpsws/vfpscondni.php?dni=" + ALLTRIM(lcDNI) + "&token=" + ALLTRIM(lcToken) el token donde lo pongo?

Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)