Require an application to learn Fivewin

[Max HK]

Dear All,

I want to learn Fivewin and need a sample application with source codes. The application should include the following functions:

1. Item Entry
- can import and save item photo (JPG) into record
- can input unlimited item description

2. Customer Entry

3. Invocie Entry
- header and detail format with use of xBrowse
- with pop-up for lookup item or customer record

4. Invoice Printing
- with preview function
- can print graphic logo on invoice
- can print item photo on invoice
- can be saved in PDF format
- can be exported to Excel format

5. Database used
- Advantage database or just DBFCDX
- MySQL
- initially run under WinXP, then can run under Ubuntu Server
- Is ADS still alive? The latest version is 9.1 dated on 10 Dec 2008

6. Use DBF to create temp files in local harddisk

7. Use third party ActiveX if needed
- barcode printing
- Excel-like pivot table and graph ploting

8. Multi-language for display
- use of Resources

9. Scripts for generating EXE

10. If possible, the program can handle 2-byte character (Chinese) for input

In addition, what is the difference of Harbour and xHarbour? Which one is better?

If you are interested, please quote your price to wongtentwo@yahoo.com

Thanks.

[Antonio Linares]

Max,

Here we provide you a complete invoicing application developed with Harbour and FiveWin. Full source code is included,
use it to build your own applications:

http://www.fivetechsoft.com/files/Invoicing.zip

[sajith]

dear Antonio,1000 and 1000 of thanks for ur help

i really need a sample project having reports of all types(including Billing format type) with source code .
To generate report using Billing format is very difficult we have to adjust the space it is not up to the mark.
so pls help.

Regards,
sajith

[Otto]

I would suggest to use a reporting tool like FastReport ( viewtopic.php?f=3&t=16884&start=15#p87790 )or Easy Report.
Best regrads,
Otto

[sajith]

Dear Otto,many many thanks for ur suggestion
Fast report is a licensed version and costly too. i need a report software with free version .

regards,
sajith

[fafi]

Dear Otto,many many thanks for ur suggestion
Fast report is a licensed version and costly too. i need a report software with free version .

regards,
sajith

Hi ! Mr. Sajith...

Greeting from Indonesia..
you have to work hard...

Fivewin+xharbour+bcc55 can do everything...

I have done with them sinced 1998.. started with clipper+blinker

You can use free source code from the master Mr. Manuel Mercado :
1. TSBROWSE
2. TSBUTTON
3. TClipPrt < easy DOS printing )

from Mr. Lira Lira Oscar Joel [_]
4. Class RMChartX
and more...

please write me to private email xharbour@basepronet.com

regards
Fafi

[sajith]

Dear fafi,many thanks for ur reply and very nice to meet u

i need to build a "Bill format report " it is very difficult to
build a report of thistype.only by adjusting space we can do it but not up to the mark.
can u pls send a sample code to build a "Bill Format Report" vary urgent.


Regards,
sajith

[fafi]

Sajith..

Please.. search TClipPrt
viewtopic.php?f=3&t=15630&hilit=tclipprt&start=15

regards
fafi

[sajith]

Dear fafi,many thanks for ur reply

i have done a bill format report.but the "Header alignment "is not in right way.because of space adjustment.

Code: Select all  Expand view

 HEADER  "                                                                                ",;//problem "Header alignment "is not in right way.
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           "Name                   : "+ AllTrim(oRecSet:Fields( 'EmpName' ):Value) + Space(40+(12-Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))))     +"Designation        : " + oRecSet:Fields( 'Department' ):Value , ;
           Space(100),;
           "Mobile Bill           : " + AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value)) +Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-Len(AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value))))+ Space(52+(4-Len(AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value)))))      + "Mobile Allowence  : " +  AllTrim(Str(oRecSet:Fields( 'MobAllownce' ):Value)) ,;
           Space(100),;
           "Leave Days         : " + AllTrim(str(oRecSet:Fields('NoOfLeaves' ):Value))+Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-Len(AllTrim(str(oRecSet:Fields('NoOfLeaves' ):Value)))) + Space(52)+ "Leave DDN           : " + AllTrim(str(oRecSet:Fields('LossOffPayAmt' ):Value)),;
           Space(100),;
           "Date                     : " +AllTrim(DToC( oRecSet:Fields( 'PayDate' ):Value))+Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-(Len(AllTrim(DToC( oRecSet:Fields( 'PayDate' ):Value))))) + Space(43)+ "Account No         : " + AllTrim(oRecSet:Fields('AccountNo' ):Value);
    PREVIEW

 

