mod harbour PDF and PRINT

[Otto]

Hello,
today I made a report modul for my DOS Clipper Fibu (Accounting System) in mod Harbour.

Best regards
Otto

[Otto]

Code: Select all  Expand view

/*
****************************************************************************
*   Aplicacion: Test jQuery DataTable con Ajax para mod_harbour            *
*       Fuente: data1.prg                                                  *
*        Autor: Joaquim Ferrer Godoy                                       *
*       Inicio: 06-08-2019                                                 *
****************************************************************************
*/
function main()
   
    local   hData := {=>}   
    local hItem
   
    USE ( hb_GetEnv( "PRGPATH" ) + "/../data/aj.dbf" ) ALIAS "data" SHARED
    set order to tag ktonr
    hData['data'] := {}
   
    if rlock()
       
        do while !eof()
            hItem := {=>}   
            hItem['beldat']         := data->beldat
            hItem['konto']          :=  rtrim(data->ktonr)
            hItem['text']           := convertXML( data->text )
            if data->S_H = 1
                hItem['soll']       := data->betrag
                hItem['haben']      := 0
            else
                hItem['soll']       := 0
                hItem['haben']      := data->betrag
            endif
            hItem['gg_ktonr']       := data->gg_ktonr
           
            aadd( hData['data'], hItem )
            dbskip()
        enddo
        dbunlock()
    endif  
    CLOSE
   
    AP_SetContentType( "application/json" )
   
    ?? hb_jsonEncode( hData, .T. )  // T=pretty
   
return NIL

function convertXML( cVData )
    local I := 0
    *----------------------------------------------------------
   
    cVData  :=  STRTRAN(cVData, chr(228), "ä"   )
    cVData  :=  STRTRAN(cVData, chr(246), "ö"   )
    cVData  :=  STRTRAN(cVData, chr(252), "ü"   )
   
   
    cVData  :=  STRTRAN(cVData, chr(142), "Ä"   )
    cVData  :=  STRTRAN(cVData, chr(153), "Ö"   )
    cVData  :=  STRTRAN(cVData, chr(154), "Ü" )
   
    cVData  :=  STRTRAN(cVData, chr(223), "ß" )
   
return (cVData)




 

[Massimo Linossi]

Hi Otto.
Nice work, many compliments.
Is the saving to Excel working ? Because I've tried to convert a working function that opens a dbf and writes directly to Excel
files with ole but I receive an error with the oExcel:save command saying that the function is not found.
Thanks
Massimo

[Otto]

Hello Massimo,
for me it is working fine.
Best regards
Otto