Code: Select all | Expand

#include "FiveWin.ch"
#include "hbcurl.ch"

//----------------------------------------------------------------------------//

CLASS TEmbeddings
    
   DATA   cModel
   DATA   cPrompt
   DATA   cResponse
   DATA   cUrl
   DATA   cKey
   DATA   hCurl
   DATA   nError     INIT 0
   DATA   nHttpCode  INIT 0
   DATA   aEmbeddings

   METHOD New( cModel, cKey )
   METHOD Distance( aVector2, lCosine )
   METHOD DistanceFrom( oEmbeddings ) INLINE ::Distance( oEmbeddings:aEmbeddings ) 
   METHOD End() 
   METHOD GetEmbeddings( cPrompt )    
   METHOD IsOpenAI() INLINE ( "openai" $ Lower( ::cModel ) .or. "text-embedding-" $ ::cModel )
   OPERATOR "-" ARG oEmbeddings INLINE ::DistanceFrom( oEmbeddings )  
   DESTRUCTOR Destroy()    

ENDCLASS        

//----------------------------------------------------------------------------//

METHOD New( cModel, cKey ) CLASS TEmbeddings

   DEFAULT cModel := "sentence-transformers/all-MiniLM-L6-v2"  // Default to Hugging Face
   DEFAULT cKey   := hb_GetEnv( "HF_API_KEY" )               // Try Hugging Face first

   if Empty( cKey )
      cKey := hb_GetEnv( "OPENAI_API_KEY" )  // If no HF_API_KEY, try OPENAI_API_KEY
   endif

   ::cModel = cModel
   ::cKey   = cKey
   ::hCurl  = curl_easy_init()

   // Set the endpoint based on the model
   if ::IsOpenAI()
      ::cUrl = "https://api.openai.com/v1/embeddings"
   else
      ::cUrl = "https://api-inference.huggingface.co/pipeline/feature-extraction/" + ::cModel  // Feature extraction for embeddings
   endif
    
   if Empty( ::cKey )
      MsgAlert( "API key is required! Set it via parameter or HF_API_KEY/OPENAI_API_KEY environment variables." )
   endif

return Self    

//----------------------------------------------------------------------------//

METHOD End() CLASS TEmbeddings

    curl_easy_cleanup( ::hCurl )
    ::hCurl = nil

return nil    

//----------------------------------------------------------------------------//

METHOD GetEmbeddings( cPrompt ) CLASS TEmbeddings 

   local aHeaders, cJson, hRequest := { => }, hResponse, uValue

   if ! Empty( cPrompt )
      ::cPrompt = cPrompt
   endif   

   curl_easy_setopt( ::hCurl, HB_CURLOPT_POST, .T. )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_URL, ::cUrl )

   aHeaders := { ;
      "Content-Type: application/json", ;
      "Authorization: Bearer " + ::cKey ;
   }

   curl_easy_setopt( ::hCurl, HB_CURLOPT_HTTPHEADER, aHeaders )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_USERNAME, '' )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_DL_BUFF_SETUP )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_SSL_VERIFYPEER, .F. )

   if ::IsOpenAI()
      hRequest[ "model" ] = ::cModel
      hRequest[ "input" ] = ::cPrompt  // OpenAI uses "input" instead of "inputs"
   else
      // Hugging Face: Correct structure for feature-extraction pipeline
      hRequest[ "inputs" ] = ::cPrompt
   endif

   cJson = hb_jsonEncode( hRequest )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_POSTFIELDS, cJson )

   ::nError = curl_easy_perform( ::hCurl )
   curl_easy_getinfo( ::hCurl, HB_CURLINFO_RESPONSE_CODE, @::nHttpCode )

   if ::nError == HB_CURLE_OK
      ::cResponse = curl_easy_dl_buff_get( ::hCurl )
   else
      ::cResponse := "Error code " + Str( ::nError )
   endif

   hb_jsonDecode( ::cResponse, @hResponse )

   if ::IsOpenAI()
      TRY 
         uValue = hResponse[ "data" ][ 1 ][ "embedding" ]  // OpenAI returns embeddings in "data[0].embedding"
         ::aEmbeddings = uValue
      CATCH
         uValue = hResponse[ "error" ][ "message" ]
         ::aEmbeddings = nil
      END   
   else  // Hugging Face
      TRY 
         uValue = hResponse  // HF feature-extraction returns the vector directly as an array
         ::aEmbeddings = uValue
      CATCH
         uValue = hResponse[ "error" ]
         ::aEmbeddings = nil
      END   
   endif   
    
return uValue

//----------------------------------------------------------------------------//

PROCEDURE Destroy() CLASS TEmbeddings

   if ::hCurl != nil
      ::End()
   endif

return    

//----------------------------------------------------------------------------//

METHOD Distance( aVector2, lCosine ) CLASS TEmbeddings

    local nDistance, nSum, nNorm1, nNorm2, nDotProduct, nI

    DEFAULT lCosine := .T.  // Default to cosine distance
 
    if Empty( ::aEmbeddings )
       return -1  // Error: No embeddings stored in ::aEmbeddings
    endif
 
    if Len( ::aEmbeddings ) != Len( aVector2 )
       return -1  // Error: vectors must have the same length
    endif
 
    if lCosine
       // Calculate dot product and norms for cosine similarity
       nDotProduct := 0
       nNorm1 := 0
       nNorm2 := 0
       for nI := 1 to Len( ::aEmbeddings )
          nDotProduct += ::aEmbeddings[nI] * aVector2[nI]
          nNorm1 += ::aEmbeddings[nI] ^ 2
          nNorm2 += aVector2[nI] ^ 2
       next
       nNorm1 := Sqrt( nNorm1 )
       nNorm2 := Sqrt( nNorm2 )
       
       // Avoid division by zero
       if nNorm1 == 0 .OR. nNorm2 == 0
          return 1  // Maximum distance if one vector is zero
       endif
       
       // Cosine similarity and distance
       nDistance := 1 - ( nDotProduct / ( nNorm1 * nNorm2 ) )
    else
       // Euclidean distance
       nSum := 0
       for nI := 1 to Len( ::aEmbeddings )
          nSum += ( ::aEmbeddings[nI] - aVector2[nI] ) ^ 2
       next
       nDistance := Sqrt( nSum )
    endif
 
 return nDistance
 
//----------------------------------------------------------------------------//

Code: Select all | Expand

// Please remember to set HF_API_KEY=hf_... or OPENAI_API_KEY=... in your environment

#include "FiveWin.ch"

function Main()

    local oEmbeddings1 := TEmbeddings():New()
    local oEmbeddings2 := TEmbeddings():New()
    local oEmbeddings3 := TEmbeddings():New()
    
    oEmbeddings1:GetEmbeddings( "Me siento muy bien" )
    oEmbeddings2:GetEmbeddings( "¿ Como estás ?" )
    oEmbeddings3:GetEmbeddings( "he visto a Pepe" )

    ? oEmbeddings1 - oEmbeddings2
    ? oEmbeddings1 - oEmbeddings3
    
return nil    

Code: Select all | Expand

// Please remember to set HF_API_KEY=hf_... or OPENAI_API_KEY=... in your environment

#include "FiveWin.ch"

function Main()

    local oEmbeddings := TEmbeddings():New()
    local cJson, cSentence := "Hello how are you ?" 
    
    oEmbeddings:GetEmbeddings( cSentence )
    
    cJson = hb_jsonEncode( oEmbeddings:aEmbeddings )

    if ! File( "embeddings.dbf" )
       DbCreate( "embeddings", { { "id", "+", 4, 0 },;
                                 { "sentence", "M", 10, 0 },;
                                 { "vectors", "M", 10 , 0 } } ) 
    endif
    
    USE embeddings 
    APPEND BLANK
    REPLACE sentence WITH cSentence
    REPLACE vectors WITH cJson
    XBrowse()
    USE
    
return nil    

Code: Select all | Expand

<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <title>Professional Dashboard with Charts</title>
    <script src="https://cdn.jsdelivr.net/npm/chart.js"></script>
    <style>
        * {
            margin: 0;
            padding: 0;
            box-sizing: border-box;
            font-family: Arial, sans-serif;
        }

        body {
            background: #f0f2f5;
            color: #333;
            line-height: 1.6;
        }

        .container {
            display: flex;
            min-height: 100vh;
        }

        .sidebar {
            width: 250px;
            background: #2c3e50;
            color: white;
            position: fixed;
            height: 100%;
            padding: 20px;
        }

        .sidebar h2 {
            font-size: 24px;
            margin-bottom: 30px;
            text-align: center;
        }

        .sidebar ul {
            list-style: none;
        }

        .sidebar ul li {
            margin: 20px 0;
        }

        .sidebar ul li a {
            color: white;
            text-decoration: none;
            display: flex;
            align-items: center;
            padding: 10px;
            border-radius: 5px;
            transition: background 0.3s;
        }

        .sidebar ul li a:hover {
            background: #34495e;
        }

        .sidebar ul li a i {
            margin-right: 10px;
            font-size: 18px;
        }

        .main-content {
            flex: 1;
            margin-left: 250px;
            padding: 20px;
        }

        .dashboard-container {
            max-width: 1400px;
            margin: 0 auto;
        }

        .header {
            background: #2c3e50;
            color: white;
            padding: 20px;
            border-radius: 10px;
            margin-bottom: 20px;
        }

        .header h1 {
            font-size: 24px;
        }

        .grid-container {
            display: grid;
            grid-template-columns: repeat(auto-fit, minmax(300px, 1fr));
            gap: 20px;
        }

        .card {
            background: white;
            border-radius: 10px;
            padding: 20px;
            box-shadow: 0 4px 6px rgba(0,0,0,0.1);
            transition: transform 0.3s;
        }

        .card:hover {
            transform: translateY(-5px);
        }

        .card h3 {
            margin-bottom: 15px;
            color: #2c3e50;
        }

        .stats-card {
            display: flex;
            align-items: center;
            gap: 15px;
        }

        .stats-icon {
            width: 50px;
            height: 50px;
            background: #3498db;
            border-radius: 50%;
            display: flex;
            align-items: center;
            justify-content: center;
            color: white;
            font-size: 24px;
        }

        .chart-container {
            height: 200px;
            position: relative;
        }

        .progress-bar {
            width: 100%;
            height: 20px;
            background: #eee;
            border-radius: 10px;
            overflow: hidden;
            margin-top: 10px;
        }

        .progress {
            height: 100%;
            background: #2ecc71;
            width: 0;
        }

        .progress-75 { width: 75%; }
        .progress-50 { width: 50%; }
        .progress-25 { width: 25%; }

        @media (max-width: 768px) {
            .sidebar {
                width: 200px;
            }

            .main-content {
                margin-left: 200px;
            }

            .grid-container {
                grid-template-columns: 1fr;
            }
        }

        @media (max-width: 480px) {
            .sidebar {
                width: 70px;
            }

            .sidebar h2,
            .sidebar ul li a span {
                display: none;
            }

            .main-content {
                margin-left: 70px;
            }
        }
    </style>
</head>
<body>
    <div class="container">
        <div class="sidebar">
            <h2>Menu</h2>
            <ul>
                <li><a href="#"><i>🏠</i><span>Dashboard</span></a></li>
                <li><a href="#"><i>📊</i><span>Analytics</span></a></li>
                <li><a href="#"><i>👥</i><span>Users</span></a></li>
                <li><a href="#"><i>⚙️</i><span>Settings</span></a></li>
                <li><a href="#"><i>🚪</i><span>Logout</span></a></li>
            </ul>
        </div>

        <div class="main-content">
            <div class="dashboard-container">
                <div class="header">
                    <h1>Dashboard Overview</h1>
                </div>

                <div class="grid-container">
                    <div class="card stats-card">
                        <div class="stats-icon">📊</div>
                        <div>
                            <h3>Revenue</h3>
                            <p>$24,500</p>
                        </div>
                    </div>

                    <div class="card stats-card">
                        <div class="stats-icon">👥</div>
                        <div>
                            <h3>Users</h3>
                            <p>1,234</p>
                        </div>
                    </div>

                    <div class="card stats-card">
                        <div class="stats-icon">⭐</div>
                        <div>
                            <h3>Rating</h3>
                            <p>4.8/5</p>
                        </div>
                    </div>

                    <div class="card">
                        <h3>Sales Trend (Monthly)</h3>
                        <div class="chart-container">
                            <canvas id="salesChart"></canvas>
                        </div>
                    </div>

                    <div class="card">
                        <h3>Project Progress</h3>
                        <p>Development</p>
                        <div class="progress-bar"><div class="progress progress-75"></div></div>
                        <p>Design</p>
                        <div class="progress-bar"><div class="progress progress-50"></div></div>
                        <p>Testing</p>
                        <div class="progress-bar"><div class="progress progress-25"></div></div>
                    </div>

                    <div class="card">
                        <h3>User Distribution</h3>
                        <div class="chart-container">
                            <canvas id="userChart"></canvas>
                        </div>
                    </div>
                </div>
            </div>
        </div>
    </div>

    <script>
        // Sales Trend Line Chart
        const salesCtx = document.getElementById('salesChart').getContext('2d');
        new Chart(salesCtx, {
            type: 'line',
            data: {
                labels: ['Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun'],
                datasets: [{
                    label: 'Sales ($)',
                    data: [12000, 19000, 15000, 25000, 22000, 30000],
                    borderColor: '#3498db',
                    backgroundColor: 'rgba(52, 152, 219, 0.2)',
                    fill: true,
                    tension: 0.4
                }]
            },
            options: {
                responsive: true,
                maintainAspectRatio: false,
                scales: {
                    y: {
                        beginAtZero: true
                    }
                }
            }
        });

        // User Distribution Bar Chart
        const userCtx = document.getElementById('userChart').getContext('2d');
        new Chart(userCtx, {
            type: 'bar',
            data: {
                labels: ['New', 'Returning', 'Inactive'],
                datasets: [{
                    label: 'Users',
                    data: [500, 600, 134],
                    backgroundColor: [
                        '#2ecc71',
                        '#3498db',
                        '#e74c3c'
                    ]
                }]
            },
            options: {
                responsive: true,
                maintainAspectRatio: false,
                scales: {
                    y: {
                        beginAtZero: true
                    }
                }
            }
        });
    </script>
</body>
</html>

Code: Select all | Expand

oRep:bPostGroup := { || oRep:Line(oRep:nRow + 5, 0, oRep:nRow + 5, oRep:nWidth, 1, CLR_BLACK) }

Code: Select all | Expand

 oRep:bStartGroup := { |oGroup| oRep:Say(oRep:nMargin, Replicate("-", oRep:nWidth / 10), 1, RPT_LEFT, oRep:nRow + 5, , , CLR_BLACK),;
                                     oRep:nRow := oRep:nRow + 10 }

Code: Select all | Expand

WITH OBJECT oBrw
      :bChange := {|| RefreshCont(aBtnBrow[4], oBrw)}
      :lHScroll := .F.
      :CreateFromCode()
   END

Code: Select all | Expand

$mysqli = new mysqli("localhost", "user", "password", "database");

$stmt = $mysqli->prepare("SELECT * FROM users WHERE username = ?");
$stmt->bind_param("s", $username); // 's' means string
$username = "rcrespo";
$stmt->execute();

$result = $stmt->get_result();
while ($row = $result->fetch_assoc()) {
    print_r($row);
}

Code: Select all | Expand

cSql     := "SHOW FULL TABLES IN `?` LIKE ?"
oMysql:Execute( cSql, { npar1, npar2 } )    // Example with two parameters

Code: Select all | Expand

DEFINE WINDOW oWnd TITLE "Dashboard " 
   *** Paneles
      
   oPanelWeb := TPanel():New( 0, 281, oWnd:nHeight, oWnd:nWidth, oWnd ) 
  
   oPanelWeb:blclicked := {|| msginfo("test")}  <---------
   
   oWebView := TWebView2():New(oPanelWeb)      
   oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )   
   oWebView:SetHtml( MiHtml(1) ) 
   oWebView:Run()   

ACTIVATE WINDOW oWnd MAXIMIZED ON RESIZE

Code: Select all | Expand

// C:\FWH\SAMPLES\BIRAPAN.PRG

#include "FiveWin.ch"

STATIC oWnd, OPANELWEB, OWEBVIEW

FUNCTION Main()

   DEFINE WINDOW oWnd TITLE "Dashboard " // ** Paneles

   oPanelWeb := TPanel():New( 0, 281, oWnd:nHeight, oWnd:nWidth, oWnd )

   WITH OBJECT oPanelWeb

      oWnd:bRClicked := { || ( FUNDOBIRA() ) } // Mouse Direito

      oWnd:bLClicked := { || ( FUNDOBIRA() ) } // Mouse Esquerdo

   END

   oWebView := TWebView2():New( oPanelWeb )
   oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )
   oWebView:SetHtml( MiHtml( 1 ) ) // ?? Mostre isso Bira, fiquei curioso.
   oWebView:Run()

   ACTIVATE WINDOW oWnd MAXIMIZED // ON RESIZE ??

RETURN NIL

FUNCTION FUNDOBIRA()

   ? [AQUI ESTOU BIRA]

RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Code: Select all | Expand

 
  if ( "index.html" $ cParam .and. "#" $ cParam )

            cCommand := SubStr( cParam, At( "#", cParam ) + 1 )

            if !Empty( cCommand )
                            &cCommand
                        end if
                        

Code: Select all | Expand

<ul class="post-content-button">
                            			<li class="post-contenido-button"><img src="img/gc_document_text_user.png" class="imagen"></li>
                                		<li class="post-contenido-button"><font class="tituloboton"><a href="index.html#AppFacCli()">A&ntilde;adir nueva factura</a></font></li>
                            		</ul>

Code: Select all | Expand

<!DOCTYPE html>
<html lang="it">
<head>
    <meta charset="UTF-8">
    <title>Test TWebView</title>
    <style>
        body {
            font-family: Arial, sans-serif;
            display: flex;
            justify-content: center;
            align-items: center;
            height: 100vh;
            margin: 0;
            background-color: #f0f0f0;
        }
        .post-content-button {
            list-style: none;
            padding: 0;
            display: flex;
            align-items: center;
            background-color: #ffffff;
            border: 1px solid #ccc;
            border-radius: 5px;
            box-shadow: 2px 2px 5px rgba(0,0,0,0.1);
        }
        .post-contenido-button {
            margin: 10px;
        }
        .imagen {
            width: 24px;
            height: 24px;
            vertical-align: middle;
        }
        .tituloboton {
            font-size: 16px;
            color: #333;
        }
        a {
            text-decoration: none;
            color: #0078d7;
        }
        a:hover {
            text-decoration: underline;
            color: #005bb5;
        }
    </style>
</head>
<body>
    <ul class="post-content-button">
        <li class="post-contenido-button">
            <img src="img/test.png" class="imagen" alt="Image">
        </li>
        <li class="post-contenido-button">
            <font class="tituloboton">
                <a href="#" onclick="callHarbourFunction('AppFacCli'); return false;">Añadir nueva factura</a>
            </font>
        </li>
    </ul>

    <script>
        function callHarbourFunction(funcName) {
            if (window.chrome && window.chrome.webview) {
                window.chrome.webview.postMessage(funcName); 
                alert("Messaggio inviato a Harbour: " + funcName); 
            } else {
                alert("WebView2 non è disponibile!");
            }
        }
    </script>
</body>
</html>

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION Main()
   LOCAL oWebView := TWebView():New( 0, 0, 800, 600 ) // Create the WebView control
   LOCAL cHtml := MemoRead("mihtml.html")   // Upload your HTML

   // Set up binding to receive messages from the web
   oWebView:bOnBind := {|cMessage| ExecuteFunction(cMessage) }

   // Load the HTML
   oWebView:SetHtml(cHtml)
   oWebView:Run()

RETURN NIL

FUNCTION ExecuteFunction(cFuncName)
   IF cFuncName == "AppFacCli"
      AppFacCli() // Call your Harbour function
   ENDIF
RETURN NIL

FUNCTION AppFacCli()
   MsgInfo("here your harbour/fwh  codes!")
RETURN NIL

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION Main()
   LOCAL oWebView := TWebView():New()

   oWebView:SetHtml( Html() )
   oWebView:SetTitle( "Test AppFacCli" )
   oWebView:SetSize( 800, 600 )
   oWebView:Bind( "SendToFWH" )
   oWebView:bOnBind := {|cJson, cCalls| ExecuteFunction(cJson, cCalls, oWebView) }
   oWebView:Run()
   oWebView:Destroy()

RETURN NIL

FUNCTION ExecuteFunction(cJson, cCalls, oWebView)
   LOCAL hData

   // Decodifica il JSON ricevuto dal JavaScript
   hb_jsonDecode(cJson, @hData)

   // Controlla il contenuto del JSON
   IF hb_HHasKey(hData, "function") .AND. hData["function"] == "AppFacCli"
      AppFacCli()
      oWebView:Return(cCalls, 0, "{ 'result': 'AppFacCli eseguita con successo!' }")
   ELSE
      oWebView:Return(cCalls, 0, "{ 'result': 'Funzione non riconosciuta' }")
   ENDIF

RETURN NIL

FUNCTION AppFacCli()
   MsgInfo("my codes!")
RETURN NIL

