Invoice Format With Images

Discussion in 'Free Source Codes' started by Vishalsingh1176, Oct 15, 2022.

    

  1. Here is a sample of Sales Quotation Invoice Format with Images.

    Completed Invoice Formats with Images. Contact for Source Code : tech4vishal@gmail.com
    upload_2022-10-15_15-3-53.png upload_2022-10-15_15-5-54.png
     

    Attached Files:

    Last edited: Oct 19, 2022
    Rohit Khedar likes this.


  2. Rohit Khedar

    Rohit Khedar Member



  3. Ranjith M C

    Ranjith M C New Member


    [#Form:salescolor]
    Add:Button:print_image
    [#Form: Delivery Note Color]
    Add:Button:print_image




    [Button:print_image]
    Action:Call:view_details;;printedinvoice
    ;; Deli_Images
    Key:alt+5
    Title:"Print Images"


    [Variable:vch_mid]
    Type:String

    [System:Variable]
    vch_mid:""


    [Function:view_details]

    <InUse:Collection:CurrentLineItem>
    Variable : vCollectionToWalk : String : CurrentLineItem
    Variable:vch_mid:String
    Local Formula:conditions:($$IsSales:$VoucherTypeName) or ($$IsSalesOrder:$VoucherTypeName) or ($$IsDelNote:$VoucherTypeName) or ($$IsPurchase:$VoucherTypeName)
    ; 10: If: ($$IsSales:$$VoucherTypeName)
    20: WALK COLLECTION : ##vCollectionToWalk
    22: Set:vch_mid:IF @conditions THEN $$SPrintF:mad:@VCHMasterID:$MasterID ELSE ""
    24: End Walk
    28: Do If:not ($$IsEmpty:##vch_mid):print:Deli_Images
    ; 30: End If



    [Report:Deli_Images]
    Object:voucher:##vch_mid
    Form:Deli_Images



    [Form : Deli_Images]

    Delete : Parts
    Delete : Bottom Parts
    Delete : PageBreak
    Space Bottom: 0
    Space Left : 0.25 inch
    Space Right : 0
    add : Parts : pic_head,img_itempart




    ;[#Form: Comprehensive Invoice]
    ;
    ; Option: Global Invoice : @@IsSales
    ;
    ;[#Form: Simple Printed Invoice]
    ;
    ; Option: Global Invoice : @@IsSales
    ;
    ;[!Form : Global Invoice]
    ;
    ; Delete : Parts
    ; Delete : Bottom Parts
    ; Delete : PageBreak
    ; Space Bottom: 0
    ; Space Left : 0.25 inch
    ; Space Right : 0
    ; add : Parts : img_itempart
    ;


    [Part:pic_head]

    Line:pic_head

    [Line:pic_head]
    Field:name field
    Local:Field:name field:Set as:"ITEM DETAILS WITH IMAGE"
    Local:Field:name field:Full Width:Yes
    Local:Field:name field:Border:thin bottom

    [Part:img_itempart]



    Part:img_itempart1,img_itempart2,img_itempart3,img_itempart4
    ;; ,Part_2;;,Part_3,Part_4,Part_5
    Vertical:Yes
    ; Scroll:Both




    [Part:img_itempart2]
    Use:img_itempart1
    local:Field:field_for_variable:Set as:2
    local:part:item_img:Image:img_BMP2
    local:part:itemname:local:Line:line1:local:Field:item1:Set as:mad:@Item_name2
    local:part:itemname:local:Line:line1:local:Field:billed_qty:Set as:mad:@Item_qty2

    [Part:img_itempart3]
    Use:img_itempart1
    local:Field:field_for_variable:Set as:3
    local:part:item_img:Image:img_BMP3
    local:part:itemname:local:Line:line1:local:Field:item1:Set as:mad:@Item_name3
    local:part:itemname:local:Line:line1:local:Field:billed_qty:Set as:mad:@Item_qty3


    [Part:img_itempart4]
    Use:img_itempart1
    local:part:itemname:local:Line:line1:local:Field:item1:Set as:mad:@Item_name4
    local:part:itemname:local:Line:line1:local:Field:billed_qty:Set as:mad:@Item_qty4
    local:Field:field_for_variable:Set as:4
    local:part:item_img:Image:img_BMP4







    [Part: img_itempart1]
    Part:itemname,item_img
    Vertical:Yes
    ; Height:15% page
    [Part:itemname]
    Line:line1
    [Line:line1]
    Field:item1,field_for_variable,billed_qty


    [Field:billed_qty]
    Use:qtyfield
    Set as:mad:@Item_qty1


    [Field:item1]
    Use:namefield
    ; Set as:$$find_line_number
    Set as:mad:@Item_name
    ;; $$CollectionField:$stockitemname:1:inventoryentries


    [Field:field_for_variable]
    Use:namefield
    Set as:$$Line
    Modifies:var_for_LineNo
    Invisible:Yes


    [Variable:var_for_LineNo]
    Type:Number
    Default:1



    [Part:Item_img]
    Image : img_BMP
    Line:line1_new
    Vertical:Yes
    Scroll:Vertical

    Height:20 % page
    Width:20 % page

    [Line:line1_new]
    Field:line1_new,field_for_variable
    [Field:line1_new]
    Use:namefield

    [Resource: img_BMP]
    Source : @@img_path
    Resource Type : Jpeg


    [Resource: img_BMP2]
    Source : @@img_path2
    Resource Type : Jpeg

    [Resource: img_BMP3]
    Source : @@img_path3
    Resource Type : Jpeg


    [Resource: img_BMP4]
    Source : @@img_path4
    Resource Type : Jpeg


    [System:Formula]

    img_path4:mad:@img_location_path+"\"+$Item_name:StockItem:mad:@Item_name4;+@@jpg;$logo_path:stockitem:mad:@Item_name
    Item_name4:$$CollectionField:$stockitemname:4:inventoryentries


    img_path3:mad:@img_location_path+"\"+$Item_name:StockItem:mad:@Item_name3;+@@jpg;$logo_path:stockitem:mad:@Item_name
    Item_name3:$$CollectionField:$stockitemname:3:inventoryentries


    img_path2:mad:@img_location_path+"\"+$Item_name:StockItem:mad:@Item_name2;+@@jpg;$logo_path:stockitem:mad:@Item_name
    Item_name2:$$CollectionField:$stockitemname:2:inventoryentries


    img_path:mad:@img_location_path+"\"+$Item_name:StockItem:mad:@Item_name;+@@jpg;$logo_path:stockitem:mad:@Item_name
    Item_name:$$CollectionField:$stockitemname:1:inventoryentries



    Item_qty1:$$CollectionField:$billedqty:1:inventoryentries
    Item_qty2:$$CollectionField:$billedqty:2:inventoryentries
    Item_qty3:$$CollectionField:$billedqty:3:inventoryentries
    Item_qty4:$$CollectionField:$billedqty:4:inventoryentries





    Graph Type : $$LocaleString:mad:@path+$partno:StockItem:##StockItemName+@@jpg









    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Print Part completed

    ;
    ; [#Field: STKI PartNo]
    ;
    ; Use : Master Name Field
    ; Storage : PartNo
    ; Width : @@MediumWidth
    ; Style : if $$Line = 1 then "Large Bold" else "Normal"
    ; Delete : Validate
    ; Sub Form: ItemPic;:$$IsFileExists:$$LocaleString:($$LocaleString:$$SysInfo:CurrentPath+"\"+$$LocaleString:$CompanyNumber:Company:##SVCurrentCompany+"\Itempic\"+$partno+".jpg") AND (NOT $$IsEmpty:$PartNo)
    ;;*************************************************************************************************************
    ;[Report:ItemPic]
    ; Form:ItemPic
    ; [Form:ItemPic]
    ; Background:white
    ; Horizontal Align:Center
    ; Vertical Align:Center
    ; Parts:ItemPic
    ; bottom parts:ItemPic1
    ;; Height:15 cms
    ;; Width:15 cms
    ; [Part:ItemPic]
    ; Lines : ItemPic
    ; Graph Type : @@path+$partno+@@jpg
    ; [Line: ItemPic]
    ; Field : ItemPic
    ; [Field: ItemPic]
    ; Use:narration field
    ; Set as : ""
    ; Color:black
    ; [Part:ItemPic1]
    ; Horizontal Alignment:Right
    ; Vertical:No
    ; Lines : ItemPic1
    ; [Line: ItemPic1]
    ; Field : ItemPic1
    ; [Field: ItemPic1]
    ; Color:Blue
    ; Width:0
    ; Set as : "Enter to Continue"
    ; Style:normal bold
    ;

    ;***********************************************************************************************************
    [Report:ItemPic2]
    Form:ItemPic2
    [Form:ItemPic2]
    Background:white
    Horizontal Align:Center
    Vertical Align:Center
    Parts:ItemPic2
    bottom parts:ItemPic12
    Height:15 cms
    [Part:ItemPic2]
    Horizontal Align:Center
    Lines : ItemPic2
    Graph Type : $$LocaleString:mad:@img_location_path+"\"+$Item_name:StockItem:$StockItemName;+@@jpg;"C:\Users\Admin\Desktop\tally\Itempic\1234.jpg";$$LocaleString:$$SysInfo:CurrentPath+"\"+$$LocaleString:$CompanyNumber:Company:##SVCurrentCompany+"\Itempic\"+$partno:StockItem:$StockItemName+".jpg";


    [Line: ItemPic2]
    Field : ItemPic2

    [Field: ItemPic2]
    Use:name field
    Set as : ""
    Color:black


    [Part:ItemPic12]
    Horizontal Alignment:Right
    Vertical:No
    Lines : ItemPic12
    [Line: ItemPic12]
    Field : ItemPic12
    [Field: ItemPic12]
    Color:Blue
    ; Width:0
    Set as : "Enter to Continue"
    Style:normal bold
    ;****************************************************voucher_Print*******************************************************
    [#Field: VCH StockItem]

    Sub Form:ItemPic2:##ICFGAddlDesc AND NOT $$IsSysName:$$Value AND NOT $$IsExploded:EIDescExplosion AND @@IsInvoice ;:$$IsFileExists:$$LocaleString:($$LocaleString:$$SysInfo:CurrentPath+"\"+$$LocaleString:$CompanyNumber:Company:##SVCurrentCompany+"\Itempic\"+$partno:StockItem:$StockItemName+".jpg")








    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Report Picture*********************

    [#Form: Item Stock Query]

    Add:Button:ItemPic_stock_summary_details

    [Button: ItemPic_stock_summary_details]

    Title : $$LocaleString:"Item Picture"
    Key : alt + F6
    Action : Display :ItemPic_stock_summary_details

    [#Form: Stock Vouchers]

    Add:Button:ItemPic_stock_summary_details



    [Report:ItemPic_stock_summary_details]
    Form:ItemPic_stock_summary_details

    [Form:ItemPic_stock_summary_details]
    Background:white
    Horizontal Align:Center
    Vertical Align:Center
    Parts:ItemPic_stock_summary_details

    [Part:ItemPic_stock_summary_details]
    Lines : ItemPic_stock_summary_details
    Graph Type : @@img_location_path+"\"+$Item_name:StockItem:##StockItemName

    [Line: ItemPic_stock_summary_details]
    Field : ItemPic_stock_summary_details

    [Field: ItemPic_stock_summary_details]
    Use:name field
    Set as : ""
    Color:black



    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Image location





    [#Part: CMP TallyShopFeatures Left]

    Lines : Datalocation
    Local:Line:default:Space Top:3% page
    Local:Line:default:Local:Field:long prompt:Full Width:Yes






    [Line :Datalocation]
    Field: long Prompt,docl1
    Local:Field:long Prompt:Info:"Image Location :"
    Local:Field:long Prompt:Width:5 cms



    [Field : docl1]
    Use: name field
    Storage:img_location_path
    Width:10 cms
    Set as:$img_location_path

    ; Inactive : not #almaReceptiona;; or not @@printyesno
    ; Control :infotechmsg:mad:@SalesManCommissionk not equal to #keypassSalesMan ;;and $$InCreateMode;;$cmpautobkpschkey:Company:##SVCurrentCompany
    ;

    [System : Formula]
    ;
    img_location_path:$img_location_path:Company:##SVCurrentCompany ;+"\"
    ;




    [System:udf]
    img_location_path :String:1030


    ;;;;;;;;;;;;;;;;;;;Terms
     


  4. Rohit Khedar

    Rohit Khedar Member


    Hi @Ranjith M C hear image not print in invoice
     
    Last edited: Oct 20, 2022


  5. Mahesh Sethi

    Mahesh Sethi Member




    Hi Ranjith

    Can you pls give us your mail id or contact details for conversation.

    Thanks in advance

    Mani
     


  6. Rohit Khedar

    Rohit Khedar Member


    Hi @Ranjith M C hear image not print in invoice please solve this issue and repost
     


  7. Rohit Khedar

    Rohit Khedar Member


    any expert if have idea this type code so modify and repost so that we can celebrate diwali with this code. Happy Denali
     



  8. Dear @Ranjith M C, Please make a new thread & post your contents there for better clarity.
     


  9. Rohit Khedar

    Rohit Khedar Member


    Hi @Ranjith M C hear image notprint in invoice please solve this issue and repost
     


  10. Rohit Khedar

    Rohit Khedar Member


    Hi @Vishalsingh1176 sir you already this type post so please solved above code
     


  11. ErSunny

    ErSunny New Member


    @Vishalsingh1176 For this are you using 3rd party application ?? else you make whole invoice format in tally??????
     



  12. This setup is done using TDL only. Not 3rd party applications involved.
     



  13. Sir, the code you posted not at all matching with the invoice I shared. I recommend you to try first & then share your code.
     


  14. Rohit Khedar

    Rohit Khedar Member



  15. ErSunny

    ErSunny New Member


    Can you please share demo on my email. i.e bhambotas@gmail.com
     


Share This Page