Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

form code 1

Status
Not open for further replies.

reinaldo

Programmer
Mar 29, 2001
31
US
The pushbutton method below creates an answer table so that I may print my report. ("CigApp")

I would like the Customer No field to be the string field (S String) unfortunately when I use the tidle on Customer No and put s=Customer No on my code it does not work.

Is this because the Customer No field is joined, if so how can I make it work? PDOXWIN 9

Thank you
reinaldov@home.com

method pushButton(var eventInfo Event)
Var
R Report
Q Query
S String
poi PrinterOptionInfo
endvar

if msgQuestion("Financial Designs DBS, Inc. ","Print Cigarette License?") ="Yes" then

Action(DataPostRecord)

s=Phone

Q=Query

ANSWER: :pRIV:ALLAPPS.DB

Customer.db | Customer No | Name | Trade Name | Street |
| Check _join1 | Check | Check | Check |

Customer.db | Zip | Fax | Phone | Account Date |
| Check | Check | Check~s | Check |

Customer.db | State ID No | Food Stamp No | Term |
| Check | Check | Check |

Customer.db | Nature of Business | Status | Date of Inc. |
| Check | Check | Check |

Customer.db | Account No | Route | BankTel |
| Check | Check | Check |


Allclien.db | Customer No | SS# | Names | Last Name |
| _join1 | Check | Check | Check |

Allclien.db | State | Zip | Tel | DOB |
| Check | Check | Check | Check |

Allclien.db | Title |
| Check Not Contact, Not Wife, Not Husband |

EndQuery

if not executeQBE(q) then
return
endif

poi.papersize = prnLetter
poi.orientation = prnPortrait
printersetoptions(poi)

if not r.print("CigApp") then
errorshow()
return
endif
Endif

endMethod
 
try s = "customer no" also make sure that your var is the same case as you declared it.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top