FUNCTION Html()
   LOCAL cHtml

   TEXT INTO cHtml
   <!DOCTYPE html>
   <html lang="it">
   <head>
       <meta charset="UTF-8">
       <title>Test TWebView</title>
       <style>
           body { font-family: Arial, sans-serif; display: flex; justify-content: center; align-items: center; height: 100vh; margin: 0; background-color: #f0f0f0; }
           .post-content-button { list-style: none; padding: 0; display: flex; align-items: center; background-color: #ffffff; border: 1px solid #ccc; border-radius: 5px; box-shadow: 2px 2px 5px rgba(0,0,0,0.1); }
           .post-contenido-button { margin: 10px; }
           .imagen { width: 24px; height: 24px; vertical-align: middle; }
           .tituloboton { font-size: 16px; color: #333; }
           a { text-decoration: none; color: #0078d7; }
           a:hover { text-decoration: underline; color: #005bb5; }
       </style>
   </head>
   <body>
       <ul class="post-content-button">
           <li class="post-contenido-button"><img src="img/test.png" class="imagen" alt="Icona"></li>
           <li class="post-contenido-button">
               <font class="tituloboton">
                   <a href="#" onclick="callHarbourFunction('AppFacCli'); return false;">Añadir nueva factura</a>
               </font>
           </li>
       </ul>

       <script>
           function callHarbourFunction(funcName) {
               var data = { function: funcName };
               var s = SendToFWH(data).then(s => { 
                   alert(s.result);
               }).catch(err => {
                   alert("Errore: " + err); 
               });
           }
       </script>
   </body>
   </html>
   ENDTEXT

RETURN cHtm

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION Main()
   LOCAL oWebView := TWebView():New()

   oWebView:SetHtml( Html() )
   oWebView:SetTitle( "Test AppFacCli" )
   oWebView:SetSize( 800, 600 )
   oWebView:Bind( "SendToFWH" )
   oWebView:bOnBind := {|cJson, cCalls| ExecuteFunction(cJson, cCalls, oWebView) }
   oWebView:Run()
   oWebView:Destroy()

RETURN NIL

FUNCTION ExecuteFunction(cJson, cCalls, oWebView)
   LOCAL hData, cFuncName

   // Debug: mostra il JSON ricevuto
   MsgInfo("JSON ricevuto: " + cJson)

   // Decodifica il JSON
   hb_jsonDecode(cJson, @hData)

   // Se hData è un array, prendi il primo elemento
   IF ValType(hData) == "A" .AND. Len(hData) > 0
      hData := hData[1]
   ENDIF

   // Estrai il nome della funzione
   cFuncName := hb_HGetDef(hData, "function", "Nessuna funzione")
   MsgInfo("Funzione estratta: " + cFuncName)

   // Esegui la funzione corrispondente
   IF Upper(cFuncName) == "APPFACCLI"
      AppFacCli()
      oWebView:Return(cCalls, 0, "{ 'result': 'AppFacCli eseguita con successo!' }")
   ELSE
      oWebView:Return(cCalls, 0, "{ 'result': 'Funzione non riconosciuta: " + cFuncName + "' }")
   ENDIF

   RETURN NIL

FUNCTION AppFacCli()
   MsgInfo("my codes!")
   RETURN NIL

Function RightClickEvent()     // this is opened when  I click on right click of the mouse into webview
         MsgInfo("right click!")
   return nil




   FUNCTION Html()
   LOCAL cHtml

   TEXT INTO cHtml
   <!DOCTYPE html>
   <html lang="it">
   <head>
       <meta charset="UTF-8">
       <title>Test TWebView</title>
       <style>
           body { font-family: Arial, sans-serif; display: flex; justify-content: center; align-items: center; height: 100vh; margin: 0; background-color: #f0f0f0; }
           .post-content-button { list-style: none; padding: 0; display: flex; align-items: center; background-color: #ffffff; border: 1px solid #ccc; border-radius: 5px; box-shadow: 2px 2px 5px rgba(0,0,0,0.1); }
           .post-contenido-button { margin: 10px; }
           .imagen { width: 24px; height: 24px; vertical-align: middle; }
           .tituloboton { font-size: 16px; color: #333; }
           a { text-decoration: none; color: #0078d7; }
           a:hover { text-decoration: underline; color: #005bb5; }
       </style>
   </head>
   <body>
       <ul class="post-content-button">
           <li class="post-contenido-button"><img src="img/test.png" class="imagen" alt="Icona"></li>
           <li class="post-contenido-button">
               <font class="tituloboton">
                   <a href="#" onclick="callHarbourFunction('AppFacCli'); return false;">Aggiungi nuova fattura</a>
               </font>
           </li>
       </ul>

       <script>
           // Funzione per chiamare Harbour
           function callHarbourFunction(funcName) {
               var data = { function: funcName };
               SendToFWH(data).then(s => { 
                   alert(s.result);
               }).catch(err => {
                   alert("Errore: " + err); 
               });
           }

           // Intercetta il clic destro e invia l'evento a Harbour
           document.addEventListener("contextmenu", function(event) {
               event.preventDefault(); // Evita il menu di default del browser
               var data = { function: "RightClickEvent" };
               SendToFWH(data);
           });
       </script>
   </body>
   </html>
   ENDTEXT

RETURN cHtml

Code: Select all | Expand

HB_FUNC(SQLPING)
{
   _retnl((long) mysql_ping( (MYSQL *)_parnl(1) ) );
}

Code: Select all | Expand

METHOD   Ping()               INLINE sqlping( ::nSocket )

Code: Select all | Expand

 <div class="quick-item" onclick="callHarbourFunction('Clienti')">
                                <img src="{IMGCLIENTI}" alt="Clienti">
                                <span>Clienti</span>
                            </div>

Code: Select all | Expand

<script>
                function callHarbourFunction(funcName) {
                    var data = { function: funcName };
                    var s = SendToFWH(data).then(s => {
                        alert(s.result);
                    }).catch(err => {
                        alert("Errore: " + err);
                    });
                }
            </script>

Code: Select all | Expand

 FUNCTION Extract(cString)
    LOCAL aData
    LOCAL cValue
    aData := (cString)
    cValue := aData[1]["function"]
    RETURN cValue

Code: Select all | Expand

Function ExecuteFunction(hData, oWebView)
   local  cFuncName  := Extract(hData)


   DO CASE
      CASE cFuncName == "Bacheca"
         Bacheca(oWebView)
        CASE cFuncName = "Clienti"
         Clienti()
              ENDCASE
   RETURN NIL

Code: Select all | Expand

#include "windows.h"
#include "hbapi.h"

HB_FUNC( HB_DEBUG_STRING )
{
	OutputDebugString( hb_parcx( 1 ) );
}

Code: Select all | Expand

hb_debug_string( "your string message" )

Code: Select all | Expand

  
  <!DOCTYPE html>
  <html lang="pt-br">
  <head>
  
  <meta charset="UTF-8">
  <title>Menu</title>
  <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.0.0/css/all.min.css">
  <link rel="stylesheet" href="/easyui/themes/color.css">
  <link rel="stylesheet" href="/easyui/themes/metro/easyui.css">
  <script src="https://code.jquery.com/jquery-3.6.4.min.js"></script>
  <script src="https://www.jeasyui.com/easyui/jquery.easyui.min.js"></script>
      
    
  <script>

    function ExecMenu(opcao){
    
         alert("Executando ExecMenu: " + opcao);              <<<< ----- ok
         
         window.chrome.webview.postmessage(opcao);            <<<< ---- :-( não funciona
		 SendToFWH( opcao );                                  <<<< ---- :-( não funciona 
   	}
 
  </script>
  
  <style>
   
  body {
    font-family: "Segoe UI", sans-serif;
    padding: 20px;
    background: #f4f6f9;
  }
 
  .menu-card {
    padding: 0;
    padding-bottom: 12px;
    background: #fff;
    border: 1px solid #d0d7de;
    border-radius: 6px;
    box-shadow: 0 1px 3px rgba(0,0,0,0.05);
    margin-bottom: 20px;
  }
 
  h3.menu-titulo {
    margin: 0;
    padding: 8px 12px;
    background-color: 'f6f6f6;
    color: '0078d4;
    font-size: 16px;
    font-weight: bold;
    border-bottom: 1px solid 'ddd;
    border-radius: 6px 6px 0 0;
  }
 
  ul {
    margin: 2px 0;
    padding: 0;
  }
 
  li, li a {
    list-style: none;
    margin: 0;
    padding: 0;
    border: none;
    line-height: 1.2;
  }
 
  .menu-card li {
    cursor: pointer;
    white-space: nowrap;
    overflow: hidden;
    text-overflow: ellipsis;
  }
 
  .menu-card li:hover {
    background: #B0E2FF;
  }
 
  li a {
    color: #0078d4;
    text-decoration: underline;
    display: block;
    padding: 2px 2px;
  }
 
  li a:hover {
    text-decoration: none;
  }
  
  li span {
  display: inline-flex;
  align-items: center;
  gap: 6px;
  }
  
  li img, li i {
    vertical-align: middle;
    display: inline-block;
    margin-right: 6px;  
  }
    
  </style>
    
  </head>
  <body>
  

   <div class="menu-container" style="display: grid; grid-template-columns: repeat(auto-fit, minmax(280px, 1fr)); gap: 16px;">

   <div class="menu-card" style="background:#fff; border:1px solid #d0d7de;   border-radius:6px; padding:12px; box-shadow:0 1px 3px rgba(0,0,0,0.05);">
   <h3 style="margin:0; color: white; font-size:16px; border-bottom:1px solid #eee; border-radius: 6px 6px 0 0;border-bottom: 1px solid #ddd; font-weight: bold;padding: 8px 12px;padding-bottom:4px; background-color: #004080;">Arquivos</h3>
   <ul style="list-style:none; padding:0; margin:0; white-space: nowrap;">
     <li><span><i class="fas fa-dollar-sign" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVPla000():New( ::oWnd )'); return false;">Captura lista de preços</a></span></li>
     <li><span><i class="fas fa-box" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVFrm087():New(::oWnd)'); return false;">Gerar arquivo de produtos (Global)</a></span></li>
     <li><span><i class="fas fa-envelope" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('EnviaLista()'); return false;">Enviar lista de preco por email</a></span></li>
     <li><span><i class="fas fa-cog" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TCfg():New(::oWnd)'); return false;">Configurações Gerais</a></span></li>
     <li><span><i class="fas fa-user" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVFrm046():New(::oWnd, ::oWnd:oMenu)'); return false;">Vendedor/Usuário/Representante</a></span></li>
     <li><span><i class="fas fa-user-lock" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVFrm124():New(::oWnd)'); return false;">Ligar/Desligar direitos para vários usuários</a></span></li>
    </ul>
</div>

   <div class="menu-card" style="background:#fff; border:1px solid #d0d7de; border-radius:6px; padding:12px; box-shadow:0 1px 3px rgba(0,0,0,0.05);">

   <h3 style="margin:0; color: white; font-size:16px; border-bottom:1px solid #eee; border-radius: 6px 6px 0 0;border-bottom: 1px solid #ddd; font-weight: bold;padding: 8px 12px;padding-bottom:4px; background-color: #004080;">Processos especiais</h3>

   <ul style="list-style:none; padding:0; margin:0;">
     <li><span><i class="fas fa-database" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('Msg("Solicite informações para restaurar copias de segurança")'); return false;">Restaurar Cópias de Segurança</a></span></li>
     <li><span><i class="fas fa-table" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TCheckTab():New(.T., ::oWnd)'); return false;">Conferência das tabelas</a></span></li>
     <li><span><i class="fas fa-table" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter({|oMeter| RecnoTab(oMeter) },"aguarde","processando")'); return false;">Recupera tabela-especial</a></span></li>
     <li><span><i class="fas fa-exchange-alt" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TrocaTbl()'); return false;">Troca de tabela - manutenção</a></span></li>
     <li><span><i class="fas fa-upload" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TMigra():New(.T.,,,.T.)'); return false;">Carrega tabela de dados - manutenção</a></span></li>
     <li><span><i class="fas fa-file-archive" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TBackup():New(2, ::oWnd)'); return false;">Backup dos Arquivos XML-NFe</a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TBackup():New(3, ::oWnd)'); return false;">Enviar todos os XML-NFe por Cliente</a></span></li>
     <li><span><i class="fas fa-terminal" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('ManutencaoQuery()'); return false;">Manutenção por query</a></span></li>
     <li><span><i class="fas fa-wrench" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('ManutencaoPorFuncao()'); return false;">Manutenção por função</a></span></li>
     <li><span><i class="fas fa-terminal" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('CriaManutencaoQuery()'); return false;">Cria Manutenção por query</a></span></li>
     <li><span><i class="fas fa-tools" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('CriaManutencaoPorFuncao()'); return false;">Cria Manutenção por função</a></span></li>
     <li><span><i class="fas fa-folder-open" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVFrm086():New()'); return false;">Organizar Arquivos</a></span></li>
     <li><span><i class="fas fa-file-medical" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('ManTableFrm086()'); return false;">Manutenção arquivos - corrigir integridade</a></span></li>
     <li><span><i class="fas fa-tools" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('Reparar()'); return false;">Manutenção de tabela</a></span></li>
     <li><span><i class="fas fa-circle" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TCheckDic():Ler(::oWnd)'); return false;">Registros de eventos</a></span></li>
     <li><span><i class="fas fa-history" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TCheckDic():LerPed(::oWnd)'); return false;">Histórico de pedidos de venda</a></span></li>
     <li><span><i class="fas fa-history" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TCheckDic():LerPedComp(::oWnd)'); return false;">Histórico de pedidos de compra</a></span></li>
     <li><span><i class="fas fa-history" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TCheckDic():LerPedCompDiversos(::oWnd)'); return false;">Histórico de pedidos de compra - diversos</a></span></li>
     <li><span><i class="fas fa-receipt" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TCheckDic():VerDuplicata(1,::oWnd)'); return false;">Histórico de duplicatas - Contas a pagar</a></span></li>
     <li><span><i class="fas fa-receipt" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TCheckDic():VerDuplicata(2,::oWnd)'); return false;">Histórico de duplicatas - Contas a receber</a></span></li>
     <li><span><i class="fas fa-share-square" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('SuporteSis()'); return false;">Enviar informações do sistema</a></span></li>
     <li><span><i class="fas fa-user" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TUser():New(::oWnd)'); return false;">Usuários conectados</a></span></li>
     <li><span><i class="fas fa-database" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TSysInfo():New(::oWnd)'); return false;">Informações do MySQL</a></span></li>
     <li><span><i class="fas fa-cloud-upload-alt" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgRun("Verificando versão no Servidor FTP", "Sisrev Informática Ltda.", {|oMsg| ChamaGoFTP()} )'); return false;">Atualizar versão do Sistema por FTP</a></span></li>
     <li><span><i class="fas fa-cloud-upload-alt" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVMan233():New(::oWnd)'); return false;">Atualizar NFe_Util por FTP</a></span></li>
     <li><span><i class="fas fa-cloud-upload-alt" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVMan234():New(::oWnd)'); return false;">Atualizar Fontes do Danfe por FTP</a></span></li>
     <li><span><i class="fas fa-sync" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgRun("Verificando versão no Servidor Web", "Sisrev Informática Ltda.", {|oMsg| ChamaGoWeb(1)} )'); return false;">Atualizar versão via Servidor Web</a></span></li>
     <li><span><i class="fas fa-sync-alt" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgRun("Verificando versão no Servidor Web", "Sisrev Informática Ltda.", {|oMsg| ChamaGoWeb(2)} )'); return false;">Substituir versão (mesmo número) via Servidor Web</a></span></li>
   </ul></div>

   <div class="menu-card" style="background:#fff; border:1px solid #d0d7de; border-radius:6px; padding:12px; box-shadow:0 1px 3px rgba(0,0,0,0.05);">

   <h3 style="margin:0; color: white; font-size:16px; border-bottom:1px solid #eee; border-radius: 6px 6px 0 0;border-bottom: 1px solid #ddd; font-weight: bold;padding: 8px 12px;padding-bottom:4px; background-color: #004080;">Arquivos de contabilidade</h3>

   <ul style="list-style:none; padding:0; margin:0;">
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TFolhaMNovo():New(.F.)'); return false;">Gerar arquivo Folhamatic layout 1.9 </a></span></li>
     <li><span><i class="fas fa-file-invoice-dollar" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVMan210():New(::oWnd)'); return false;">Gerar arquivo de recebimentos</a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TFolha20():New(.T.)'); return false;">Gerar arquivo Folhamatic layout 2.0 (2009) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TContMatic():New(1)'); return false;">Gerar arquivo Contmatic (Entradas/Saidas) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TContMatic():New(2)'); return false;">Gerar arquivo Contmatic (Lançtos.Contabeis: Pagos/Recebidos) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter( {|oMeter|TSintegra2009():TxtInventario_Contmatic(oMeter)},"Processando","Aguarde")'); return false;">Gerar arquivo Contmatic (Inventário) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TFolhaMCompra():New()'); return false;">Gerar arquivo Folhamatic layout 2.0 (Notas de Compras) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TFolha20():New(.T., .T.)'); return false;">Gerar arquivo Folhamatic layout 2.0.06 </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TFolhaMCompra():New(.T.)'); return false;">Gerar arquivo Folhamatic layout 2.0.06 (Notas de Compras) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVArq001():New()'); return false;">Gerar arquivo Prosoft (Lançtos.Contabeis: Pagos/Recebidos) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter( {|oMeter|TSintegra2009():TxtInventario_Prosoft(oMeter)},"Processando","Aguarde")'); return false;">Gerar arquivo Prosoft (Inventário) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVArq002():New()'); return false;">Gerar arquivo Questor (Lançtos.Contabeis: Pagos/Recebidos) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVArq003():New()'); return false;">Gerar arquivo Folhamatic (Lançtos.Contabeis: Pagos/Recebidos) </a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVArq004():New()'); return false;">Gerar Arquivo para o Sistema Domínio (Lançamentos Contábeis: Pagos/Recebidos) </a></span></li>
     <li><span><i class="fas fa-folder" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter({|oMeter| TNfeMonitor():GeraNfe(oMeter,1)},"Processando","Aguarde")'); return false;">Arquivos NFe (gera XML das notas-saídas)</a></span></li>
     <li><span><i class="fas fa-file-code" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter({|oMeter| TNfeMonitor():GeraNfe(oMeter,2)},"Processando","Aguarde")'); return false;">Arquivos NFe (gera XML das notas-por cliente)</a></span></li>
     <li><span><i class="fas fa-file-import" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter({|oMeter| TNfeMonitor():GeraNfeEnt(oMeter,1)},"Processando","Aguarde")'); return false;">Arquivos NFe (gera XML das notas-entradas)</a></span></li>
     <li><span><i class="fas fa-file-import" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter({|oMeter| TNfeMonitor():GeraNfeEnt(oMeter,2)},"Processando","Aguarde")'); return false;">Arquivos NFe (gera XML das notas-entradas-por fornecedor)</a></span></li>
     <li><span><i class="fas fa-file-invoice" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVRLis256():New(::oWnd)'); return false;">Relatório de Conferência de XML de Notas de Entrada</a></span></li>
     <li><span><i class="fas fa-file-signature" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter({|oMeter| TNFeMonitor():GeraCartas(oMeter)},"Processando","Aguarde")'); return false;">Arquivos de Carta de Correção (gera XML das cartas)</a></span></li>
     <li><span><i class="fas fa-table" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TEContab():New(2)'); return false;">Tabela de Produtos para Sistema E-Contab </a></span></li>
     <li><span><i class="fas fa-file-invoice-dollar" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVRlis260():New(::oWnd)'); return false;">Escritório '1 - 100 clientes     (contabilidade)</a></span></li>
     <li><span><i class="fas fa-file-invoice-dollar" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVRlis261():New(::oWnd)'); return false;">Escritório '2 - 100 fornecedores (contabilidade)</a></span></li>
     <li><span><i class="fas fa-box" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVRlis262():New(::oWnd)'); return false;">Escritório '3 - 100 produtos (saídas)(contabilidade)</a></span></li>
     <li><span><i class="fas fa-box" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVRlis263():New(::oWnd)'); return false;">Escritório '4 - 100 produtos (entrada)(contabilidade)</a></span></li>
   </ul></div>

   <div class="menu-card" style="background:#fff; border:1px solid #d0d7de; border-radius:6px; padding:12px; box-shadow:0 1px 3px rgba(0,0,0,0.05);">

   <h3 style="margin:0; color: white; font-size:16px; border-bottom:1px solid #eee; border-radius: 6px 6px 0 0;border-bottom: 1px solid #ddd; font-weight: bold;padding: 8px 12px;padding-bottom:4px; background-color: #004080;">Arquivos Fiscais</h3>

   <ul style="list-style:none; padding:0; margin:0;">
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TSintegra2009():New()'); return false;">Gerar Sintegra 2009 (a partir 01-05-2009)</a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TSintegra2009():Registro88()'); return false;">Gerar Sintegra 2009 (registro 88)</a></span></li>
     <li><span><i class="fas fa-file-export" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('MsgMeter( {|oMeter|TSintegra2009():Processa74(oMeter,,,,,,,.T.)},"Processando","Aguarde")'); return false;">Gerar Sintegra 2009 (somente - registro 74)</a></span></li>
     <li><span><i class="fas fa-file-invoice" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVFrm040():New()'); return false;">SPED Fiscal - Cadastro do Contador</a></span></li>
     <li><span><i class="fas fa-file-invoice" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVFrm045():New(::oWnd)'); return false;">SPED Fiscal - Gerar arquivo fiscal</a></span></li>
     <li><span><i class="fas fa-folder" style="margin-right:6px;"></i><a href="#" onclick="javascript:ExecMenu('TVFrm044():New(::oWnd)'); return false;">SPED PIS/COFINS - Gerar arquivo</a></span></li>
   </ul></div>
   </div>

</body>
</html>

Code: Select all | Expand

/*========================================================================
                       SISREV INFORMATICA LTDA.
              Prestando serviços com qualidade desde 1993
                       CNPJ: 02.623.572/0001-52
                       CNPJ: 02.623.572/0002-33
                          www.sisrev.com.br
  ========================================================================
   Sistema..: Sisrev-Win 5.0
   Autor(es): Ariovaldo da Costa Foliene
   Aplicação: TVWeb
   Notas....: Abre as páginas do Sisrev-Web - Microsoft Edge WebView2
   Data.....: 10-03-2025  
  ========================================================================
   TVisual--+
            |
            +--TVisualForm--+  
                            |
                            +--TVWeb.prg
   ========================================================================
    
*/

#include "fivewin.ch"
#include "Objects.ch"
#include "\sis\fsql901\include\rede.ch"

STATIC oWV

* ========================================================================
CLASS TVWeb FROM TVisualForm
* ========================================================================
  DATA cPage, oWebView
  
  METHOD New() CONSTRUCTOR
  METHOD AddControl()
  METHOD BuildMenu()
    
END CLASS

* ========================================================================
METHOD New( xcPage, xcNome ) CLASS TVWeb
* ========================================================================

#ifdef __XHARBOUR__
  
  TVWebMsg() ; return Self
  
#endif
    
  DEFAULT xcPage := ""
  DEFAULT xcNome := Empresas(1)  
  
  ::Super:New("rel")
  
  ::cNome       := xcNome
  ::cPage       := "http://localhost:3000/" + xcPage  
  ::lToolBar    := FALSE  
  ::lTask       := FALSE
  ::lRastrear   := FALSE
   
  ::AddControl()
  
  ::oWebView:oWnd:bValid := {|| ::oWebView:Terminate(),;
                                 WndMain():Show()     ,;
                                 WndMain():SetFocus() ,;
                                 TRUE                 }
                                
return Self

* ========================================================================
METHOD AddControl() CLASS TVWeb
* ========================================================================

#ifndef __XHARBOUR__

  ::oWebView:= TWebView2():New()
  
  ::oWebView:SetTitle( WebTitle("Sisrev-Web" + ::cNome ) ) 
  ::oWebView:oWnd:bResized := {|| ::oWebView:oWnd:Maximize() }
  ::oWebView:oWnd:SetMenu( ::BuildMenu() )  
  ::oWebView:oWnd:SetColor( CLR_BLACK ,nRGB( 231, 242, 255 ) )
  ::oWebView:oWnd:l2007    := .T.
  ::oWebView:SetSize( WndWidth(  ::oWebView:oWnd:hWnd ) - 15,;
                      WndHeight( ::oWebView:oWnd:hWnd ) - 58 )  

  ::oWebView:SetUserAgent( WebAgent())                                            
  ::oWebView:Navigate( ::cPage )                     
  
  ::oWebView:bOnBind  := { |cJson| ExecWeb(cJson) }   
  
  ::oWebView:OpenDevToolsWindow(.F.)
  ::oWebView:ShowDownloads(.F.)    
  ::oWebView:oWnd:bInit := {|| ::oWebView:oWnd:Maximize() }
                                    
  ::oWebView:Run()  
  ::oWebView:Destroy()
    
  WndMain():Hide()  
 
#endif

return nil

* ========================================================================
Function ExecWeb( cData )
* ========================================================================
  local cEndPoint := ""
    
  if ValType( cData ) == "A"
  
#ifdef __HARBOUR__  
     cData := HB_VALTOEXP(cData) /* converts any data type to STR Value */
     cData := strtran( cData, "{", "")
     cData := strtran( cData, "}", "")
     cData := strtran( cData, "'", "")
#endif

  Endif  
  
  cEndPoint:= substr( cData, aT(":", cData ) + 1 , 100 )    
  cData    := strtran("#classe=" + cData +"#EndPoint="+cEndPoint, "#", "&" )
   
  OnGet( cData  )
  
return nil

* =========================================================================
Function StartTVWeb(cFileName) 
* =========================================================================

 if IfExist(oWV)
    oWV:oWebView:Navigate("http://localhost:3000/" + cFileName) 
 Else 
    oWV := TVWeb():New(cFileName)
 Endif
 
return nil

* =========================================================================
METHOD BuildMenu() CLASS TVWeb
* =========================================================================
  local oMenu

  MENU oMenu 
     MENUITEM "Fechar" ACTION ::oWebView:oWnd:End()
  ENDMENU
   
return oMenu 

* =========================================================================
Function TVWebMsg()
return Msg("** Esta funcionidade somente para HarBour **")  
* =========================================================================

* =========================================================================
Function WebAgent()
* =========================================================================
return "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N)"+;
       " AppleWebKit/537.36 (KHTML, like Gecko)"               +;
       " Chrome/103.0.5060.53 Mobile Safari/537.36" 
       

Code: Select all | Expand

function Main()

   local oWnd, oWebView 
   local cHtml := Html()
   
   DEFINE WINDOW oWnd TITLE "Dashboard"

   oWebView = TWebView2():New( oWnd )

   oWebView:SetHtml( memoRead(cHtml ) )

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON RESIZE oWebView:SetSize( nWidth, nHeight )

   return nil

Code: Select all | Expand

DEFINE BUTTONBAR oBar _3D SIZE 80, 70 OF oWnd  2015

Code: Select all | Expand

oWnd:oClient := oWebView

Code: Select all | Expand

rror occurred at: 03/27/25, 09:06:38
   Error description: Error BASE/1004  Message not found: TWEBVIEW2:ADJCLIENT
   Args:
     [   1] = O   TWEBVIEW2

Stack Calls
===========
   Called from: ../../../tobject.prg => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TWEBVIEW2:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TWEBVIEW2:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TWEBVIEW2:ADJCLIENT( 0 )
   Called from: .\source\classes\window.prg => TWINDOW:RESIZE( 2432 )
   Called from: .\source\classes\window.prg => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\window.prg => _FWH( 3719 )

Code: Select all | Expand

function Main()
   local oWnd, oWebView
   local oBar

 DEFINE WINDOW oWnd TITLE "Dashboard"
   oWebView := TWebView2():New( oWnd )
   //oWebView:SetHtml( Html() )
  // oWebView:bOnBind := {|hData| ExecuteFunction(hData, oWebView) }

  // oWebView:oWnd:SetMenu( BuildMenu(oWebView) )


   oWebView:oWnd:SetColor( CLR_BLACK, nRGB( 231, 242, 255 ) )
   oWebView:oWnd:l2007 := .T.
   oWebView:SetSize( WndWidth( oWebView:oWnd:hWnd ) - 15, WndHeight( oWebView:oWnd:hWnd ) - 58 )


    oWnd:oclient:= oWebView
    
   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON RESIZE ( oWebView:SetSize( nWidth, nHeight ))

   return nil

Code: Select all | Expand

function Main()
   local oWnd, oWebView
   local oBar

 DEFINE WINDOW oWnd TITLE "Invoicing"
 BuildMainBar(oWnd)

 oWebView := TWebView2():New( oWnd:oClient )
 oWebView:SetHtml( Html() )
 oWebView:bOnBind := {|hData| ExecuteFunction(hData, oWebView) }
 oWebView:oWnd:SetMenu( BuildMenu(oWebView) )

 oWebView:oWnd:SetColor( CLR_BLACK, nRGB( 231, 242, 255 ) )
 oWebView:SetSize( WndWidth( oWebView:oWnd:hWnd ) - 15, WndHeight( oWebView:oWnd:hWnd ) - 58 )

   DEFINE MSGBAR PROMPT "Invoicing app" ;
      OF oWnd 2015 KEYBOARD DATE


   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON RESIZE ( oWebView:SetSize( nWidth, nHeight ))

   return nil


static function BuildMainBar(oWnd)

   local oBar

   DEFINE BUTTONBAR oBar OF oWnd 2015 SIZE 70, 60 //70

   DEFINE BUTTON OF oBar PROMPT "Invoices" RESOURCE "code" ;
      ACTION NIL

   DEFINE BUTTON OF oBar PROMPT "Clients" RESOURCE "clients" ;
      ACTION NIL

   DEFINE BUTTON OF oBar PROMPT "Items" RESOURCE "relation" ;
      ACTION NIL

   DEFINE BUTTON OF oBar PROMPT "Exit" RESOURCE "exit" ;
      ACTION oWnd:End()

return nil

Function BuildMenu(oWebView)
   local oMenu

   MENU oMenu
      MENUITEM "Uscita" ACTION oWebView:oWnd:End()
   ENDMENU

   return oMenu

Code: Select all | Expand

function Main()
   local oWnd, oWebView
   local oBar

 DEFINE WINDOW oWnd TITLE "Invoicing"
                      BuildMainBar(oWnd)

 oWebView := TWebView2():New( oWnd )
 oWebView:SetHtml( Html() )
 oWebView:bOnBind := {|hData| ExecuteFunction(hData, oWebView) }
 oWebView:oWnd:SetMenu( BuildMenu(oWebView) )

 oWebView:oWnd:SetColor( CLR_BLACK, nRGB( 231, 242, 255 ) )

   DEFINE MSGBAR PROMPT "Invoicing app" ;
      OF oWnd 2015 KEYBOARD DATE

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON RESIZE ( oWebView:SetSize( WndWidth( oWebView:oWnd:hWnd ) - 15,;
                     WndHeight( oWebView:oWnd:hWnd ) - 58 ) )
   return nil

Code: Select all | Expand

 ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON RESIZE ( oWebView:SetSize( WndWidth( oWebView:oWnd:hWnd ) - 15,;
                     WndHeight( oWebView:oWnd:hWnd ) - 80 ) )

Code: Select all | Expand

called from:
.\..\..\VC2022\bin\Hostx64\x64\nmake -fscuolaC64.mak



HBDIR=.\..\..\Hb64vC22
FWDIR=.\..\..\fwh642501
VCDIR=.\..\..\VC2022
VC32DIR=.\..\..\VC2017
SDKDIR=.\..\..\VC2022\sdk

PRGS = scuola.prg functscl.prg TcBrowse.prg #tmGet.prg Combo_Box.prg

.SUFFIXES: .prg .c .obj .rc .res

scuola64.exe : $(PRGS:.prg=.obj) scuola64.res
   @echo $(PRGS:.prg=.obj) > msvc.tmp

   @echo $(FWDIR)\lib\FiveH64.lib  >> msvc.tmp
 	@echo $(FWDIR)\lib\FiveHC64.lib >> msvc.tmp

   @echo $(HBDIR)\lib\win\msvc64\hbrtl.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbvm.lib     >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\gtgui.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hblang.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbmacro.lib  >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbrdd.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\rddntx.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\rddcdx.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\rddfpt.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbsix.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbdebug.lib  >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbcommon.lib >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbpp.lib     >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbwin.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbcplr.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\xhb.lib      >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbpcre.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbct.lib     >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbcpage.lib  >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbzlib.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\png.lib      >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbzlib.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbziparc.lib >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbmzip.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\minizip.lib  >> msvc.tmp

   @echo $(VC32DIR)\Lib\LIBCMT.lib                                                  >> msvc.tmp
   @echo $(VC32DIR)\Lib\OLDNAMES.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\gdi32.lib                                                   >> msvc.tmp
   @echo $(VC32DIR)\Lib\winspool.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\comctl32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\comdlg32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\advapi32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\shell32.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\ole32.lib                                                   >> msvc.tmp
   @echo $(VC32DIR)\Lib\oleaut32.lib                                                >> msvc.tmp
#   @echo $(VC32DIR)\Lib\uuid.lib                                                    >> msvc.tmp
   @echo $(VC32DIR)\Lib\odbc32.lib                                                  >> msvc.tmp
   @echo $(VC32DIR)\Lib\odbccp32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\iphlpapi.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\mpr.lib                                                     >> msvc.tmp
   @echo $(VC32DIR)\Lib\version.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\wsock32.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\msimg32.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\oledlg.lib                                                  >> msvc.tmp
   @echo $(VC32DIR)\Lib\psapi.lib                                                   >> msvc.tmp
   @echo $(VC32DIR)\Lib\gdiplus.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\winmm.lib                                                   >> msvc.tmp

#   @echo $(VC32DIR)\Lib\amd64\libcmt.lib                                                >> msvc.tmp
#   @echo $(VC32DIR)\Lib\amd64\oldnames.lib                                              >> msvc.tmp
#   @echo $(VC32DIR)\Lib\amd64\libvcruntime.lib                                          >> msvc.tmp
#   @echo $(VC32DIR)\kit\lib\ucrt\x64\libucrt.lib                                        >> msvc.tmp


   IF EXIST scuola64.res echo scuola64.res >> msvc.tmp
#  copiare .\..\..\VC2015\bin\cvtres.exe nella cartella x86_amd64

   $(VCDIR)\bin\Hostx64\x64\link @msvc.tmp /nologo /subsystem:windows /NODEFAULTLIB:msvcrt > link.log
   @type link.log
   @del $(PRGS:.prg=.obj)

$(PRGS:.prg=.obj) : $(PRGS:.prg=.c)
$(PRGS:.prg=.c) : $(PRGS)

# scuola64.res : scuola64.rc
#   $(VC32DIR)\bin\rc.exe -r -d__FLAT__ scuola64.rc

.prg.c:
   $(HBDIR)\bin\win\msvc64\harbour $< /n /i$(FWDIR)\include;$(HBDIR)\include -gc3 -p -p+
#-gc3 come parametro di harbour genera codice C e non pcode.

.c.obj:
#   $(VCDIR)\bin\x86_amd64\cl.exe -c -TC -W3 -I$(HBDIR)\include -I$(SDKDIR)\include -I$(VCDIR)\include -I$(VCDIR)\kit\include\ucrt $<
   $(VCDIR)\bin\Hostx64\x64\cl.exe -c -TC -W3 -I$(HBDIR)\include -I$(SDKDIR)\include -I$(VCDIR)\include -I$(VCDIR)\kit\include\ucrt -I$(FWDIR)\include $<

Code: Select all | Expand

HBDIR=.\..\..\Hb64vC22
FWDIR=.\..\..\fwh642501
VCDIR=.\..\..\VC2022
VC32DIR=.\..\..\VC2017
SDKDIR=.\..\..\VC2022\sdk

PRGS = scuola.prg functscl.prg TcBrowse.prg #tmGet.prg Combo_Box.prg

.SUFFIXES: .prg .c .obj .rc .res

scuola64.exe : $(PRGS:.prg=.obj) scuola64.res
   @echo $(PRGS:.prg=.obj) > msvc.tmp

   @echo $(FWDIR)\lib\FiveH64.lib  >> msvc.tmp
 	@echo $(FWDIR)\lib\FiveHC64.lib >> msvc.tmp

   @echo $(HBDIR)\lib\win\msvc64\hbrtl.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbvm.lib     >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\gtgui.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hblang.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbmacro.lib  >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbrdd.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\rddntx.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\rddcdx.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\rddfpt.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbsix.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbdebug.lib  >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbcommon.lib >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbpp.lib     >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbwin.lib    >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbcplr.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\xhb.lib      >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbpcre.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbct.lib     >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbcpage.lib  >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbzlib.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\png.lib      >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbzlib.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbziparc.lib >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\hbmzip.lib   >> msvc.tmp
   @echo $(HBDIR)\lib\win\msvc64\minizip.lib  >> msvc.tmp

   @echo $(VC32DIR)\Lib\gdi32.lib                                                   >> msvc.tmp
   @echo $(VC32DIR)\Lib\winspool.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\comctl32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\comdlg32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\advapi32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\shell32.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\ole32.lib                                                   >> msvc.tmp
   @echo $(VC32DIR)\Lib\oleaut32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\odbc32.lib                                                  >> msvc.tmp
   @echo $(VC32DIR)\Lib\odbccp32.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\iphlpapi.lib                                                >> msvc.tmp
   @echo $(VC32DIR)\Lib\mpr.lib                                                     >> msvc.tmp
   @echo $(VC32DIR)\Lib\version.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\wsock32.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\msimg32.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\oledlg.lib                                                  >> msvc.tmp
   @echo $(VC32DIR)\Lib\psapi.lib                                                   >> msvc.tmp
   @echo $(VC32DIR)\Lib\gdiplus.lib                                                 >> msvc.tmp
   @echo $(VC32DIR)\Lib\winmm.lib                                                   >> msvc.tmp
   @echo .\lib\oldnames.lib                                                         >> msvc.tmp
   @echo .\lib\ucrt.lib                                                             >> msvc.tmp
   @echo .\lib\uuid.lib                                                             >> msvc.tmp
   @echo .\lib\libcmt.lib                                                           >> msvc.tmp

#   @echo $(VC32DIR)\Lib\amd64\libvcruntime.lib                                          >> msvc.tmp
#   @echo $(VC32DIR)\kit\lib\ucrt\x64\libucrt.lib                                        >> msvc.tmp


   IF EXIST scuola64.res echo scuola64.res >> msvc.tmp
#  copiare .\..\..\VC2015\bin\cvtres.exe nella cartella x86_amd64

   $(VCDIR)\bin\Hostx64\x64\link @msvc.tmp /nologo /subsystem:windows /NODEFAULTLIB:libucrt /NODEFAULTLIB:msvcrt > link.log
   @type link.log
   @del $(PRGS:.prg=.obj)

$(PRGS:.prg=.obj) : $(PRGS:.prg=.c)
$(PRGS:.prg=.c) : $(PRGS)

# scuola64.res : scuola64.rc
#   $(VC32DIR)\bin\rc.exe -r -d__FLAT__ scuola64.rc

.prg.c:
   $(HBDIR)\bin\win\msvc64\harbour $< /n /i$(FWDIR)\include;$(HBDIR)\include -gc3 -p -p+
#-gc3 come parametro di harbour genera codice C e non pcode.

.c.obj:
#   $(VCDIR)\bin\x86_amd64\cl.exe -c -TC -W3 -I$(HBDIR)\include -I$(SDKDIR)\include -I$(VCDIR)\include -I$(VCDIR)\kit\include\ucrt $<
   $(VCDIR)\bin\Hostx64\x64\cl.exe -c -TC -W3 -I$(HBDIR)\include -I$(SDKDIR)\include -I$(VCDIR)\include -I$(VCDIR)\kit\include\ucrt -I$(FWDIR)\include $<

Code: Select all | Expand

content of file: msvc.tmp

scuola.obj functscl.obj TcBrowse.obj 
.\..\..\fwh642501\lib\FiveH64.lib 
.\..\..\fwh642501\lib\FiveHC64.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbrtl.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbvm.lib 
.\..\..\Hb64vC22\lib\win\msvc64\gtgui.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hblang.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbmacro.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbrdd.lib 
.\..\..\Hb64vC22\lib\win\msvc64\rddntx.lib 
.\..\..\Hb64vC22\lib\win\msvc64\rddcdx.lib 
.\..\..\Hb64vC22\lib\win\msvc64\rddfpt.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbsix.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbdebug.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbcommon.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbpp.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbwin.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbcplr.lib 
.\..\..\Hb64vC22\lib\win\msvc64\xhb.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbpcre.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbct.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbcpage.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbzlib.lib 
.\..\..\Hb64vC22\lib\win\msvc64\png.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbzlib.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbziparc.lib 
.\..\..\Hb64vC22\lib\win\msvc64\hbmzip.lib 
.\..\..\Hb64vC22\lib\win\msvc64\minizip.lib 
.\..\..\VC2017\Lib\gdi32.lib 
.\..\..\VC2017\Lib\winspool.lib 
.\..\..\VC2017\Lib\comctl32.lib 
.\..\..\VC2017\Lib\comdlg32.lib 
.\..\..\VC2017\Lib\advapi32.lib 
.\..\..\VC2017\Lib\shell32.lib 
.\..\..\VC2017\Lib\ole32.lib 
.\..\..\VC2017\Lib\oleaut32.lib 
.\..\..\VC2017\Lib\odbc32.lib 
.\..\..\VC2017\Lib\odbccp32.lib 
.\..\..\VC2017\Lib\iphlpapi.lib 
.\..\..\VC2017\Lib\mpr.lib 
.\..\..\VC2017\Lib\version.lib 
.\..\..\VC2017\Lib\wsock32.lib 
.\..\..\VC2017\Lib\msimg32.lib 
.\..\..\VC2017\Lib\oledlg.lib 
.\..\..\VC2017\Lib\psapi.lib 
.\..\..\VC2017\Lib\gdiplus.lib 
.\..\..\VC2017\Lib\winmm.lib 
.\..\..\VC2017\Lib\libvcruntime.lib 
.\..\..\VC2017\lib\libucrt.lib 
.\lib\oldnames.lib 
.\lib\ucrt.lib 
.\lib\uuid.lib 
.\lib\libcmt.lib 
scuola64.res 

Code: Select all | Expand

hbrtl.lib(vfile.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbwin.lib(win_misc_1.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbct.lib(trig.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbrtl.lib(hbi18n1.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbrtl.lib(gttone.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbrtl.lib(itemseri.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcplr.lib(gencc.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbpcre.lib(pcrecomp.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbct.lib(dattime3.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbct.lib(ctmath2.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcplr.lib(harboury.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcplr.lib(complex.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcplr.lib(genc.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcplr.lib(exproptb.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcommon.lib(expropt1.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcommon.lib(expropt2.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbwin.lib(olecore.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcplr.lib(hbmain.obj) : error LNK2001: simbolo esterno _fltused non risolto
rddfpt.lib(dbffpt1.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcommon.lib(hbstr.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcommon.lib(hbdate.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbcommon.lib(hbprintf.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbrdd.lib(sdf1.obj) : error LNK2001: simbolo esterno _fltused non risolto
hbrdd.lib(dbf1.obj) : error LNK2001: simbolo esterno _fltused non risolto
rddntx.lib(dbfntx1.obj) : error LNK2001: simbolo esterno _fltused non risolto
rddcdx.lib(dbfcdx1.obj) : error LNK2001: simbolo esterno _fltused non risolto
FiveHC64.lib(richedit.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(richedi5.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(tabctrlw.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(tabctrl.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(getdir.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(fwunicode.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(icons.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(nonclient.obj) : error LNK2001: simbolo esterno memset non risolto
FiveH64.lib(getsysin.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(dlg2chr.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(winexec.obj) : error LNK2001: simbolo esterno memset non risolto
FiveHC64.lib(getfile.obj) : error LNK2001: simbolo esterno memset non risolto

..............................

minizip.lib(ioapi.obj) : error LNK2019: riferimento al simbolo esterno __imp__ftelli64 non risolto nella funzione ftell64_file_func
hbrtl.lib(gttone.obj) : error LNK2019: riferimento al simbolo esterno __imp_Beep non risolto nella funzione hb_gt_wNtTone
hbrtl.lib(itemseri.obj) : error LNK2019: riferimento al simbolo esterno _byteswap_uint64 non risolto nella funzione _hb_get_rev_uint64
hbvm.lib(dynlibhb.obj) : error LNK2019: riferimento al simbolo esterno __imp_LoadLibraryW non risolto nella funzione hb_libLoad
hbpp.lib(ppcore.obj) : error LNK2019: riferimento al simbolo esterno __imp_fputs non risolto nella funzione hb_pp_dumpEnd
hbwin.lib(win_misc_1.obj) : error LNK2019: riferimento al simbolo esterno __imp_QueryPerformanceFrequency non risolto nella funzione HB_FUN_WIN_QPCOUNTER2SEC
hbwin.lib(win_misc_1.obj) : error LNK2019: riferimento al simbolo esterno __imp_CreateEventW non risolto nella funzione HB_FUN_WIN_SYSREFRESH
hbwin.lib(win_misc_1.obj) : error LNK2019: riferimento al simbolo esterno __imp_FindResourceW non risolto nella funzione HB_FUN_WIN_LOADRESOURCE
hbwin.lib(win_misc_1.obj) : error LNK2019: riferimento al simbolo esterno __imp_MsgWaitForMultipleObjects non risolto nella funzione HB_FUN_WIN_SYSREFRESH
hbwin.lib(wapi_shellapi.obj) : error LNK2019: riferimento al simbolo esterno __imp_ShellExecuteExW non risolto nella funzione HB_FUN_WAPI_SHELLEXECUTE_WAIT
hbwin.lib(win_regc.obj) : error LNK2019: riferimento al simbolo esterno __imp_RegCreateKeyExW non risolto nella funzione HB_FUN_WIN_REGCREATEKEYEX
hbwin.lib(win_regc.obj) : error LNK2019: riferimento al simbolo esterno __imp_RegDeleteKeyW non risolto nella funzione HB_FUN_WIN_REGDELETEKEY
hbwin.lib(win_regc.obj) : error LNK2019: riferimento al simbolo esterno __imp_RegDeleteValueW non risolto nella funzione HB_FUN_WIN_REGDELETEVALUE
hbwin.lib(win_regc.obj) : error LNK2019: riferimento al simbolo esterno __imp_RegOpenKeyExW non risolto nella funzione HB_FUN_WIN_REGOPENKEYEX
hbwin.lib(win_regc.obj) : error LNK2019: riferimento al simbolo esterno __imp_RegQueryValueExW non risolto nella funzione HB_FUN_WIN_REGQUERYVALUEEX
hbwin.lib(win_regc.obj) : error LNK2019: riferimento al simbolo esterno __imp_RegSetValueExW non risolto nella funzione HB_FUN_WIN_REGSETVALUEEX
.\..\..\VC2017\Lib\gdi32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\winspool.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\comctl32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\comdlg32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\advapi32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\shell32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\ole32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\oleaut32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\odbc32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\odbccp32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\iphlpapi.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\mpr.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\version.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\wsock32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\msimg32.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\oledlg.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\psapi.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\gdiplus.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\winmm.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\Lib\libvcruntime.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\..\..\VC2017\lib\libucrt.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\lib\ucrt.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
.\lib\libcmt.lib : warning LNK4272: il tipo 'x86' del computer della libreria   in conflitto con il tipo 'x64' del computer di destinazione
scuola.exe : fatal error LNK1120: 1008 esterni non risolti

Code: Select all | Expand

┌────────────────────────────────────────────────────────────────────────────┐
│ FWH 64 for Harbour 25.01 (VS64bits)  Jan. 2025  Harbour development power  │▄
│ (c) FiveTech 1993-2025 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Error in script usage. The correct usage is:
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" [option]
  or
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" [option] store
  or
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" [option] [version number]
  or
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" [option] store [version number]
where [option] is: x86 | amd64 | arm | x86_amd64 | x86_arm | amd64_x86 | amd64_arm
where [version number] is either the full Windows 10 SDK version number or "8.1" to use the windows 8.1 SDK
:
The store parameter sets environment variables to support
  store (rather than desktop) development.
:
For example:
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86_amd64
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86_arm store
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86_amd64 10.0.10240.0
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86_arm store 10.0.10240.0
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x64 8.1
    "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x64 store 8.1
:
Please make sure either Visual Studio or C++ Build SKU is installed.
Compiling...
Harbour 3.2.0dev (r2502110321)
Copyright (c) 1999-2024, https://harbour.github.io/
Compiling 'tutor01.prg' and generating preprocessed output to 'tutor01.ppo'...
Lines 5031, Functions/Procedures 1
Generating C source output to 'tutor01.c'... Done.
"cl" non è riconosciuto come comando interno o esterno,
 un programma eseguibile o un file batch.
"rc" non è riconosciuto come comando interno o esterno,
 un programma eseguibile o un file batch.
"link" non è riconosciuto come comando interno o esterno,
 un programma eseguibile o un file batch.
* Linking errors *

c:\fwh64\samples>

Code: Select all | Expand

 <div class="quick-item" onclick="callHarbourFunction('Clienti')">
                           <img src="img/clienti.png" alt="Clienti">
                           <div>Clienti</div>
                       </div>

Code: Select all | Expand

cFolder := cFilePath( GetModuleFileName( GetInstance() ) ) + "img/"

Code: Select all | Expand

function image2base64( cFile )
return "data:image/png;base64," + hb_base64encode( hb_memoRead( cFile ) )

Code: Select all | Expand

cHtml := hb_StrReplace( cHtml, "{cImgHome}", cImgHome )

Code: Select all | Expand

cImgHome := "data:image/png;base64," + hb_base64encode( hb_memoRead( 'c:\fwh21\bitmaps\pngs\2.png' ) )
oDashBoard:cHtml := '<!DOCTYPE html> '+;
                            '<html lang="it"> '+;
                            '<span class="section-title"><img src="'+cImgHome+'" alt="Home"> home</span>'+;
                            '</body>'+;
                            '</html>'

Code: Select all | Expand

'..\bitmaps\pngs\2.png'

Code: Select all | Expand

Function html()
    cImgHome := "data:image/png;base64," +;
    hb_base64encode( hb_memoRead( 'c:\work\fwh\bitmaps\pngs\2.png' ) )
cHtml := '<!DOCTYPE html> '+;
         '<html lang="it"> '+'<span class="section-title"><img src="'+cImgHome+'" alt="Home"> home</span>'+;
         '</body>'+;
        '</html>'

         return cHtml

Code: Select all | Expand

#include "fivewin.ch"

FUNCTION Main()
   LOCAL cHtml
   LOCAL oWebView := TWebView2():New()

   // Genera il contenuto HTML con immagini Base64
   cHtml := Html()

   // Carica l'HTML direttamente in memoria
   oWebView:SetHtml( cHtml )
   oWebView:SetTitle( "Dashboard" )
   oWebView:SetSize( 1024, 768 )
   oWebView:Run()
   oWebView:Destroy()

   RETURN NIL

Function html()
    local cImagesPath := cFilePath( GetModuleFileName( GetInstance() ) )+"\img\"
    local cImgHome := "data:image/png;base64," + hb_base64encode( hb_memoRead( cImagesPath+'home.png' ) )
    local  cHtml

      TEXT INTO cHtml

     <!DOCTYPE html>
     <html lang="it">
     <span class="section-title">
  <img src="'"+cImgHome+"'"  alt="Home"> home</span>
         </body>
         </html>

         ENDTEXT

     return cHtml

Code: Select all | Expand

#include "fivewin.ch"

FUNCTION Main()
   LOCAL cHtml
   LOCAL oWebView := TWebView2():New()

   // Genera il contenuto HTML con immagini Base64
   cHtml := Html()

   // Carica l'HTML direttamente in memoria
   oWebView:SetHtml( cHtml )
   oWebView:SetTitle( "Dashboard" )
   oWebView:SetSize( 1024, 768 )
   oWebView:Run()
   oWebView:Destroy()

   RETURN NIL

Function Html()
    local cImagesPath := cFilePath( GetModuleFileName( GetInstance() ) ) + "\img\"
    local cImgHome := "data:image/png;base64," + hb_base64encode( hb_memoRead( cImagesPath + "home.png" ) )
    local cHtml

    // Usa TEXT INTO per la parte statica dell'HTML
    TEXT INTO cHtml
        <!DOCTYPE html>
        <html lang="it">
        <head>
            <title>Dashboard</title>
        </head>
        <body>
            <span class="section-title">
                <img src="{IMGSRC}" alt="Home"> home
            </span>
        </body>
        </html>
    ENDTEXT

    // Sostituisci il segnaposto {IMGSRC} con il valore di cImgHome
    cHtml := StrTran( cHtml, "{IMGSRC}", cImgHome )

    return cHtml

Code: Select all | Expand

Function html()
    LOCAL cHtml
    cImgHome := "data:image/png;base64," + hb_base64encode( hb_memoRead( 'c:\work\fwh\bitmaps\pngs\2.png' ) )

    TEXT INTO cHtml
     <!DOCTYPE html>
     <html lang="it">
     <span class="section-title">
         <img src="cImgHome" alt="Home"> home</span>
         </body>
         </html>
            ENDTEXT
   cHtml := REPLACE(cHml, "cImgHome",cImgHome) //Reemplazar el literal por el contenido de la variable            
    return cHtml

Code: Select all | Expand

  hImages["IMGHOME"] := "data:image/png;base64," + hb_base64encode( hb_memoRead( cImagesPath + "home.png" ) )

Code: Select all | Expand

#include "fivewin.ch"

function Main()
   local oWnd, oWebView


 DEFINE WINDOW oWnd TITLE "Invoicing"

 BuildMainBar(oWnd)

 oWebView := TWebView2():New( oWnd )
 oWebView:SetHtml( Html() )


  SET MESSAGE OF oWnd TO "Invoicing app"  CENTER NOINSET

   ACTIVATE WINDOW oWnd  ;
      ON RESIZE ( oWebView:SetSize( WndWidth( oWebView:oWnd:hWnd ) - 17,;
                                    WndHeight( oWebView:oWnd:hWnd ) - 80 ) )
   RETURN NIL


Function Html()
     LOCAL hImages := LoadImages()  // Carica l'hash delle immagini
   LOCAL cHtml
   LOCAL cKey


  TEXT INTO cHtml
   <!DOCTYPE html>
   <html>
   <head>
     <title>Identify</title>
     <style>
     body {
      display: flex;
      align-items: center;
      justify-content: center;
      height: 100vh;
      background-color: #F2F2F2;
      font-family: Arial, sans-serif;
      margin: 0;
     padding: 0;
    }

      .container {
         max-width: 400px;
         margin: 0 auto;
         padding: 40px;
         background-color: #FFFFFF;
         border-radius: 5px;
         display: flex;
         flex-direction: column;
         align-items: center;
         box-shadow: 0px 0px 44px rgba(0, 0, 0, 0.7) !important;
         overflow:none !important;
       }

       .logo {
         margin-bottom: 40px;
         display: flex;
         align-items: center;
       }

       .logo img {
         max-width: 100%;
         height: auto;
       }

       .btn {
         display: inline-block;
         padding: 12px 24px;
         background-color: #4CAF50;
         color: #FFFFFF;
         font-size: 16px;
         text-decoration: none;
         border-radius: 5px;
         transition: background-color 0.3s ease;
       }

       .btn:hover {
         background-color: #45A049;
       }

       .form-group {
         margin-bottom: 20px;
       }

       .form-group label {
         display: block;
         font-size: 16px;
         font-weight: bold;
         margin-bottom: 5px;
         color: #333333;
       }

       .form-group input {
         width: 100%;
         padding: 12px;
         font-size: 16px;
         border-radius: 5px;
         border: 1px solid #CCCCCC;
       }

       .btn {
         display: inline-block;
         padding: 12px 24px;
         background-color: #4CAF50;
         color: #FFFFFF;
         font-size: 16px;
         text-decoration: none;
         border-radius: 5px;
         transition: background-color 0.3s ease;
       }

       .btn:hover {
         background-color: #45A049;
       }

       body {
         background-color: #3498db;
       }

       .btn {
         background-color: #2980b9;
       }

       .btn:hover {
         background-color: #1a5276;

      .logo {
         margin-bottom: 40px;
         }

         .logo img {
         max-width: 100%;
         height: auto;
         }
       }

     .myinput {
       width: auto !important;
     }

     .mybtn {
       text-align:center;
     }

     </style>
   </head>
   <body>
     <div class="container">
       <div class="logo">
         <img src="{IMGHOME}" alt="Home">
       </div>

     </div>


   </body>
   </html>
   ENDTEXT

  FOR EACH cKey IN hImages:Keys
      cHtml := StrTran(cHtml, "{" + cKey + "}", hImages[cKey])
   NEXT

return cHtml

Function LoadImages()
   LOCAL hImages := {=>}
    hImages["IMGHOME"]       := "data:image/png;base64," + hb_base64encode( hb_memoRead( "DASH_HOME" ) )
    RETURN hImages


 static function BuildMainBar(oWnd)
   local oBar
   DEFINE BUTTONBAR oBar OF oWnd 2015 SIZE 90, 60
   return nil

Code: Select all | Expand

1 24 "WindowsXP.Manifest"
DASH_HOME       10   "dashboard/home.png"

Code: Select all | Expand

#pragma BEGINDUMP

#include <windows.h>

HB_FUNC( SIZEOFRESOURCE )
{
   HMODULE hModule = (HMODULE) hb_parnl(1);
   HRSRC hResInfo = (HRSRC) hb_parnl(2);

   hb_retnl(SizeofResource(hModule, hResInfo));
}

HB_FUNC( FINDRESOURCE )
{
   HMODULE hModule = (HMODULE) hb_parnl(1);
   LPCSTR lpName = (LPCSTR) hb_parc(2);
   LPCSTR lpType = (LPCSTR) hb_parc(3);

   hb_retnl((LONG_PTR) FindResource(hModule, lpName, lpType));
}

HB_FUNC( LOADRESOURCE )
{
   HMODULE hModule = (HMODULE) hb_parnl(1);
   HRSRC hResInfo = (HRSRC) hb_parnl(2);

   hb_retnl((LONG_PTR) LoadResource(hModule, hResInfo));
}

HB_FUNC( LOCKRESOURCE )
{
   HGLOBAL hResData = (HGLOBAL) hb_parnl(1);

   hb_retnl((LONG_PTR) LockResource(hResData));
}

#pragma ENDDUMP

Code: Select all | Expand

FUNCTION LoadResourceToBase64(cResourceName)
LOCAL cResourceData := crestostr(cResourceName, RT_RCDATA)  // Legge la risorsa come stringa
LOCAL cBase64

IF EMPTY(cResourceData)
   MsgStop("Error: Unable to read file'" + cResourceName + "'.")
   RETURN NIL
ENDIF

//MsgInfo("Resource '" + cResourceName + "' read correctly.")

// Converte i dati della risorsa in Base64
cBase64 := hb_base64encode(cResourceData, LEN(cResourceData))

IF EMPTY(cBase64)
   MsgStop("Error: Base64 conversion failed.")
   RETURN NIL
ENDIF

//MsgInfo("Base64 conversion completed.")

RETURN "data:image/png;base64," + cBase64


FUNCTION LoadImageFromFile(cFilePath)
LOCAL cFileContent := hb_MemoRead(cFilePath)
LOCAL cBase64

IF EMPTY(cFileContent)
   MsgStop("Error: Unable to read file '" + cFilePath + "'.")
   RETURN NIL
ENDIF

cBase64 := hb_base64encode(cFileContent, LEN(cFileContent))
RETURN "data:image/png;base64," + cBase64

Code: Select all | Expand

FUNCTION LoadResourceToBase64(cResourceName, cMimeType)
LOCAL cResourceData := crestostr(cResourceName, RT_RCDATA)  // Read the resource as a string
LOCAL cBase64

IF EMPTY(cResourceData)
   MsgStop("Error: Unable to read resource '" + cResourceName + "'.")
   RETURN NIL
ENDIF

MsgInfo("Resource '" + cResourceName + "' loaded successfully.")

// Convert resource data to Base64
cBase64 := hb_base64encode(cResourceData, LEN(cResourceData))

IF EMPTY(cBase64)
   MsgStop("Error: Base64 conversion failed.")
   RETURN NIL
ENDIF

MsgInfo("Base64 conversion completed.")

// Return the Base64 string with the correct MIME type
RETURN "data:" + cMimeType + ";base64," + cBase64

Code: Select all | Expand

LOCAL hImages := {=>}
    hImages["IMGHOME"]       := LoadResourceToBase64("DASH_HOME" )
    

Code: Select all | Expand

#include "fivewin.ch"

static oWebView

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Test External CSS"

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON INIT CreaWebView( oWnd ) ;
      ON RESIZE if( hb_IsObject( oWebView ), oWebView:SetSize( nWidth, nHeight ), )

return nil

Function CreaWebView( oWnd )

   oWebView = TWebView2():New( oWnd )

   oWebView:OpenDevToolsWindow(.T.)
   oWebView:Navigate( 'file:///d:/fwh/fwhteam/samples/vilian/index1.html' )

Return oWebView

Code: Select all | Expand

<!DOCTYPE html>
<html lang="es">
<head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <title>WebView con CSS</title>

<script>
function loadCSS(url) {
    const link = document.createElement('link');
    link.rel = 'stylesheet';
    link.href = url;
    link.type = "text/css";
    console.log( "Cargando CSS" );

    link.onload = function() {
        console.log(`Archivo CSS cargado: ${url}`);
    };

    link.onerror = function() {
        console.error(`Error al cargar el archivo CSS: ${url}`);
    };

   // Simula un retraso para depuración
    setTimeout(() => {
        console.log('Verificando carga...');
    }, 2000);
    document.head.appendChild(link); // Agrega el CSS al <head>
}

// Uso
   loadCSS('file:///d:/fwh/fwhteam/samples/vilian/styles.css');

</script>
</head>
<body>
    <h1>Hola desde WebView</h1>
    <p>Este texto está estilizado con CSS.</p>
</body>
</html>

Code: Select all | Expand

body {
    font-family: Arial, sans-serif;
    background-color: #f4f4f4;
    color: #333;
}

h1 {
    color: #ff0000;
}

p {
    color: #0000ff;
}

Code: Select all | Expand

 TEXT INTO cCss
      html, body {
         font-family: Tahoma, sans-serif;
         background-color: #F5F5EB;
         padding: 20px 5px 10px 5px;
         margin: 0;
         height: 100vh;
         overflow: hidden;
      }
      .container {
         display: flex;

Code: Select all | Expand

:InjectJavascript( "document.addEventListener('contextmenu', function(e) { if (e.target.tagName !== 'A') { e.preventDefault(); } });" )

Code: Select all | Expand

:InjectJavascript( "document.addEventListener('keydown', function(e) { if (e.key === 'F5') { e.preventDefault(); window.location.reload(); } }); function refreshPage() { window.location.reload(); } document.addEventListener('DOMContentLoaded', function() { var refreshAreas = document.getElementsByClassName('refresh-area'); for (var i = 0; i < refreshAreas.length; i++) { refreshAreas[i].addEventListener('click', function() { refreshPage(); }); } });" )

Code: Select all | Expand

 TEXT INTO cHtml
      <!DOCTYPE html>
      <html lang="it">
      <head>
         <meta charset="UTF-8">

Code: Select all | Expand

 TEXT INTO cHtml
_CodeUtf8Bom_
      <!DOCTYPE html>
      <html lang="it">
      <head>
         <meta charset="UTF-8">
ENDTEXT

cHtml := Strtran(cHtml,_CodeUtf8Bom_,chr(239)+chr(187)+chr(191))

Code: Select all | Expand

meine raglogic.py

nano ~/ollama-rag/ragserver/raglogic.py

import chromadb
from chromadb.utils import embedding_functions
import requests

# Chroma vorbereiten
chroma_client = chromadb.Client()
collection = chroma_client.get_or_create_collection(
    name="hotelwissen",
    embedding_function=embedding_functions.DefaultEmbeddingFunction()
    )


def frage_beantworten(frage: str) -> str:
    result = collection.query(query_texts=[frage], n_results=3)
    kontext = " ".join([doc for doc in result["documents"][0]])

    payload = {
        "model": "mistral",
        "prompt": f"Beantworte folgende Frage basierend auf diesem Kontext:\n\n>
    }

    response = requests.post("http://localhost:11434/api/generate", json=payloa>
    for line in response.iter_lines():
        if line:
            data = line.decode("utf-8")
            if '"response":"' in data:
                return data.split('"response":"')[1].split('"')[0]
    return "Keine Antwort erhalten"

start.sh

cd ~/ollama-rag/ragserver
source venv/bin/activate
uvicorn main:app --host 127.0.0.1 --port 8000

otto-atzwanger@KI-Server:~$ nano ~/ollama-rag/ragserver/raglogic.py
otto-atzwanger@KI-Server:~$ cd ~/ollama-rag/ragserver
source venv/bin/activate
uvicorn main:app --host 127.0.0.1 --port 8000
INFO:     Started server process [6402]
INFO:     Waiting for application startup.
INFO:     Application startup complete.
INFO:     Uvicorn running on http://127.0.0.1:8000 (Press CTRL+C to quit)

Code: Select all | Expand

([code], <span>, &#40;, etc.)

Code: Select all | Expand

oBrw:SetOrder( <column order> )

Code: Select all | Expand

SecondsFrom1970()

#pragma BEGINDUMP

#include <time.h>
#include <stdio.h>
#include <stdlib.h>
#include "hbapi.h"

HB_FUNC( SECONDSFROM1970 )

{
        unsigned long count;
        time_t *tmppointer=NULL;
        
        count = time( tmppointer ) ;
        
        hb_retnl( count ) ;
}

#pragma ENDDUMP

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION Main()

   Test()

RETURN NIL

#pragma BEGINDUMP

#include <windows.h>
#include <shlobj.h>
#include <hbapi.h>

void test( void )
{
    CoInitialize(NULL);

    IProgressDialog* pProgress;
    HRESULT hr = CoCreateInstance(CLSID_ProgressDialog, NULL, CLSCTX_INPROC_SERVER, IID_IProgressDialog, (void**)&pProgress);

    if (SUCCEEDED(hr))
    {
        pProgress->SetTitle(L"Copying file...");
        pProgress->StartProgressDialog(NULL, NULL, PROGDLG_NORMAL, NULL);

        for (ULONG i = 0; i <= 100; i++)
        {
            pProgress->SetProgress(i, 100);
            Sleep(50);
        }

        pProgress->StopProgressDialog();
        pProgress->Release();
    }

    CoUninitialize();
}

HB_FUNC( TEST )
{
   test();
}

#pragma ENDDUMP    

Code: Select all | Expand

c:\fwh64\samples\Iprogress>"C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Tools\MSVC\14.43.34808\bin\Hostx64\x64\cl.exe"  -nologo -c -O2 -W4 -wd4127 /TP /I%hdir%\include pprogres.c pprogres.c
c:\harbour64\include\hbdefs.h(50): fatal error C1083: Datei (Include) kann nicht geöffnet werden: "stdarg.h": No such file or directory

c:\fwh64\samples\Iprogress>

Code: Select all | Expand

cl -TP -W3 -O2 -c -I%hdir%\include -D_WIN64 -D__FLAT__ -I%fwdir%\include -I-I"%ProgramFiles(x86)%\Windows Kits"\10\Include\10.0.18362.0\ucrt %1.c

Code: Select all | Expand

call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
cl -TP -W3 -O2 -c -Ic:\harbour\include -D_WIN64 -D__FLAT__ -Ic:\fwh\include -I"%ProgramFiles(x86)%\Windows Kits"\10\Include\10.0.22621.0\ucrt\ pprogres.C

Code: Select all | Expand

link @msvc.tmp /nologo /subsystem:windows /NODEFAULTLIB:libucrt /NODEFAULTLIB:msvcrt

Code: Select all | Expand

function Main()
LOCAL oRs,oCn,oError,oQry,cQryMat

   SET DATE BRIT
   SET CENTURY ON
   
   CursorWait()

   oCn := Maria_Connect( aStr[1] )

   oRs := oCn:Query("SELECT nfiscal,cmat,qte,qtedig FROM consumo WHERE nfiscal LIKE '000005829%'")
   cQryMat := ""
   DO WHILE .NOT. oRs:Eof()
      cQryMat += "'"+oRs:cmat+"',"
      ? oRs:qte,oRs:qtedig,oRs:cmat
      oRs:Skip()
   ENDDO
   oRs:GoTop()
   
RETURN NIL

Code: Select all | Expand

function Main()
LOCAL nVal1,nVal2,nRes

   SET DATE BRIT
   SET CENTURY ON
   
   nVal1 := 2.3432
   nVal2 := 2.3923
   nRes := nVal1 * nVal2 
   ? nRes
   
RETURN NIL

Code: Select all | Expand

oRs := oCn:Query("SELECT nfiscal,cmat,qte,qtedig,valor FROM consumo WHERE nfiscal LIKE '00023332601%'")
? oRs:qte,oRs:valor,oRs:qte*oRs:valor

Code: Select all | Expand

oWnd:oMsgBar:aItems[1]:Hide()

Code: Select all | Expand

Publics by module

activex 	size = 6872
	_HB_FUN_TACTIVEX                  _HB_FUN_THACTIVEX

adofuncs	size = 49883
	_HB_FUN_ADOCREATECOLSQL           _HB_FUN_ADODEFAULT
	_HB_FUN_ADONULL                   _HB_FUN_ADOROLLUPTREE
	_HB_FUN_ADOROLLUPTREEBROWSE       _HB_FUN_DBMSNUM
	_HB_FUN_FIELDTYPEADOTODBF         _HB_FUN_FWADOAPPENDBLANK
	_HB_FUN_FWADOCREATETABLE          _HB_FUN_FWADODELRECORD
	_HB_FUN_FWADOFIELDDEC             _HB_FUN_FWADOFIELDLEN
	_HB_FUN_FWADOFIELDSIZE            _HB_FUN_FWADOFIELDSTRUCT
	_HB_FUN_FWADOFIELDTYPE            _HB_FUN_FWADOLOADRECORD
	_HB_FUN_FWADOMEMOSIZETHRESHOLD    _HB_FUN_FWADOSAVERECORD
	_HB_FUN_FWADOSTRUCT               _HB_FUN_FW_ACEVER
	_HB_FUN_FW_ADOADDCOL              _HB_FUN_FW_ADOADDMODICOLSQL
	_HB_FUN_FW_ADOAPPLYPARAMS         _HB_FUN_FW_ADOCATALOGS
	_HB_FUN_FW_ADOCONNECTIONSTRING    _HB_FUN_FW_ADOCREATEINDEX
	_HB_FUN_FW_ADOCREATETABLESQL      _HB_FUN_FW_ADOCURRENTDB
	_HB_FUN_FW_ADODATETIME            _HB_FUN_FW_ADODROPINDEX
	_HB_FUN_FW_ADOEXPORTTODBF         _HB_FUN_FW_ADOFIELDUPDATEABLE
	_HB_FUN_FW_ADOIMPORTFROMDBF       _HB_FUN_FW_ADOINDEXES
	_HB_FUN_FW_ADOMODIFYCOL           _HB_FUN_FW_ADOPIVOTARRAY
	_HB_FUN_FW_ADOPIVOTRS             _HB_FUN_FW_ADOPRIMARYKEY
	_HB_FUN_FW_ADOQUERYRESULT         _HB_FUN_FW_ADORECONNECT
	_HB_FUN_FW_ADORSTOCSV             _HB_FUN_FW_ADORSTOHTML
	_HB_FUN_FW_ADORSTOTEXT            _HB_FUN_FW_ADOSELECTDB
	_HB_FUN_FW_ADOTABLEEXISTS         _HB_FUN_FW_ADOTABLES
	_HB_FUN_FW_ADOTOEXCEL             _HB_FUN_FW_ADOUNQUOTE
	_HB_FUN_FW_ARRAYASRECORDSET       _HB_FUN_FW_COMPACTMDB
	_HB_FUN_FW_CREATEMDB              _HB_FUN_FW_DATETOADO
	_HB_FUN_FW_DATETOSQL              _HB_FUN_FW_FILTER2WHERE
	_HB_FUN_FW_FILTERDBF2ADO          _HB_FUN_FW_GETADOERROR
	_HB_FUN_FW_MSSQLDB                _HB_FUN_FW_MSSQL_BACKUP
	_HB_FUN_FW_MSSQL_RESTORE          _HB_FUN_FW_ONADOERROR
	_HB_FUN_FW_OPENADOCONNECTION      _HB_FUN_FW_OPENADOEXCELBOOK
	_HB_FUN_FW_OPENADOEXCELSHEET      _HB_FUN_FW_OPENRECORDSET
	_HB_FUN_FW_OPENTRECSET            _HB_FUN_FW_QUOTEDCOLSQL
	_HB_FUN_FW_RDBMSNAME              _HB_FUN_FW_RECSETHEADERS
	_HB_FUN_FW_REOPENRECORDSET        _HB_FUN_FW_SHOWADOERROR
	_HB_FUN_FW_VALTOSQL               _HB_FUN_MSSQL_BULKIMPORTDBF
	_HB_FUN_RSGETROWS                 _HB_FUN_RSTOHASH
	_HB_FUN_RSTOJSON                  _HB_FUN_TADOCOMMAND
	_HB_FUN_TRM                       _HB_FUN_UTYPETOBLANK

alert   	size = 3212
	_HB_FUN_ALERT                   

autoget 	size = 11251
	_HB_FUN_TAUTOGET                  _HB_FUN_TGETLIST

bar     	size = 25647
	_HB_FUN_GRADIENT2000              _HB_FUN_TBAR

bartabs 	size = 2684
	_HB_FUN_TBARTABS                

bitmap  	size = 16799
	_HB_FUN_PALBMPFREE                _HB_FUN_PALBMPNEW
	_HB_FUN_TBITMAP                 

block   	size = 1228
	_HB_FUN_TBLOCK                  

browse  	size = 4408
	_HB_FUN_BROWSE                    _HB_FUN_REPORT

brush   	size = 13063
	_HB_FUN_GRADIENTBRUSH             _HB_FUN_RESIZEBITMAP
	_HB_FUN_TBRUSH                  

brushex 	size = 1312
	_HB_FUN_TBRUSHEX                

btnbmp  	size = 36407
	_HB_FUN_TBTNBMP                 

btnflat 	size = 8231
	_HB_FUN_TBTNFLAT                

button  	size = 6912
	_HB_FUN_TBUTTON                 

buttonb 	size = 6416
	_HB_FUN_TBUTTONBMP              

c5lib   	size = 8935
	_HB_FUN_AC5BOX                    _HB_FUN_ASPLIT
	_HB_FUN_C5BOX                     _HB_FUN_COLORES
	_HB_FUN_CREAAROWRIGHT             _HB_FUN_CREABITMAPEX
	_HB_FUN_CREABITMAPEX2             _HB_FUN_CREAVGRIP
	_HB_FUN_DLGCHANGESIZE             _HB_FUN_DRAWMTEXT
	_HB_FUN_FINDCHAR                  _HB_FUN_FONTUNDER
	_HB_FUN_GENIMAGELIST              _HB_FUN_GETBITMAP16
	_HB_FUN_GETBITMAPSIZE             _HB_FUN_GETDEFFONT
	_HB_FUN_GETORIGINALORDEN          _HB_FUN_ICON2BMP
	_HB_FUN_LFN2SFNEX                 _HB_FUN_LOADACCESOS
	_HB_FUN_LOADICONEX                _HB_FUN_LOADIMAGEEX
	_HB_FUN_LOADIMAGEEX2              _HB_FUN_LTHEMES
	_HB_FUN_MEMOWRITEX                _HB_FUN_RESTORESCREENFROMBMP
	_HB_FUN_SAVESCREENASBMP           _HB_FUN_STRCOUNT
	_HB_FUN_XADRIVES                  _HB_FUN___MIRROW

c5tooltp	size = 11531
	_HB_FUN_TC5TOOLTIP              

calinfo 	size = 6456
	_HB_FUN_TCALINFO                

callstac	size = 2968
	_HB_FUN_CCALLSTACK                _HB_FUN_SHOWCALLSTACK
	_HB_FUN_STACKVARS               

chatgpt 	size = 2760
	_HB_FUN_TCHATGPT                

checkbox	size = 7160
	_HB_FUN_TCHECKBOX               

checkres	size = 1482
	DelResource                       _HB_FUN_CHECKRES
	_HB_FUN_FWADDRESOURCE             _HB_FUN_FWDELRESOURCE
	_HB_FUN_SETRESDEBUG               _RegisterResource

clipbrd 	size = 4304
	_HB_FUN_GETCLIPCONTENTFORMAT      _HB_FUN_TCLIPBOARD

clipmore	size = 492
	_HB_FUN_RLNEW                     _HB_FUN_RLQUERY

combobox	size = 20863
	_HB_FUN_SETCBXCOLORFOCUS          _HB_FUN_TCOMBOBOX
	_HB_FUN_TDRAWITEMSTRUCT         

combom  	size = 13759
	_HB_FUN_TCOMBOMETRO             

control 	size = 30079
	_HB_FUN_GETGRIDSIZE               _HB_FUN_SETGRIDSIZE
	_HB_FUN_TCONTROL                

crcard  	size = 2044
	_HB_FUN_FW_VALIDCREDITCARD      

cursor  	size = 3512
	_HB_FUN_TCURSOR                 

database	size = 39523
	_HB_FUN_TDATABASE               

datarow 	size = 47499
	_HB_FUN_BTNCHOOSECOLOR            _HB_FUN_EXTRACTBMP
	_HB_FUN_FW_COPYRECORD             _HB_FUN_FW_EDITHASH
	_HB_FUN_FW_PASTERECORD            _HB_FUN_FW_RECORD
	_HB_FUN_MAKEBMPARRAY              _HB_FUN_TDATAROW
	_HB_FUN_XEDIT                   

dbcombo 	size = 9040
	_HB_FUN_TDBCOMBO                

dbffunc1	size = 2948
	_HB_FUN_DBF_APPLYPARAMS           _HB_FUN_DBF_NEEDSLOCK
	_HB_FUN_DBROLLBACK                _HB_FUN_DBROLLBACKALL
	_HB_FUN_FIELDINEXPR               _HB_FUN_FW_DBFTOARRAY
	_HB_FUN_FW_DBFTOHASH              _HB_FUN_FW_DBFTOHTML
	_HB_FUN_FW_DBFTOJSON              _HB_FUN_ORDERTAGINFO

dbffunc2	size = 16256
	_HB_FUN_CONVERTTYPE               _HB_FUN_DBFAPPEND
	_HB_FUN_FW_ARRAYTODBF             _HB_FUN_FW_ARRAYTODBFEX
	_HB_FUN_FW_CDXCREATE              _HB_FUN_FW_COPYDBFTO
	_HB_FUN_FW_DBFILTERBLOCK          _HB_FUN_FW_DBFLOOKUP
	_HB_FUN_FW_DBFRENAMEFIELD         _HB_FUN_FW_DBFSQLQUERY
	_HB_FUN_FW_DBFSTRUCT              _HB_FUN_FW_DBFTOEXCEL
	_HB_FUN_FW_DBINSERT               _HB_FUN_FW_EXCELTODBF
	_HB_FUN_FW_FIELDSPUT              _HB_FUN_FW_HASHTOREC
	_HB_FUN_FW_INDEXINFO              _HB_FUN_FW_RECTOHASH
	_HB_FUN_FW_RECTOJSON              _HB_FUN_FW_SAVEARRAYTODBF
	_HB_FUN_FW_SETRECYCLEDELETED      _HB_FUN_SPLITATAS

dbffunc9	size = 1808
	_HB_FUN_GETRECYCLEDREC          

dbgabout	size = 1936
	_HB_FUN_DBGABOUT                

dbgalert	size = 1948
	_HB_FUN_DBGALERT                

dbgmemo 	size = 1812
	_HB_FUN_DBGMEMO                 

dbgprint	size = 2100
	_HB_FUN_DBGPRINT                

dbgtable	size = 2688
	_HB_FUN_DBGTABLE                

dbgtrace	size = 2976
	_HB_FUN_DBGTRACE                

dbtools 	size = 1396
	_HB_FUN_AGETWORKAREAS             _HB_FUN_CGETNEWALIAS
	_HB_FUN_CGETNEWALIASNAME          _HB_FUN_DUPRECORD
	_HB_FUN_GETORDNAMES             

dde     	size = 2756
	_HB_FUN_DDEACK                    _HB_FUN_DDETERMINATE
	_HB_FUN_TDDE                    

ddeclien	size = 4416
	_HB_FUN_TDDECLIENT              

dialog  	size = 23135
	_HB_FUN_FW_SETTRUEPIXEL           _HB_FUN_SETCENTERONPARENT
	_HB_FUN_SETDIALOGESC              _HB_FUN_SETDLGGRADIENT
	_HB_FUN_TDIALOG                 

dlgfind 	size = 1896
	_HB_FUN_DLGFINDTEXT               _HB_FUN_TDLGFIND

dlgs32  	size = 2296
	_HB_FUN_CGETDIR32                 _HB_FUN_CGETFILE32
	_HB_FUN_NGETFILTER32            

dostofwh	size = 5760
	_HB_FUN_ADDDOSMENUPROMPT          _HB_FUN_EXECDOSMENUPROMPT
	_HB_FUN_FW_DBEDIT                 _HB_FUN_FW_DOSCLEAR
	_HB_FUN_FW_DOSDIALOG              _HB_FUN_FW_DOSREAD
	_HB_FUN_FW_SETCOLOR             

dotnet_ 	size = 6284
	_HB_FUN_CLRCREATEINSTANCE         _HB_FUN_FW_DOTNET
	_HB_FUN_FW_DOTNETERROR            _HB_FUN_TDOTNET

drawbmp 	size = 860
	_HB_FUN_DRAWTEXTTRANSPARENT       _HB_FUN_DRAWTILED
	_HB_FUN_DRAWTRANSPARENT         

drxl    	size = 9939
	_HB_FUN_CGETFILEXLSX              _HB_FUN_CTEMPXLSX
	_HB_FUN_DRXLSFORMAT               _HB_FUN_DRXLSXLINKED
	_HB_FUN_DRXLSXOBJ                 _HB_FUN_FWDRXLSX
	_HB_FUN_USEDRXLSX                 _HB_FUN_USEXLSXLIB
	_HB_FUN_XLSXLIBLINKED             _HB_FUN_XLSXLIBOBJ
	_HB_FUN_XLSXOBJ                 

edit    	size = 7819
	_HB_FUN_TEDIT                   

editcell	size = 1664
	_HB_FUN_EDITCELL                

epfunc  	size = 896
	_HB_FUN_EP_GETTEMPPATH            _HB_FUN_EP_LINKEDTOAPP
	_HB_FUN_EP_SETPATH                _HB_FUN_EP_TIDYUP

ereport 	size = 74819
	_HB_FUN_AREACHANGE                _HB_FUN_AREAHIDE
	_HB_FUN_AREAPROPERTIES            _HB_FUN_BARMENU
	_HB_FUN_BETAVERSION               _HB_FUN_CHECKSTYLE
	_HB_FUN_CLICKLISTTREE             _HB_FUN_CLIENTWINDOWS
	_HB_FUN_DECLAREPUBLICS            _HB_FUN_DEFINEFONTS
	_HB_FUN_DELSELECTITEMS            _HB_FUN_DRAWRULERHORZLINE
	_HB_FUN_DRAWRULERVERTLINE         _HB_FUN_ERBUILDMENU
	_HB_FUN_EREPORT                   _HB_FUN_ERGETALLITEMS
	_HB_FUN_ER_MDICHILD               _HB_FUN_ER_MOUSEWHEEL
	_HB_FUN_ER_SETCOLOR               _HB_FUN_EXITEREPORT
	_HB_FUN_FONTSANDCOLORS            _HB_FUN_GENERATESOURCE
	_HB_FUN_GETALLCOLORS              _HB_FUN_GETCOLOR
	_HB_FUN_GETCURRENTFONT            _HB_FUN_GETFONTS
	_HB_FUN_GETFONTTEXT               _HB_FUN_GETPAPERSIZES
	_HB_FUN_INIMAINWINDOW             _HB_FUN_ITEMLIST
	_HB_FUN_LISTTREES                 _HB_FUN_MDL2
	_HB_FUN_MSGBARINFOS               _HB_FUN_OPTIONS
	_HB_FUN_PAINTGRID                 _HB_FUN_POPUPMENU
	_HB_FUN_PREVIEWMENU               _HB_FUN_PREVIEWREFRESH
	_HB_FUN_REPORTSETTINGS            _HB_FUN_SCROLLHORIZONT
	_HB_FUN_SCROLLVERTICAL            _HB_FUN_SELECTFONT
	_HB_FUN_SET2COLOR                 _HB_FUN_SET3COLOR
	_HB_FUN_SETAREAFORMULABTN         _HB_FUN_SETGENERALSETTINGS
	_HB_FUN_SETGRAPHTREEBMP           _HB_FUN_SETMAINWND
	_HB_FUN_SETSCROLLBAR              _HB_FUN_SETTITLECOLOR
	_HB_FUN_SETWINNULL                _HB_FUN_SHOWAREASONBAR
	_HB_FUN_SHOWCOLORCHOICE           _HB_FUN_SHOWFONTCHOICE
	_HB_FUN_STARTMESSAGE              _HB_FUN_TEASYREPORT
	_HB_FUN_TSCRIPT                   _HB_FUN_TTHISREPORT
	_HB_FUN_WNDKEYDOWNACTION        

erfile  	size = 22807
	_HB_FUN_ASKSAVEFILES              _HB_FUN_CHECKFILENAME
	_HB_FUN_CREATEBACKUP              _HB_FUN_CREATENEWREPORT
	_HB_FUN_ER_NEWREPORT              _HB_FUN_ER_SAVEAS
	_HB_FUN_FILEINFOS                 _HB_FUN_MOVERECORD
	_HB_FUN_OPENFILE                  _HB_FUN_SAVEASFILE
	_HB_FUN_SAVEFILE                  _HB_FUN_SETNEWREPORTDEFAULTS
	_HB_FUN_SETSAVE                   _HB_FUN_SETSAVEINFOS

eritems 	size = 45663
	_HB_FUN_BARCODEPROPERTIES         _HB_FUN_DEACTIVATEITEM
	_HB_FUN_DELETEALLITEMS            _HB_FUN_DELETEITEM
	_HB_FUN_DELITEMWITHKEY            _HB_FUN_DRAWBARCODE
	_HB_FUN_DRAWGRAPHIC               _HB_FUN_EDITSOURCECODE
	_HB_FUN_ELEMENTACTIONS            _HB_FUN_ER_SHOWITEM
	_HB_FUN_GETCOLORBTN               _HB_FUN_GETGRAPHINDEX
	_HB_FUN_GETGRAPHNAME              _HB_FUN_GETIMAGESIZE
	_HB_FUN_GETITEMDLGPOS             _HB_FUN_GETOVAR
	_HB_FUN_GRAPHICPROPERTIES         _HB_FUN_IMAGEPROPERTIES
	_HB_FUN_ISGRAPHIC                 _HB_FUN_ITEMCOPY
	_HB_FUN_ITEMPASTE                 _HB_FUN_ITEMPOPUPMENU
	_HB_FUN_ITEMPROPERTIES            _HB_FUN_KEYDOWNACTION
	_HB_FUN_MSGBARITEM                _HB_FUN_MULTIITEMPROPERTIES
	_HB_FUN_NEWITEM                   _HB_FUN_SAVEBARITEM
	_HB_FUN_SAVEGRAITEM               _HB_FUN_SAVEIMGITEM
	_HB_FUN_SAVEITEMGENERAL           _HB_FUN_SAVETEXTITEM
	_HB_FUN_SETFORMULABTN             _HB_FUN_SETITEMDEFAULT
	_HB_FUN_SETITEMDLG                _HB_FUN_SETITEMSIZE
	_HB_FUN_TEXTPROPERTIES            _HB_FUN_UPDATEITEMS

eritems2	size = 2964
	_HB_FUN_INVERTSELECTION           _HB_FUN_MARKITEM
	_HB_FUN_MOVESELECTION             _HB_FUN_MSGSELECTED
	_HB_FUN_REFRESHSELECTION          _HB_FUN_SELECTALLITEMS
	_HB_FUN_SELECTITEM                _HB_FUN_STARTSELECTION
	_HB_FUN_STOPSELECTION             _HB_FUN_TOGGLEITEMSELECTION
	_HB_FUN_UNSELECTALL             

errsysw 	size = 9316
	_HB_FUN_ERRORLINK                 _HB_FUN_ERRORSYS
	_HB_FUN_FWERRORSYS                _HB_FUN_FW_GT
	_HB_FUN_GETCPU                    _HB_FUN_HB_GTSYS
	_HB_FUN_SETERRORDIALOG            _HB_FUN_SETERRORFILENAME
	_HB_FUN_SETERRORPATH              _HB_FUN_SETPOSTERRORACTION

ertools 	size = 34983
	_HB_FUN_ADD2UNDO                  _HB_FUN_ADDTORECENTDOCS
	_HB_FUN_ADELETE                   _HB_FUN_ALTPRINTREPORT
	_HB_FUN_CHECKEXPRESSION           _HB_FUN_CLEARUNDOREDO
	_HB_FUN_CLOSEUNDO                 _HB_FUN_COPYTOEXPRESS
	_HB_FUN_CREATEDBFSEXPRESSIONS     _HB_FUN_CREATENEWFILE
	_HB_FUN_DATABASES                 _HB_FUN_DELDBASE
	_HB_FUN_DELETEAREA                _HB_FUN_EDITLANGUAGE
	_HB_FUN_ERCOPYFILE                _HB_FUN_ER_CHECKPATH
	_HB_FUN_ER_GETPIXEL               _HB_FUN_EXPRESSIONS
	_HB_FUN_GETBARCODES               _HB_FUN_GETCMINCH
	_HB_FUN_GETDBASE                  _HB_FUN_GETDBFIELD
	_HB_FUN_GETDIVISIBLE              _HB_FUN_GETEXPRFIELDS
	_HB_FUN_GETFIELD                  _HB_FUN_GETFILE
	_HB_FUN_GETLANGUAGE               _HB_FUN_GETSOURCETOOLTIP
	_HB_FUN_GL                        _HB_FUN_GOBOTTOM
	_HB_FUN_INICOLOR                  _HB_FUN_INSERTAREA
	_HB_FUN_ISDIVISIBLE               _HB_FUN_ISINTERSECTRECT
	_HB_FUN_ISPOINTINRECT             _HB_FUN_ISSECONDPAGE
	_HB_FUN_MAINCAPTION               _HB_FUN_MULTIUNDOREDO
	_HB_FUN_OPENDATABASES             _HB_FUN_OPENLANGUAGE
	_HB_FUN_OPENUNDO                  _HB_FUN_PRINTREPORT
	_HB_FUN_REDO                      _HB_FUN_REFRESHREDO
	_HB_FUN_REFRESHUNDO               _HB_FUN_SAVEDATABASES
	_HB_FUN_STRATNUM                  _HB_FUN_UNDO
	_HB_FUN_UNDOEXPRESSION            _HB_FUN_UNDOREDOMENU
	_HB_FUN_VRD_MSGRUN              

esreport	size = 49423
	_HB_FUN_ERSTART                   _HB_FUN_FWER_ITEM
	_HB_FUN_FWER_PRREPORT             _HB_FUN_FW_EREPORT

etc     	size = 808
	_HB_FUN_FNADDBITMAP               _HB_FUN___CHANGESTYLEWINDOW

expbuild	size = 8480
	_HB_FUN_CGETEXPRESSION            _HB_FUN_FWARGSLIST
	_HB_FUN_FWCHECKEXPRESSION         _HB_FUN_FWEXPBUILDER

fget    	size = 71131
	_HB_FUN_GTFTOTXT                  _HB_FUN_TFGET
	_HB_FUN_TXTTOGTF                

fileedit	size = 12247
	_HB_FUN_BROWSEITEMS               _HB_FUN_CELLVARPUT
	_HB_FUN_DBREPLACE                 _HB_FUN_DUPLICATE
	_HB_FUN_EREDITCELL                _HB_FUN_FEBUILDMENU
	_HB_FUN_FEFILEEDIT                _HB_FUN_FEGETFILE
	_HB_FUN_FEOPENFILE                _HB_FUN_FILEEDITABOUT
	_HB_FUN_GETTYPE                   _HB_FUN_LASTENTRYNR
	_HB_FUN_REPLACEITEMS            

filename	size = 7192
	_HB_FUN_ADRIVES                   _HB_FUN_AFINDFILE
	_HB_FUN_CFILEDISC                 _HB_FUN_CFILEEXT
	_HB_FUN_CFILEMASK                 _HB_FUN_CFILENAME
	_HB_FUN_CFILENOEXT                _HB_FUN_CFILENOPATH
	_HB_FUN_CFILEPATH                 _HB_FUN_CFILESETEXT
	_HB_FUN_CFILESUBDIR               _HB_FUN_CFILEUNC
	_HB_FUN_CNEWFILENAME              _HB_FUN_CRELATIVEPATH
	_HB_FUN_CTEMPFILE                 _HB_FUN_CURDRIVE
	_HB_FUN_FDATE                     _HB_FUN_FOLDEREXISTS
	_HB_FUN_FSIZE                     _HB_FUN_FTIME
	_HB_FUN_FW_MEMOWRIT               _HB_FUN_FW_NETRMTNAME
	_HB_FUN_GETIMAGE                  _HB_FUN_ISFILEEXT
	_HB_FUN_LFILEISREMOTE             _HB_FUN_LISDIR
	_HB_FUN_LOGFILE                   _HB_FUN_LOGSTACK
	_HB_FUN_MAPDRIVE                  _HB_FUN_MOVEFILE
	_HB_FUN_REMOVEDIR                 _HB_FUN_SETFOLDERICON
	_HB_FUN_SETLOGFILE              

fldex   	size = 8085
	_CalcPos                          _HB_FUN_CALPOS
	_HB_FUN_CALPOSITION               _RetriveFldInfo
	_hb_FWarrayClone                

fline   	size = 1380
	_HB_FUN_TFLINE                  

folder  	size = 16391
	_HB_FUN_TFOLDER                 

font    	size = 13215
	_HB_FUN_FONTFROMTEXT              _HB_FUN_FONTTOTEXT
	_HB_FUN_FW_CHECKFONT              _HB_FUN_GETUSEDFONTS
	_HB_FUN_TFONT                   

ftranslate	size = 3096
	_HB_FUN_FW_TRANSLANG              _HB_FUN_LISTLANGS
	_HB_FUN_TRANSACTION             

fwbarcod	size = 14352
	_HB_FUN_FWER_BARCODE              _HB_FUN_FWER_BARCODE_CHKDIGIT

fwdbg   	size = 42467
	_HB_FUN_DBGGETODBG                _HB_FUN_DBGSETODBG
	_HB_FUN_DBGSOALARM                _HB_FUN_DBGSOALERT
	_HB_FUN_DBGSOBLEEP                _HB_FUN_DBGSOCLICK
	_HB_FUN_DBGSOINFO                 _HB_FUN_DBGSOPUCK
	_HB_FUN_TDBG                      _HB_FUN___DBGENTRY

fwdecode	size = 3768
	_HB_FUN_ARRTRANSPOSE              _HB_FUN_ARRTRANSPOSEQ
	_HB_FUN_ASHUFFLE                  _HB_FUN_FW_AREVERSE
	_HB_FUN_FW_ARRGROUPSUM            _HB_FUN_FW_ARRSUM
	_HB_FUN_FW_ASORT                  _HB_FUN_FW_DECODE
	_HB_FUN_FW_GREATEST               _HB_FUN_FW_LEAST
	_HB_FUN_FW_RAEVAL               

fwerror 	size = 956
	_HB_FUN__FWGENERROR               _HB_FUN___LOWMEMERROR

fwmaria 	size = 159286
	_HB_FUN_FRECSET                   _HB_FUN_FWMARIALIB_VERSION
	_HB_FUN_FWMARIA_LCMESSAGES        _HB_FUN_FWMARIA_SET_PAD_CHAR_TO_FULL_LENGTH
	_HB_FUN_FW_DEMODB                 _HB_FUN_FW_XOR
	_HB_FUN_INBRACKETS                _HB_FUN_MARIA_CONNECT
	_HB_FUN_MARIA_CONNECTERROR        _HB_FUN_MARIA_EMBEDDED
	_HB_FUN_MYSQL_BLOBASHEX           _HB_FUN_MYSQL_CRYPT
	_HB_FUN_MYSQL_CRYPTKEY            _HB_FUN_MYSQL_ESCAPE_STRING
	_HB_FUN_MYSQL_MAXPADLIMIT         _HB_FUN_MYSQL_QUOTEDCOL
	_HB_FUN_MYSQL_ROWSET              _HB_FUN_MYSQL_STMT_BINDTEST
	_HB_FUN_MYSQL_STMT_CLOSE          _HB_FUN_MYSQL_STMT_EXECUTE
	_HB_FUN_MYSQL_STMT_INIT           _HB_FUN_MYSQL_STMT_PREPARE
	_HB_FUN_MYSQL_TINYINTASLOGICAL    _HB_FUN_MYSQL_UPDATEFROMTABLESQL
	_HB_FUN_MYSQL_UPDATESUMMARYSQL    _HB_FUN_STRICMPX
	_fw_isbinarydata                  _result_items

fwmsword	size = 11887
	_HB_FUN_FWMSWORDDOC             

fwmulti 	size = 1006
	_HB_FUN_EXEID                     _HB_FUN_FW_SETMULTI
	_HB_FUN_OPENMUTEX               

fworm   	size = 15247
	_HB_FUN_EXTRACTGROUPBY            _HB_FUN_ORM_CONNECTION
	_HB_FUN_ORM_TABLE               

fwpdf   	size = 29239
	_HB_FUN_FWHARU                    _HB_FUN_FWPDF

fwrowset	size = 23593
	_HB_FUN_FWM_BLANKVALUE            _HB_FUN_FWROWSET
	_HB_FUN_TRANS_DBFSQL              _HB_FUN_TRANS_LIKETODBF

fwstack 	size = 1592
	_HB_FUN_FWSTACK                 

fwxlsxlb	size = 15979
	_HB_FUN_TWORKBOOK                 _HB_FUN_XLSXLIB

fwzebra 	size = 4876
	_HB_FUN_FWZEBRA                   _HB_FUN_FWZEBRA_BARCODE

gantt   	size = 8403
	_HB_FUN_TGANTT                    _HB_FUN_TGANTTITEM

getfiles	size = 920
	_HB_FUN_AGETFILES                 _HB_FUN_AGETFILESA

getsysin	size = 9248
	_HB_FUN_BORLANDVERSION            _HB_FUN_COLORSQTY
	_HB_FUN_CWINVERSION               _HB_FUN_DISPFONTPERSIZE
	_HB_FUN_FW_ACTIVEMONITORS         _HB_FUN_FW_GETALLMONITORS
	_HB_FUN_FW_GETMONITOR             _HB_FUN_FW_GETTHEMEMODE
	_HB_FUN_FW_ISMOUSEPRESENT         _HB_FUN_FW_ISTABLETMODE
	_HB_FUN_FW_ISTOUCHSCREEN          _HB_FUN_FW_SETMONITOR
	_HB_FUN_FW_VIRTUALSCREEN          _HB_FUN_GETCPUSPEED
	_HB_FUN_GETSYSFONT                _HB_FUN_ISDARKTHEME
	_HB_FUN_ISWIN2000                 _HB_FUN_ISWIN64
	_HB_FUN_ISWIN7                    _HB_FUN_ISWIN8
	_HB_FUN_ISWINDOWS10               _HB_FUN_ISWINDOWS11
	_HB_FUN_ISWINVISTA                _HB_FUN_ISWINXP
	_HB_FUN_LARGEFONTS                _HB_FUN_SAVEDESKTOP
	_HB_FUN_SCREENHEIGHT              _HB_FUN_SCREENHEIGHTMM
	_HB_FUN_SCREENSCALING             _HB_FUN_SCREENSIZE
	_HB_FUN_SCREENSIZE_NOSCALING      _HB_FUN_SCREENWIDTH
	_HB_FUN_SCREENWIDTHMM             _HB_FUN_SCRRESOLUTION
	_HB_FUN_SETDARKTHEME              _HB_FUN_WINDOWS
	_HB_FUN_WNDCENTEREX             

gettasks	size = 2784
	_HB_FUN_GETTASKS                  _HB_FUN_GETWINDOWMODULEFILENAME
	_HB_FUN_SETTASKMANAGER          

gmail   	size = 5740
	_HB_FUN_TGMAIL                  

group   	size = 5136
	_HB_FUN_TGROUP                  

gtf     	size = 6940
	_HB_FUN_GTFTORTF                  _HB_FUN_ISGTF
	_HB_FUN_ISRTF                     _HB_FUN_RTFTOGTF

harbour 	size = 4379
	_HB_FUN_ASEND                     _HB_FUN_ASLONG
	_HB_FUN_ASLONGLONG                _HB_FUN_ASPTR
	_HB_FUN_CHILDLEVEL                _HB_FUN_EXECUTE
	_HB_FUN_FREELIB32                 _HB_FUN_FREELIBRARY
	_HB_FUN_FREOPEN_STDERR            _HB_FUN_GETLASTERROR
	_HB_FUN_GETLOCAL                  _HB_FUN_GETPARAM
	_HB_FUN_GETPROCADDRESS            _HB_FUN_HB_DBG_VMPARLLIST
	_HB_FUN_HB_DBG_VMSTKLCOUNT        _HB_FUN_HB_DBG_VMVARLGET
	_HB_FUN_HB_DBG_VMVARSLEN          _HB_FUN_LOADLIB32
	_HB_FUN_LOADLIBRARY               _HB_FUN_LOADVBX
	_HB_FUN_LOCALCOUNT                _HB_FUN_MEMMAX
	_HB_FUN_MEMUSED                   _HB_FUN_NHEAPSIZE
	_HB_FUN_NINITDSSIZE               _HB_FUN_NSTACKSIZE
	_HB_FUN_NSTATICS                  _HB_FUN_NSYMPSIZE
	_HB_FUN_NTXPOS                    _HB_FUN_OCLONE
	_HB_FUN_OLEGETPROPERTY            _HB_FUN_OLEINVOKE
	_HB_FUN_OLESETPROPERTY            _HB_FUN_OSEND
	_HB_FUN_PARAMCOUNT                _HB_FUN_SETMULTIPLE
	_HB_FUN_TVBCONTROL                _HB_FUN_ULOADOBJECT
	_HB_FUN_VBXCLASSNAME              _HB_FUN_VBXEVENT
	_HB_FUN_WINDOWSFIX                _HB_FUN__CLSSETERROR
	_HB_FUN__GENERROR               

help32  	size = 4424
	_HB_FUN_HELPINDEX                 _HB_FUN_HELPPOPUP
	_HB_FUN_HELPSEARCH                _HB_FUN_HELPTOPIC
	_HB_FUN_SETAUTOHELP               _HB_FUN_SPWINHELP
	_HB_FUN_SPWINHELPC                _HB_FUN_WINHELP

helpchm 	size = 3071
	_HB_FUN_CHMHELPINDEX              _HB_FUN_CHMHELPPOPUP
	_HB_FUN_CHMHELPSEARCH             _HB_FUN_CHMHELPTOPIC
	_HB_FUN_FREEHTMLDLL               _HB_FUN_GETHELPPOPUP
	_HB_FUN_HTMLPOP                   _HB_FUN_HTMLSEARCH
	_HB_FUN_HTML_HELP                 _HB_FUN_SETHELPPOPUP
	_hDLL                             _helpaddress
	_pHTMLHELP                      

icon    	size = 3956
	_HB_FUN_TICON                   

iget    	size = 2560
	_HB_FUN_TICONGET                

igroup  	size = 15835
	_HB_FUN_TICONGROUP              

image   	size = 16455
	_HB_FUN_FICNV24                   _HB_FUN_FICONVERTIMAGEFILE
	_HB_FUN_FICONVTO32                _HB_FUN_FIGETBITS
	_HB_FUN_FIGETFILETYPE             _HB_FUN_FIGETINFO
	_HB_FUN_FIGETINFOHEADER           _HB_FUN_FIGETWIDTH
	_HB_FUN_FIISTRANSPARENT           _HB_FUN_FILOAD
	_HB_FUN_FILOADFROMMEMORY          _HB_FUN_FILOADIMG
	_HB_FUN_FIMAKETHUMBNAIL           _HB_FUN_FIROTATE
	_HB_FUN_FIROTATEIMG               _HB_FUN_FISAVE
	_HB_FUN_FISETTRANSPARENT          _HB_FUN_FITYPEFROMMEMORY
	_HB_FUN_FIUNLOAD                  _HB_FUN_FI_CLOSEMEMORY
	_HB_FUN_FI_GETFILETYPEFROMFILENAME  _HB_FUN_FI_GETFILETYPEFROMMEMORY
	_HB_FUN_FI_LOADFROMMEMORY         _HB_FUN_FI_OPENMEMORY
	_HB_FUN_FI_SAVETOMEMORY           _HB_FUN_FI_SUPPORTSWRITING
	_HB_FUN_FMAKETHUMBNAIL            _HB_FUN_FREEIMAGEISLOADED
	_HB_FUN_ISIMAGEDATA               _HB_FUN_LOADFREEIMAGE
	_HB_FUN_TIMAGE                    _HB_FUN_UNLOADFREEIMAGE

imageb64	size = 7500
	_HB_FUN_TIMAGEBASE64            

imgtxtio	size = 51385
	_HB_FUN_CALCTEXTWH                _HB_FUN_CONTRASTCLR
	_HB_FUN_DRAWBMPARRAY              _HB_FUN_DRAWPROGRESSBAR
	_HB_FUN_DRAWTEXTEXARRAY           _HB_FUN_DUPLICATEIMAGE
	_HB_FUN_ELLIPSE_RADIUS            _HB_FUN_EMF2HBITMAP
	_HB_FUN_EXTRACTBASE64IMAGE        _HB_FUN_FILLRECTEX
	_HB_FUN_FW_ANGLEARC               _HB_FUN_FW_BARCODEBMP
	_HB_FUN_FW_BMPMINUS               _HB_FUN_FW_BMPPLUS
	_HB_FUN_FW_BMPSTAR                _HB_FUN_FW_BOX
	_HB_FUN_FW_CLIPBOARDHASIMAGE      _HB_FUN_FW_COPYTOCLIPBOARD
	_HB_FUN_FW_CREATEBITMAP           _HB_FUN_FW_DRAWIMAGE
	_HB_FUN_FW_DRAWSHADOW             _HB_FUN_FW_DRAWSHAPES
	_HB_FUN_FW_ELLIPSHADOW            _HB_FUN_FW_EMPTYCLIPBOARD
	_HB_FUN_FW_GETCLIPBOARDDATA       _HB_FUN_FW_HBITMAPTOFILE
	_HB_FUN_FW_IMAGETOBLOB            _HB_FUN_FW_MAKEYOURBITMAP
	_HB_FUN_FW_PIECHART               _HB_FUN_FW_READIMAGE
	_HB_FUN_FW_RICHTEXTBMP            _HB_FUN_FW_SAVEHBITMAP
	_HB_FUN_FW_SAVEIMAGE              _HB_FUN_FW_SAVEIMAGESAMETYPE
	_HB_FUN_FW_SAVETHUMBNAIL          _HB_FUN_FW_SAYBARCODE
	_HB_FUN_FW_SAYHOLLOW              _HB_FUN_FW_SAYTEXT
	_HB_FUN_FW_SAYTEXTHILITE          _HB_FUN_FW_SAYTEXTSPREAD
	_HB_FUN_FW_STITCHIMAGES           _HB_FUN_FW_TEXTTOBITMAP
	_HB_FUN_FW_TRANSFORMBITMAP        _HB_FUN_GDI32_HOLLOWTEXT
	_HB_FUN_GETBMPHEIGHT              _HB_FUN_GETBMPWIDTH
	_HB_FUN_GRADARGB2RGB              _HB_FUN_GRADIENTFILL
	_HB_FUN_GRADIENTGDIP              _HB_FUN_HICO2HBMP
	_HB_FUN_HVALTOBRUSH               _HB_FUN_HVALTOPEN
	_HB_FUN_ISALPHACLR                _HB_FUN_ISFILEIMAGETYPE
	_HB_FUN_ISIMAGEEXT                _HB_FUN_ISXHBCOM
	_HB_FUN_JPEGDIM                   _HB_FUN_MEMORYBUFFERTYPE
	_HB_FUN_MSGINFOSCROLL             _HB_FUN_PCHARTOPTR
	_HB_FUN_RESIZEIMAGEPTR            _HB_FUN_RINGGRADIENTFILL
	_HB_FUN_SAMEIMGEXT                _HB_FUN_SAYTEXTATANGLE
	_HB_FUN_SEGOEMDL2                 _HB_FUN_SELECTCLIPPATH
	_HB_FUN_SELECTCLIPRGN             _HB_FUN_SETDEFAULTICONSIZE
	_HB_FUN_TXTINRCT                  _HB_FUN_USEGDI
	_HB_FUN_WEBIMAGE                  _HB_FUN_WEBPAGECONTENTS
	_HB_FUN_WINDOWFROMDC              _HB_FUN_WNDBMP
	_HB_FUN_WRAPTOWIDTH             

ini     	size = 2852
	_HB_FUN_GETPVPRFSE                _HB_FUN_TINI

internet	size = 1580
	_HB_FUN_TINTERNET               

keys    	size = 376
	_HB_FUN__SETKEY                 

linklist	size = 5140
	_HB_FUN_TLINKLIST               

listbox 	size = 12095
	_HB_FUN_TLISTBOX                

loadval 	size = 444
	_HB_FUN_LOADVALUE               

longnam2	size = 3572
	_HB_FUN_APIFINDCLS                _HB_FUN_APIFINDFST
	_HB_FUN_APIFINDNXT                _HB_FUN_GETFULLPATHNAME
	_HB_FUN_GETSHORTPATHNAME          _HB_FUN_LFN2SFN
	_HB_FUN_SFN2LFN                 

mariarec	size = 4380
	_HB_FUN_FWMARIARECORD           

math    	size = 640
	_HB_FUN_BINTOC                    _HB_FUN_BINTON
	_HB_FUN_NTOBIN                  

matrices	size = 10860
	_HB_FUN_ADIFF                     _HB_FUN_FW_MATRIX
	_HB_FUN_MATRIXINVERT              _HB_FUN_MATRIXMULTIPLY
	_HB_FUN_MATRIX_BOX              

mdichild	size = 7595
	_HB_FUN_TMDICHILD               

mdiclien	size = 5304
	_HB_FUN_TMDICLIENT              

mdiframe	size = 9371
	_HB_FUN_GETWNDFRAME               _HB_FUN_TMDIFRAME

mdirec  	size = 1324
	_HB_FUN_MDIRECEDIT              

memoedit	size = 25087
	_HB_FUN_BUILDRICHEDITBAR          _HB_FUN_FW_MEMOEDIT
	_HB_FUN_HTMLVIEW                  _HB_FUN_JSONBROWSE
	_HB_FUN_JSONVIEW                  _HB_FUN_RICHEDIT
	_HB_FUN_RICHEDIT5                 _HB_FUN_SAVEFILESOURCE
	_HB_FUN_SETUPSCINT                _HB_FUN_SOURCECOMPILE
	_HB_FUN_SOURCEEDIT                _HB_FUN_SOURCEEDITOR
	_HB_FUN_UTFEDIT                 

memstat 	size = 684
	_HB_FUN_MEMSTAT                 

menu    	size = 49759
	_HB_FUN_DELCHECK                  _HB_FUN_GETAAUXITEMS
	_HB_FUN_GETALLITEMS               _HB_FUN_GETBMPSITEMS
	_HB_FUN_GETNHEIGHTITEM            _HB_FUN_GETNHEIGHTSEP
	_HB_FUN_GETNOLDHEIGHTITEM         _HB_FUN_GETNWIDTHITEM
	_HB_FUN_GETPOPUPS                 _HB_FUN_ITEMBITMAP
	_HB_FUN_MENUCLONE                 _HB_FUN_RESBUILD
	_HB_FUN_SEARCHID                  _HB_FUN_SEARCHITEM
	_HB_FUN_TMENU                   

menuitem	size = 21635
	_HB_FUN_TMENUITEM                 _HB_FUN_TXTTOBMP

meter   	size = 13083
	_HB_FUN_PAINTCIRCULARMETER        _HB_FUN_PAINTCIRCULARMETEROLD
	_HB_FUN_TMETER                  

metrcirc	size = 12207
	_HB_FUN_TPROGRESSWHEEL          

metropnl	size = 23443
	_HB_FUN_TMETROBTN                 _HB_FUN_TMETROPANEL

mget    	size = 17911
	_HB_FUN_SETMGETCOLORFOCUS         _HB_FUN_TMULTIGET

mimeclip	size = 3352
	_HB_FUN_FFMIMEDEC                 _HB_FUN_FFMIMEENC
	_HB_FUN_FMIMEDEC                  _HB_FUN_FMIMEENC
	_HB_FUN_MAKEWIND                  _HB_FUN_MIMEEXT
	_HB_FUN_REGQRYVALUEEX             _HB_FUN_TESTTHIS

mru     	size = 4376
	_HB_FUN_TMRU                    

msgbar  	size = 15851
	_HB_FUN_GETMSGBARDEFAULT          _HB_FUN_SETMSGBARDEFAULT
	_HB_FUN_TIMEFROMSTART             _HB_FUN_TMSGBAR

msgcalc 	size = 4276
	_HB_FUN_MSGCALC                 

msgget  	size = 3596
	_HB_FUN_MSGGET                  

msglist 	size = 1552
	_HB_FUN_MSGLIST                 

msglogo 	size = 2108
	_HB_FUN_MSGLOGO                   _HB_FUN_MSGSPLASH

msgmeter	size = 6272
	_HB_FUN_MSGDATE                   _HB_FUN_MSGMETER

msgrun  	size = 1592
	_HB_FUN_MSGRUN                    _HB_FUN_MSGWAIT
	_HB_FUN_STOPUNTIL                 _HB_FUN_WAITSECONDS

msgtbar 	size = 884
	_HB_FUN_MSGTOOLBAR              

netapi32	size = 3964
	_HB_FUN_ISEXTERNALIP              _HB_FUN_ISINTERNET
	_HB_FUN_ISLOCALIP                 _HB_FUN_LOCALIP
	_HB_FUN_NETBIOS                   _HB_FUN_NETSERIALNUMBER
	_HB_FUN_PUBLICIP                

now     	size = 6884
	_HB_FUN_NOW                       _HB_FUN_NOWC
	_IN6ADDR_ISANY                    _IN6ADDR_ISEQUAL
	_IN6ADDR_ISLOOPBACK               _IN6ADDR_ISUNSPECIFIED
	_IN6ADDR_SETANY                   _IN6ADDR_SETLOOPBACK
	_IN6_ADDR_EQUAL                   _IN6_IS_ADDR_ANYCAST
	_IN6_IS_ADDR_EUI64                _IN6_IS_ADDR_GLOBAL
	_IN6_IS_ADDR_LINKLOCAL            _IN6_IS_ADDR_LOOPBACK
	_IN6_IS_ADDR_MC_GLOBAL            _IN6_IS_ADDR_MC_LINKLOCAL
	_IN6_IS_ADDR_MC_NODELOCAL         _IN6_IS_ADDR_MC_ORGLOCAL
	_IN6_IS_ADDR_MC_SITELOCAL         _IN6_IS_ADDR_MULTICAST
	_IN6_IS_ADDR_SITELOCAL            _IN6_IS_ADDR_SUBNET_RESERVED_ANYCAST
	_IN6_IS_ADDR_SUBNET_ROUTER_ANYCAST  _IN6_IS_ADDR_UNSPECIFIED
	_IN6_IS_ADDR_V4COMPAT             _IN6_IS_ADDR_V4MAPPED
	_IN6_IS_ADDR_V4TRANSLATED         _IN6_SET_ADDR_LOOPBACK
	_IN6_SET_ADDR_UNSPECIFIED         _WSAGetFailConnectOnIcmpError
	_WSAGetIPUserMtu                  _WSAGetIcmpErrorInfo
	_WSAGetRecvIPEcn                  _WSAGetUdpRecvMaxCoalescedSize
	_WSAGetUdpSendMessageSize         _WSASetFailConnectOnIcmpError
	_WSASetIPUserMtu                  _WSASetRecvIPEcn
	_WSASetUdpRecvMaxCoalescedSize    _WSASetUdpSendMessageSize
	_gai_strerrorA                    _gai_strerrorW
	_getipv4sourcefilter              _getsourcefilter
	_idealsendbacklognotify           _idealsendbacklogquery
	_setipv4sourcefilter              _setsourcefilter

num2word	size = 3228
	_HB_FUN_FW_N2WSETUP               _HB_FUN_FW_NUMTOWORDS

oauth   	size = 10748
	_HB_FUN_THTTPSERVER               _HB_FUN_TOAUTH

objects 	size = 1472
	_HB_FUN_ENDOBJECT                 _HB_FUN_SETOBJECT
	_HB_FUN_TAPPLICATION            

objfile 	size = 4116
	_HB_FUN_TOBJFILE                

odata   	size = 412
	_HB_FUN_AODATA                  

odbc    	size = 2092
	_HB_FUN_ODBCDSNENTRIES            _HB_FUN_SQLCOL
	_HB_FUN_SQLCOMMIT                 _HB_FUN_SQLDESCRIBECOL
	_HB_FUN_SQLDRIVERCONNECT          _HB_FUN_SQLFILE
	_HB_FUN_SQLGETCURNAME             _HB_FUN_SQLGETDATA
	_HB_FUN_SQLGETINFO                _HB_FUN_SQLINDEX
	_HB_FUN_SQLPREPARE                _HB_FUN_SQLSETCURNAME

olefuncs	size = 8368
	_HB_FUN_CONVERTTOOOURL            _HB_FUN_DBF2EXCELNUMFORMAT
	_HB_FUN_EXCELBOOKSAVEAS           _HB_FUN_EXCELLANG
	_HB_FUN_EXCELLANGID               _HB_FUN_EXCELOBJ
	_HB_FUN_EXCELSEPARATORS           _HB_FUN_EXCELTRANSLATE
	_HB_FUN_FILESYSOBJ                _HB_FUN_FWGETOLEOBJECT
	_HB_FUN_FW_TOGGLEDESKTOP          _HB_FUN_GETEXCELBOOK
	_HB_FUN_GETEXCELRANGE             _HB_FUN_GETPROPERTYVALUE
	_HB_FUN_HARBOURNEW                _HB_FUN_MERGEDOCS
	_HB_FUN_OFFICEEXTRACTIMAGE        _HB_FUN_SUNCALCOBJ
	_HB_FUN_WINHTTPOBJ                _HB_FUN_WINWORDOBJ
	_HB_FUN_WMISERVICE                _HB_FUN_XLRANGEVALUE

outl2003	size = 11175
	_HB_FUN_TOUTLOOK2003              _HB_FUN_TOUTLOOK2003GROUP

outl2010	size = 11159
	_HB_FUN_TOUTLOOK2010              _HB_FUN_TOUTLOOK2010GROUP

outlook 	size = 11363
	_HB_FUN_TOUTLOOK                

pdmenu  	size = 20811
	_HB_FUN_DELAMENUSAUX              _HB_FUN_DELMENUFONT
	_HB_FUN_FW_MEASUREITEM            _HB_FUN_FW_MENUDRAW
	_HB_FUN_GETACCTABLE               _HB_FUN_GETAMENUS
	_HB_FUN_GETAMENUSAUX              _HB_FUN_GETMENUFONT
	_HB_FUN_GETPARENTAUXMENUS         _HB_FUN_ISCHARUNI
	_HB_FUN_ISUTF8                    _HB_FUN_LASTAUXMENU
	_HB_FUN_LASTITEM                  _HB_FUN_LASTITEMPOS
	_HB_FUN_LASTMENU                  _HB_FUN_LASTMENUITEMSCOUNT
	_HB_FUN_MENUADDITEM               _HB_FUN_MENUBEGIN
	_HB_FUN_MENUDATA                  _HB_FUN_MENUEND
	_HB_FUN_SETINITITEMSCHILDS        _HB_FUN_SETOLDMENUS
	_HB_FUN_SETSPACEMONOSP            _HB_FUN_SETSPACEXTRAS
	_HB_FUN_SETSPACEXTRASPOP        

pdreport	size = 1852
	_HB_FUN_RPTADDCOLUMN              _HB_FUN_RPTADDGROUP
	_HB_FUN_RPTBEGIN                  _HB_FUN_RPTEND

pen     	size = 1584
	_HB_FUN_TPEN                    

pgsuport	size = 11424
	_HB_FUN_FWPG_APPENDFROMALIAS      _HB_FUN_FWPG_CREATETABLESQL
	_HB_FUN_FWPG_CURRENTDB            _HB_FUN_FWPG_EXECUTE
	_HB_FUN_FWPG_FIELDGET             _HB_FUN_FWPG_GOTOKEYVAL
	_HB_FUN_FWPG_IMPORTFROMDBF        _HB_FUN_FWPG_LISTDBS
	_HB_FUN_FWPG_LISTSCHEMAS          _HB_FUN_FWPG_METASTRUCT
	_HB_FUN_FWPG_PRIMARYKEYS          _HB_FUN_FWPG_PRIMARYORDER
	_HB_FUN_FWPG_QUERYSETORDER        _HB_FUN_FWPG_SKIPPER
	_HB_FUN_FWPG_STRUCTURE            _HB_FUN_FWPG_TABLENAMEFROMID
	_HB_FUN_FWPG_XBRSAVEDATA          _HB_FUN_FWPG_XBRSEEK

printer 	size = 36179
	_HB_FUN_AGETPRINTERS              _HB_FUN_HARUPDFDOC
	_HB_FUN_ISHARULINKED              _HB_FUN_MSPRINTTOPDF
	_HB_FUN_PAGEBEGIN                 _HB_FUN_PAGEEND
	_HB_FUN_PRINTBEGIN                _HB_FUN_PRINTEND
	_HB_FUN_PRINTQUEUE                _HB_FUN_PRNGETFILETOSAVE
	_HB_FUN_PRNLASTPAGE               _HB_FUN_SAVEPREVIEWTOIMAGE
	_HB_FUN_SETPRINTDEFAULT           _HB_FUN_SETPRINTER
	_HB_FUN_TPRINTER                

prv2pdf 	size = 11286
	_HB_FUN_FWJPGTOPDF                _HB_FUN_FWSAVEPREVIEWTOPDF
	_HB_FUN_FW_EMFTOPDF               _HB_FUN_FW_I2PDF
	_HB_FUN_TFW_PDF                   _HB_FUN_WORDPDF
	_fp                               _iBufLen
	_nDocLen                        

radio   	size = 7048
	_HB_FUN_TRADIO                  

radmenu 	size = 5340
	_HB_FUN_TRADMENU                

random  	size = 1192
	_HB_FUN_DECTOHEX                  _HB_FUN_NHEX
	_HB_FUN_NRANDOM                   _HB_FUN_TIMEZONE

rcolumn 	size = 12531
	_HB_FUN_TRCOLUMN                

readxlsx	size = 11259
	_HB_FUN_FW_OPENXLSX               _HB_FUN_FW_SHOWXLSX
	_HB_FUN_TXLSXREADER             

rebar   	size = 1848
	_HB_FUN_TREBAR                  

rect    	size = 9352
	_HB_FUN_ARRAYMATH                 _HB_FUN_POINTROWCOL
	_HB_FUN_POINTXY                   _HB_FUN_TPOINT
	_HB_FUN_TRECT                   

reg32   	size = 3236
	_HB_FUN_TREG32                  

report  	size = 35839
	_HB_FUN_TREPORT                 

rfile   	size = 3740
	_HB_FUN_TRFILE                  

rgroup  	size = 4500
	_HB_FUN_TRGROUP                 

rline   	size = 3684
	_HB_FUN_TRLINE                  

rpreview	size = 39495
	_HB_FUN_CONVERTTOWORDDOC          _HB_FUN_RPREVIEW
	_HB_FUN_RPREVUSERBTNS             _HB_FUN_SETCUSTOMPRINTPREVIEW
	_HB_FUN_TOWORDDOCVIAWRITER        _HB_FUN_TPREVIEW

rtfbox  	size = 1420
	_HB_FUN_RTFBOX                  

rtffile 	size = 2944
	_HB_FUN_TRTFFILE                

say     	size = 7236
	_HB_FUN_TSAY                    

scintila	size = 87123
	_HB_FUN_CHOICEFONT                _HB_FUN_FUNCHARB
	_HB_FUN_GETLEXERS                 _HB_FUN_HCADFUNCTION
	_HB_FUN_LOADFHB                   _HB_FUN_READFUNCFW
	_HB_FUN_READFUNCFWC               _HB_FUN_READFUNCHB
	_HB_FUN_SETMIFONT                 _HB_FUN_TSCINTILLA

scrllbar	size = 6624
	_HB_FUN_TSCROLLBAR              

scrlpanl	size = 10707
	_HB_FUN_TSCROLLPANEL            

scrollm 	size = 9940
	_HB_FUN_SMLARROW                  _HB_FUN_SMRARROW
	_HB_FUN_TSCROLLMETRO            

scrolmsg	size = 4052
	_HB_FUN_TSCROLLMSG              

selector	size = 10451
	_HB_FUN_ATANG                     _HB_FUN_FWCOS
	_HB_FUN_FWSIN                     _HB_FUN_TANG
	_HB_FUN_TSELECTOR               

shellapi	size = 2508
	_HB_FUN_COPYFILE                  _HB_FUN_OUTPUTDEBUGSTRING
	_HB_FUN_SHELL_NOTIFYICON          _HB_FUN_TASKADDICON
	_HB_FUN_TASKCHANGEICON            _HB_FUN_TASKDELICON

skin    	size = 9981
	_HB_FUN_APPLYSETFILTER            _HB_FUN_ISWIN98
	_HB_FUN_SETFILTER                 _HB_FUN_SETTRANSPARENT
	_HB_FUN_SKIN                      _HB_FUN_TSKIN
	_SetFilter                      

skins   	size = 7164
	_HB_FUN_BUTTONS2007               _HB_FUN_FWSKINBTNFOCUSED
	_HB_FUN_FWSKINBTNKEYDOWN          _HB_FUN_FWSKINBTNKEYUP
	_HB_FUN_FWSKINBTNLBUTTONDOWN      _HB_FUN_FWSKINBTNLBUTTONUP
	_HB_FUN_FWSKINBTNMOUSELEAVE       _HB_FUN_FWSKINBTNMOUSEMOVE
	_HB_FUN_FWSKINBTNOBJ              _HB_FUN_FWSKINBTNPAINT
	_HB_FUN_SETSKINBTNDEFAULTCLRS     _HB_FUN_SETSKINBUTTONSCOLORS
	_HB_FUN_SKINBUTTONS             

slider  	size = 10091
	_HB_FUN_TSLIDER                 

sliderm 	size = 2776
	_HB_FUN_TSLIDERMETRO            

splitter	size = 11863
	_HB_FUN_TSPLITTER               

sqlerror	size = 2072
	_HB_FUN_TSQLERROR               

statusba	size = 4304
	_HB_FUN_TSTATUSBAR              

strings 	size = 51580
	_HB_FUN_FWADDLANGUAGE             _HB_FUN_FWADDSTRING
	_HB_FUN_FWEDITSTRINGS             _HB_FUN_FWLANGUAGEID
	_HB_FUN_FWLOADSTRINGS             _HB_FUN_FWMISSINGSTRINGS
	_HB_FUN_FWSAVESTRINGS             _HB_FUN_FWSETLANGUAGE
	_HB_FUN_FWSETSTRING               _HB_FUN_FWSTRING

system  	size = 356
	_HB_FUN_SYSWAIT                 

tabs    	size = 19483
	_HB_FUN_TTABS                   

tacctbl 	size = 1752
	_HB_FUN_TACCTABLE               

tagcloud	size = 5348
	_HB_FUN_TTAGCLOUD               

tanimate	size = 4244
	_HB_FUN_TANIMATE                

tarrdata	size = 39127
	_HB_FUN_STR2STRUCT                _HB_FUN_TARRAYDATA

tblockchain	size = 5332
	_HB_FUN_TBLOCKCHAIN             

tbtnclr 	size = 13527
	_HB_FUN_TBTNCLR                   _HB_FUN_TPICKERCOLOR

tcalenda	size = 17119
	_HB_FUN_TCALENDAR               

tcalex  	size = 29615
	_HB_FUN_CALEX_SETFIRSTDATE        _HB_FUN_COLORDATA
	_HB_FUN_DRAWBOX                   _HB_FUN_DRAWSPECIALBOX
	_HB_FUN_TCALEX                  

tcbrowse	size = 25155
	_HB_FUN_TCBROWSE                

tccolumn	size = 4392
	_HB_FUN_TCCOLUMN                

tclipget	size = 728
	_HB_FUN_FWGETNEW                  _HB_FUN_TCLIPGET

tcomobj 	size = 1924
	_HB_FUN_TCOMOBJECT              

tcompone	size = 3092
	_HB_FUN_TCOMPONENT              

tctrsock	size = 2204
	_HB_FUN_TCTRLSOCKET             

tcvrflow	size = 20867
	_HB_FUN_TCOVER                    _HB_FUN_TCOVERFLOW

tdayv   	size = 7455
	_HB_FUN_TDAYVIEW                

tdbase  	size = 992
	_HB_FUN_TDBASE                  

tdbfcomp	size = 2888
	_HB_FUN_TDBFCOMP                

tdbfuncs	size = 652
	_HB_FUN_TDBF_DECRYPT              _HB_FUN_TDBF_ENCRYPT

tdbodbc 	size = 23531
	_HB_FUN_TDBODBC                 

tdbodbcd	size = 17831
	_HB_FUN_TDBODBCDIRECT           

tddemlcl	size = 3056
	_HB_FUN_DDECLIENT                 _HB_FUN_TDDEMLCLIENT

tddemlsv	size = 4004
	_HB_FUN_DDESERVER                 _HB_FUN_TDDEMLSERVER

tdeepseek	size = 2724
	_HB_FUN_TDEEPSEEK               

tdict   	size = 29499
	_HB_FUN_LOGEVENT                  _HB_FUN_TDICT

tdockpnel	size = 25547
	_HB_FUN_TDOCKPNEL               

tdosprn 	size = 6592
	_HB_FUN_TDOSPRN                 

tdtpicke	size = 11653
	_HB_FUN_DTP_GETSTYLE              _HB_FUN_DTP_SETSTYLE
	_HB_FUN_TDATEPICK                 _read_datetime

tembeddings	size = 4008
	_HB_FUN_TEMBEDDINGS             

tenhmeta	size = 4852
	_HB_FUN_TENHMETAFILE            

tereport	size = 61283
	_HB_FUN_ADDNEWDATAS               _HB_FUN_TEREPORT

texplbar	size = 15635
	_HB_FUN_TEXPLORERBAR              _HB_FUN_TTASKPANEL

texplist	size = 20171
	_HB_FUN_TEXPLORERLIST             _HB_FUN_TITEMLISTBAR

texstruc	size = 3792
	_HB_FUN_STRUCBEGIN                _HB_FUN_STRUCEND
	_HB_FUN_STRUCMEMBER               _HB_FUN_TEXSTRUCT

tfield  	size = 1148
	_HB_FUN_TFIELD                  

tfile   	size = 5484
	_HB_FUN_TFILE                   

tfilegtf	size = 3124
	_HB_FUN_GTFFONT                   _HB_FUN_GTFFORMAT
	_HB_FUN_SETGTFALIGN               _HB_FUN_SETGTFCOLOR
	_HB_FUN_SETGTFFONT                _HB_FUN_SETGTFFORMAT
	_HB_FUN_TFILEGTF                

tfoldex 	size = 31359
	_HB_FUN_TFOLDEREX               

tform   	size = 4600
	_HB_FUN_TFORM                   

tftp    	size = 3220
	_HB_FUN_TFTP                    

tftpcli 	size = 5176
	_HB_FUN_TFTPCLIENT              

tftpfile	size = 2148
	_HB_FUN_TFTPFILE                

tftpserv	size = 6224
	_HB_FUN_TFTPSERVER              

tftpsess	size = 944
	_HB_FUN_TFTPSESSION             

tgdiplus	size = 25163
	_HB_FUN_AEMF2IMAGES               _HB_FUN_BRUSH
	_HB_FUN_CGETBMPNAME               _HB_FUN_DRAWIMAGEROTATECENTER
	_HB_FUN_EMFTOIMG                  _HB_FUN_FRAMETIFF
	_HB_FUN_GDIBMP                    _HB_FUN_GDIPLUSCONVER24TO32ALPHA
	_HB_FUN_GDIPLUSCONVER24TO32ALPHAGRAY  _HB_FUN_GDIPLUSCONVERTIMAGE
	_HB_FUN_GDIPLUSRESIZEIMAGE        _HB_FUN_GDIPLUSSAVETHUMBNAIL
	_HB_FUN_GETIMGFROMLIST            _HB_FUN_GETIMGFROMLISTH
	_HB_FUN_GETIMGFROMLISTV           _HB_FUN_GRAPHICS
	_HB_FUN_HBMPFROMFILE              _HB_FUN_HBMPFROMRES
	_HB_FUN_IMAGEFROM10RESOURCE       _HB_FUN_IMAGEPNGFROMSTR
	_HB_FUN_LISPNG                    _HB_FUN_NEWEMFTOJPG
	_HB_FUN_PATH                      _HB_FUN_PEN
	_HB_FUN_REGION                    _HB_FUN_SAVEPREVIEWTOIMG
	_HB_FUN_SAVEWINDOW                _HB_FUN_TIFFTOJPG

tgemini 	size = 7352
	_HB_FUN_TGEMINI                 

tget    	size = 57659
	_HB_FUN_CHR16                     _HB_FUN_FW_SETGETTIMEPART
	_HB_FUN_FW_UTF8PADBYTE            _HB_FUN_FW_UTF8PADCHAR
	_HB_FUN_GETTEXTLIMITBYCHARS       _HB_FUN_LENMINMAX
	_HB_FUN_POPUPBROWSE               _HB_FUN_SETGETCOLORFOCUS
	_HB_FUN_TGET                      _HB_FUN_WIDESTRPUT

tgif    	size = 4176
	_HB_FUN_TGIF                    

tgraph  	size = 55119
	_HB_FUN_TGRAPH                  

tgselect	size = 16687
	_HB_FUN_CHOOSEGRADIENT            _HB_FUN_TCHOOSEGRADIENT
	_HB_FUN_TGSELECTOR                _HB_FUN_TINK

theader 	size = 4068
	_HB_FUN_THEADER                 

thtmlpag	size = 1636
	_HB_FUN_THTMLPAGE               

timaglst	size = 2392
	_HB_FUN_TIMAGELIST              

time    	size = 2036
	_HB_FUN_TTIME                   

timer   	size = 2072
	_HB_FUN_TIMEREVENT                _HB_FUN_TTIMER

tindex  	size = 1784
	_HB_FUN_TINDEX                  

tlayout 	size = 3744
	_HB_FUN_TLAYOUT                 

tlex    	size = 2792
	_HB_FUN_TLEX                    

tlib    	size = 920
	_HB_FUN_TLIBFILE                

tlistvie	size = 8123
	_HB_FUN_TLISTVIEW                 _HB_FUN_TLISTVIEWGROUP
	_HB_FUN_TLISTVIEWITEM           

tlocks  	size = 3424
	_HB_FUN_TLOCKS                  

tmail   	size = 2448
	_HB_FUN_TMAIL                   

tmci    	size = 2356
	_HB_FUN_TMCI                    

tmcpserver	size = 9152
	_HB_FUN_CREATEMCPSERVER           _HB_FUN_ERRORHANDLER
	_HB_FUN_FREADLINE                 _HB_FUN_TMCPCONTEXT
	_HB_FUN_TMCPPROMPT                _HB_FUN_TMCPRESOURCE
	_HB_FUN_TMCPSERVER                _HB_FUN_TMCPTOOL

tmetafil	size = 6601
	_HB_FUN_GETEMFSIZE                _HB_FUN_GETOBJECTTYPE
	_HB_FUN_ISENHMETA                 _HB_FUN_ISHBITMAP
	_HB_FUN_TMETAFILE               

tmeterex	size = 6900
	_HB_FUN_TMETEREX                

tmetro  	size = 4588
	_HB_FUN_TMETRO                  

tmnucomp	size = 2244
	_HB_FUN_TMNUCOMP                

tmonthv 	size = 12047
	_HB_FUN_TMONTHVIEW              

tmsgitem	size = 9339
	_HB_FUN_TMSGITEM                

tneuralnet	size = 4111
	_HB_FUN_DSIGMOID                  _HB_FUN_MATH_E
	_HB_FUN_SIGMOID                   _HB_FUN_TNEURALLAYER
	_HB_FUN_TNEURALNETWORK            _HB_FUN_TNEURON

tnewsins	size = 17323
	_HB_FUN_TNEWSINSTANCE           

tnewssrv	size = 4696
	_HB_FUN_TNEWSSERVER             

todbc   	size = 11479
	_HB_FUN_TODBC                   

tollama 	size = 4136
	_HB_FUN_TAGENT                    _HB_FUN_TOLLAMA

toolbar 	size = 7380
	_HB_FUN_TTOOLBAR                

topenai 	size = 4968
	_HB_FUN_TOPENAI                 

tordinfo	size = 2016
	_HB_FUN_TORDINFO                

tpages  	size = 5468
	_HB_FUN_TPAGES                  

tpanel  	size = 5936
	_HB_FUN_TPANEL                  

tparser 	size = 976
	_HB_FUN_TPARSER                 

tpdf    	size = 12519
	_HB_FUN_TPDF                    

tpop3   	size = 4120
	_HB_FUN_TPOP3                   

tprogres	size = 3540
	_HB_FUN_TPROGRESS               

tproxy  	size = 2384
	_HB_FUN_TPROXY                  

trackbar	size = 3688
	_HB_FUN_TTRACKBAR               

tras    	size = 4760
	_HB_FUN_TRAS                    

trating 	size = 6636
	_HB_FUN_TRATING                 

trbgroup	size = 18207
	_HB_FUN_TRBGROUP                

trbtn   	size = 26407
	_HB_FUN_TRBTN                   

trdd    	size = 3684
	_HB_FUN_RDDEVENT                  _HB_FUN_TRDD
	_HB_FUN_VIRTUALRDD              

trddodbc	size = 6064
	_HB_FUN_TRDDODBC                

trecset 	size = 22155
	_HB_FUN_ADOERRORASTEXT            _HB_FUN_TRECSET

treeitem	size = 9388
	_HB_FUN_GETTREEBMPS               _HB_FUN_TTREEITEM

trees   	size = 2372
	_HB_FUN_SUMMARYDATAASTREE         _HB_FUN_TREEBEGIN
	_HB_FUN_TREEEND                   _HB_FUN_TREEFREE
	_HB_FUN__TREEITEM               

tribbon 	size = 41067
	_HB_FUN_GRADIENTBMP               _HB_FUN_TBACKSTAGE
	_HB_FUN_TBACKSTAGEOPTION          _HB_FUN_TQUICKACCESS
	_HB_FUN_TRIBBONBAR              

triched5	size = 48423
	_HB_FUN_MNUCOLORS                 _HB_FUN_TRICHEDIT5

trichedi	size = 26651
	_HB_FUN_TRICHEDIT               

trpanel 	size = 2332
	_HB_FUN_TRPANEL                 

tsaybcod	size = 4044
	_HB_FUN_TSAYBARCODE             

tselex  	size = 12027
	_HB_FUN_TSELEX                  

tskinbtn	size = 2304
	_HB_FUN_TSKINBUTTON             

tsmtp   	size = 14667
	_HB_FUN_CFILENOPATHSMTP           _HB_FUN_TSMTP

tsocket 	size = 6868
	_HB_FUN_SHOWIP                    _HB_FUN_TSOCKET

tstruct 	size = 4048
	_HB_FUN_THISSTRUCT                _HB_FUN_TSTRUCT

tswitch 	size = 9327
	_HB_FUN_TSWITCH                 

ttabctrl	size = 4304
	_HB_FUN_TTABCONTROL             

ttitle  	size = 21199
	_HB_FUN_TTITLE                    _HB_FUN_TTITLEIMG
	_HB_FUN_TTITLETEXT              

ttmpicke	size = 5776
	_HB_FUN_TTIMEPICK               

ttoast  	size = 21155
	_HB_FUN_TIPTIMEHIDE               _HB_FUN_TIPTRANSFLICKER
	_HB_FUN_TIPTRANSHIDE              _HB_FUN_TIPTRANSSHOW
	_HB_FUN_TTOAST                  

ttray   	size = 4580
	_HB_FUN_GETNOTIFYICONDATA         _HB_FUN_TTRAYICON

ttreevie	size = 12739
	_HB_FUN_TTREEVIEW               

ttvitem 	size = 4528
	_HB_FUN_TTVITEM                 

ttxtedit	size = 33555
	_HB_FUN_TTXTEDIT                  _HB_FUN_TTXTUNDO

ttxtfile	size = 5112
	_HB_FUN_TTXTFILE                

twebcam 	size = 9295
	_HB_FUN_GETVIDEOCAPDRIVER         _HB_FUN_TWEBCAM
	_HB_FUN__WEBCAM_EVENT           

twebclie	size = 2084
	_HB_FUN_TWEBCLIENT              

twebserv	size = 9472
	_HB_FUN_CLIENTIP                  _HB_FUN_GETQUERY
	_HB_FUN_SERVERIP                  _HB_FUN_TWEBSERVER
	_HB_FUN_UNESCAPE                

twebsock	size = 4824
	_HB_FUN_TWEBSOCKETSERVER        

twebview	size = 5964
	_HB_FUN_BUILDWEBVIEW              _HB_FUN_ISWEBVIEWAVAILABLE
	_HB_FUN_TWEBVIEW                  _HB_FUN_TWEBVIEWITEM
	_HB_FUN_WEBVIEW                   _HB_FUN_WEBVIEWITEMREDEFINE
	_HB_FUN_WEBVIEW_GETVALUES         _HB_FUN_WEBVIEW_HANDLEEVENT

twebview2	size = 5936
	_HB_FUN_FW_WEBVIEW                _HB_FUN_TWEBVIEW2
	_HB_FUN_WEBVIEW2_ONBIND           _HB_FUN_WEBVIEW2_ONEVAL
	_HB_FUN_WEBVIEW2_ONNAVIGATIONCOMPLETED

tweekv  	size = 8411
	_HB_FUN_TWEEKVIEW               

tyacc   	size = 4448
	_HB_FUN_TYACC                   

uidialog	size = 6852
	_HB_FUN_DLGBARTITLEUI             _HB_FUN_DLGVS
	_HB_FUN_NCUANTAS                  _HB_FUN_TDIALOGUI

uiwindow	size = 51843
	_HB_FUN_CARGAIMGBTT               _HB_FUN_CHANGECOLORBAR
	_HB_FUN_CHANGECOLORIMG            _HB_FUN_DRAWTXTROW
	_HB_FUN_KEYBD_EVENT               _HB_FUN_LOADIMGUI
	_HB_FUN_SINB                      _HB_FUN_TWINDOWSUI

urllink 	size = 5628
	_HB_FUN_TURLLINK                

valblank	size = 4830
	_HB_FUN_ARRAYTOTEXT               _HB_FUN_CCLRTOCODE
	_HB_FUN_CVALTOCHAR                _HB_FUN_FW_CLRTOHTML
	_HB_FUN_FW_DEFAULT                _HB_FUN_FW_READVAR
	_HB_FUN_IFNIL                     _HB_FUN_NRGBADD
	_HB_FUN_NRGBRESET                 _HB_FUN_UVALBLANK
	_HB_FUN_XEVAL                   

valtostr	size = 23285
	_HB_FUN_ARRAYTOTEXTBOX            _HB_FUN_ARRTOHASH
	_HB_FUN_ARRTOJSON                 _HB_FUN_CNUM2EXPFORMAT
	_HB_FUN_CNUMTOSTR                 _HB_FUN_COMPAREUNISTR
	_HB_FUN_CURRENCYSYMBOL            _HB_FUN_CVALTOSTR
	_HB_FUN_DATETIMEFROMFILETIME      _HB_FUN_DBF_FIELDPIC
	_HB_FUN_EXPANDNUMPICT             _HB_FUN_FITNUMPICTTOVAL
	_HB_FUN_FWNUMFORMAT               _HB_FUN_FW_ADDMONTH
	_HB_FUN_FW_ADDTIME                _HB_FUN_FW_AGE
	_HB_FUN_FW_ALLTRIM                _HB_FUN_FW_ARRAYASLIST
	_HB_FUN_FW_ARRAYTOCSV             _HB_FUN_FW_ARRAYTOHTML
	_HB_FUN_FW_CONCAT                 _HB_FUN_FW_CONCAT_WS
	_HB_FUN_FW_DATETOUNIX             _HB_FUN_FW_DTOT
	_HB_FUN_FW_JSONDECODE             _HB_FUN_FW_LISTASARRAY
	_HB_FUN_FW_LTRIM                  _HB_FUN_FW_MTHSLAPSED
	_HB_FUN_FW_NEXTBIRTHDAY           _HB_FUN_FW_PROPERCASE
	_HB_FUN_FW_RTRIM                  _HB_FUN_FW_SETJSONHUMAN
	_HB_FUN_FW_STOT                   _HB_FUN_FW_STUFF
	_HB_FUN_FW_TABLESTYLEHTML         _HB_FUN_FW_TIMEPART
	_HB_FUN_FW_TIMEZONE               _HB_FUN_FW_TIMEZONENAME
	_HB_FUN_FW_TRANSFORM              _HB_FUN_FW_TRIM
	_HB_FUN_FW_TTOD                   _HB_FUN_FW_UNIXTODATE
	_HB_FUN_FW_UTCTOLOCAL             _HB_FUN_FW_UTF8LEFT
	_HB_FUN_FW_UTF8RIGHT              _HB_FUN_FW_UTF8STUFF
	_HB_FUN_FW_UTF8SUBSTR             _HB_FUN_FW_VALTOCSV
	_HB_FUN_FW_VALTOEXP               _HB_FUN_FW_VALTOHTML
	_HB_FUN_FW_YMDLAPSED              _HB_FUN_INTPICT
	_HB_FUN_ISBINARYDATA              _HB_FUN_ISROMANNUMBER
	_HB_FUN_ISTEXTUNICODE             _HB_FUN_MAKEIID
	_HB_FUN_NSTRTONUM                 _HB_FUN_NUMPICT
	_HB_FUN_NUMPICTADDCURRENCY        _HB_FUN_NUMPICTFORVAL
	_HB_FUN_STRBETWEEN                _HB_FUN_TABLETOHTMLPAGE
	_HB_FUN_UCHARTOVAL                _HB_FUN_UTC_TIMESTAMP
	_HB_FUN_UTF16TOUTF8               _HB_FUN_UTF8TOUTF16
	_HB_FUN_WHEELSCROLL             

valtostt	size = 248
	_HB_FUN_FW_DT2STR                 _HB_FUN_FW_STR2DT

video   	size = 2832
	_HB_FUN_TVIDEO                  

vistamnu	size = 22394
	_HB_FUN_C5SETSCROLLINFO           _HB_FUN_INTERSECTRECT
	_HB_FUN_TVISTAMENU                _HB_FUN_TVISTAMENUITEM

vrd     	size = 44247
	_HB_FUN_DELFILE                   _HB_FUN_ENTRYNR
	_HB_FUN_FULLPATHNAME              _HB_FUN_GETINIENTRY
	_HB_FUN_GETINISECTION             _HB_FUN_GETPPSECTION
	_HB_FUN_REGOPENKEYEXA             _HB_FUN_REGQUERYVALUEEXA
	_HB_FUN_VRD                       _HB_FUN_VRD_ATOKEN
	_HB_FUN_VRD_ERSTART               _HB_FUN_VRD_GETFIELD
	_HB_FUN_VRD_GETFULLPATH           _HB_FUN_VRD_GETGROUP
	_HB_FUN_VRD_GETREGISTRY           _HB_FUN_VRD_GL
	_HB_FUN_VRD_LF2SF                 _HB_FUN_VRD_NEWSTRUCTURE
	_HB_FUN_VRD_PRREPORT              _HB_FUN_VRD_SETFIELD
	_HB_FUN_VRD_STRCOUNT              _HB_FUN_VRD_XTOC

vrdbcode	size = 11700
	_HB_FUN_VRDBARCODE              

vrdini  	size = 3592
	_HB_FUN_GETPROFSECT               _HB_FUN_TINIER

vrditem 	size = 9016
	_HB_FUN_VRDITEM                 

vstrfun1	size = 5496
	_HB_FUN_FINDMATCH                 _HB_FUN_FIRSTWORD
	_HB_FUN_FW_AT                     _HB_FUN_FW_EXPRNASBLOCK
	_HB_FUN_FW_STRICMP                _HB_FUN_FW_STRIPCOMMENTS
	_HB_FUN_ISINLIST                  _HB_FUN_VALTYPEX

wbrowse 	size = 44751
	_HB_FUN_TWBROWSE                  _HB_FUN__AFIELDS

webapp  	size = 9352
	_HB_FUN_BUTTONHTML                _HB_FUN_CHECKBOXHTML
	_HB_FUN_CTRLSHTML                 _HB_FUN_EDITHTML
	_HB_FUN_GETWEBAPP                 _HB_FUN_ISWEBAPP
	_HB_FUN_SETWEBAPP                 _HB_FUN_STATICHTML
	_HB_FUN_WA_ADDDIALOG              _HB_FUN_WA_CONTROLLER
	_HB_FUN_WA_EXISTDIALOG            _HB_FUN_WA_GETDIALOGFROMID
	_HB_FUN_WA_GETDIALOGFROMLINK      _HB_FUN_WA_HEADER
	_HB_FUN_WA_SHOWCODEDIALOGS        _HB_FUN_WEBSERVER

webserver	size = 5462
	_HB_FUN_HBWEBSERVER               _HB_FUN_HB_URLDECODE
	_HB_FUN_OBJSETDATA                _HB_FUN_OBJTOCHAR

window  	size = 66407
	_HB_FUN_AREAD                     _HB_FUN_ASAVE
	_HB_FUN_ATOTEXT                   _HB_FUN_BRWCLASSES
	_HB_FUN_CLEARDATASLIST            _HB_FUN_DBUFFEREND
	_HB_FUN_DEVICETOUCHSPACE          _HB_FUN_FW_TOUCHFRIENDLY
	_HB_FUN_GETALLWIN                 _HB_FUN_GETDROPINFO
	_HB_FUN_GETMSGLOG                 _HB_FUN_GETSETWINSYSLOG
	_HB_FUN_GETWNDDEFAULT             _HB_FUN_MSGLOG
	_HB_FUN_NWINDOWS                  _HB_FUN_OREAD
	_HB_FUN_OWNDFROMHWND              _HB_FUN_SETALPHA
	_HB_FUN_SETBALLOON                _HB_FUN_SETDRAGBEGINWND
	_HB_FUN_SETDROPINFO               _HB_FUN_SETSKINS
	_HB_FUN_SETWNDDEFAULT             _HB_FUN_STARTFWLOG
	_HB_FUN_TWINDOW                   _HB_FUN_WNDCREATEERROR
	_HB_FUN_WNDMAIN                   _HB_FUN_WNDPARENTS
	_HB_FUN__FWH                    

wininet 	size = 7844
	_HB_FUN_FTPCREATEDIRECTORY        _HB_FUN_FTPDELETEFILE
	_HB_FUN_FTPFINDFIRSTFILE          _HB_FUN_FTPGETFILE
	_HB_FUN_FTPOPENFILE               _HB_FUN_FTPPUTFILE
	_HB_FUN_FTPRENAMEFILE             _HB_FUN_FTPSETCURRENTDIRECTORY
	_HB_FUN_INTERAUTHA                _HB_FUN_INTERNETAT
	_HB_FUN_INTERNETAU                _HB_FUN_INTERNETCLOSEHANDLE
	_HB_FUN_INTERNETCONNECT           _HB_FUN_INTERNETDI
	_HB_FUN_INTERNETFINDNEXTFILE      _HB_FUN_INTERNETGO
	_HB_FUN_INTERNETHA                _HB_FUN_INTERNETOPEN
	_HB_FUN_INTERNETREADFILE          _HB_FUN_INTERNETSETFILEPOINTER
	_HB_FUN_INTERNETST                _HB_FUN_INTERNETWRITEFILE
	_HB_FUN_INTRESPINF                _HB_FUN_WININET

winrt   	size = 3796
	_HB_FUN_ROGETACTIVATIONFACTORY    _HB_FUN_ROINITIALIZE
	_HB_FUN_ROUNINITIALIZE            _HB_FUN_TOAST
	_HB_FUN_WINDOWSCREATESTRING       _HB_FUN_WINDOWSDELETESTRING
	_HB_FUN_WINDOWSGETSTRINGRAWBUFFER  _HB_FUN_WINRTSTRING

wqout   	size = 400
	_HB_FUN_WQOUT                   

xbrcode 	size = 19199
	_HB_FUN_CFONTCODE                 _HB_FUN_TXBRCODE
	_HB_FUN_TXBRCOLCODE             

xbrgetdt	size = 7748
	_HB_FUN_RESETCAL                  _HB_FUN_SETUPCOL
	_HB_FUN_TDTXBROWSE                _HB_FUN_XBRGETDATE

xbrowse 	size = 264311
	_HB_FUN_CALCLINEWH                _HB_FUN_CONTRASTCOLOR
	_HB_FUN_DRAWHORZ                  _HB_FUN_DRAWPEN
	_HB_FUN_DRAWVERT                  _HB_FUN_EXTRACTLINE
	_HB_FUN_HASHTREE                  _HB_FUN_ISRECORDSET
	_HB_FUN_PARSEXBRCOLSPEC           _HB_FUN_SETKINETIC
	_HB_FUN_SETXBROWSE                _HB_FUN_TXBROWS
	_HB_FUN_TXBROWSE                  _HB_FUN_TXBRWCOLUMN
	_HB_FUN_XADS_KEYGOTO              _HB_FUN_XBRADOSAVE
	_HB_FUN_XBREDITMEMO               _HB_FUN_XBRGETSELECTALL
	_HB_FUN_XBRHEXEDIT                _HB_FUN_XBRIMAGEEDIT
	_HB_FUN_XBRJUSTIFY                _HB_FUN_XBRNUMFORMAT
	_HB_FUN_XBROWSABLEOBJ             _HB_FUN_XBROWSENEW
	_HB_FUN_XBRSQLRDDMODE             _HB_FUN_XBRWSETDATASOURCE
	_HB_FUN_XREPORT                 

xbrowser	size = 10775
	_HB_FUN_XBROWSE                 

xcbrowse	size = 42219
	_HB_FUN_CLICKOUTEND               _HB_FUN_DAFMTOTXT
	_HB_FUN_DRAWROWN                  _HB_FUN_GENMENUBLOCK
	_HB_FUN_TXCBROWS                  _HB_FUN_TXCBROWSE
	_HB_FUN_TXCBRWCOLUMN              _HB_FUN_XBRWLINDET
	_HB_FUN_XBRWTEXTFILE              _HB_FUN_XCBROWSEMNU
	_HB_FUN_XCBROWSENEW               _HB_FUN_XCBROWSETREE
	_HB_FUN_XMAKETREE                 _HB_FUN_XSUBTREE
	_HB_FUN_XTOGGLEFOLDER           

ximage  	size = 29213
	_HB_FUN_ANGLE3PT                  _HB_FUN_ROTATEBMP
	_HB_FUN_TXIMAGE                   _HB_FUN_WMF2EMFX
	_HB_FUN_XIMAGE                    _HB_FUN_XIMAGEARRAY

xmlview 	size = 5224
	_HB_FUN_FW_XMLVIEW                _HB_FUN_XBROWSEXML

xpad    	size = 740
	_HB_FUN_GETFREESYSTEMRESOURCES    _HB_FUN_XPADC
	_HB_FUN_XPADL                     _HB_FUN_XPADR

Code: Select all | Expand

#include "fivewin.ch"

#define EM_LINESCROLL           182
#define EM_GETFIRSTVISIBLELINE  0x00CE


//----------------------------------------------------------------------------//

static cBccFolder  := "c:\bcc77\"   // your bcc folder here
static cMSVCFolder := "c:\Program Files\Microsoft Visual Studio\2022\Community\VC\Tools\MSVC\14.43.34808\bin\Hostx64\x86\"   // your msvc folder here

//----------------------------------------------------------------------------//

function Main()

   local aFunc
   local oDlg, nWd, oFont, oFixed, oBrw, oSay, oGet
   local cModule, cFile, cText, cUpper
   local aTemp := {}
   local cSymbols := ""

   SetMGetColorFocus()

   aFunc := ReadFuncs()
   if Empty( aFunc )
      return nil
   endif

   AEval( aFunc, { | a | AAdd( aTemp, a[ 2 ] ) } )
   ASort( aTemp )
   // XBrowse( aTemp )
   AEval( aTemp, { | cName | cSymbols += "extern " + cName + CRLF } )
   hb_memoWrit( "symbols.txt", cSymbols )
   // fw_memoEdit( cSymbols )

   cModule  := aFunc[ 1, 1 ]
   cFile    := ModuleToFile( cModule )
   cText    := If( Empty( cFile ), "", MemoRead( cFile ) )

   DEFINE FONT oFont  NAME "TAHOMA" SIZE 0,-13
   DEFINE FONT oFixed NAME "LUCIDA CONSOLE" SIZE 0,-14

   nWd      := Int( ScreenWidth() * 0.9 )

   DEFINE DIALOG oDlg SIZE nWd,600 PIXEL TRUEPIXEL FONT oFont ;
      TITLE FWVERSION + ": Functions and Classes"

   @ 20,20 XBROWSE oBrw SIZE 400,-20 PIXEL OF oDlg ;
      DATASOURCE aFunc COLUMNS 1,2 ;
      HEADERS "MODULE", "FUNCTION" ;
      COLSIZES "BBBBBBBBBB" ;
      CELL LINES NOBORDER FOOTERS AUTOSORT

   WITH OBJECT oBrw
      :bRecSelData   := { || oBrw:KeyNo }
      :nRecSelWidth  := "9999"
      :bRecSelHeader := { || "SlNo" }
      :bRecSelFooter := { || oBrw:nLen }

      :lHScroll      := .f.
      :lSeekBar      := .t.
      :bClrEdits     := { || { CLR_HRED, CLR_YELLOW } }
      :lSeekWild     := .t.
      :nStretchCol   := 2

      :bChange       := <||
         if !( cModule == oBrw:aRow[ 1 ] )
            cModule  := oBrw:aRow[ 1 ]
            cFile    := ModuleToFile( cModule )
            if Empty( cFile )
               cText := ""
            else
               cText := MemoRead( cFile )
            endif
            cUpper   := Upper( cText )
            oSay:Refresh()
            oGet:Refresh()
         endif
         LocateFunction( oBrw:aRow[ 2 ], cText, cUpper, oGet )
         return nil
         >

      :CreateFromCode()
   END

   @ 20,420 SAY oSay PROMPT { || cFile } SIZE nWd - 440, 26 PIXEL CENTER OF oDlg ;
      COLOR CLR_BLACK, oBrw:nRecSelColor

   @ 50,420 GET oGet VAR cText MEMO SIZE nWd - 440, 530 PIXEL OF oDlg FONT oFixed

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT LocateFunction( aFunc[ 1, 2 ], cText, cUpper, oGet )
   RELEASE FONT oFont, oFixed

return nil

//----------------------------------------------------------------------------//

function ReadFuncs()

   local cText, aLines, cLine, cFunc, cFunc1, cFunc2, n, i
   local cModule  := ""
   local aFunc    := {}

   if "Borland" $ HB_Compiler() .and. ! lIsDir( cBccFolder )
      MsgStop( cBccFolder + " not found" )
      return nil
   endif

   if "Microsoft" $ HB_Compiler() .and. ! lIsDir( cMSVCFolder )
      MsgStop( cMSVCFolder + " not found" )
      return nil
   endif

   if ! File( "fiveh.lst" )
     if File( cBccFolder + "bin\tlib.exe" )
        WaitRun( cBccFolder + "bin\tlib.exe ..\lib\fiveh.lib, fiveh.lst" )
     else
        WaitRun( cMSVCFolder + "bin\lib.exe ..\lib\fiveh32.lib, fiveh32.lst" )      // MsgStop( cMSVCFolder + "bin\lib.exe ..\lib\fiveh32.lib, fiveh.lst" )
     endif
     SysWait( .2 )
   endif

   if File( "fiveh.lst" )
      cText    := MemoRead( "fiveh.lst" )
   elseif File( "fiveh32.lst" )
      cText    := MemoRead( "fiveh32.lst" )
   endif
   aLines   := AMERGE( aLines, HB_ATokens( cText, CRLF ) )                             //   aLines   := HB_ATokens( cText, CRLF )

   if ! File( "fivehc.lst" )
      if File( cBccFolder + "bin\tlib.exe" )
         WaitRun( cBccFolder + "bin\tlib.exe ..\lib\fivehc.lib, fivehc.lst" )
      else
         WaitRun( cMSVCFolder + "bin\lib.exe ..\lib\fivehc32.lib, fivehc32.lst" )   // MsgStop( cMSVCFolder + "bin\lib.exe ..\lib\fiveh32c.lib, fivehc.lst" )
      endif
       SysWait( .2 )
   endif

   if File( "fivehc.lst" )
      cText    := MemoRead( "fivehc.lst" )
   elseif File( "fivehc32.lst" )                                                            //   elseif File( "fiveh32c.lst" )
      cText    := MemoRead( "fivehc32.lst" )                                        //      cText    := MemoRead( "fiveh32c.lst" )
   endif
   aLines   := AMERGE( aLines, HB_ATokens( cText, CRLF ) )

   for n := 2 to Len( aLines )
      cLine    := aLines[ n ]
      if Empty( cLine )
         LOOP
      endif
      if Left( cLine, 1 ) == Chr( 9 )
         for i := 1 to 2
            cFunc    := TOKEN( cLine, , i )
            if cFunc = "_HB_FUN_"
               AAdd( aFunc, { cModule, AFTERATNUM( "_HB_FUN_", cFunc ) } )
            else
               EXIT
            endif
         next
      else
         cModule  := AllTrim( TOKEN( cLine,,1 ) )
      endif
   next

   ASort( aFunc, , , { |x,y| If( x[ 1 ] == y[ 1 ], x[ 2 ] < y[ 2 ], x[ 1 ] < y[ 1 ] ) } )

return aFunc

//----------------------------------------------------------------------------//

static function ModuleToFile( cModule )

   local cSpec := "..\source\" + cModule + ".*"
   local cFile := ""
   local aDir

   aDir     := DirectoryRecurse( TrueName( cSpec ) )
   if !Empty( aDir )
      cFile    := aDir[ 1, 1 ]
   endif

return cFile

//----------------------------------------------------------------------------//

static function LocateFunction( cFunc, cText, cUpper, oGet )

   local nRow     := 1
   local aSeek    := {}
   local nPos

   if !Empty( cText )

      DEFAULT cUpper  := Upper( cText )

      aSeek    := {  "FUNCTION " + cFunc + "(", ;
                     "FUNCTION " + cFunc + " ", ;
                     "CLASS " + cFunc, ;
                     "HB_FUNC( " + cFunc + " )", ;
                     "HB_FUNC (" + cFunc + ")" }

      nPos     := AAT( aSeek, cUpper )

      if nPos > 0
         nRow     := OCCURS( CRLF, LEFT( cText, nPos ) )
      endif

      GetSetTopRow( oGet, nRow )

   endif

return nRow

//----------------------------------------------------------------------------//

static function GetSetTopRow( oGet, nRow )

   local nTopRow     := oGet:SendMsg( EM_GETFIRSTVISIBLELINE )

   oGet:SendMsg( EM_LINESCROLL, 0, nRow - nTopRow )

return nil

//----------------------------------------------------------------------------//

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

    USE customer

    XBROWSER SETUP BrwSetup( oBrw ) 

return nil    

function BrwSetup( oBrw )

   local oDlg, oBrw2, hWnd

   DEFINE DIALOG oDlg SIZE 800, 600 

   @ 1, 1 XBROWSE oBrw2 OF oDlg SIZE 600, 500 

   oBrw2:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED NOWAIT ;
      ON INIT ( hWnd := oBrw2:hWnd, oBrw2 := OClone( oBrw ), oBrw2:hWnd := hWnd, oBrw2:oWnd := oDlg, .T. ) 

return nil 

Code: Select all | Expand

#include "fivewin.ch"

REQUEST FWZEBRA  // required for barcodes

function Main()

   local oPrn, cText := "Texto a QR"

   PRINT oPrn
   PAGE
   @ 2,2 PRINT TO oPrn TEXT cText AS BARCODE TYPE "QR" SIZE 2,2 INCHES
   ENDPAGE
   ENDPRINT

return nil

Code: Select all | Expand

	@ 40,10 XBROWSE oBrw SIZE -10,-50 PIXEL ;
	  RECORDSET oRs ;
	  COLUMNS "cdcli", "rascl", "totale",  "pezzi" ;
	  HEADERS "CLIENTE", "RAGIONE SOCIALE", "TOTALE EURO", "TOTALE PEZZI" ;
	  PICTURE NIL,NIL, "@ZE 99,999,999.99", "@ZE 99999,999.999" ;
	  FOOTERS ;
	  OF oDlg2	  
	
	oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLROW
	oBrw:nColDividerStyle    := LINESTYLE_BLACK
	oBrw:nRowDividerStyle    := LINESTYLE_BLACK
	oBrw:lColDividerComplete := .T. 
	oBrw:lRecordSelector     := .t.
	oBrw:lHScroll            := .T.
	oBrw:lVScroll            := .T.
	oBrw:lExcelCellWise 	 := .t.
	
	oBrw:bClrSelFocus = { || { 16777215, 15512898 } }   
	oBrw:bClrSel = { || { 16777215, 15512898 } }
	oBrw:bClrStd := {|| {CLR_BLACK, iif( oBrw:Keyno() % 2 = 0, CLR_SFBRWP, CLR_SFBRWD  ) } }
	
    oBrw:CreateFromCode()
	
    WITH OBJECT oBrw
		:aCols[03]:nFooterType := AGGR_SUM
		:aCols[04]:nFooterType := AGGR_SUM	
		:MakeTotals()
	END		

Code: Select all | Expand

'
   :aCols[03]:cEditPicture:="99,999,999.99"

Code: Select all | Expand

    oOle := CreateObject( 'Microsoft.XMLHTTP' )

    cContentType:="application/json"
    cAuthorization:=""
    cUrl:="https://superboleta.cl/?a=get-ventas&usuario=100428&xml=1&fecha=2024-07-09&key=aq91xQWD81.qw14&new=1"

    oOle:Open( 'GET', cUrl, .f. )

    oOle:SetRequestHeader( "Content-Type",cContentType)
    if !empty(cAuthorization)
        oOle:SetRequestHeader( "Authorization",cAuthorization)
    end if
    oOle:Send(  )
    cRet:=""
    cRet := oOle:ResponseBody

Code: Select all | Expand

<html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"></head><body>[...]

Code: Select all | Expand

hData := {=>}
hb_jsondecode( responseText, @hData )

Code: Select all | Expand

// C:\FWH..\SAMPLES\LAURENT.PRG - 17/03/2025 - kapiabafwh@gmail.com

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL oServerWS, cUrl, aArray, x1, erro, oADODBStream, cRetorno
   LOCAL cContentType   := "application/json"
   LOCAL cAuthorization := ""

   cUrl:="https://superboleta.cl/?a=get-ventas&usuario=100428&xml=1&fecha=2024-07-09&key=aq91xQWD81.qw14&new=1"

   #ifdef __XHARBOUR__  // PERFEITO COM XHARBOUR( I Like )

      Try

         Try
            oServerWS := CreateObject( 'MSXML2.XMLHTTP' )
         Catch
            oServerWS := CreateObject( 'Microsoft.XMLHTTP' )
         End

      Catch

         MsgInfo( 'Erro na Criação do Serviço' )

         RETURN NIL

      End

   #else // PERFEITO COM HARBOUR. ( no Like. kkkkk )

      Try

         Try
            oServerWS := win_OleCreateObject( 'MSXML2.XMLHTTP' )
         Catch
            oServerWS := win_OleCreateObject( 'Microsoft.XMLHTTP' )
         End

      Catch

         MsgInfo( 'Erro na Criação do Serviço! Com Harbour', 'Atenção!' )

         RETURN NIL

      End

   #endif

   oServerWS:Open( 'GET', cUrl, .F. )

   oServerWS:SetRequestHeader( "Content-Type", cContentType) // Adolfo

   IF .NOT. EMPTY( cAuthorization )
      oServerWS:SetRequestHeader( "Authorization", cAuthorization )
   ENDIF

   oServerWS:Send()

   IF oServerWS:STATUS != 200

      MsgStop( AllTrim( Str( oServerWS:Status ) ) + " - " + oServerWS:StatusText, "Erro" )

      RETURN NIL

   ENDIF

   WHILE oServerWS:ReadyState != 4

      SYSREFRESH()

      oServerWS:WaitForResponse( 1000 )

   END

   cRetorno := oServerWS:ResponseBody()

   // ? cRetorno

   IF FILE( "ADOLFO.txt" )
      ERASE ADOLFO.txt
   ENDIF

   MemoWrit('ADOLFO.txt', cRetorno)

RETURN NIL

// FIN / END

Code: Select all | Expand

 ACTION (cVar := "12345", oVar:Refresh(), EVAL( oVar:bLostFocus ) )

Code: Select all | Expand

hbmk2  -help

Code: Select all | Expand

rem Public Certificate
C:\OpenSSL-Win32\bin\openssl pkcs12 -in cert.p12 -out cert.crt.pem -clcerts -nokeys
rem Private Key
C:\OpenSSL-Win32\bin\openssl pkcs12 -in cert.p12 -out cert.key.pem -nocerts -nodes

Code: Select all | Expand

curl_easy_setopt(curl, HB_CURLOPT_URL, "https://example.com/")
curl_easy_setopt(curl, HB_CURLOPT_SSLCERT, "cert.crt.pem")
curl_easy_setopt(curl, HB_CURLOPT_SSLKEY, "cert.key.pem")
curl_easy_setopt(curl, HB_CURLOPT_SSLKEYTYPE, "PEM")
curl_easy_setopt(curl, HB_CURLOPT_KEYPASSWD, "s3cret")
response = curl_easy_perform(curl)
curl_easy_cleanup(curl);

Code: Select all | Expand

   nError    := curl_easy_perform( curl )
   cResponse := curl_easy_dl_buff_get( curl )

Code: Select all | Expand

#include "hbcurl.ch"

PROCEDURE main()

   local nError, cResponse
   local cXmlStr   := hb_memoread( "peticion.xml" )
   local aHeader   := {}
   local cUrl      := "https://..."
   local cCertFile := "certificado.p12"
   local cCertType := "P12" // o "PFX"
   local cCertPass := "********"
   local hCurl     := curl_easy_init()

   // Establecer cabeceras requeridas por el WS
   aadd( aHeader, "Content-Type: application/xml;charset=UTF-8" )
   aadd( aHeader, "Accept: text/xml" )
   aadd( aHeader, "Cache-Control: no-cache" )
   aadd( aHeader, "Pragma: no-cache" )

   // Setear opciones
   curl_easy_setopt( hCurl, HB_CURLOPT_HTTPHEADER, aHeader )
   curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl )
   curl_easy_setopt( hCurl, HB_CURLOPT_TIMEOUT, 15 )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYPEER, .F. )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYHOST, .F. )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSLCERT, cCertFile )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSLCERTTYPE, cCertType )
   curl_easy_setopt( hCurl, HB_CURLOPT_KEYPASSWD, cCertPass )
   curl_easy_setopt( hCurl, HB_CURLOPT_POST, .T.)
   curl_easy_setopt( hCurl, HB_CURLOPT_POSTFIELDS, cXmlStr )
   curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )   

   // echo server, para depurar .T.
   curl_easy_setopt( hCurl, HB_CURLOPT_VERBOSE, .F. ) 

   // No reutilizar conexiones
   curl_easy_setopt( hCurl, HB_CURLOPT_FRESH_CONNECT, .T.)
   curl_easy_setopt( hCurl, HB_CURLOPT_FORBID_REUSE, .T.)

   // Conexion
   nError    := curl_easy_perform( hCurl )
   cResponse := curl_easy_dl_buff_get( hCurl )

   if nError == 0
      hb_memowrit( "respuesta.xml", cResponse )
   else
      ? "Error :"+ curl_easy_strerror( nError ), nError
   endif

   curl_easy_cleanup( hCurl )
   curl_global_cleanup()

return 

Code: Select all | Expand

#include "hbcurl.ch"

PROCEDURE main()

   local nError, cResponse
   //local cXmlStr   := hb_memoread( "peticion.xml" )
   local aHeader   := {}

   local cUrl := "https://vpfe.dian.gov.co/WcfDianCustomerServices.svc"
   local cCertFile := "CERTIFICADO.p12"
   local cCertType := "P12" // o "PFX"
   local cCertPass := "xxxxxxxxxxxxxx"
   local cSignedXmlFile
   local cNomZip := "z006331767200025SP104100000250.zip"
   local cFacturaXml,cXmlStr

   local hCurl     := curl_easy_init()

    cFacturaXml :=  "UEsDBBQAAgAIABxKZ1obwE1WRBYAAGlGAAAjAAAAZnYwMDYzMzE3NjcyMDAwMjVTUDEwNDEwMDAwMDI1MC54bWztPNtyo0qS7xMx/6DwedkNHVncJMDR9iwgJCELJATo9salQEjcDEhI+pv9hvmE+bEtQFdbard7pifO7h5HdBiyMrPyVplZVLm//W3re5UNiBM3DJ4f0EfkoQICM7TcwHl+WKd2jXqoJKkeWLoXBuD5IQgf/vby1798E4JN6JqgAsmDBGLGwVOoJ27yFOg+SJ6SCJiu7Zp6Cvk+rQ3vKTEXwNefton1dKCtYQ8l+ZOpm19kwYW+HwaM48TA0VMAXyMoXpAmF0yNn2PKQnTzFkML6rlI0+ipXs+y7DHDH8PYqWMIgtQRug5xrMR1fjtig236U9Pz2xQEuTduiZCkUAbL1YMnJ9w8meGTrZvpOtaBB8w0DgPI+UlJ43UOBJCuhh4pt7oFzvKvY/cRpIlbaICgNILXN+gj/oj9doWPEugnJMQjeiZJ3DsGQutTsa8UmtbcIA8nE0CqxD2o3w9Li/xsHFXyn8PMVmgmjwWLWhiBoBAB0tXDpKax/Rr2iNYhbd3X3QCi1nPYic8j+gjHHmB8Q37foAef4PDJIUkJvzV0GjkOXngxgE/pJUKOAx351IJ+vMH8GukgW84mDr2PSO/wmHW6CGN3X9jrBaXIJoGQDZpAaYz6Vr+LeJftFdoQxG5o3UTO8eGCg8Gnx2kLrsgXDMGIGkLWMPpb/Xrke/R8YB2pm5fUR/hNQetfkfRKLWAdzJHclSpHH8bAdrcvyrCc6vD6PYp2HPovaIlePH8PWQ1fGjCLlNjw5XMlvyf3lZvvxs1l0CjhOjbv2DY3vmDBCD6tQi60QMVzk5RxYKXYCa3nh+bDBUCCC/f5QQvcFFgVqSBJKrwZBqHvmpU8yblJHvEVO4wr/DqGq7QkLxIE0EbCj6QBWKJATvTkmDBxrqGWu49i5iv64YUblDH0cfwT492zS2E7JbTTTI/BMA43rgXi+8F2xBBalSJ5gbPhULrxcAUsjccNfq+0BEaq/EfLjYFpuv/4e1CBVhf8aA2SNEwquwpjrfVAT6CFTaiN7oHkP4+scs7I8aXkiEM7NHEcJZskdgzio1T3JT/q+Oslf7FxErNxy6rROk7WCLvZqNF4w64RtGETtkUjVJ4KroW6577PXXOlnQJMWNzSXRHYv1pPizaRJoZaJkKZFgDwlURsg8YwEtVRnLAw3GhaDYO2jQaJgwYJXxoGhYKmaRIYRaOoTdl6EzMxukFYDdLCKYzCbZtsog26CR+uLXCp2h0rXOfNT4P5Jvq/NbKJj5FNwRaDJrEmdasUfCfOv4N+x1ryqDBl3msksNmAqQT2xU5Y20Q2eMwbs0fYmD2aYd6GrH2Yb+oJ0GNz8Rb/7QhZgd0zShm5U9EGaRAw8yOUDpcmrNMYQiCYSRENy0SJpkUaTZymGs0GRViUgYMmoGicNFG6CSwSRSzDalC6YaBNxEBNmyApmqQNkqbNUrGDsO9aj/r3e49v9e/2L+Xwzd7nJ7qibxaMVdcJ9Lxf/WKbLVjPDyfaGo5gNE6bVA0jKatGNABZM/QmVQMGCQMDBSSCUg+n+fL6aYfFK6cHRd/sHQJABDAarArjOTAm0oV/Sxh1VHa1I56rQYFq0FlBLYcgOArDvn6t149wLNghxFG9mh/G4Lc40WvJQscazSPPEbBBDFcTKLQ/vdUaJtqwsEbecFF0jTBJrGZgNIQjFgHzhN00abhsitJaGkGN9SCBBdhPrl8/lfLKCSDYAA/Wb6uWHJUtJK1/nKHlOnB9f9EUULffrg1Qshnr3hq8iE7UVGM18Yh5b7abTmVGNlsGkhKsJmRjkOxZQmLYTRpT2XMh0iVxATgZ8HvGfQW7PFgO5vvtayFXO1L/KiNwqbscv7p0OCPn1XTL9PWQ7wRorzOVM6c7JAN8hC03Q4DMiC8aQd1F4Du7v9/KdTTM+7c4dUFyNNAxhL9oqKRgF0F2yS8zllNvR6uVPWT3o8Ga2DKkFXQmzKutKG/q9HU8WWW6zVQHpkTxnxur/jGXnFQuKK4zVAH6wTRl9iNqwTDboZkkQWvXWpFDnWLXfcQfDaLptN3dtz3SYMZ2A4Rv3VgU69sV39lZuDXwN3VW5NHBWB4ilFrdOK3RbqjozZ6sKFUn3Eu2kjXm6LbbUOSha0lUNt7MgoWKMMyG4jrU0M1eEdTyBquwbSgzqhWOGtux4776PrdeUu4K6wG7Lo2mPXax0qpvokH1tOrkbYrg+01PAYMFPVE1nxrx9qCarRpKu/XmJdnodeqtNIvEJpKeRMTbcitls34LBBNiAQYxOXWSLhmxZkRHfY+NuJm+WOMDxIrszg4A1fX7SuxUt1OJmqCSSo8jcd0k2TQKJWptuOko9mbEClGaI0eKMrFK7nbUDKHSJFobW6KfTtHGW/b8fPLZ2SOF3w6L9CdKyvX6njYQGm5T9dMLly+NYscB05UgdLkWx7E25zCZwDKOILxWBRVB8F4oa1lLnvVew7mw2JgSI/N9VmYyx9S2vSWzYh1pzDKi2B1LY3klsQIvsao2VkYrT1E13pERWlQRlFPgs4a0VXEkZ7wza41luc1nSUNs8XtRFbbwXyq12ozYIjoMqvFcluEyNt5ZHc/XJ9Ji3qH3QptdmD7vjHxvZ0zg78nWm+GjnYE1ohkG58La6Xza8/VpL50pbMvAthtj0otmKu+I7IGvk01lpC2Nxr2OMu5JMsRTke1Q1XowEFlVHovbdotRSr1MkUN6wxFCa3CM76/EtSgnGScX8nf4rNdS9wxoZ8hOajG4uJS34l4jxP1cL2DLS9hYF4VuXxxlWafUv9dipZa2grLtZ47UkuFvzVGRmTNoMXtxJGZ8OY/GZyG00QwVl0JDUgVCVJisW/JotVhLksc9TeFzW7fVMe+JKk85I2/cVr1RW9vzI5GhCt3ZkShISxHyMjFpL2y7LUYv9UxEHpkvoC3R3L7za7tuhRYDSrxQbCMoq3kjIbebPJY0RYOu27GdsTYejPnxpX8hWcpZ0Hem305nk0YA/dAXmVUpy0LkZITKHId3RQbpcMpbRxEMvCXzLCNrDEMIbCtj8vFXJoQxKXMTossbe1yqy5NuvTGMudCj6iAVHWfRc/fADGQjtMi3WbU6f9WGndcJ2tHeElYASTjHyOakoQ2Hb2nABSaxn73CpF1vKn7cJhfpYkOOo/1k7Vi61t/LUXVEuJjZwXrmFuZcyxppTXNrzdhw3qLJ9mSZvXVfp3NMX3ALKjX2q/Z6OPUiiW4Te7iUOnSEs+mgs+4tYk609BWNNBiq3nTILtrpr9dWPd3qXFt4Rasr4Eesnoqiy6AKUeW71e1EnHXSraCvQk/qG3o0XVTXU3Nn+N0m1QHEa6y3530u0DbOBg1JnsOHGxlM7bkRwAWJoqzLdapzM2aB3ptHxlhBX0ngjcdLC7WjgBfpBv+KvkX+Utu1htPWlIErg2E6S8fp72Ae4MglI+a+7o4g3KZ4ZslAQBE/lpDJM5HVmbbIDQNsPe6M5yNp3tB8cY57dcTDhoYktpMOxyUd6MM2m/Esy1OZqrJ91nFi1uHbrGxmzGxW17sjxGyFmz7OxnB9bwyusZxNUM/055Hpo4sZRicGhrr6hF/PMGozn0QujMWN2R27RsdbWtjY7eMSMpvCmN3RmxkuZSKrFXLysjwQmZ3AubkcMuvMzHXXSbJeBuNyhHgsV6wf4TWbsaysdWHOu5BZ5C9kbTEqxzGg1L8L9alnCnwXYVx2bWgvFmvCcdl3YJy2F3mcThaI1WWa/R2d6Zi3NLAMyn+Rl3JdO3Q6871F35c2fWz8NvOlBbQDOvO30Qy3vJlL4/NJb6VPJaSPSZ4ZjIrnISal8xa6NP0M8pL21mS8G2rSoKdKvIaO4Xri4+vcll7ktjTPbZ64klTV1faj1ioTVXErLvmt6CJIT4W5DNU8ERm1oKyIPpnDtd9eGbgYa532bqaknTKvpm2jA8Op29sYvreE761Lv70iZ/0Knjs413VNiC9qQpzXhAKPy/GOuTYtcm0Ol0v6YRh2+5HQFWAObYvKLOsxx/yHqmMN4uX5SEPb2mre01ZoXoeGKk9L8spjhbbEwjz4Pvd8P8+fc+wrzLGf8P5ldUsTWeGYu/sDlYG1hN/BBL/rq3LWlYt4HrDsjG9zPSM2cY6c0Y22v19oxHYmAmph4HQqMoVsVquIX5mH8d4mWozEOqu3xcrt0BkC82vSZpgBjGWeiZORvJ5mrNhUBuFiiW3k5rQfir4VUPiGX8lSXZqTEhuJXQGpCn7VXeK+vJ2Zwx6vNqfYm7ccp9SmanEEkAAjyVVzogr7lsmut8FSENtRVzUXXGc85ND6lJf6cRMul2o2XcctiWUa8xATiDGjrgS+07RwergWCUXx99V53Fm6g32VQdq2nLw1s2HVjmi1340WI0ojMntFkdJr36O66Fi3Q3I2Jdt7esINwUzklwDsXJZfWOFUqW9IDx3yS7Jnz0JL6Q3qs4XU25ue3uSZqImz43pvKKqyPmC9fYQqfao667ZUDawEQ4z6DZfdzejXfj0M5c3cr46Q2NzoTI/jnNDxzV2qLYn+Kx155sAVnDRycGecyocm733zdQKe2jPYuJ0bwJHCXL2LobX21smLt2a3HYre20h7Ua+qzeytZw/xWBUEQZkleNBDOs0uaPrDja94ra3rpSPvNWaUbvzasdZVbz1u7ZvxPIvwgYhxb6/EprqK3raAMGZGFdVNNA67E4+jkFd7BYQ0YFN3KtrLoDuFhT4QpxNG78h1sB2H1Oti52GWH8qh3Z9QDdZYog1dtUdA3HHsdqNbmaEuYnemZ8vuJBpaA3k4rIaDLT1yyTiwSXPiLBQutaNu9CZPYrUlOJK2Hi7YejJedtjYVDrRa09VMOxtTNixh4t+Y1HdsMGae8MWEyWL0D7Rp/XBlkn3JNL1cGzSQEXFsuSZs9j409ds6rsTfYJqqbLGo/EYJtlpc75tDcGIS/W3eYiKzh7N0GMjfjRybnB+W551vjAywxajJ0i577p0UP3KffVzA1+wGhhLYKZFLz/NDzHLd8Gq0RZB0xiC1ygdBTWCJJGa3jCaNR2QKEUbBG5bGOzji5PPJ3mte669cwPnvMP98lFqLsMtRjWSoC3dpoxaAzPzrQVC1SigY3DLYcAfirQI23qoqHrsgPTL3xxOOrzfoRfy/Eu255f8T4zOE10iQMXh9q040WvUoPERUkXoJ7T51GjWkMZTfuz1Efma/mohlyM56PK53Kj/qu8GvjfZ0sPYblQXkSAPNJHuzsF4N/J3PW4XrHYDRBz2bdZLFuGt7wYfxSwhQpKsQayA2NW905axBObftl+45/xzef+ZHXRgUaq0HrnH3yuDZ44R+VFbgBuOCjfoD2DtYioKo8Ah7flkKitMKkM91ittN/b1Cn++IFDhIO/YLsCwuQ99w9V/ryj8SGD6EqyE/OiZRlAcxVAUqxG/VzjpWdFgM1e5M+8ptV5IflSm1E1a+waIX3C0CXmiTarZxPPTChh1J9orxKPFru1Tv/R8/bMAOUdl6Lnm6Www534H4WLgPeiC+vjl/+PFi6vP/xHkkOZuAIWh6xvsPWiDPUaWfVL1g3wtkJixG+WfpItPqneFO4G6erL4VSvAEkNxk5qdhi7snVmIpEKiyGDcY1uBFtjKwGaj7TT2wxiZ3V8B7ySt33VE/Qs+BPEo9M55wdNh/rByUHID9pKso8iDHE7RdDF2A5ZcyXKcqv6F9Afyewt6WYM+YpzH2iGMibRSvpy+MsLc/8WP/EfOIlQh/4L7koJtmvv3KPVp4IDIH257vWhqu0YdsU7QI+C9pO+scFvJ+u06dBq4VRvLgl7yern+YPfyk2dTH+GHE6/idgOEj8v7b0LrBb5UsEe0vDBwNXIm4NZJGvqH4yI4giIl+nv4mQJqZ7tefmJdnH3CCZ4q7TKBHDLzP/5epGYLVMZQI71keCb7wIrfAnN9nP8K+3LkTAZflCGKEAfcqzFNO53fFie31+ernNbma0qXwSkYXL/+3PIo0KXseRk43go69BAHNU4j77CLJuLQZjSObcb16Jmi9Y47ipW4rY+8y3sh+fIpTlaRoznfwc8UUlhsPk6PF7MejoO5dZwv7/KInhsMD3PfGj0T990AFLdeYMWE5dE8xsAH+IFEN58Y08wH4FpTDjkQtgfp7rx4cnrGsty0OHQ/oENHHKxxa+hMCye4ZncFvb558/5A+hCQ5+splxF6XNk/wOs8X9GD3Jil7KoYRRX6/UGlrfGSyisVkRmpXebgpHeUFxN/GCpGFrskPzw+3mD8MKteWC4Gya2bWkfN8/sLt9S+QOPcgwSsxjEjRmSkzkHk08htwmGYpLo3h3upQxxeAO5MVV6nUtZGbmnoU4WRVEZq8aPDhO/Hf4xNEcL5FY27gzf4nM2Xh/b9K2rFKDdiHit4syKNBo8VgqjhjcqgLXCCxFQoBK/wLQG+DSqyNjivlluXQj6dtZDroMJXrs196SraZdBWPD1w1rpTJGgAd2DHxv121F4qclvMKyVvBPx3wvq8zFR9W97Zu7XWRsBxkzQuyD9fdx+wb3DML0Trwe6Pc43uSqhbEkMD9cEGeKcrkyUXAm7RRzWarg2lkskl3q0McmmdP7PJn9nkj5lNPo/SQtN7WeMihD+N30JEYczcFbiU6OZUFyX99vhpuA8c3eNvReWfGe4UtnEUQqXApXqfuVcZ/oh7z7uVu/79wdkvPH7HpQdd4M7LTG8mcuCBaJEnuSZCNim8QTcPsp1HbpCdv7qJuuu9xOskCe205qWW/l+LMPUh8NEM/cOfOFwjf5D/vXgXWh23uZ/2+e92AuWO9Y+2E/g3Bn/jOvhR/OGFpHGqgTaIX70N6Q0kRRlIlZGmKEJF5WHe+L+6Bflf2wIw4xZT6Q+USqEx/P1bpYlUahW0SVVUtoIiCP5n7f/37yTuLp0/ao39NM381C6C/uIu4gcar/n8RyqzFFZ0WFlM/Y/Vfv0/CYt/ZTeT93kEgSI09XPdjOu7Zhz+873Mye8gTm63BW03LgP/6OZyojP4Fo3uu15ZmD7ExMXYDUrRtSwPlEeZ9XeAj664FvrTvuxG13UI+l3+yVcE+uWfGh+W48fPouV+/IKmWPfHw4D38FtU9z58vxu+UOKjiIXkRRyKMGxSPd6pYap71/Plte909sL4uR0q5uHLdr4QuMHwAfb7j8ev9DfwrxnCzMFvTW+duBtwj9+Z3UfsD9yE4BNu6BW7d+gfrKsbHhjBkfwI7XP5bhLc5PkD0l1hXvrunpMKDx5OMK6alGPoobdD70BiyTDH5Rmosg7cNI+154f8HBI9SfQe8VfGRq5KCvzrxJKfp5xP018UfjQWOGFQYRRBUXmJE5jKWBipGtM/HL5cIL/PUErxf2HEVj7LFzYzuSY0TV8nfD5J//HfObe8buhWGB2LiFcx87/bdo31Ds4AHmDDPL6/H/kxkY6t72HrliMfDl13dw5k7u0HLrbo9xuAHH74C6UwSNZ+mOv4VGkDI3/IM05JW+J80OlzQb+uD/apPtiP6HM8moMVvixzz7DMwZenCvLPqFQiXQVvWRVi1wQf4rmA/kg2OON94MHqCfh08V4ivS9xZ8kOwl8lkW/1wzt8/utf/gdQSwECFAAUAAIACAAcSmdaG8BNVkQWAABpRgAAIwAAAAAAAAAAACAAtIEAAAAAZnYwMDYzMzE3NjcyMDAwMjVTUDEwNDEwMDAwMDI1MC54bWxQSwUGAAAAAAEAAQBRAAAAhRYAAAAA"
    // MemoRead( cSignedXmlFile )

    // Crear la solicitud SOAP
    cXmlStr = ;
        '<?xml version="1.0" encoding="UTF-8"?>' + ;
        '<soapenv:Envelope xmlns:soapenv="http://www.w3.org/2003/05/soap-envelope" xmlns:wcf="http://wcf.dian.colombia">' + ;
        '<soapenv:Header/>'+;
        '<soapenv:Body>' + ;
        '<wcf:SendBillSync>' + ;
        '<wcf:fileName>' + cNomZip +'</wcf:fileName>' + ;
        '<wcf:contentFile>' + cFacturaXml + '</wcf:contentFile>' + ;
        '</wcf:SendBillSync>' + ;
        '</soapenv:Body>' + ;
        '</soapenv:Envelope>'

   // Establecer cabeceras requeridas por el WS
   // LOS HEADER COMENTADOS LOS USA EL APP "SOAP UI"

   //aadd( aHeader, "Accept-Encoding: gzip,deflate" )
   aadd( aHeader, "Content-Type: application/soap+xml; charset=utf-8" )
   aadd( aHeader, "SOAPAction: http://wcf.dian.colombia/IWcfDianCustomerServices/SendBillSync" )
   //aadd( aHeader, "Content-Length : "+ALLTRIM( STR(len(cXmlStr),12,0)) )
   //aadd( aHeader, "Host: vpfe.dian.gov.co" )
   //aadd( aHeader, "Connection: Keep-Alive" )
   //aadd( aHeader, "User-Agent: Apache-HttpClient/4.5.5 (Java/17.0.12)" )




   // Setear opciones
   curl_easy_setopt( hCurl, HB_CURLOPT_HTTPHEADER, aHeader )
   curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl )
   curl_easy_setopt( hCurl, HB_CURLOPT_TIMEOUT, 30 )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYPEER, .F. )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYHOST, .F. )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSLCERT, cCertFile )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSLCERTTYPE, cCertType )
   curl_easy_setopt( hCurl, HB_CURLOPT_KEYPASSWD, cCertPass )
   curl_easy_setopt( hCurl, HB_CURLOPT_POST, .T.)
   curl_easy_setopt( hCurl, HB_CURLOPT_POSTFIELDS, cXmlStr )
   curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )

   // echo server, para depurar .T.
   curl_easy_setopt( hCurl, HB_CURLOPT_VERBOSE, .F. )

   // No reutilizar conexiones
   curl_easy_setopt( hCurl, HB_CURLOPT_FRESH_CONNECT, .T.)
   curl_easy_setopt( hCurl, HB_CURLOPT_FORBID_REUSE, .T.)

   // Conexion
   nError    := curl_easy_perform( hCurl )
   cResponse := curl_easy_dl_buff_get( hCurl )

   alert(nError)
   alert(cResponse)

   if nError == 0
      hb_memowrit( "respuesta.xml", cResponse )
   else
      ? "Error :"+ curl_easy_strerror( nError ), nError
   endif

   curl_easy_cleanup( hCurl )
   curl_global_cleanup()

return

Code: Select all | Expand

      "Accept-Encoding:gzip" ]
      "Content-Encoding:gzip" ]
      "Content-Type:application/octet-stream;charset=UTF-8" ]

Code: Select all | Expand

#include "hbcurl.ch"

PROCEDURE main()

   local nError, cResponse
   //local cXmlStr   := hb_memoread( "peticion.xml" )
   local aHeader   := {}

   local cUrl := "https://vpfe.dian.gov.co/WcfDianCustomerServices.svc"
   local cCertFile := "CERTIFICADO.p12"
   local cCertType := "P12" // o "PFX"
   local cCertPass := "xxxxxxxxx"
   local cNomZip := "z006331767200025SP104100000250.zip"
   local cFacturaXml,cXmlStr := ""
   local aHasRes :=  hash()
   local cFilRes := ""
   local cSignedXmlFile := "E:\TEMP\XML_FIRMADO\z006331767200025SP104100000250_fv_B64"
   local hCurl

    cFacturaXml = MemoRead( cSignedXmlFile )
    //  cFacturaXml :=  "UEsDBBQAAgAIABxKZ1obwE1WRBYAAGlGAAAjAAAAZnYwMDYzMzE3NjcyMDAwMjVTUDEwNDEwMDAwMDI1MC54bWztPNtyo0qS7xMx/6DwedkNHVncJMDR9iwgJCELJATo9salQEjcDEhI+pv9hvmE+bEtQFdbard7pifO7h5HdBiyMrPyVplZVLm//W3re5UNiBM3DJ4f0EfkoQICM7TcwHl+WKd2jXqoJKkeWLoXBuD5IQgf/vby1798E4JN6JqgAsmDBGLGwVOoJ27yFOg+SJ6SCJiu7Zp6Cvk+rQ3vKTEXwNefton1dKCtYQ8l+ZOpm19kwYW+HwaM48TA0VMAXyMoXpAmF0yNn2PKQnTzFkML6rlI0+ipXs+y7DHDH8PYqWMIgtQRug5xrMR1fjtig236U9Pz2xQEuTduiZCkUAbL1YMnJ9w8meGTrZvpOtaBB8w0DgPI+UlJ43UOBJCuhh4pt7oFzvKvY/cRpIlbaICgNILXN+gj/oj9doWPEugnJMQjeiZJ3DsGQutTsa8UmtbcIA8nE0CqxD2o3w9Li/xsHFXyn8PMVmgmjwWLWhiBoBAB0tXDpKax/Rr2iNYhbd3X3QCi1nPYic8j+gjHHmB8Q37foAef4PDJIUkJvzV0GjkOXngxgE/pJUKOAx351IJ+vMH8GukgW84mDr2PSO/wmHW6CGN3X9jrBaXIJoGQDZpAaYz6Vr+LeJftFdoQxG5o3UTO8eGCg8Gnx2kLrsgXDMGIGkLWMPpb/Xrke/R8YB2pm5fUR/hNQetfkfRKLWAdzJHclSpHH8bAdrcvyrCc6vD6PYp2HPovaIlePH8PWQ1fGjCLlNjw5XMlvyf3lZvvxs1l0CjhOjbv2DY3vmDBCD6tQi60QMVzk5RxYKXYCa3nh+bDBUCCC/f5QQvcFFgVqSBJKrwZBqHvmpU8yblJHvEVO4wr/DqGq7QkLxIE0EbCj6QBWKJATvTkmDBxrqGWu49i5iv64YUblDH0cfwT492zS2E7JbTTTI/BMA43rgXi+8F2xBBalSJ5gbPhULrxcAUsjccNfq+0BEaq/EfLjYFpuv/4e1CBVhf8aA2SNEwquwpjrfVAT6CFTaiN7oHkP4+scs7I8aXkiEM7NHEcJZskdgzio1T3JT/q+Oslf7FxErNxy6rROk7WCLvZqNF4w64RtGETtkUjVJ4KroW6577PXXOlnQJMWNzSXRHYv1pPizaRJoZaJkKZFgDwlURsg8YwEtVRnLAw3GhaDYO2jQaJgwYJXxoGhYKmaRIYRaOoTdl6EzMxukFYDdLCKYzCbZtsog26CR+uLXCp2h0rXOfNT4P5Jvq/NbKJj5FNwRaDJrEmdasUfCfOv4N+x1ryqDBl3msksNmAqQT2xU5Y20Q2eMwbs0fYmD2aYd6GrH2Yb+oJ0GNz8Rb/7QhZgd0zShm5U9EGaRAw8yOUDpcmrNMYQiCYSRENy0SJpkUaTZymGs0GRViUgYMmoGicNFG6CSwSRSzDalC6YaBNxEBNmyApmqQNkqbNUrGDsO9aj/r3e49v9e/2L+Xwzd7nJ7qibxaMVdcJ9Lxf/WKbLVjPDyfaGo5gNE6bVA0jKatGNABZM/QmVQMGCQMDBSSCUg+n+fL6aYfFK6cHRd/sHQJABDAarArjOTAm0oV/Sxh1VHa1I56rQYFq0FlBLYcgOArDvn6t149wLNghxFG9mh/G4Lc40WvJQscazSPPEbBBDFcTKLQ/vdUaJtqwsEbecFF0jTBJrGZgNIQjFgHzhN00abhsitJaGkGN9SCBBdhPrl8/lfLKCSDYAA/Wb6uWHJUtJK1/nKHlOnB9f9EUULffrg1Qshnr3hq8iE7UVGM18Yh5b7abTmVGNlsGkhKsJmRjkOxZQmLYTRpT2XMh0iVxATgZ8HvGfQW7PFgO5vvtayFXO1L/KiNwqbscv7p0OCPn1XTL9PWQ7wRorzOVM6c7JAN8hC03Q4DMiC8aQd1F4Du7v9/KdTTM+7c4dUFyNNAxhL9oqKRgF0F2yS8zllNvR6uVPWT3o8Ga2DKkFXQmzKutKG/q9HU8WWW6zVQHpkTxnxur/jGXnFQuKK4zVAH6wTRl9iNqwTDboZkkQWvXWpFDnWLXfcQfDaLptN3dtz3SYMZ2A4Rv3VgU69sV39lZuDXwN3VW5NHBWB4ilFrdOK3RbqjozZ6sKFUn3Eu2kjXm6LbbUOSha0lUNt7MgoWKMMyG4jrU0M1eEdTyBquwbSgzqhWOGtux4776PrdeUu4K6wG7Lo2mPXax0qpvokH1tOrkbYrg+01PAYMFPVE1nxrx9qCarRpKu/XmJdnodeqtNIvEJpKeRMTbcitls34LBBNiAQYxOXWSLhmxZkRHfY+NuJm+WOMDxIrszg4A1fX7SuxUt1OJmqCSSo8jcd0k2TQKJWptuOko9mbEClGaI0eKMrFK7nbUDKHSJFobW6KfTtHGW/b8fPLZ2SOF3w6L9CdKyvX6njYQGm5T9dMLly+NYscB05UgdLkWx7E25zCZwDKOILxWBRVB8F4oa1lLnvVew7mw2JgSI/N9VmYyx9S2vSWzYh1pzDKi2B1LY3klsQIvsao2VkYrT1E13pERWlQRlFPgs4a0VXEkZ7wza41luc1nSUNs8XtRFbbwXyq12ozYIjoMqvFcluEyNt5ZHc/XJ9Ji3qH3QptdmD7vjHxvZ0zg78nWm+GjnYE1ohkG58La6Xza8/VpL50pbMvAthtj0otmKu+I7IGvk01lpC2Nxr2OMu5JMsRTke1Q1XowEFlVHovbdotRSr1MkUN6wxFCa3CM76/EtSgnGScX8nf4rNdS9wxoZ8hOajG4uJS34l4jxP1cL2DLS9hYF4VuXxxlWafUv9dipZa2grLtZ47UkuFvzVGRmTNoMXtxJGZ8OY/GZyG00QwVl0JDUgVCVJisW/JotVhLksc9TeFzW7fVMe+JKk85I2/cVr1RW9vzI5GhCt3ZkShISxHyMjFpL2y7LUYv9UxEHpkvoC3R3L7za7tuhRYDSrxQbCMoq3kjIbebPJY0RYOu27GdsTYejPnxpX8hWcpZ0Hem305nk0YA/dAXmVUpy0LkZITKHId3RQbpcMpbRxEMvCXzLCNrDEMIbCtj8vFXJoQxKXMTossbe1yqy5NuvTGMudCj6iAVHWfRc/fADGQjtMi3WbU6f9WGndcJ2tHeElYASTjHyOakoQ2Hb2nABSaxn73CpF1vKn7cJhfpYkOOo/1k7Vi61t/LUXVEuJjZwXrmFuZcyxppTXNrzdhw3qLJ9mSZvXVfp3NMX3ALKjX2q/Z6OPUiiW4Te7iUOnSEs+mgs+4tYk609BWNNBiq3nTILtrpr9dWPd3qXFt4Rasr4Eesnoqiy6AKUeW71e1EnHXSraCvQk/qG3o0XVTXU3Nn+N0m1QHEa6y3530u0DbOBg1JnsOHGxlM7bkRwAWJoqzLdapzM2aB3ptHxlhBX0ngjcdLC7WjgBfpBv+KvkX+Utu1htPWlIErg2E6S8fp72Ae4MglI+a+7o4g3KZ4ZslAQBE/lpDJM5HVmbbIDQNsPe6M5yNp3tB8cY57dcTDhoYktpMOxyUd6MM2m/Esy1OZqrJ91nFi1uHbrGxmzGxW17sjxGyFmz7OxnB9bwyusZxNUM/055Hpo4sZRicGhrr6hF/PMGozn0QujMWN2R27RsdbWtjY7eMSMpvCmN3RmxkuZSKrFXLysjwQmZ3AubkcMuvMzHXXSbJeBuNyhHgsV6wf4TWbsaysdWHOu5BZ5C9kbTEqxzGg1L8L9alnCnwXYVx2bWgvFmvCcdl3YJy2F3mcThaI1WWa/R2d6Zi3NLAMyn+Rl3JdO3Q6871F35c2fWz8NvOlBbQDOvO30Qy3vJlL4/NJb6VPJaSPSZ4ZjIrnISal8xa6NP0M8pL21mS8G2rSoKdKvIaO4Xri4+vcll7ktjTPbZ64klTV1faj1ioTVXErLvmt6CJIT4W5DNU8ERm1oKyIPpnDtd9eGbgYa532bqaknTKvpm2jA8Op29sYvreE761Lv70iZ/0Knjs413VNiC9qQpzXhAKPy/GOuTYtcm0Ol0v6YRh2+5HQFWAObYvKLOsxx/yHqmMN4uX5SEPb2mre01ZoXoeGKk9L8spjhbbEwjz4Pvd8P8+fc+wrzLGf8P5ldUsTWeGYu/sDlYG1hN/BBL/rq3LWlYt4HrDsjG9zPSM2cY6c0Y22v19oxHYmAmph4HQqMoVsVquIX5mH8d4mWozEOqu3xcrt0BkC82vSZpgBjGWeiZORvJ5mrNhUBuFiiW3k5rQfir4VUPiGX8lSXZqTEhuJXQGpCn7VXeK+vJ2Zwx6vNqfYm7ccp9SmanEEkAAjyVVzogr7lsmut8FSENtRVzUXXGc85ND6lJf6cRMul2o2XcctiWUa8xATiDGjrgS+07RwergWCUXx99V53Fm6g32VQdq2nLw1s2HVjmi1340WI0ojMntFkdJr36O66Fi3Q3I2Jdt7esINwUzklwDsXJZfWOFUqW9IDx3yS7Jnz0JL6Q3qs4XU25ue3uSZqImz43pvKKqyPmC9fYQqfao667ZUDawEQ4z6DZfdzejXfj0M5c3cr46Q2NzoTI/jnNDxzV2qLYn+Kx155sAVnDRycGecyocm733zdQKe2jPYuJ0bwJHCXL2LobX21smLt2a3HYre20h7Ua+qzeytZw/xWBUEQZkleNBDOs0uaPrDja94ra3rpSPvNWaUbvzasdZVbz1u7ZvxPIvwgYhxb6/EprqK3raAMGZGFdVNNA67E4+jkFd7BYQ0YFN3KtrLoDuFhT4QpxNG78h1sB2H1Oti52GWH8qh3Z9QDdZYog1dtUdA3HHsdqNbmaEuYnemZ8vuJBpaA3k4rIaDLT1yyTiwSXPiLBQutaNu9CZPYrUlOJK2Hi7YejJedtjYVDrRa09VMOxtTNixh4t+Y1HdsMGae8MWEyWL0D7Rp/XBlkn3JNL1cGzSQEXFsuSZs9j409ds6rsTfYJqqbLGo/EYJtlpc75tDcGIS/W3eYiKzh7N0GMjfjRybnB+W551vjAywxajJ0i577p0UP3KffVzA1+wGhhLYKZFLz/NDzHLd8Gq0RZB0xiC1ygdBTWCJJGa3jCaNR2QKEUbBG5bGOzji5PPJ3mte669cwPnvMP98lFqLsMtRjWSoC3dpoxaAzPzrQVC1SigY3DLYcAfirQI23qoqHrsgPTL3xxOOrzfoRfy/Eu255f8T4zOE10iQMXh9q040WvUoPERUkXoJ7T51GjWkMZTfuz1Efma/mohlyM56PK53Kj/qu8GvjfZ0sPYblQXkSAPNJHuzsF4N/J3PW4XrHYDRBz2bdZLFuGt7wYfxSwhQpKsQayA2NW905axBObftl+45/xzef+ZHXRgUaq0HrnH3yuDZ44R+VFbgBuOCjfoD2DtYioKo8Ah7flkKitMKkM91ittN/b1Cn++IFDhIO/YLsCwuQ99w9V/ryj8SGD6EqyE/OiZRlAcxVAUqxG/VzjpWdFgM1e5M+8ptV5IflSm1E1a+waIX3C0CXmiTarZxPPTChh1J9orxKPFru1Tv/R8/bMAOUdl6Lnm6Www534H4WLgPeiC+vjl/+PFi6vP/xHkkOZuAIWh6xvsPWiDPUaWfVL1g3wtkJixG+WfpItPqneFO4G6erL4VSvAEkNxk5qdhi7snVmIpEKiyGDcY1uBFtjKwGaj7TT2wxiZ3V8B7ySt33VE/Qs+BPEo9M55wdNh/rByUHID9pKso8iDHE7RdDF2A5ZcyXKcqv6F9Afyewt6WYM+YpzH2iGMibRSvpy+MsLc/8WP/EfOIlQh/4L7koJtmvv3KPVp4IDIH257vWhqu0YdsU7QI+C9pO+scFvJ+u06dBq4VRvLgl7yern+YPfyk2dTH+GHE6/idgOEj8v7b0LrBb5UsEe0vDBwNXIm4NZJGvqH4yI4giIl+nv4mQJqZ7tefmJdnH3CCZ4q7TKBHDLzP/5epGYLVMZQI71keCb7wIrfAnN9nP8K+3LkTAZflCGKEAfcqzFNO53fFie31+ernNbma0qXwSkYXL/+3PIo0KXseRk43go69BAHNU4j77CLJuLQZjSObcb16Jmi9Y47ipW4rY+8y3sh+fIpTlaRoznfwc8UUlhsPk6PF7MejoO5dZwv7/KInhsMD3PfGj0T990AFLdeYMWE5dE8xsAH+IFEN58Y08wH4FpTDjkQtgfp7rx4cnrGsty0OHQ/oENHHKxxa+hMCye4ZncFvb558/5A+hCQ5+splxF6XNk/wOs8X9GD3Jil7KoYRRX6/UGlrfGSyisVkRmpXebgpHeUFxN/GCpGFrskPzw+3mD8MKteWC4Gya2bWkfN8/sLt9S+QOPcgwSsxjEjRmSkzkHk08htwmGYpLo3h3upQxxeAO5MVV6nUtZGbmnoU4WRVEZq8aPDhO/Hf4xNEcL5FY27gzf4nM2Xh/b9K2rFKDdiHit4syKNBo8VgqjhjcqgLXCCxFQoBK/wLQG+DSqyNjivlluXQj6dtZDroMJXrs196SraZdBWPD1w1rpTJGgAd2DHxv121F4qclvMKyVvBPx3wvq8zFR9W97Zu7XWRsBxkzQuyD9fdx+wb3DML0Trwe6Pc43uSqhbEkMD9cEGeKcrkyUXAm7RRzWarg2lkskl3q0McmmdP7PJn9nkj5lNPo/SQtN7WeMihD+N30JEYczcFbiU6OZUFyX99vhpuA8c3eNvReWfGe4UtnEUQqXApXqfuVcZ/oh7z7uVu/79wdkvPH7HpQdd4M7LTG8mcuCBaJEnuSZCNim8QTcPsp1HbpCdv7qJuuu9xOskCe205qWW/l+LMPUh8NEM/cOfOFwjf5D/vXgXWh23uZ/2+e92AuWO9Y+2E/g3Bn/jOvhR/OGFpHGqgTaIX70N6Q0kRRlIlZGmKEJF5WHe+L+6Bflf2wIw4xZT6Q+USqEx/P1bpYlUahW0SVVUtoIiCP5n7f/37yTuLp0/ao39NM381C6C/uIu4gcar/n8RyqzFFZ0WFlM/Y/Vfv0/CYt/ZTeT93kEgSI09XPdjOu7Zhz+873Mye8gTm63BW03LgP/6OZyojP4Fo3uu15ZmD7ExMXYDUrRtSwPlEeZ9XeAj664FvrTvuxG13UI+l3+yVcE+uWfGh+W48fPouV+/IKmWPfHw4D38FtU9z58vxu+UOKjiIXkRRyKMGxSPd6pYap71/Plte909sL4uR0q5uHLdr4QuMHwAfb7j8ev9DfwrxnCzMFvTW+duBtwj9+Z3UfsD9yE4BNu6BW7d+gfrKsbHhjBkfwI7XP5bhLc5PkD0l1hXvrunpMKDx5OMK6alGPoobdD70BiyTDH5Rmosg7cNI+154f8HBI9SfQe8VfGRq5KCvzrxJKfp5xP018UfjQWOGFQYRRBUXmJE5jKWBipGtM/HL5cIL/PUErxf2HEVj7LFzYzuSY0TV8nfD5J//HfObe8buhWGB2LiFcx87/bdo31Ds4AHmDDPL6/H/kxkY6t72HrliMfDl13dw5k7u0HLrbo9xuAHH74C6UwSNZ+mOv4VGkDI3/IM05JW+J80OlzQb+uD/apPtiP6HM8moMVvixzz7DMwZenCvLPqFQiXQVvWRVi1wQf4rmA/kg2OON94MHqCfh08V4ivS9xZ8kOwl8lkW/1wzt8/utf/gdQSwECFAAUAAIACAAcSmdaG8BNVkQWAABpRgAAIwAAAAAAAAAAACAAtIEAAAAAZnYwMDYzMzE3NjcyMDAwMjVTUDEwNDEwMDAwMDI1MC54bWxQSwUGAAAAAAEAAQBRAAAAhRYAAAAA"

    // Crear la solicitud SOAP
    cXmlStr := ;
        '<?xml version="1.0" encoding="UTF-8"?>' + ;
        '<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:wcf="http://wcf.dian.colombia">' + ;
        '<soap:Header xmlns:wsa="http://www.w3.org/2005/08/addressing"><wsse:Security soap:mustUnderstand="true" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"><wsu:Timestamp wsu:Id="TS-BD40368ECABC33A9ED174242532066842"><wsu:Created>2025-03-19T23:02:00.668Z</wsu:Created><wsu:Expires>2025-03-20T15:42:00.668Z</wsu:Expires></wsu:Timestamp><wsse:BinarySecurityToken EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary" ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3" wsu:Id="X509-BD40368ECABC33A9ED174242532063237">MIIHCDCCBfCgAwIBAgIIK+IT003JoQUwDQYJKoZIhvcNAQELBQAwgcUxJjAkBgNVBAMMHVNVQkNBIENBTUVSRklSTUEgQ09MT01CSUEgU0FTMRQwEgYDVQQFEws5MDEzMTIxMTItNDFAMD4GA1UECww3Q2VydGlmaWNhZG9zIFBhcmEgRmlybWEgRWxlY3Ryb25pY2EgQ2FtZXJmaXJtYSBDb2xvbWJpYTEgMB4GA1UECgwXQ0FNRVJGSVJNQSBDT0xPTUJJQSBTQVMxFDASBgNVBAcMC0JPR09UQSBELkMuMQswCQYDVQQGEwJDTzAeFw0yNDA3MjQxMzU4MzZaFw0yNjA3MjQxMzU4MzVaMIHLMRwwGgYDVQQJDBNDUkEgMzYgNDQgMzUgT0YgODAzMRMwEQYDVQQUEwozMTY1MjI5NTI4MSAwHgYDVQQDDBdNQVJUSEEgQ0FTVElMTE8gRlVFTlRFUzERMA8GA1UEBRMINjMzMTc2NzIxHDAaBgNVBAsME0ZhY3R1cmEgZWxlY3Ryb25pY2ExIDAeBgNVBAoMF01BUlRIQSBDQVNUSUxMTyBGVUVOVEVTMRQwEgYDVQQIDAtCdWNhcmFtYW5nYTELMAkGA1UEBhMCQ08wggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCW4HEbz3N/QWH/5PrCol8/etMgghJizecnQbod7qY++ZKUPGKW1GUqsBIesoZ276W5UPPqtnCnc4zYKori/6SmrF7hthv7VpzWugdaULzQp+R4i2cG2Jcx+OcddRU6cxdYBoZD97FWjwqHKXZ2ahCh8tbzkFuPXlpN9F4zIIHG9p3BtOGuJhrCMdak905A8/6g7H1GLuud/txaCFIK1+kempBatMMiA1S4+EH+xWMYGtxIakolNLbapXh+uXcybmH68Ge4KraFZLCnUvgv1o7EC3PvQeXfZbnUxJ11BiCG+ZcrBeaJZpbVS1K7elVVjd1fpnEM95EK1qpmjUyDPXDXAgMBAAGjggLyMIIC7jAMBgNVHRMBAf8EAjAAMB8GA1UdIwQYMBaAFMCPn2uVGVZRNZ5UmMZ3l/0l2PbNMFsGCCsGAQUFBwEBBE8wTTBLBggrBgEFBQcwAYY/aHR0cDovL3BraWNvbC5jYW1lcmZpcm1hY29sb21iaWEuY28vZWpiY2EvcHVibGljd2ViL3N0YXR1cy9vY3NwMBUGA1UdEQQOMAyICisGAQQBgYcuHgswJwYDVR0lBCAwHgYIKwYBBQUHAwIGCCsGAQUFBwMEBggrBgEFBQcDATCCAe8GA1UdHwEB/wSCAeMwggHfMIIB26CCAQmgggEFhoIBAWh0dHA6Ly9wa2ljb2wuY2FtZXJmaXJtYWNvbG9tYmlhLmNvL2VqYmNhL3B1YmxpY3dlYi93ZWJkaXN0L2NlcnRkaXN0P2NtZD1jcmwmaXNzdWVyPUNOJTNEU1VCQ0ErQ0FNRVJGSVJNQStDT0xPTUJJQStTQVMlMkNTTiUzRDkwMTMxMjExMi00JTJDT1UlM0RDZXJ0aWZpY2Fkb3MrUGFyYStGaXJtYStFbGVjdHJvbmljYStDYW1lcmZpcm1hK0NvbG9tYmlhJTJDTyUzRENBTUVSRklSTUErQ09MT01CSUErU0FTJTJDTCUzREJPR09UQStELkMuJTJDQyUzRENPooHLpIHIMIHFMSYwJAYDVQQDDB1TVUJDQSBDQU1FUkZJUk1BIENPTE9NQklBIFNBUzELMAkGA1UEBhMCQ08xFDASBgNVBAcMC0JPR09UQSBELkMuMSAwHgYDVQQKDBdDQU1FUkZJUk1BIENPTE9NQklBIFNBUzFAMD4GA1UECww3Q2VydGlmaWNhZG9zIFBhcmEgRmlybWEgRWxlY3Ryb25pY2EgQ2FtZXJmaXJtYSBDb2xvbWJpYTEUMBIGA1UEBRMLOTAxMzEyMTEyLTQwHQYDVR0OBBYEFCJbrc3C7Y95FmzhU4xYMe8hb39tMA4GA1UdDwEB/wQEAwIF4DANBgkqhkiG9w0BAQsFAAOCAQEArsRQuXwBM6SOohj2vQ6XLoMmdn83vEkQN/NZ7NBpMHI0+Im+ij3mQxYcPJET6X2qljVt8v+dC4eNeANQ+cWTIzDcBuxnjIMFpHTchCGVPC1/XENLr66Ly+wXurDNBA5Zo2I4VATkIEG6d39PuM4SSmz+ZrGjiOz+A0FfQsq6wP+fp9TLHphR8U4wfk87NKLl8H1Vafo7YX7Fz9WCPeYMEjeeyiBEhdoXS/v7l1PEj7JfYodSJO/YhNJzcla6EAp63BV/JPMTQaOBlzp1SL8+YHDTUekIbMpL5iByY9KL/ooQvZm+R0rcvaAJCCgogmcytUj4LK9plcOiIgtpg3gVtQ==</wsse:BinarySecurityToken><ds:Signature Id="SIG-BD40368ECABC33A9ED174242532066441" xmlns:ds="http://www.w3.org/2000/09/xmldsig#"><ds:SignedInfo><ds:CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"><ec:InclusiveNamespaces PrefixList="wsa soap wcf" xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#"/></ds:CanonicalizationMethod><ds:SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/><ds:Reference URI="#id-BD40368ECABC33A9ED174242532063240"><ds:Transforms><ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"><ec:InclusiveNamespaces PrefixList="soap wcf" xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#"/></ds:Transform></ds:Transforms><ds:DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/><ds:DigestValue>qJh6cLlCnqq3wbelPQpLrHWjF1DckDtAd6nImSnuk0A=</ds:DigestValue></ds:Reference></ds:SignedInfo><ds:SignatureValue>QfUTEIbjYSlsBrTjWPwzciZvY/je5La75j8yZrRhxUDHqYHt/09erTS6o6Cd8kMFg4cLoleY1VF1P0xiFMLJCIQYvb9TKYmQPuV2y4vw2B7fAkKNRxSW5JRjeIaAWN3WZ3XjIZiKZMzNKXKVLuM6hKNQ1mtnKBHqc3QpRikmekRwpJ7hDACB+LCbwHQywG9aAdaKzELHO3zzc1khju1YvcRb+eN9Dll7I0CVSX7RUklUfdUtdcyumZPmsgRmPMAZp0PG9owrbOd24tLKDD8QJQM9duNrv+EghPzsBmhYe70CzVlJ7Q3JtiWPctn6O5+Skb2DIsSuyJ6+wkyMNXfdVQ==</ds:SignatureValue><ds:KeyInfo Id="KI-BD40368ECABC33A9ED174242532063238"><wsse:SecurityTokenReference wsu:Id="STR-BD40368ECABC33A9ED174242532063239"><wsse:Reference URI="#X509-BD40368ECABC33A9ED174242532063237" ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3"/></wsse:SecurityTokenReference></ds:KeyInfo></ds:Signature></wsse:Security><wsa:Action>http://wcf.dian.colombia/IWcfDianCustomerServices/SendBillSync</wsa:Action><wsa:To wsu:Id="id-BD40368ECABC33A9ED174242532063240" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">https://vpfe.dian.gov.co/WcfDianCustomerServices.svc</wsa:To></soap:Header>'+;
        '<soap:Body>' + ;
        '<wcf:SendBillSync>' + ;
        '<wcf:fileName>' + cNomZip +'</wcf:fileName>' + ;
        '<wcf:contentFile>' + cFacturaXml + '</wcf:contentFile>' + ;
        '</wcf:SendBillSync>' + ;
        '</soap:Body>' + ;
        '</soap:Envelope>'


   //  HB_MEMOWRIT( "PRUEBA.XML", cXmlStr )

   // Establecer cabeceras requeridas por el WS

   aadd( aHeader, "Content-Type: application/soap+xml; charset=UTF-8" )
   aadd( aHeader, "SOAPaction=http://wcf.dian.colombia/IWcfDianCustomerServices/SendBillSync" )
   aadd( aHeader, "Connection: Keep-Alive" )
   aadd( aHeader, "Cache-Control: private" )

   hCurl     := curl_easy_init()
   curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYPEER, .f. )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYHOST, .f. )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSLCERT, cCertFile )
   curl_easy_setopt( hCurl, HB_CURLOPT_SSLCERTTYPE, cCertType )
   curl_easy_setopt( hCurl, HB_CURLOPT_KEYPASSWD, cCertPass )

   curl_easy_setopt( hCurl, HB_CURLOPT_POSTFIELDS, cXmlStr )
   curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )
   curl_easy_setopt( hCurl, HB_CURLOPT_HTTPHEADER, aHeader )


   // echo server, para depurar .T.
   curl_easy_setopt( hCurl, HB_CURLOPT_VERBOSE, .T. )
   curl_easy_setopt( hCurl, HB_CURLOPT_ENCODING, "" )
   curl_easy_setopt( hCurl, HB_CURLOPT_MAXREDIRS, 10 )
   curl_easy_setopt( hCurl, HB_CURLOPT_CUSTOMREQUEST, "POST" )

   // No reutilizar conexiones
   curl_easy_setopt( hCurl, HB_CURLOPT_FRESH_CONNECT, .T.)
   curl_easy_setopt( hCurl, HB_CURLOPT_FORBID_REUSE, .T.)
 

   // Conexion
   nError    := curl_easy_perform( hCurl )
   cResponse := curl_easy_dl_buff_get( hCurl )

   if nError == 0
      hb_memowrit( "respuesta.xml", cResponse )
   else
      MSGINFO( curl_easy_strerror( nError ) )
   endif

   curl_easy_cleanup( hCurl )
   curl_global_cleanup()

return

Code: Select all | Expand

FUNCTION CLILKAT(cFilNam, xDocB64)


LOCAL loXml
LOCAL lcSoapRequestBody
LOCAL lcEndpoint
LOCAL lcSoapAction
LOCAL lcContentType
LOCAL loHttp
LOCAL loResp
LOCAL loResponseXml
LOCAL lnStatusCode
LOCAL lcV_string
LOCAL lcIsValid
LOCAL lcStatusCode
LOCAL lcStatusDescription
LOCAL lcStatusMessage
LOCAL lcXmlBase64Bytes
LOCAL lcXmlBytes
LOCAL lcXmlDocumentKey
LOCAL lcXmlFileName
local cFilXml

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml:Tag = "soap:Envelope"
loXml:AddAttribute("xmlns:soap","http://www.w3.org/2003/05/soap-envelope")
loXml:AddAttribute("xmlns:wcf","http://wcf.dian.colombia")
loXml:UpdateChildContent("soap:Header","")
loXml:UpdateChildContent("soap:Body|wcf:SendBillSync|wcf:fileName",cFilNam)
loXml:UpdateChildContent("soap:Body|wcf:SendBillSync|wcf:contentFile",xDocB64)

* In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
loXml:EmitXmlDecl = 0
lcSoapRequestBody = loXml:GetXml()

lcEndpoint = "https://vpfe-hab.dian.gov.co/WcfDianCustomerServices.svc"
lcSoapAction = "http://wcf.dian.colombia/IWcfDianCustomerServices/SendBillSync"
*  For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
lcContentType = "application/soap+xml"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

loHttp:ClearHeaders()
loHttp:SetRequestHeader("Content-Type",lcContentType)
loHttp:SetRequestHeader("SOAPAction",lcSoapAction)

loResp = loHttp:PostXml(lcEndpoint,lcSoapRequestBody,"utf-8")
IF (loHttp:LastMethodSuccess = 0)
    alert( loHttp:LastErrorText)
    alert( "Failed to send SOAP request." )
    RELEASE loXml
    RELEASE loHttp
    CANCEL
ENDIF

* Get the XML response body.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loResponseXml = CreateObject('Chilkat.Xml')
loResp:GetBodyXml(loResponseXml)

lnStatusCode = loResp:StatusCode
alert( "response status code: " + STR(lnStatusCode) )

RELEASE loResp

cFilXml :=  loResponseXml:GetXml()

hb_memowrit( "respuestaCli.xml", cFilXml )

* If the status code does not indicate succcess, then show the response XML,
* which probably contains error information.
IF (lnStatusCode <> 200)
    alert( cFilXml )
    RELEASE loXml
    RELEASE loHttp
    RELEASE loResponseXml
    CANCEL
ENDIF


* Parse the successful SOAP response XML.

* This is a sample of the response XML, but the namespace prefixes will be different.
* We can parse the result using "*" for the namespace prefixes (see below).

lcV_string = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:ErrorMessage|*:string")
lcIsValid = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:IsValid")
lcStatusCode = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:StatusCode")
lcStatusDescription = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:StatusDescription")
lcStatusMessage = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:StatusMessage")
lcXmlBase64Bytes = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:XmlBase64Bytes")
lcXmlBytes = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:XmlBytes")
lcXmlDocumentKey = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:XmlDocumentKey")
lcXmlFileName = loResponseXml:GetChildContent("*:Body|*:SendBillSyncResponse|*:SendBillSyncResult|*:XmlFileName")

RELEASE loXml
RELEASE loHttp
RELEASE loResponseXml


RETURN cFilXml

Code: Select all | Expand

FUNCTION Main()
     LOCAL i
     
     REQUEST DBFCDX
     RddSetDefault( "DBFCDX" )
     set DATE FRENCH
     SET CENTURY ON
     SET EPOCH TO Year( Date() ) - 40

     USE C:\fwh\samples\customer NEW SHARED
     
     XBROWSER "CUSTOMER" TITLE "Prueba" SETUP ;
               ( oBrw:bInit :=  { |o|   ;
                    o:oWnd:oBar:aControls[ 8 ]:lGroup := .F., ;
                    o:oWnd:oBar:aControls[ 5 ]:Hide(), ;
                    o:oWnd:oBar:aControls[ 6 ]:Hide(), ;
                    o:oWnd:oBar:aControls[ 7 ]:Hide(), ;
                    o:oWnd:oBar:aControls[ 8 ]:Hide() } ;
                 )
RETURN nil

Code: Select all | Expand

// C:\FWH\SAMPLES\MURUGOS.PRG

#include "FiveWin.ch"

REQUEST DBFCDX

FUNCTION Main()

   LOCAL i

   rddSetDefault( "DBFCDX" )

   SET DATE FRENCH
   SET CENTURY ON
   SET EPOCH TO Year( Date() ) - 40

   USE ..\SAMPLES\CUSTOMER NEW SHARED
   GO TOP

   XBROWSER "CUSTOMER" TITLE "Prueba" SETUP               ;
      ( oBrw:bInit :=  {| o |                             ;
        o:oWnd:oBar:aControls[ 8 ]:lGroup := .F.,         ;
        o:oWnd:oBar:aControls[ 5 ]:Hide(),                ;
        o:oWnd:oBar:aControls[ 6 ]:Hide(),                ;
        o:oWnd:oBar:aControls[ 7 ]:Hide(),                ;
        o:oWnd:oBar:aControls[ 8 ]:Hide(),                ;
        o:oWnd:oBar:Del( Len( o:oWnd:oBar:aControls ) ) } ; // aqui
      )


RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Code: Select all | Expand

// C:\FWH\SAMPLES\MURUGOS.PRG - Version 2.

#include "FiveWin.ch"

REQUEST DBFCDX

FUNCTION Main()

   LOCAL i

   rddSetDefault( "DBFCDX" )

   SET DATE FRENCH
   SET CENTURY ON
   SET EPOCH TO Year( Date() ) - 40

   USE ..\SAMPLES\CUSTOMER NEW SHARED
   GO TOP

   /*
   XBROWSER "CUSTOMER" TITLE "Prueba" SETUP              ;
      ( oBrw:bInit :=  {| o |                            ;
        o:oWnd:oBar:aControls[ 8 ]:lGroup := .F.,        ;
        o:oWnd:oBar:aControls[ 5 ]:Hide(),               ;
        o:oWnd:oBar:aControls[ 6 ]:Hide(),               ;
        o:oWnd:oBar:aControls[ 7 ]:Hide(),               ;
        o:oWnd:oBar:aControls[ 8 ]:Hide(),               ;
        o:oWnd:oBar:Del( Len( o:oWnd:oBar:aControls )) } ;
      )
   */

   // Otro modelo
   XBROWSER "CUSTOMER" TITLE "Prueba" SETUP                              ;
      ( oBrw:bInit :=  {| o |                                            ;
        o:oWnd:oBar:aControls[ 8 ]:lGroup := .F.,                        ;
        o:oWnd:oBar:aControls[ 5 ]:Hide(),                               ;
        o:oWnd:oBar:aControls[ 6 ]:Hide(),                               ;
        o:oWnd:oBar:aControls[ 7 ]:Hide(),                               ;
        o:oWnd:oBar:aControls[ 8 ]:Hide(),                               ;
        o:oWnd:oBar:aControls[ 9 ]:Move( 0, o:oWnd:oBar:nWidth() -35 ) } ; // aqui
      )

RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Code: Select all | Expand

#include "fivewin.ch"

FUNCTION Main()
     LOCAL i
     
     REQUEST DBFCDX
     RddSetDefault( "DBFCDX" )
     set DATE FRENCH
     SET CENTURY ON
     SET EPOCH TO Year( Date() ) - 40

     USE d:\fwh\fwhteam\samples\customer NEW SHARED
     
     XBROWSER "customer" TITLE "Prueba" SETUP ;
               ( oBrw:oWnd:bInit :=  { | o | ;
                    o:oBar:l2013 := .T., ;
                    o:oBar:l2010 := .F., ;
                    o:oBar:l2015 := .F., ;
                    o:oBar:aControls[ 5 ]:cTooltip  := o:oBar:aControls[ 9 ]:cToolTip, ;
                    o:oBar:aControls[ 5 ]:bAction   := o:oBar:aControls[ 9 ]:bAction, ;
                    o:oBar:aControls[ 5 ]:LoadBitmaps( FWBitmap( "Excel" ) ), ;
                    AEval( o:oBar:aControls, { | oBtt | oBtt:End() }, 6, 9 ), ; 
                    ASize( o:oBar:aControls, 5 ), ; 
                    AEval( o:oBar:aControls, { | oBtt | oBtt:Refresh() } ), ;
                    o:oBar:SetGradients(), ;
                    o:oBar:Refresh() ;
                  } )
RETURN nil

Code: Select all | Expand

// C:\FWH\SAMPLES\MURUGOS2.PRG

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL i

   REQUEST DBFCDX
   rddSetDefault( "DBFCDX" )

   SET DATE FRENCH
   SET CENTURY ON
   SET EPOCH TO Year( Date() ) - 40

   USE ..\SAMPLES\CUSTOMER NEW SHARED

   XBROWSER "CUSTOMER" TITLE "Prueba" SETUP                               ;
      ( oBrw:oWnd:bInit :=  {| o |                                        ;
        o:oBar:l2007 := .T.,                                              ;
        o:oBar:l2013 := .F.,                                              ;
        o:oBar:l2010 := .F.,                                              ;
        o:oBar:l2015 := .F.,                                              ;
        o:oBar:aControls[ 6 ]:Hide(),                                     ;
        o:oBar:aControls[ 7 ]:Hide(),                                     ;
        o:oBar:aControls[ 8 ]:Hide(),                                     ;
        o:oBar:aControls[ 9 ]:Hide(),                                     ;
        o:oBar:aControls[ 5 ]:cTooltip := o:oBar:aControls[ 9 ]:cToolTip, ;
        o:oBar:aControls[ 5 ]:bAction  := o:oBar:aControls[ 9 ]:bAction,  ;
        o:oBar:aControls[ 5 ]:LoadBitmaps( FWBitmap( "Excel" ) ),         ;
        AEval( o:oBar:aControls, {| oBtt | oBtt:End() }, 6, 9 ),          ;
        ASize( o:oBar:aControls, 5 ),                                     ;
        AEval( o:oBar:aControls, {| oBtt | oBtt:Refresh() } ),            ;
        o:oBar:SetGradients(),                                            ;
        o:oBar:Refresh()                                                  ;
      } )

RETURN NIL

// FIN / END

Code: Select all | Expand

#include "fivewin.ch"

FUNCTION Main()
     LOCAL i
     
     REQUEST DBFCDX
     RddSetDefault( "DBFCDX" )
     set DATE FRENCH
     SET CENTURY ON
     SET EPOCH TO Year( Date() ) - 40

     USE c:\fwh\amples\customer NEW SHARED
     
     XBROWSER "customer" TITLE "Prueba" SETUP ;
               ( oBrw:oWnd:bInit :=  { | o | ;
                    o:oBar:l2013 := .T., ;
                    o:oBar:l2010 := .F., ;
                    o:oBar:l2015 := .F., ;
                    o:oBar:aControls[ 5 ]:cTooltip  := o:oBar:aControls[ 9 ]:cToolTip, ;
                    o:oBar:aControls[ 5 ]:bAction   := o:oBar:aControls[ 9 ]:bAction, ;
                    o:oBar:aControls[ 5 ]:LoadBitmaps( FWBitmap( "Excel" ) ), ;
                    o:oBar:aControls[ 6 ]:cTooltip  := "Exit", ;
                    o:oBar:aControls[ 6 ]:bAction   := { | oBtt | oBtt:oWnd:oWnd:End() }, ;
                    o:oBar:aControls[ 6 ]:LoadBitmaps( FWBitmap( "exit2" ) ), ;  // close16
                    o:oBar:aControls[ 6 ]:lRight    := .T., ;
                    AEval( o:oBar:aControls, { | oBtt | oBtt:End() }, 7, 9 ), ; 
                    ASize( o:oBar:aControls, 6 ), ; 
                    AEval( o:oBar:aControls, { | oBtt | oBtt:Refresh() } ), ;
                    o:oBar:SetGradients(), ;
                    o:oBar:Refresh() ;
                  } )
RETURN nil

Code: Select all | Expand

// PARA DESLIGAR O OUTLOOK, SE ESTIVER ABERTO AINDA. Joao
   WaitRun( "CMD /C TASKKILL.EXE /IM OutLook.exe /F", 0 )

Code: Select all | Expand

// Método para verificar si Outlook está abierto
FUNCTION IsOutlookRunning()
    LOCAL hWnd
    
    // Buscar la ventana de Outlook
    hWnd := FindWindow("OlMainFrame", NIL)
    
    RETURN hWnd != 0

Code: Select all | Expand

FUNCTION CheckOutlookProcess()
    LOCAL aProcessList, lOutlookRunning := .F.
    LOCAL i

    // Obtener lista de procesos
    aProcessList := GetProcessList()
    
    // Recorrer procesos buscando Outlook
    FOR i := 1 TO LEN(aProcessList)
        IF UPPER(aProcessList[i]) == "OUTLOOK.EXE"
            lOutlookRunning := .T.
            EXIT
        ENDIF
    NEXT

    RETURN lOutlookRunning

Code: Select all | Expand

FUNCTION CheckOutlookProcess()
    LOCAL aProcessList, lOutlookRunning := .F.
    LOCAL i

    // Obtener lista de procesos
    aProcessList := GetProcessList()
    
    // Recorrer procesos buscando Outlook
    FOR i := 1 TO LEN(aProcessList)
        IF UPPER(aProcessList[i]) == "OUTLOOK.EXE"
            lOutlookRunning := .T.
            EXIT
        ENDIF
    NEXT

    RETURN lOutlookRunning

Code: Select all | Expand

// Método para verificar si Outlook está abierto
FUNCTION IsOutlookRunning()
    LOCAL hWnd
    
    // Buscar la ventana de Outlook
    hWnd := FindWindow("OlMainFrame", NIL)
    
    RETURN hWnd != 0

Code: Select all | Expand

Error: Unresolved external '_HB_FUN_GETPROCESSLIST' referenced from C:\ACBRREAL\
ACBRREAL.OBJ

Code: Select all | Expand

/*
* Verificar se um Exe esta sendo executado e podendo at‚ derruba-lo
* Parametros: _cExe, _nKill
* Retorno: Retorno - .t. se estiver rodando
*
* Autor: toya
*/

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL _cExe := "OutLook.exe", _nKill := 2, lOk

   lOk := EstaRodandoKillExe( _cExe, _nKill )

   ? lOk

RETURN NIL
// Is the executable running?
FUNCTION EstaRodandoKillExe( _cExe, _nKill )

   LOCAL Retorno := .F.
   LOCAL oScriptObj
   LOCAL oWmiService
   LOCAL oListaProcess
   LOCAL oProcessos

   hb_default( @_nKill, 0 )

   oScriptObj    := CREATEOBJECT( "wbemScripting.SwbemLocator" )
   oWmiService   := oScriptObj:ConnectServer()
   oListaProcess := oWmiService:ExecQuery( "select * from Win32_Process where Name='" + _cExe + "'" )

   FOR EACH oProcessos in oListaProcess

      Retorno := .T.

      IF _nKill == 2

         oProcessos:Terminate() // mata o _cEXE

      ENDIF

   NEXT

RETURN( Retorno )

FUNCTION hb_default( xVar, xValue ) // Only xHarbour

   IF ValType( xVar ) != ValType( xValue )

      xVar := xValue

   ENDIF

RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Code: Select all | Expand

 
     local hBorland := LoadLibrary( "BWCC.dll" )
     SET RESOURCES TO "autolay.dll"                  // Personal DLL

Code: Select all | Expand

CallDll32( "OpenComFiscal" , "WINFIS32.DLL" , nPort , 1 )

Code: Select all | Expand

  If File( "C:\SISTEMAS\DATA\BASE.DBF" ) 

Code: Select all | Expand

cQuery:= "SHOW TABLES FROM `"+tu_base_de_datos+"` LIKE 'nombre_de_la_tabla';"

Code: Select all | Expand

if oQuery:reccount()=0
  Fnct_CrearTablas()
endif

Code: Select all | Expand

   winges25.prg => EXPOR( 286 )

Code: Select all | Expand

// C:\FWH\SAMPLES\EXCELDBF.PRG

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL Archivo1, Archivo2
   LOCAL _cExe := "Excel.exe", _nKill := 2, lOk

   lOk := EstaRodandoKillExe( _cExe, _nKill )

   IF( lOk )
      // NADA A FAZER
   ELSE // FORCA SE NAO FUNCIONAR

      WaitRun( "CMD /C TASKKILL.EXE /IM Excel.exe /F", 0 )

   ENDIF

   Archivo1 := "C:\TMP\CUSTOMER.DBF"

   XLS2DBF( Archivo1 )

RETURN NIL

FUNCTION XLS2DBF( cDbfName )

   // Purpose: convert an Excel spreadsheet to a dBase III+ table
   // but does not leave Excel open
   LOCAL oExcel
   LOCAL oWorkBook, oSheet, oError

   TRY
      oExcel := TOleAuto():New( "Excel.Application" )

   CATCH

      TRY
         oExcel := CreateObject( "Excel.Application" )

      CATCH oError

         Alert( "ERROR! Excel not avialable. [" + Ole2TxtError()+ "]" + oError:description )

         RETURN NIL
      END

   END

   oWorkbook = oExcel:WorkBooks:Open( cDbfName )

   oSheet = oExcel:ActiveSheet

   oSheet:SaveAs( "C:\TMP\CUSTOMER.CSV",  6 ) // Segundo parâmetro informa o tipo de saída
   oSheet:SaveAs( "C:\TMP\CUSTOMER.XLS", 56 ) // Segundo parâmetro informa o tipo de saída

   oWorkBook:Close( .F. )

   oExcel:Quit()

   oSheet    := NIL
   oWorkBook := NIL
   oExcel    := NIL

RETURN  NIL
/*
* Verificar se um Exe est  sendo executado e podendo at‚ derruba-lo
* Parametros: _cExe, _nKill
* Retorno: Retorno - .t. se estiver rodando
*
* Autor: toya
*/
// Is the executable running? - 27/03/2025 - Thanks: Alessandro/Toya.
FUNCTION EstaRodandoKillExe( _cExe, _nKill )

   LOCAL Retorno := .F.
   LOCAL oScriptObj
   LOCAL oWmiService
   LOCAL oListaProcess
   LOCAL oProcessos

   hb_default( @_nKill, 0 )

   oScriptObj    := CREATEOBJECT( "wbemScripting.SwbemLocator" )
   oWmiService   := oScriptObj:ConnectServer()
   oListaProcess := oWmiService:ExecQuery( "select * from Win32_Process where Name='" + _cExe + "'" )

   FOR EACH oProcessos in oListaProcess

      Retorno := .T.

      IF _nKill == 2

         oProcessos:Terminate() // mata o _cEXE

      ENDIF

   NEXT

RETURN( Retorno )

FUNCTION hb_default( xVar, xValue ) // Only xHarbour

   IF ValType( xVar ) != ValType( xValue )

      xVar := xValue

   ENDIF

RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Code: Select all | Expand

/*
 *  TExcelScript():New()
 */
METHOD New() CLASS TExcelScript

/*
  ::oExcel := TOleAuto():New("Excel.Application")
  ::aExcelCols := {}

  ::oClip:=TClipBoard():New()
  ::oClip:Clear()
*/
	IF ( ::oExcel := win_oleCreateObject( "Excel.Application" ) ) != NIL
		::lOk := .T.
	ELSE
		ALERT( "Error: MS Excel not available. [" + win_oleErrorText()+ "]" )
	ENDIF

RETURN( Self )

Code: Select all | Expand

/*
 *  TExcelScript():HowSheet()
*/

METHOD HowSheet() CLASS TExcelScript
	LOCAL nSheets := ::oExcel:Sheets:Count()
	LOCAL i
	::aSheets := {}
	FOR i := 1 TO nSheets
		 aadd( ::aSheets , ::oExcel:Sheets:Item( i ):Name )
	NEXT
RETURN ( Nil )

METHOD NameSheet(cSheet,cName)        INLINE ::oExcel:Sheets(cSheet):Name := cName

Code: Select all | Expand

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oRadMenu, oBrush
   local nOption := 2

   DEFINE DIALOG oDlg RESOURCE "Radios"

   REDEFINE RADIO oRadMenu VAR nOption ID 110, 120, 130, 140, 150 OF oDlg ;
      ON CHANGE MsgBeep()

   REDEFINE BUTTON ID 100 OF oDlg ACTION oRadMenu:GoNext() ;
      WHEN nOption == 3

   REDEFINE BUTTON ID 102 OF oDlg ACTION oRadMenu:GoPrev()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oRadMenu:aItems[ 1 ]:SetColor( CLR_GREEN, RGB( 240, 240, 240 ) )

return nil

//----------------------------------------------------------------------------//

Code: Select all | Expand

	REPORT 	oReporte Title "Entrada : "+ENTRADAG->ID,"Fecha : "+Dtoc(ENTRADAG->FECHA),"Marca : "+AllTrim(ENTRADAG->NOMBRE)+"  "+IIF(!ENTRADAG->APLICA,">> ENTRADA SIN APLICAR AL INVENTARIO <<","") Left ;
 				Header AllTrim(EMPRESA->EMPRESA),"Sistema De Administracion","" Center ;
            Footer "Pagina # "+str(oReporte:nPage,3)+" -- "+"Fecha :"+Dtoc(Date())+" Hora : "+Time();            
            Font aLetras[31],aLetras[33],aLetras[52];
            Caption "Reportes Del Sistema de Administracion" Preview              
            Column Title "#"  			Data nRen__++ SIZE 4 PICTURE "999" SHADOW
				Column Title "Modelo"  		Data (cCrea)->MODELO SIZE 8	SHADOW
				Column Title "Color"  		Data (cCrea)->COLOR	SIZE 20	SHADOW
				FOR J := 1 TO LEN(bTallas)
					cDet := "(cCrea)->TALLA"+AllTrim(Str(J))
					cHea := '"'+AllTrim(bTallas[J])+'"'
					Column Title &cHea Data &cDet SIZE 8 TOTAL	SHADOW
				NEXT				
				Column Title "Total"  		Data (cCrea)->TOTAL	SIZE 6 TOTAL	SHADOW
  	ENDREPORT
	oReporte:cGrandTotal := "Totales ... "
	oReporte:lBoxOnTotal := .T.
	oReporte:lShadow := .T.
 	oReporte:lAutoLand := .F.
  	Activate Report oReporte ON STARTLINE AEval( oReporte:aColumns, { | o | o:lShadow := ! o:lShadow } )

Code: Select all | Expand

SetPrintDefault( cToPrinter )
PRINTER ::oPrn PREVIEW NAME 'SysCtrl ERP Report'

Code: Select all | Expand

	cPrint := RETORNA_SYSP("IMPRESORA_REPORTES")	
	PRINT oPrn TO cPrint		
	ENDPRINT

Code: Select all | Expand

// C:\FWH\SAMPLES\IMPVARIA.PRG

#include "FiveWin.ch"
#include "Objects.ch"
#include "report.ch"

#define RGB_BLACK      RGB(   0,  0,  0 )
#define RGB_RED        RGB( 255,  0,  0 )
#define RGB_GREEN      RGB(   0,255,  0 )
#define RGB_BLUE       RGB(   0,  0,255 )
#define RGB_CYAN       RGB(   0,255,255 )
#define RGB_YELLOW     RGB( 255,255,  0 )
#define RGB_MAGENTA    RGB( 255,  0,255 )
#define RGB_WHITE      RGB( 255,255,255 )
#define FW_DONTCARE    0
#define FW_THIN        100
#define FW_EXTRALIGHT  200
#define FW_LIGHT       300
#define FW_NORMAL      400
#define FW_MEDIUM      500
#define FW_SEMIBOLD    600
#define FW_BOLD        700
#define FW_EXTRABOLD   800
#define FW_HEAVY       900
#define DMPAPER_A4       9

STATIC oReport

FUNCTION Main()

   LOCAL oPrn, oPrint, oFnt, cPrinter := ""
   LOCAL oDlg, oBrw
   LOCAL aPrn := {}
   LOCAL cDef, i := 1

   SET _3DLOOK ON

   #ifdef __HARBOUR__  // GetPrinters() and GetDefaultPrinter() do not work in Harbour

      aPrn := aGetPrinters ()

      cDef := DefaultPrinter()

   #else // Harbour

      aPrn := GetPrinters ()

      cDef := GetDefaultPrinter()

   #endif

   IF Empty ( aPrn )

      MsgAlert ( "No Printers found" )

      RETURN NIL

   ENDIF

   DEFINE DIALOG oDlg FROM 2, 2 TO 21, 50 TITLE "Available Printers"

   @ 1, 2 LISTBOX oBrw FIELDS aPrn[ i ] ;
      HEADERS "Printer Array" ;
      FIELDSIZES 200 ;
      OF oDlg ;
      SIZE 100, 100

   oBrw:bGoTop    = { || i := 1 }
   oBrw:bGoBottom = { || i := Eval( oBrw:bLogicLen ) }
   oBrw:bSkip     = { | nWant, nOld | nOld := i, i += nWant, ;
      i := Max( 1, Min( i, Eval( oBrw:bLogicLen ) ) ), ;
      i - nOld }
   oBrw:bLogicLen = { || Len( aPrn ) }
   oBrw:cAlias    = "Array"                // Just put something

   @ 7.8, 2 SAY "Default printer: " + cDef

   @ 1, 20 BUTTON "Print (&FW)" OF oDlg ACTION TestCopias ( aPrn[i] )

   @ 2, 20 BUTTON "Print (&xH)" OF oDlg ACTION Test2 ( aPrn[i] )

   @ 3, 20 BUTTON "Print (&RP)" OF oDlg ACTION TestRPT ( aPrn[i] )

   @ 4, 20 BUTTON "&End       " OF oDlg ACTION( oDlg:End() )

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FUNCTION TestCopias( cPrn )  // Imprimir varias copias

   LOCAL nI, nCopias := 2

   // SetCopies
   FOR nI := 1 TO nCopias

      TestPrint( cPrn )

   NEXT

RETURN NIL

FUNCTION TestPrint( cPrn )

   LOCAL oFnt, oPrint, aPrn
   LOCAL cText := "Este é um texto de teste para impressão"

   aPrn := GetPrinters()

   PRINT oPrint NAME "Formulario" TO ( cPrn )

   DEFINE FONT oFnt NAME "ARIAL" SIZE 0, -14 OF oPrint

   // oPrint:SetCopies ( 2 ) // Nao funciona

   oPrint:SetLandscape()

   // oPrint:Setup ()   // check the settings

   PAGE

      oPrint:CmSay ( 1, 1, cText, oFnt )

   ENDPAGE

   ENDPRINT

   oFnt:End()

RETURN NIL

FUNCTION Test2 ( cPrn )

   LOCAL oPrinter
   LOCAL aFonts, cFont, nFont

   oPrinter           := Win32Prn():new( cPrn )      // Create printer object and configure print job
   oPrinter:landscape := .F.
   oPrinter:formType  := DMPAPER_A4
   oPrinter:copies    := 2  // <--- 2 copies !!

   IF ! oPrinter:create()                       // Create device context
      Alert( "Cannot create device context" )
      QUIT
   ENDIF

   IF ! oPrinter:startDoc( "xHarbour test page" )   // Create print job
      Alert( "Cannot create document" )
      QUIT
   ENDIF

   oPrinter:textOut( "Text in default font" )       // Text in fixed font
   oPrinter:bold( FW_EXTRABOLD )
   oPrinter:textOut( oPrinter:fontName )
   oPrinter:bold( FW_NORMAL )
   oPrinter:newLine()

   aFonts := oPrinter:getFonts()
   nFont  := AScan( aFonts, ;
      {|a| "ARIAL" $ Upper( a[1] ) } )
   cFont  := aFonts[nFont,1]

   oPrinter:setFont( cFont )                       // Text in proportional font
   oPrinter:textOut( "Text in Arial font" )
   oPrinter:bold( FW_EXTRABOLD )
   oPrinter:textOut( oPrinter:fontName )
   oPrinter:bold( FW_NORMAL )
   oPrinter:newLine()

   oPrinter:setColor( RGB_YELLOW, RGB_BLUE )    // Colored text
   oPrinter:textOut( "Yellow on Blue" )
   oPrinter:newLine()

   oPrinter:setPen( PS_DASH, 5, RGB_GREEN )    // Draw colored line across page

   oPrinter:line( oPrinter:posX, ;
   oPrinter:posY, ;
   oPrinter:rightMargin, ;
   oPrinter:posY  )

   oPrinter:endDoc()       // Send output to printer
   oPrinter:destroy()      // Release GDI device context

RETURN NIL

FUNCTION DefaultPrinter()

   LOCAL nPrn, nRet, sGetDefaultPrinter

   nRet := PrinterSetUp()

   nPrn := PrnGetName()

   IF( nRet # 0 )

      SetDefaultPrinter( PRNGETNAME() )

      sGetDefaultPrinter := GetDefaultPrinter()

      // ? PrnStatus( sGetDefaultPrinter )

      IF PrnStatus( sGetDefaultPrinter ) = 4096

         // Verifica se SPOOLER esta desligado e tenta liga-lo
         MsgRun( sGetDefaultPrinter +": "+isprint( GetDefaultPrinter() ) + ;
                         " ou Spooler Desligado.", "Status da Impressora", ;
                 {|| WinExec( "NET START SPOOLER", 7 ) } )

      ENDIF

      //? GetPrinter()

   ELSE

      MsgAlert ( "No Printers found" )

      RETURN( .F. )

   ENDIF

RETURN( sGetDefaultPrinter ) // NIL

FUNCTION TESTRPT()

   LOCAL oFont1, oFont2, aPrn, oPrn

   DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
   DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD

   USE Customer

   INDEX ON Customer->Last TO Customer
   SET INDEX TO Customer
   GO TOP

   aPrn := GetPrinters()

   IF Empty( aPrn ) // Empty( oPrn:hDC )
      MsgStop( "Nenhuma Impressora Encontrada", "Nenhuma Impressora Encontrada" )
      RETURN NIL
   ENDIF

   PRINTER oPrn PREVIEW MODAL // PARA TESTAR A IMPRESSORA ANTES DE IMPRIMIR

   IF EMPTY( oPrn:hDC ) // MODIFICADO EM: 05/05/2015 - Quebrou na Gilmaria.
      MsgInfo( "ALGUMA COISA OCORREU DE ERRADO COM A IMPRESSORA.", "LIGUE A IMPRESSORA." )
      oPrn:End()
      RETURN( .F. )
   ENDIF

   oPrn:End()

   REPORT oReport ;
      TITLE "*** LISTADO DE PRUEBA ***","",OemtoAnsi("FiveTech Software"),"" ;
      FONT oFont1, oFont2 ;
      HEADER "Fecha: "+dtoc(date()),"Hora:  "+time() ;
      FOOTER OemtoAnsi("P gina: ")+str(oReport:nPage,3) ;
      PREVIEW   // TO PRINTER

      oReport:oDevice:lPrvModal := .T. 
      oReport:oDevice:SetPage(9) //-> Formato A4

      COLUMN TITLE "ST" ;
          DATA Customer->State

      COLUMN TITLE "City" ;
          DATA Customer->City

      COLUMN TITLE "First Name","Last Name" ;
          DATA Customer->First, Customer->Last

      COLUMN TITLE "   Salary" ;
          DATA Customer->Salary ;
          PICTURE "9,999,999" ;
          SIZE 9 RIGHT ;
          TOTAL

      END REPORT

   ACTIVATE REPORT oReport ON STARTPAGE Datos()

RETURN NIL

Function Datos()

     local cText

     cText := "Ancho hoja    : "+str(oReport:nWidth)+CRLF
     cText += "Ancho listado : "+str(oReport:nRptWidth)+CRLF
     cText += "Margen Izquier: "+str(oReport:nLeftMargin)+CRLF
     cText += "Margen Derecho: "+str(oReport:nRightMargin)+CRLF
     cText += "Ancho del Font: "+str(oReport:aFont[1]:nWidth)+CRLF
     cText += "Alto del Font:  "+str(oReport:aFont[1]:nHeight)+CRLF
     cText += "Ancho Standard: "+str(oReport:nSeparator)+CRLF
     cText += "Ancho columna1: "+str(oReport:aColumns[1]:nWidth)+CRLF
     cText += "Ancho columna2: "+str(oReport:aColumns[2]:nWidth)+CRLF

RETURN NIL

// FIM

Code: Select all | Expand

#include "fivewin.ch"

REQUEST FWZEBRA  // required for barcodes

function Main()

   local oPrn, cText := "Texto a QR"

   PRINT oPrn
   PAGE
   @ 2,2 PRINT TO oPrn TEXT cText AS BARCODE TYPE "QR" SIZE 2,2 INCHES
   ENDPAGE
   ENDPRINT

return nil

Code: Select all | Expand

#-inc enable incremental build mode
-n -q0 -static -map

Code: Select all | Expand

// The example shows a typical scenario for GetSecret().
// The user must enter a password which is not displayed on
// the screen

   PROCEDURE Main
      LOCAL cPassword := Space(20)
      CLS
      SET CONFIRM ON

      cPassWord := ;
        GetSecret( cPassword, 10, 10, .T., "Enter your password: ")

      IF cPassWord <> "xHarbour"
         Alert( "Access denied" )
         QUIT
      ENDIF

      Alert( "Access granted" )
   RETURN