Tema: Traducir código Visual Fox Pro a PowerCOBOL
Ver Mensaje Individual
  #1
Antiguo 18 de octubre de 2017, 02:39
Gatomalo
Forero
Última Actividad 01.07.2020 18:41
Posts Posts: 58
Likes enviados Enviados: 6
Likes recibidos Recibidos: 2
Versiones Traducir código Visual Fox Pro a PowerCOBOL
0
Likes

None...

Inactivo Inactivo
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 is offline   Responder Con Cita