topic-37699

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

mod harbour PDF and PRINT
Posted: Fri Aug 30, 2019 10:07 PM

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

Best regards
Otto

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: mod harbour PDF and PRINT
Posted: Fri Aug 30, 2019 10:08 PM

Code (fw): Select all Collapse

/*
****************************************************************************
*   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), "&auml;"   )
    cVData  :=  STRTRAN(cVData, chr(246), "&ouml;"   )
    cVData  :=  STRTRAN(cVData, chr(252), "&uuml;"   )
    
    
    cVData  :=  STRTRAN(cVData, chr(142), "&Auml;"   )
    cVData  :=  STRTRAN(cVData, chr(153), "&Ouml;"   )
    cVData  :=  STRTRAN(cVData, chr(154), "&Uuml;" )
    
    cVData  :=  STRTRAN(cVData, chr(223), "&szlig;" )
    
return (cVData)

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: mod harbour PDF and PRINT
Posted: Sat Aug 31, 2019 12:12 AM

Otto:

Nice job, Congratulations ! :shock:

Regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion