FiveTech Support Forums

Opción 1:
     // Genero e Imprimo Codigo QR
     hBmp := FW_BarCodeBmp( "www.prueba.com","QRCODE", 200, 200 )

     @ 220, 20 PRINT TO oPrn IMAGE hBmp SIZE 39.5, 24 MM

Opción 2:

        @ 220,20 PRINT TO oPrn TEXT "www.prueba.com" + CRLF + Str(nCerti,10) + CRLF + cRut  ;
         AS BARCODE TYPE "QR-CODE" SIZE 39.5,24 MM

cCertBas64 := hb_base64encode(Str(nCerti,10),len(Str(nCerti,10)))
cRutBas64 := hb_base64encode(cRut,len(cRut))

@ 220,20 PRINT TO oPrn TEXT "www.prueba.com?certi="+ cCertBas64 + "&rut="+cRutBas64    ;
         AS BARCODE TYPE "QR-CODE" SIZE 39.5,24 MM

                hDatos := {=>} //el json con los datos a subir

        enviar := hb_jsonEncode( hDatos )

        ohttp := CreateObject( "MSXML2.XMLHTTP" )
        ohttp:Open( "POST" ,"https://prueba/ws_regrut",.F.)

        oHttp:SetRequestHeader("cache-control", "no-cache")
        ohttp:SetRequestHeader("content-type", "application/json" )
        ohttp:SetRequestHeader("authorization", "Basic "+cBas64 )
        TRY
          ohttp:Send( enviar )
        CATCH
            msginfo("No Se Pudo Enviar Documento JSON","Intente Nuevamente")
            return .t.
        END
        response:=ohttp:responseText
        aHasRes := hash()
        hb_jsondecode(response ,@aHasRes)

//DATOS DE AUTORIZACION BASICA DE CABECERA
$auto_usuario = $_SERVER["PHP_AUTH_USER"];
$auto_clave = $_SERVER["PHP_AUTH_PW"];

date_default_timezone_set('America/Bogota');

//recogemos los datos que vienen en el json
$datos = json_decode(file_get_contents("php://input"),true);

...
...
...

    $retorno["error"] = "";
    $retorno["registrado"]=true;
...
...
...

echo json_encode($retorno);
?>

$articu = $_GET["arti"];
$serial = $_GET["seri"];

include("conecta.php");
$query = "SELECT * FROM regustri WHERE codigo_articulo='".$articu."' AND serial_articulo='".$serial."'";
$sqls = $conexion->prepare($query);
$sqls->execute();
$nro_reg = count($sqls->fetchall());
if($nro_reg==0){
    echo "<h2>Artículo No Reportado</h2>";
}else{
    echo "<h2>Datos Artículo Seguimiento </h2>";
    $sqls = $conexion->prepare($query);
    $sqls->execute();
    while($row = $sqls->fetch()){
        $consecu_traza = $row['consecutivo'];
        echo "<table>";
        echo "<tr>";
        echo "<td>Código Artículo : </td>";
        echo "<td>".$row['codigo_articulo']."</td>";
        echo "</tr>";
        echo "<tr>";
        echo "<td>Nombre Artículo : </td>";
        echo "<td>".$row['nombre_articulo']."</td>";
        echo "</tr>";       
        echo "<tr>";
        echo "<td>Serial Artículo : </td>";
        echo "<td>".$row['serial_articulo']."</td>";
        echo "</tr>";           
        echo "<tr>";
        echo "<td>Modelo : </td>";
        echo "<td>".$row['modelo']."</td>";
        echo "</tr>";           
        echo "<tr>";
        echo "<td>Lote : </td>";
        echo "<td>".$row['lote']."</td>";
        echo "</tr>";           
        echo "<tr>";
        echo "<td>Certificado No. : </td>";
        echo "<td>".$row['certificado']."</td>";
        echo "</tr>";           
        echo "</table>";
    }   
    $sqls=null; 
}   
$conexion = null;