printing one letter for one client at a time

[SmartMLMer]

Hello,
I have twelve letters in the letter tab.
I need to print the current client only and one letter at a time.
And I can't figure out how to do this with a button which says print this letter for this person.
Thanks for any input on this.
Bruce

[Keith Hubert]

Re: printing one letter for one client at a time

Hi Bruce,

Not quite sure what you are asking.

You have 12 letters, do you want to send all 12 letters to one person, or, do you want to select one of the 12 letters, to send to one person?

Have you looked at Dialog Boxes?

[Gil Smith]

Re: printing one letter for one client at a time

Hi,

I am no expert but here is what I would do.
Put a button on the form and using Action Scripting instruct it to print a layout. On the next screen in the "Select Layout Type" select "Letter" from the drop down list. From the next drop down list select " Prompt at Runtime". On the next screen select " 8 Current Record Only". This option only appears if the letters are based on the current set.

NOw when you run the button it gives you a selection of your letters to choose from and it will print the selected letter for the record that has focus.

I hope that this makes sense and is some help to you,

Gil Smith
UK

[Stan Mathews]

Re: printing one letter for one client at a time

Bruce,

You need a button with 12 actions. Each action would be to print one of the letters for the current record. You will need to specify the letter when you set up the individual actions.

Another option would be to get the names of the letters (as was suggested to you in your previous post "printing specific letter") and process the whole list.

query.filter = ""
query.order = ""
auto_list_a_letters, = a5.Letter_enum(2)
temp_count = w_count(auto_list_a_letters,crlf())
for i = 1 to temp_count
:Letter.Print(word(auto_list_a_letters,i,crlf()),query.filter,query.order)
next i

[DaveM]

Re: printing one letter for one client at a time

Or You could do something like this on a button from a form. Sorry it is so long, but wanted you to see the end as well. When it is pressed, it gives a dropdown of all the different letters/reports/etc possible to print from the set and prints only one copy of only the one.

I had help from others when originally setting this up.

topparent.commit()'saves record
dim dopath as c
dopath = a5.Get_Exe_Path()
vmenuitems = <<%a%
Deal Work Sheet 'start of the menu
-------------------------------
Buyers Order|Buyer's Order    
Buyers Order|Buyer's Order Difference
Buyers Order|Buyer's Order Fill Form
Buyers Order|Buyer's Order Fill Form Difference
-------------------------------
GMAC Credit App
PayOff Sheet
Delivery Sheet for F&I
We Owe
Get Ready
Lemon Law
Trade Key Tags
Trade Buyer's Guide
Lease Return Sheet
Certified checklist
Certified Return
Internet Go Sheet
-------------------------------
Other|Rental Agreement
Other|GMS Form
Other|Satisfied Form
Other|Print Needed Vehicle Form
-------------------------------
Letters|Buyer's Birthday
Letters|Buyer's Birthday Envelope
Letters|CoBuyer's Birthday
Letters|CoBuyer's Birthday Envelope
Letters|Thanks for Purchase
Letters|Thanks Envelope
Letters|Christmas Card
Letters|Christmas Envelope
Letters|Bird Dog Letter
Letters|Thank You for Visit
Letters|Thank You for Visit Envelope   'end of the menu
%a%  'start of the actions as selected fro the menu
a_command = ui_popup_menu(vmenuitems)
select case
'=====================================================================================================
case a_command = "Internet Go Sheet"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("InternetGoSheet",query.filter,query.order)
'=====================================================================================================
case a_command = "Satisfied Form"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varC->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("Satified",query.filter,query.order)
'=====================================================================================================
case a_command = "Certified checklist"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("certifiedchecklist",query.filter,query.order)
'=====================================================================================================
case a_command = "Certified Return"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("certifiedreturn",query.filter,query.order)
'=====================================================================================================
case a_command = "Lease Return Sheet"
'Open a Form or Browse layout, displaying all, or selected records in the layout.
DIM Shared varP_leaseret as P
DIM layout_name as c 
layout_name = "leaseret"
DIM tempP as p
'Get pointer to existing window. In case layout_name is qualified with a dictionary name, extract up to first @. In case formname has spaces, normalize it
tempP=obj(":"+object_Name_normalize(word(layout_name,1,"@")))
'Test if pointer is valid
if is_object(tempP) then 
 'Test if pointer refers to a form or browse
 if tempP.class() = "form" .or. tempP.class() = "browse" then 
  'If so, then activate the already open window
  tempP.activate()
  tempP.new_record()
 else
  'Window is not already open, so open it
  varP_leaseret = :Form.view(layout_name)
  varP_leaseret.new_record()
 end if
