Require an application to learn Fivewin

Board index FiveWin for Harbour/xHarbour Require an application to learn Fivewin

Posts: 24

Joined: Wed Oct 15, 2008 01:04 PM

Require an application to learn Fivewin
Posted: Sun Oct 11, 2009 10:56 AM

Dear All,

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

Item Entry
can import and save item photo (JPG) into record
can input unlimited item description
Customer Entry
Invocie Entry
header and detail format with use of xBrowse
with pop-up for lookup item or customer record
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
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
Use DBF to create temp files in local harddisk
Use third party ActiveX if needed
barcode printing
Excel-like pivot table and graph ploting
Multi-language for display
use of Resources
Scripts for generating EXE
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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Require an application to learn Fivewin
Posted: Sun Oct 11, 2009 04:02 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

sajith

Posts: 110

Joined: Wed Feb 18, 2009 09:58 AM

Re: Require an application to learn Fivewin
Posted: Mon Oct 12, 2009 01:07 PM

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

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Require an application to learn Fivewin
Posted: Mon Oct 12, 2009 04:03 PM

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

Posts: 110

Joined: Wed Feb 18, 2009 09:58 AM

Re: Require an application to learn Fivewin
Posted: Tue Oct 13, 2009 06:08 AM

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

Posts: 169

Joined: Mon Feb 25, 2008 02:42 AM

Re: Require an application to learn Fivewin
Posted: Tue Oct 13, 2009 06:41 AM

sajith wrote: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 [oSkAr]
4. Class RMChartX
and more...

please write me to private email xharbour@basepronet.com

regards
Fafi

sajith

Posts: 110

Joined: Wed Feb 18, 2009 09:58 AM

Re: Require an application to learn Fivewin
Posted: Tue Oct 13, 2009 07:17 AM

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

Posts: 169

Joined: Mon Feb 25, 2008 02:42 AM

Re: Require an application to learn Fivewin
Posted: Tue Oct 13, 2009 07:29 AM

Sajith..

Please.. search TClipPrt

viewtopic.php?f=3t=15630hilit=tclipprtstart=15

regards
fafi

&&&

sajith

Posts: 110

Joined: Wed Feb 18, 2009 09:58 AM

Re: Require an application to learn Fivewin
Posted: Tue Oct 13, 2009 07:50 AM

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 (fw): Select all Collapse

 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 (fw): Select all Collapse

//------------------------------------------------------------------------------
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

FiveTech Support Forums

Continue the discussion