I am wanting to put a calculated image field on report? Is it possible?
Any sample code?
Any sample code?
Alpha Software Mobile Development Tools: Alpha Anywhere | Alpha TransForm |
dim filename as C dim newfilename as C dim name_ext as C dim defdir as C = "L:\PRODUCTIMAGES" filename = ui_get_file("Select File", "jpg(*.jpg)", defdir +"\*.*") dir_create_recurse("L:\PRODUCTIMAGES\\"+alltrim(imagecat.value)+"\\"+alltrim(imagesubcat.value)+"\\"+alltrim(vendor.value)+"\\"+alltrim(Famiily.value)) newfilename = "L:\PRODUCTIMAGES\\"+alltrim(imagecat.value)+chr(92)+alltrim(imagesubcat.value)+chr(92)+alltrim(vendor.value)+chr(92)+alltrim(Famiily.value)+chr(92)+trim(imagesku.value)+"_1.jpg" file.copy(filename,newfilename) name_ext = file.filename_parse(newfilename,"NE") record_number = current_record_number() query.filter = "recno() = " + record_number query.order = "" dim tbl as P tbl_src= table.current(1) tbl_dest = table.open("productimages") tbl_dest.delete_range("Productimagename="+quote(name_ext)) tbl_dest.enter_begin() tbl_dest.id = imageid.value tbl_dest.Productimagename = name_ext tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close()
dim tbl as P tbl_dest = table.current(1) tbl_dest.enter_begin() tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close()
dim filename as C dim newfilename as C dim name_ext as C dim defdir as C = "L:\PRODUCTIMAGES" filename = ui_get_file("Select File", "jpg(*.jpg)", defdir +"\*.*") dir_create_recurse("L:\PRODUCTIMAGES\\"+alltrim(imagecat.value)+"\\"+alltrim(imagesubcat.value)+"\\"+alltrim(vendor.value)+"\\"+alltrim(Famiily.value)) newfilename = "L:\PRODUCTIMAGES\\"+alltrim(imagecat.value)+chr(92)+alltrim(imagesubcat.value)+chr(92)+alltrim(vendor.value)+chr(92)+alltrim(Famiily.value)+chr(92)+trim(imagesku.value)+"_1.jpg" file.copy(filename,newfilename) name_ext = file.filename_parse(newfilename,"NE") record_number = current_record_number() query.filter = "recno() = " + record_number query.order = "" dim tbl as P tbl_src= table.current(1) tbl_dest = table.open("productimages") tbl_dest.delete_range("Productimagename="+quote(name_ext)) tbl_dest.enter_begin() tbl_dest.id = imageid.value tbl_dest.Productimagename = name_ext tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close() [COLOR="#FF0000"]dim tbl as P (This is parent table that is already open). tbl_dest = table.current(1) tbl_dest.enter_begin() tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close()[/COLOR]
'Date Created: 14-Jan-2013 04:06:15 PM 'Last Updated: 27-Feb-2013 12:26:54 PM dim filename as C dim newfilename as C dim name_ext as C dim defdir as C = "L:\PRODUCTIMAGES" filename = ui_get_file("Select File", "jpg(*.jpg)", defdir +"\*.*") dir_create_recurse("L:\PRODUCTIMAGES\\"+alltrim(imagecat.value)+"\\"+alltrim(imagesubcat.value)+"\\"+alltrim(vendor.value)+"\\"+alltrim(Famiily.value)) newfilename = "L:\PRODUCTIMAGES\\"+alltrim(imagecat.value)+chr(92)+alltrim(imagesubcat.value)+chr(92)+alltrim(vendor.value)+chr(92)+alltrim(Famiily.value)+chr(92)+trim(imagesku.value)+"_1.jpg" file.copy(filename,newfilename) name_ext = file.filename_parse(newfilename,"NE") record_number = current_record_number() query.filter = "recno() = " + record_number query.order = "" dim tbl as P tbl_src= table.current(1) tbl_dest = table.open("productimages") tbl_dest1 = table.open("merchandisedetails") tbl_dest.delete_range("Productimagename="+quote(name_ext)) tbl_dest.enter_begin() tbl_dest.id = imageid.value tbl_dest.Productimagename = name_ext tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close() tbl_dest1.change_begin() tbl_dest1.Pimage = image_filename_encode(newfilename) tbl_dest1.change_end(.T.) tbl_dest1.close()
dim tbl as P [COLOR="#0000FF"][/COLOR][COLOR="#0000CD"]'unneeded line, tbl pointer is not used anywhere[/COLOR] tbl_src= table.current(1) [COLOR="#0000FF"]'unneeded line, tbl_src pointer is not used anywhere[/COLOR] tbl_dest = table.open("productimages") tbl_dest.delete_range("Productimagename="+quote(name_ext)) tbl_dest.enter_begin() tbl_dest.id = imageid.value tbl_dest.Productimagename = name_ext tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close() dim tbl as P (This is parent table that is already open). [COLOR="#0000FF"]'unneeded line, tbl_src pointer is not used anywhere and comment is not commented out[/COLOR] tbl_dest = table.current(1) tbl_dest.enter_begin() [COLOR="#0000FF"]'do you want to enter a record or change the current record? this enters a new one[/COLOR] tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close()
tbl_src= table.current(1) tbl_dest = table.open("productimages") tbl_dest1 = table.open("merchandisedetails") tbl_dest.delete_range("Productimagename="+quote(name_ext)) tbl_dest.enter_begin() tbl_dest.id = imageid.value tbl_dest.Productimagename = name_ext tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close() [COLOR="#FF0000"]tbl_dest1.change_begin() [COLOR="#0000FF"]This only changes the 1st reocord. I need to match the id. [/COLOR] tbl_dest1.Pimage = image_filename_encode(newfilename) tbl_dest1.change_end(.T.) tbl_dest1.close()[/COLOR]
tbl_src= table.current(1) tbl_dest = table.open("productimages") tbl_dest1 = table.current([COLOR="#FF0000"]2[/COLOR]) tbl_dest.delete_range("Productimagename="+quote(name_ext)) tbl_dest.enter_begin() tbl_dest.id = imageid.value tbl_dest.Productimagename = name_ext tbl_dest.Productimageindv = image_filename_encode(newfilename) tbl_dest.enter_end(.T.) tbl_dest.close() tbl_dest1.change_begin() tbl_dest1.Pimage = image_filename_encode(newfilename) tbl_dest1.change_end(.T.)
Comment