else 
 varP_leaseret = :Form.view(layout_name)
 varP_leaseret.new_record()
end if
'=====================================================================================================
case a_command = "Thanks for Purchase"
'=====================================================================================================
case a_command = "Bird Dog Letter"
'=====================================================================================================
case a_command = "Christmas Card"
'=====================================================================================================
case a_command = "Christmas Card Envelope"
'=====================================================================================================
case a_command = "Thank You fo Visit"
'=====================================================================================================
case a_command = "Thank You for Visit Envelope"
'=====================================================================================================
case a_command ="Print Needed Vehicle Form"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("ProspectFindVehicle",query.filter,query.order)
'===================================================================================================
case a_command = "Buyer's Order"
 DIM SHARED theacct AS n
theacct = parentform:Acct.value
tbl=table.open("logs",FILE_RW_SHARED)
tbl.enter_begin()
tbl.date = date()
tbl.acct = var->theacct
tbl.Timing = time("0h:0m:sA")
tbl.user = var->scode
tbl.action = "Print Buyers Order"
tbl.enter_end(.t.)
table.close()
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("BuyOrder",query.filter,query.order)
'=================================================================================================
case a_command = "Buyer's Order Difference"
 DIM SHARED theacct AS n
theacct = parentform:Acct.value
tbl=table.open("logs",FILE_RW_SHARED)
tbl.enter_begin()
tbl.date = date()
tbl.acct = var->theacct
tbl.Timing = time("0h:0m:sA")
tbl.user = var->scode
tbl.action = "Print Buyers Order"
tbl.enter_end(.t.)
table.close()
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("BuyOrderDiff",query.filter,query.order)
'=================================================================================================
case a_command = "Buyer's Order Fill Form"
 DIM SHARED theacct AS n
theacct = parentform:Acct.value
tbl=table.open("logs",FILE_RW_SHARED)
tbl.enter_begin()
tbl.date = date()
tbl.acct = var->theacct
tbl.Timing = time("0h:0m:sA")
tbl.user = var->scode
tbl.action = "Print Buyers Order"
tbl.enter_end(.t.)
table.close()
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("BuyOrderfill",query.filter,query.order)
'=================================================================================================
case a_command = "Buyer's Order Fill Form Difference"
 DIM SHARED theacct AS n
theacct = parentform:Acct.value
tbl=table.open("logs",FILE_RW_SHARED)
tbl.enter_begin()
tbl.date = date()
tbl.acct = var->theacct
tbl.Timing = time("0h:0m:sA")
tbl.user = var->scode
tbl.action = "Print Buyers Order"
tbl.enter_end(.t.)
table.close()
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("BuyOrderfilldiff",query.filter,query.order)

