I have about 117 lines of codes to print different report on user selection (see below).
I was wondering if I can pass a field name in following
This field name will be my report name. Any help would be appreciated. This will help me to reduct the 55 lines of code to 3 lines of code.
ORIGINAL CODE
I was wondering if I can pass a field name in following
Code:
:Report.SaveAs("[COLOR="#FF0000"]FIELDNAME[/COLOR]", "PDF" .......)
ORIGINAL CODE
Code:
Dim pSet as p pSet.Concatenate=.F. pSet.HasWatermark=.F. pSet.MultilingualSupport=.T. pSet.EmbedFonts=.F. pSet.LinearizeForWeb=.T. pSet.Colors2GrayScale=.F. pSet.ConvertHyperlinks=.t. pSet.WatermarkType="Text" pSet.WatermarkText="D R A F T" pSet.WatermarkFontName="Times New Roman" pSet.WatermarkFontSize=172 pSet.WatermarkRotation=450 pSet.WatermarkColorHex="E8FED2" pSet.WatermarkHorizPos=120 pSet.WatermarkVertPos=-120 pSet.WatermarkOnTop=.F. pSet.WatermarkPDF="" pSet.Encrypt=.F. pSet.OwnerPassword="" pSet.UserPassword="" pSet.CanPrint=.T. pSet.CanModifyDocument=.T. pSet.CanCopy=.T. pSet.CanAddNotes=.T. pSet.Use128BitKey=.F. pSet.JpegQuality="No Compression" record_number = current_record_number() query.filter = "recno() = " + record_number query.order = "" dim reportName as c if thisisanewtest.value = "PTAG_GRP_01_RELR" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp1","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_02_RELR" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp2","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_03_RELR" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp3","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_04_RELR" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp4","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_04_SALE" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp4sale","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_01_SALE" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp1sale","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_02_SALE" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp2sale","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_03_SALE" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp3sale","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_01_SMAL" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptagsmallgrp1","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_02_SMAL" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptagsmallgrp2","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_01_SPC3" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp1spc","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_02_SPC3" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp2spc","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_03_SPC3" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("ptaglarge2pagesgrp3spc","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_04_LGSP" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("PTAG_GRP_04_LGSP","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_03_LGSP" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("PTAG_GRP_03_LGSP","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PPTAG_GRP_02_LGSP" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("PTAG_GRP_02_LGSP","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_01_LGSP" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("PTAG_GRP_01_LGSP","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_01_REGD" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("PTAG_GRP_01_REGD","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_02_REGD" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("PTAG_GRP_02_REGD","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_03_REGD" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("PTAG_GRP_03_REGD","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) else if thisisanewtest.value = "PTAG_GRP_04_REGD" then dir_create_recurse("K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(Vendor_code.value)) :Report.SaveAs("PPTAG_GRP_04_REGD","PDF",query.filter,query.order,"K:\PTAGS\\"+alltrim(ptag_category.value)+chr(92)+alltrim(ptag_sub_category.value)+chr(92)+alltrim(vendor_code.value)+chr(92)+alltrim(Vendor_Code.value)+"-"+alltrim(Family_Cd.value)+"-MAIN"+"-"+REMSPECIAL(main_table->PDFFILENAME)+".pdf",.T.,pSet) end if dim tbl as P tbl = table.current() tbl.change_begin() tbl.storepubby = api_getusername() tbl.storepubdate = now() tbl.change_end(.T.)
Comment