object pal code

[reinaldo]

The pushbutton method below creates an answer table so that I may print my report. ("CigApp&quot

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

I have tried just about everything now and unfortunately everyone that responds, as greatful as I am, has not given me the solution.

Thank you

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

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

Action(DataPostRecord)

S=Phone

Q=Query

ANSWER: RIV: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&quot then
errorshow()
return
endif
Endif

endMethod

 

[JoeNg]

I am confused.
You stated you want s=Customer No
In your query, s=Phone!
So, which one is it?

 

[vtj]

I noticed that you put the "~s" in the Phone field not the Customer NO field. Would you let me know if this is just a typo because that will cause the program to fail. Is the Customer No a string or a number. If it is a number you will have to do a transform on the data or change the variable type.

VTJ

 

[Guest_imported]

OK. I think I've worked out what you are trying to do. Is Customer No a field on your form?. If so, then use the code like this :

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

if msgQuestion("Financial Designs DBS, Inc. ","Print Cigarette License?&quot ="Yes" then
Action(DataPostRecord)
S=Customer_No.value
Q=Query

ANSWER: RIV:ALLAPPS.DB

Customer.db | Customer No | Name | Trade Name | Street |
| Check _join1, ~S | Check | Check | Check |

Customer.db | Zip | Fax | Phone | Account Date |
| Check | Check | Check | 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&quot then
errorshow()
return
endif
Endif

endMethod