'=================================================================================================
case a_command = "Deal Work Sheet"
DIM SHARED theacct AS n
theacct = parentform:Acct.value
tbl=table.open("logs",FILE_RW_SHARED)
tbl.enter_begin()
tbl.date = date()
tbl.acct = var->theacct
tbl.Timing = time("0h:0m:sA")
tbl.user = var->scode
tbl.action = "Print Offer to Purchase"
tbl.enter_end(.t.)
table.close()
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("OfferToPurchase",query.filter,query.order)
'=====================================================================================================
case a_command = "GMAC Credit App"
DIM SHARED theacct AS n
theacct = parentform:Acct.value
tbl=table.open("logs",FILE_RW_SHARED)
tbl.enter_begin()
tbl.date = date()
tbl.acct = var->theacct
tbl.Timing = time("0h:0m:sA")
tbl.user = var->scode
tbl.action = "Print credit App"
tbl.enter_end(.t.)
table.close()
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("GMACFinancial",query.filter,query.order)
'=====================================================================================================
case a_command = "PayOff Sheet"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Accttrade = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = "Tradenumb"
:Report.Print("PayOffSheet",query.filter,query.order)
'=====================================================================================================
case a_command = "Delivery Sheet for F&I"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("WorkOrder",query.filter,query.order)
'=====================================================================================================
case a_command = "We Owe"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("WeOwe1",query.filter,query.order)
'=====================================================================================================
case a_command = "Get Ready"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("GetReady",query.filter,query.order)
'=====================================================================================================
case a_command = "Lemon Law"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("LemonLaw",query.filter,query.order)
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("LemonLaw",query.filter,query.order)
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("LemonLaw",query.filter,query.order)
'=====================================================================================================
case a_command = "Trade Key Tags"
print:
current_record = alltrim(str(recno(),10,0))
:Report.print("Keytags","BETWEEN(RECNO(),"+ current_record+ "," + current_record+")")
goto cleanup
cleanup:
end
'=====================================================================================================
case a_command = "Trade Buyer's Guide"
dim flag_error as l
flag_error = .f.
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  'Set the Parameter variable to the object's .value property
  Parameter1 = eval("P:Acct.value")
 else    'Not in a Form. This is an error condition.
  flag_error = .t.
 end if 
else
 flag_error = .t.
end if 
if flag_error then 
 ui_msg_box("Error","You can only run this script from within a Form",UI_STOP_SYMBOL)
 end 
end if 
filter = "Accttrade = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("tradeBO",query.filter,query.order)
'=====================================================================================================
case a_command = "Rental Agreement"
current_record = alltrim(str(recno(),10,0))
:Report.print("eagleinsurance","BETWEEN(RECNO(),"+ current_record+ "," + current_record+")")
'=====================================================================================================
case a_command = "GMS Form"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("GMSForm",query.filter,query.order)
'=====================================================================================================
case a_command = "Buyer's Birthday"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("BthDCardBuyer1",query.filter,query.order)
'=====================================================================================================
case a_command = "Buyer's Birthday Envelope"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("SEnvelopebuyerbirthday",query.filter,query.order)
'=====================================================================================================
case a_command = "CoBuyer's Birthday"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("BthDCardCoBuyer1",query.filter,query.order)
'=====================================================================================================
case a_command = "CoBuyer's Birthday Envelope"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("smallenvelopecobuyer",query.filter,query.order)
'=====================================================================================================
case a_command = "Thanks Envelope"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("SEnvelope",query.filter,query.order)
'=====================================================================================================
case a_command = "Christmas Envelope"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("SEnvelope",query.filter,query.order)
'=====================================================================================================
case a_command = "Bird Dog Letter"
if is_object(topparent.this) then 
 p = topparent.this
 if p.class() = "Form" then 
  DELETE Parameter1 
  Parameter1 = eval("P:Acct.value")
 end if 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("BirdDogPrintOne",query.filter,query.order)
'=====================================================================================================
end select
'%code%

[SmartMLMer]

Re: printing one letter for one client at a time

It really isn't long - when I printed it out and was reading it the pages stopped before the end of the hallway.:)

Actually I will have to go through this but I believe I found the easiest way and that is just to put in a button for each letter and have it print only that one. It is easy, less chance of mistake and if something goes wrong I won't have much work to figure it out, which is one of my goals.

But thank you. I will look at this and do have one question. In putting something in like this, does one have to concern himself much with something going wrong in this realm? That is, as mentioned, one of my biggest concerns.

[Stan Mathews]

Re: printing one letter for one client at a time

In putting something in like this, does one have to concern himself much with something going wrong in this realm? That is, as mentioned, one of my biggest concerns.

If you design a new letter you have to add it to the code suggested - unlike much the same thing we discussed here.

[DaveM]

Re: printing one letter for one client at a time

Bruce,

It was like making a button to print a report/letter/etc and then copying the code to put in the "one" button and making a label for the use.

These operations change very little in my usage and I hate a row of buttons if I can avoid it. In your case, it would be 12 but mine is a lot more.

you may also have noticed, I rarely use the "letter", but prefer them in a report. I do use a couple of labels.

Also, i try to keep it simple for customer. Sometimes, it is not the simplest for me.

I think i was helped on this intially by Stan, Tom cone and a couple others.

They also helped me like you with the post Stan referenced that was for you.


.