Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
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
Respuesta
 
Herramientas

  #1
Antiguo 18 de octubre de 2017, 01:39
IDENTIFICATION DIVISION
Gatomalo
 Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
abril 2015
Panama
01.07.2020 17:41
PROCEDURE DIVISION
Posts: 61
Enviado: 6
Recibido: 2
Soluciones: 1
Reputación: 8
Gatomalo is on a distinguished road
Alternativa Traducir código Visual Fox Pro a PowerCOBOL

Estos codigos a powercobol
Código VB:
  1. LOCAL lcDNI,lcToken
  2.  
  3. lcToken  = "87290E49D50B519"  &&SOLICITAR SU TOKEN PERSONALIZADO
  4. lcDNI    = "72398649"         &&NUMERO DE DNI
  5.  
  6. IF !VFPs_Consultar_DNI(lcDNI,lcToken)
  7.    RETURN .F.
  8. ENDIF
  9.  
  10. *!* CONSULTA REALIZADA CON EXITO
  11. ? _SCREEN.lcDni_lcNombres
  12. ? _SCREEN.lcDni_lcApe_Paterno
  13. ? _SCREEN.lcDni_lcApe_Materno
  14. ? _SCREEN.lcDni_lcNombres + " " + _SCREEN.lcDni_lcApe_Paterno + " " + _SCREEN.lcDni_lcApe_Materno
  15. ? _SCREEN.lcDni_lcCod_Verificacion
  16. ? _SCREEN.lcDni_lcTelefono
  17. ? _SCREEN.lcDni_lcDomicilio
  18.  
  19. *!* FUNCIÓNES
  20. FUNCTION VFPs_Consultar_DNI (lcDNI,lcToken)
  21.      
  22.        IF TYPE("lcDNI") = "L" .OR. TYPE("lcToken") = "L"
  23.           RETURN .F.
  24.        ENDIF          
  25.  
  26.        LOCAL lnEstado,lcURL,loHTTP,lcResult,laDatos,lnError,lcToken,lcDNI
  27.        DIMENSION laDatos[1]
  28.  
  29.        lnError  = 0
  30.        lnEstado = -1
  31.        lcURL    = "http://www.facturacionsunat.com/vfpsws/vfpscondni.php?dni=" + ALLTRIM(lcDNI) + "&token=" + ALLTRIM(lcToken)
  32.  
  33.        TRY
  34.          loHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
  35.          loHTTP.Open("GET", lcURL, .F.)
  36.          loHTTP.Send ()
  37.          lnEstado = loHTTP.Status
  38.         CATCH TO loError
  39.          TRY
  40.            loHTTP = CREATEOBJECT("Microsoft.XMLHTTP")
  41.            IF TYPE("loHTTP") <> "O"
  42.               RETURN .F.
  43.            ENDIF
  44.          
  45.            loHTTP.Open("GET", lcURL, .F.)
  46.            loHTTP.Send ()
  47.            lnEstado = loHTTP.Status
  48.           CATCH TO loError
  49.            *!* ERROR NO EXISTEN LOS OBJETOS XML
  50.            lnEstado = -1
  51.            MESSAGEBOX("No se puede instanciar los objetos XMLHTTP. Verificar!!!",48,"VFPSTEAM BI")
  52.          ENDTRY  
  53.        ENDTRY
  54.  
  55.        IF lnEstado <> 200
  56.           RETURN .F.
  57.        ENDIF
  58.        _SCREEN.MousePointer = 0
  59.      
  60.        lcResult = loHTTP.ResponseText
  61.        lcResult = ALLTRIM(STRTRAN(lcResult,"</br >",CHR(13) + CHR(10)))
  62.        lnLines  = ALINES(laDatos,lcResult)
  63.        loHTTP   = .F.
  64.      
  65.        IF lnLines = 1
  66.        MESSAGEBOX(lcResult + ". Verificar!!!",48,"VFPSTEAM BI")
  67.        RETURN .F.
  68.     ENDIF
  69.    
  70.     *!* LLENAMOS LOS RESULTADOS EN PROPIEDADES DEL _SCREEN
  71.     _SCREEN.AddProperty ("lcDni_lcNombres",ALLTRIM(STRTRAN(laDatos[2],"Nombres:","")))
  72.     _SCREEN.AddProperty ("lcDni_lcApe_Paterno",ALLTRIM(STRTRAN(laDatos[3],"Ape. Paterno:","")))
  73.     _SCREEN.AddProperty ("lcDni_lcApe_Materno",ALLTRIM(STRTRAN(laDatos[4],"Ape. Materno:","")))
  74.     _SCREEN.AddProperty ("lcDni_lcCod_Verificacion",ALLTRIM(STRTRAN(laDatos[5],"Verificacion:","")))
  75.     _SCREEN.AddProperty ("lcDni_lcTelefono",ALLTRIM(STRTRAN(laDatos[6],"telefono:","")))
  76.     _SCREEN.AddProperty ("lcDni_lcDomicilio",ALLTRIM(STRTRAN(laDatos[7],"domicilio:","")))
  77.    
  78.     RETURN .T.  
  79. ENDIF
Gatomalo no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 18 de octubre de 2017, 08:49
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
37 años
26.06.2022 11:57
PROCEDURE DIVISION
Posts: 1.998
Enviado: 701
Recibido: 852
Soluciones: 100
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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
Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 18 de octubre de 2017, 21:25
IDENTIFICATION DIVISION
Gatomalo
 Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
abril 2015
Panama
01.07.2020 17:41
PROCEDURE DIVISION
Posts: 61
Enviado: 6
Recibido: 2
Soluciones: 1
Reputación: 8
Gatomalo is on a distinguished road
Predeterminado

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


el token donde lo pongo?
Gatomalo no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 2 de noviembre de 2017, 08:00
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
37 años
26.06.2022 11:57
PROCEDURE DIVISION
Posts: 1.998
Enviado: 701
Recibido: 852
Soluciones: 100
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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

Código VB:
  1. lcToken  = "87290E49D50B519"

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



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
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Gatomalo ( 2 de noviembre de 2017)
Respuesta


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

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 18:31.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.