Full Code view.

Code: Select all  Expand view

//------------------------------------------------------------------------------
FUNCTION GenEmpPaySlipBill(oRecSet,oDlg)
//------------------------------------------------------------------------------
   LOCAL cIniFile :="Ini\FontForRpt.INI"
   LOCAL oReport,oFont1, oFont2, oFont3, oPen1, oPen2,nTotal,oPrn
     DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,Val(AllTrim(GETPVPROFSTRING( "FONT(PaySlipBill)","FontSize" , "", cIniFile))) BOLD
     DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-17 BOLD
     DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12 BOLD
     DEFINE PEN oPen1 WIDTH Val(AllTrim(GETPVPROFSTRING( "PEN1","WIDTH" , "", cIniFile))) COLOR 12632256
     //DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA
     oPrn:=TPrinter():New()
 REPORT oReport ;
   TITLE  " "  ;
   CENTERED;
   FONT oFont1,oFont2  ;
   PEN oPen1 ;
   HEADER  "                                                                                ",;//problem "Header alignment "is not in right way.
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           Space(100),;
           "Name                   : "+ AllTrim(oRecSet:Fields( 'EmpName' ):Value) + Space(40+(12-Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))))     +"Designation        : " + oRecSet:Fields( 'Department' ):Value , ;
           Space(100),;
           "Mobile Bill           : " + AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value)) +Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-Len(AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value))))+ Space(52+(4-Len(AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value)))))      + "Mobile Allowence  : " +  AllTrim(Str(oRecSet:Fields( 'MobAllownce' ):Value)) ,;
           Space(100),;
           "Leave Days         : " + AllTrim(str(oRecSet:Fields('NoOfLeaves' ):Value))+Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-Len(AllTrim(str(oRecSet:Fields('NoOfLeaves' ):Value)))) + Space(52)+ "Leave DDN           : " + AllTrim(str(oRecSet:Fields('LossOffPayAmt' ):Value)),;
           Space(100),;
           "Date                     : " +AllTrim(DToC( oRecSet:Fields( 'PayDate' ):Value))+Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-(Len(AllTrim(DToC( oRecSet:Fields( 'PayDate' ):Value))))) + Space(43)+ "Account No         : " + AllTrim(oRecSet:Fields('AccountNo' ):Value);
    PREVIEW


    COLUMN TITLE 'PARTICULARS'     DATA "" CENTER  SIZE 30   GRID
    COLUMN TITLE 'EARNINGS'        DATA oRecSet:Fields('BasicSalary' ):Value,;
                                     oRecSet:Fields('Incentives' ):Value,;
                                     oRecSet:Fields('TAAmt' ):Value ,;
                                     oRecSet:Fields('DAAmt' ):Value ,;
                                     oRecSet:Fields('HRAAmt' ):Value ,;
                                     oRecSet:Fields('OtherAdditions' ):Value ,;
                                     "-",;
                                     "-",;
                                     "-",;
                                     "-",;
                                     "-",;
                                     "-",;
                                     "-",;
                                     "-"  TOTAL SIZE 15 CENTER  GRID
   COLUMN TITLE 'DEDUCTIONS'   DATA  "-" ,;
                                     "-",;
                                     "-",;
                                     "-",;
                                     "-",;
                                     "-",;
                                     oRecSet:Fields( 'TaxAmount' ):Value,;
                                     oRecSet:Fields( 'PFAmount' ):Value,;
                                     oRecSet:Fields( 'PfArrers' ):Value,;
                                     oRecSet:Fields( 'SalaryAdvance' ):Value,;
                                     oRecSet:Fields( 'MobileRecovery' ):Value,;
                                     oRecSet:Fields( 'LossOffPayAmt' ):Value,;
                                     oRecSet:Fields( 'InsuranceAmt' ):Value,;
                                     oRecSet:Fields( 'OtherDeduction' ):Value TOTAL SIZE 15 CENTER GRID

        oReport:SetTxtColor(nRGB(0,0,0),1)
        oReport:lSeparator := .T.
        oReport:CELLVIEW()
        nTotal:=(oRecSet:Fields('BasicSalary' ):Value+oRecSet:Fields('Incentives' ):Value+oRecSet:Fields('TAAmt' ):Value+;
                 oRecSet:Fields('DAAmt' ):Value+oRecSet:Fields('HRAAmt' ):Value+;
                 oRecSet:Fields('OtherAdditions' ):Value)-;
                ( oRecSet:Fields( 'TaxAmount' ):Value+oRecSet:Fields( 'PFAmount' ):Value+;
                  oRecSet:Fields( 'PfArrers' ):Value+   oRecSet:Fields( 'SalaryAdvance' ):Value+;
                  oRecSet:Fields( 'MobileRecovery' ):Value+oRecSet:Fields('LossOffPayAmt' ):Value+;
                  oRecSet:Fields( 'InsuranceAmt' ):Value+oRecSet:Fields( 'OtherDeduction' ):Value)


        oReport:SayBitmap(0.1, oReport:PhyWidth() - 2.2, "Icons\rptlogo.bmp", 2, 0.6)
        nHorz := oPrn:nHorzRes()
        nVert := oPrn:nVertRes()
       // oReport:aFont[1]:ninpWidth=10
       // oReport:aFont[1]:ninpHeight=20
        oReport:nTopMargin:=18
     END REPORT

 oReport:bSkip := { || oRecSet:MoveNext() }
 oReport:bPostGroup:={|| oReport:newLine() }
 oRecSet:MoveFirst()
 oReport:bPostPage :={|| Print( oReport,nTotal ) }

 ACTIVATE REPORT oReport WHILE ( ! oRecSet:Eof());
       ON init(oReport:Say(0,"Basic Salary",,,oReport:nRow),;
           oReport:Say(0,"Incentives",,,oReport:nRow+ oReport:afont[1]:nInpHeight),;
           oReport:Say(10,"Travelling Allowence",,,oReport:nRow+(oReport:afont[1]:nInpHeight*2)),oReport:Say(10,"DA",,,oReport:nRow+(oReport:afont[1]:nInpHeight*3)),;
           oReport:Say(10,"HRA",,,oReport:nRow+(oReport:afont[1]:nInpHeight*4)) ,oReport:Say(10,"Other Additions",,,oReport:nRow+(oReport:afont[1]:nInpHeight*5)) ,;
           oReport:Say(10,"Income Tax",,,oReport:nRow+(oReport:afont[1]:nInpHeight*6)),;
           oReport:Say(10,"Provident Fund",,,oReport:nRow+(oReport:afont[1]:nInpHeight*7)),oReport:Say(10,"Provident Fund Arrers",,,oReport:nRow+(oReport:afont[1]:nInpHeight*8)),;
           oReport:Say(10,"Salary Advance",,,oReport:nRow+(oReport:afont[1]:nInpHeight*9)),oReport:Say(10,"Mobile Recovery",,,oReport:nRow+(oReport:afont[1]:nInpHeight*10)),;
           oReport:Say(10,"Loss of Pay Amount",,,oReport:nRow+(oReport:afont[1]:nInpHeight*11)),oReport:Say(10,"Insurance Amount",,,oReport:nRow+(oReport:afont[1]:nInpHeight*12)),;
           oReport:Say(10,"Other Deduction",,,oReport:nRow+(oReport:afont[1]:nInpHeight*13)),oReport:SayBitmap(1.7,1, "Icons\RegLogo1.bmp",1.2,0.5),;
           oReport:Say(15,"                            xxxxxxxxxxx(India) Pvt Ltd",2,,oReport:nTitleUpLine + (oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight)),;
           oReport:newline(),oReport:Say(25,"                                           xxxxxx",2,,oReport:nTitleUpLine + (oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight)) )
oRecSet:MoveFirst()

  oDlg:END()
  oFont1:END()
  oFont2:END()
  oFont3:END()


RETURN Nil