Dilip Patel

Contributed works of Dilip Patel

Creditors

Very Basic Accounts keeping

Print one or four per page signage

Advertisements

MOL (Marek Olszewski)

Contributed samples by MOL (Marek Olszewski)

Backup-Restore

Billing System ( definable buttons )

Calculator

Copy To Clipboard

Deactivate menu

Debug Message

Download from www

EAN13 BarCode Generator

Filter in Browse

HMG with MS SQL server

Incremental Search in BROWSE 

Menu like ACHOICE

Moldruk (Print like DOS )

Set Status Bar Item

Send mails via SMTP

Using ProgressBar as a graph

SP_SL_COPIES

SL_COPIES()

  Short:
  ------
  SL_COPIES() Sets the laserjet to print n copies of each page

  Returns:
  --------
  cCode => control string to send to the printer

  Syntax:
  -------
  SL_COPIES(nCopies)

  Description:
  ------------
  Sets the laserjet to print <nCopies> copies of each
  page.

  Examples:
  ---------
   cCode := SL_COPIES(2)  // prints 2 or each page

   ?cCode

  Notes:
  -------
  Does not send anything to the printer - instead
  returns a control string that you send to the printer. String can be
  sent with ? or ?? or  QOUT() or QQOUT().

  For HP and compatible(PCL) Laserjet printers.

  Source:
  -------
  S_HPLAS.PRG

 

SP_SAPPOINT

SAPPOINT()

  Short:
  ------
  SAPPOINT() Appointments manager - uses popup calendar.

  Returns:
  --------
  nil

  Syntax:
  -------
  SAPPOINT()

  Description:
  ------------
  Presents a menu driven appointment manager, including
  the ability to print the day's appointments.

  Examples:
  ---------
   SAPPOINT()

  Notes:
  -------
  see SLSF_APPOINT() for setting the default
  APPOINTMENTS dbf to another location/name. Default is "APPOINT".

  Source:
  -------
  S_APPT.PRG

 

SP_S1LABEL

S1LABEL()

  Short:
  ------
  S1LABEL() Prints a single label

  Returns:
  --------
  Nothing

  Syntax:
  -------
  S1LABEL(cLblfile)

  Description:
  ------------
  Prints a single label (1 or more copies) for the
  current record, based on the dimensions and contents definitions in
  .LBL file name <cLblfile>. The dimensions and contents are
  figured, and then presented for printing and/or editing.

  Examples:
  ---------
   setkey(K_F10,{||S1LABEL("MAILING.LBL")} )
                      // sets key F10 to call this
                     // as a popup

  Source:
  -------
  S_1LABEL.PRG

 

SP_QUIKREPORT

QUIKREPORT()

  Short:
  ------
  QUIKREPORT() Runtime pre-defined report printing module

  Returns:
  --------
  Nothing

  Syntax:
  -------
  QUIKREPORT([cReportName])

  Description:
  ------------
  Presents a picklist of pre-defined reports and prints
  the selected one.

  [cReportName] name of the report to run - picklist is
  bypassed. For batches.

  Examples:
  ---------
   QUIKREPORT('Quarterly Hog Count')

  Warnings:
  ----------
  Requires DBF and indexes to be open

  Source:
  -------
  R_QUIKR.PRG