Gate Pass

Discussion in 'Free Source Codes' started by Dhrupal Gorasiya, Jan 1, 2015.

    

  1. ;;Program By : DG

    ;;Sri Ganeshji ;;Srinathji

    [Style: MyStyleGat]
    Font: Courier
    Height: 25
    Bold:Yes

    [#Form : Sales Color]
    Add : Print : GatePass

    [Report: GatePass]
    Use : Voucher
    PrintSet : Report SubTitle : " "
    PrintSet : SVPrintCopies : 1
    Delete : Print : VCHPrintConfigure
    Delete : Set
    Form : GatePass

    [Form : GatePass]
    Parts : GatePassTopPart,GatePassTopPart1,GatePassTopPart2,GatePassBodyPart,GatePassLastPart
    Width : 240 mm
    Height : 320 mm
    Space left : 20 mm
    Space Top : 20 mm

    ;;-----------------------------------------------------------------------------------------------------------------------
    [Part : GatePassTopPart]
    Line : GatePassTopPartLine
    Height : 15 mm
    Width : 220 mm

    [Line : GatePassTopPartLine]
    Space Top : 3 mm
    Fields : GatePassTopPartLineField
    Right Field: GatePassTopPartLine1F3

    [Field : GatePassTopPartLineField]
    Set as : "My Gate"
    Style : MyStyleGat
    Full Width : Yes
    Align : Center

    [Field : GatePassTopPartLine1F3]
    Set as : @MyIndianTSet
    Style :normal bold
    Align :center
    Width: 25 MM
    MyIndianTSet :if $$SetNo = 1 then "(Original) " else +
    if $$SetNo = 2 then "(Duplicate)" else +
    if $$SetNo = 3 then "(Triplicate) " else +
    "(Extra) "
    ;;=======================================================================================================================
    [Part : GatePassTopPart1]
    Left Part : GatePassTopPartin1.1
    Right Part : GatePassTopPartin1,GatePassTopPartin2
    Height : 28 mm
    Width : 220 mm
    Border : Thin Cover

    [Part:GatePassTopPartin1.1]
    Line : OurproductLineChem1
    Width : 35 mm
    Height : 20 mm
    Space Top : 5 mm
    Space Left : 5 mm
    Image : OurproductImageChem1

    [Resource: OurproductImageChem1]
    Source : "http://tdlexperts.com/venus.jpg"
    Resource Type : jpeg

    [Line: OurproductLineChem1]
    Field: OurProductChem1

    [Field: OurProductChem1]
    Set as: ""
    Space Left : 5 mm

    [Part:GatePassTopPartin1]
    Line : OurproductLineChem1.1
    Width : 30 mm
    Height : 19 mm
    Space Top : 5 mm
    Space Left : 5 mm
    Space Right: 5 mm
    Image : OurproductImageChem1.1

    [Resource: OurproductImageChem1.1]
    Source : "http://tdlexperts.com/venus.jpg"
    Resource Type : jpeg

    [Line: OurproductLineChem1.1]
    Field: OurProductChem1.1

    [Field: OurProductChem1.1]
    Set as: ""
    Space Left : 5 mm

    [Part:GatePassTopPartin2]
    Line : GatePassTopPartin2L1,GatePassTopPartin2L2
    Height : 28 mm
    Width : 110 mm
    Border : Thin Left

    [Line : GatePassTopPartin2L1]
    Field : GatePassTopPartin2L1F1
    Border : Thin Bottom
    Space Top : 5 mm

    [Field : GatePassTopPartin2L1F1]
    Set as : "GATE PASS"
    Style : MyStyleGat
    Align : Center
    Full Width: yes

    [Line : GatePassTopPartin2L2]
    Field : GatePassTopPartin2L2F1,GatePassTopPartin2L2F2,GatePassTopPartin2L2F3,GatePassTopPartin2L2F4
    Border : Thin Bottom
    Height : 9 MM
    Space Top: 3 mm

    [Field : GatePassTopPartin2L2F1]
    Set as : "Invoice No.:"
    Style : Large Bold
    Width : 40 mm
    Space Left : 5 mm

    [Field : GatePassTopPartin2L2F2]
    Set as : $VoucherNumber
    Style : Large
    Width : 30 mm

    [Field : GatePassTopPartin2L2F3]
    Set as : "Date. :"
    Style : Large Bold
    Width : 30 mm

    [Field : GatePassTopPartin2L2F4]
    Set as : $Date
    Style : Large
    Width : 30 mm

    ;;=======================================================================================================================
    [Part : GatePassTopPart2]
    Left Part : GatePassTopPart2Innr
    Right Part : GatePassTopPart2Innr1
    Height : 40 mm
    Width : 220 mm
    Border : Thin Left Right

    [Part : GatePassTopPart2Innr]
    Line : GatePassTopPart2InnrL1,GatePassTopPart2InnrL2,GatePassTopPart2InnrL3,GatePassTopPart2InnrL4,GatePassTopPart2InnrL5
    Height : 40 mm
    Width : 65 mm

    [Line : GatePassTopPart2InnrL1]
    Field : GatePassTopPart2InnrL1F1
    Space Top : 5 mm

    [Field : GatePassTopPart2InnrL1F1]
    Set as : "My Company LIMITED"
    Style : Large Bold
    Full Width: yes

    [Line : GatePassTopPart2InnrL2]
    Field : GatePassTopPart2InnrL2F1
    Space Top : 2 mm

    [Field : GatePassTopPart2InnrL2F1]
    Set as : "Plot No. 58,"
    Style : Normal
    Width : 65 mm

    [Line : GatePassTopPart2InnrL3]
    Field : GatePassTopPart2InnrL3F1

    [Field : GatePassTopPart2InnrL3F1]
    Set as : "Industrial Area,"
    Style : Normal
    Width : 65 mm

    [Line : GatePassTopPart2InnrL4]
    Field : GatePassTopPart2InnrL4F1

    [Field : GatePassTopPart2InnrL4F1]
    Set as : ""
    Style : Normal
    Width : 65 mm

    [Line : GatePassTopPart2InnrL5]
    Field : GatePassTopPart2InnrL5F1

    [Field : GatePassTopPart2InnrL5F1]
    Set as : ""
    Style : Normal
    Width : 65 mm

    [Part : GatePassTopPart2Innr1]
    Line : GatePassTopPart2Innr1L1,GatePassTopPart2Innr1L2
    Bottom Line: GatePassTopPart2Innr1L3,GatePassTopPart2Innr1L4,GatePassTopPart2Innr1L5,GatePassTopPart2Innr1L6
    Height : 40 mm
    Width : 130 mm
    Border : Thin Left
    Repeat : GatePassTopPart2Innr1L2:Address

    [Line : GatePassTopPart2Innr1L1]
    Field : GatePassTopPart2Innr1L1F1,GatePassTopPart2Innr1L1F2

    [Field : GatePassTopPart2Innr1L1F1]
    Set as : "To ,"
    Style : Large Bold
    Width : 10 mm

    [Field : GatePassTopPart2Innr1L1F2]
    Set as : $PartyName
    Style : Large Bold
    Width : 100 mm

    [Line : GatePassTopPart2Innr1L2]
    Field : GatePassTopPart2Innr1L2F1

    [Field : GatePassTopPart2Innr1L2F1]
    Set as : $Address
    Style : Normal
    Space Left : 10 mm
    Width : Width : 100 mm

    [Line : GatePassTopPart2Innr1L3]
    Field : GatePassTopPart2Innr1L3F1,GatePassTopPart2Innr1L3F2
    Border : Thin Top

    [Field : GatePassTopPart2Innr1L3F1]
    Use : Short Prompt
    Set as : "VAT TIN No."
    Style : Large Bold
    Width : 30 mm

    [Field : GatePassTopPart2Innr1L3F2]
    Set as : $VATTINNumber:Ledger:$PartyLedgerName
    Style : Large
    Width : 100 mm

    [Line : GatePassTopPart2Innr1L4]
    Field : GatePassTopPart2Innr1L4F1,GatePassTopPart2Innr1L4F2

    [Field : GatePassTopPart2Innr1L4F1]
    Use : Short Prompt
    Set as : "CST TIN No."
    Style : Large Bold
    Width : 30 mm

    [Field : GatePassTopPart2Innr1L4F2]
    Set as : $InterStatestNumber:Ledger:$PartyLedgerName
    Style : Large
    Width : 100 mm

    [Line : GatePassTopPart2Innr1L5]
    Field : GatePassTopPart2Innr1L5F1,GatePassTopPart2Innr1L5F2

    [Field : GatePassTopPart2Innr1L5F1]
    Use : Short Prompt
    Set as : "Vehicle No :"
    Style : Large Bold
    Width : 30 mm

    [Field : GatePassTopPart2Innr1L5F2]
    Set as : $BasicShipVesselNo
    Style : Large
    Width : 90 mm

    [Line : GatePassTopPart2Innr1L6]
    Field : GatePassTopPart2Innr1L6F1,GatePassTopPart2Innr1L6F2

    [Field : GatePassTopPart2Innr1L6F1]
    Use : Short Prompt
    Set as : "Transport :"
    Style : Large Bold
    Width : 30 mm

    [Field : GatePassTopPart2Innr1L6F2]
    Set as : $BasicShippedBy
    Style : Large
    Width : 90 mm

    ;;======================================================================================================================
    [Part : GatePassBodyPart]
    Height : 180 mm
    Width : 220 mm
    Border : Thin Cover
    Line : GatePassBodyPartL1,GatePassBodyPartL2
    Bottom Line : GatePassBodyPartL3
    Common Border: Yes
    Repeat : GatePassBodyPartL2:InventoryEntries
    Total : GatePassBodyPartL2F4,GatePassBodyPartL2F4.1,GatePassBodyPartL2F5

    [Line : GatePassBodyPartL1]
    Field: GatePassBodyPartL1F1,GatePassBodyPartL1F3
    Right Field: GatePassBodyPartL1F4,GatePassBodyPartL1F4.1,GatePassBodyPartL1F5
    Height : 8 mm
    Space Top: 2 mm
    Border : Thin Bottom

    [Field: GatePassBodyPartL1F1]
    Set as : "Sr. No."
    Style : Normal Bold
    Width : 15 mm
    Align : Center

    [Field: GatePassBodyPartL1F3]
    Set as : "Item Description"
    Style : Normal Bold
    Width : 110 mm
    Align : Center

    [Field: GatePassBodyPartL1F4]
    Set as : "Quantity"
    Style : Normal Bold
    Width : 35 mm
    Align : Center

    [Field: GatePassBodyPartL1F4.1]
    Set as : "Qty (Board)"
    Style : Normal Bold
    Width : 25 mm
    Align : Center

    [Field: GatePassBodyPartL1F5]
    Set as : "Value in Rs."
    Style : Normal Bold
    Width : 30 mm
    Align : Center

    [Line : GatePassBodyPartL2]
    Field: GatePassBodyPartL2F1,GatePassBodyPartL2F3
    Right Field: GatePassBodyPartL2F4,GatePassBodyPartL2F4.1,GatePassBodyPartL2F5
    Height : 6 mm

    [Field: GatePassBodyPartL2F1]
    Set as : $$Line
    Style : Normal
    Width : 15 mm
    Align : Center
    Border : Thin Right

    [Field: GatePassBodyPartL2F3]
    Set as : $StockItemName
    Style : Normal
    Width : 110 mm

    [Field: GatePassBodyPartL2F4]
    Use : Qty Field
    Set as : $BilledQty
    Style : Normal
    Width : 35 mm
    Align : Right
    Border : Thin Left right

    [Field: GatePassBodyPartL2F4.1]
    Use : Number Field
    Align : Right
    Width : 25 mm
    Style : Normal
    Set as : $$String:$ActualQty:Symbol,ShortForm,Secondary

    [Field: GatePassBodyPartL2F5]
    Set as : ""
    Style : Normal
    Width : 30 mm
    Align : Right
    Border : Thin Left

    [Line : GatePassBodyPartL3]
    Field: GatePassBodyPartL3F1,GatePassBodyPartL3F2,GatePassBodyPartL3F3
    Right Field: GatePassBodyPartL3F4,GatePassBodyPartL3F4.1,GatePassBodyPartL3F5
    Height : 8 mm
    Border : Thin Top
    Space Top: 3 mm

    [Field: GatePassBodyPartL3F1]
    Set as : ""
    Style : Normal
    Width : 15 mm
    Align : Center

    [Field: GatePassBodyPartL3F2]
    Set as : ""
    Style : Normal
    Width : 90 mm
    Align : Center

    [Field: GatePassBodyPartL3F3]
    Set as : "TOTAL"
    Style : Normal Bold
    Width : 20 mm
    Align : Right
    Border : Thin Bottom

    [Field: GatePassBodyPartL3F4]
    Use : Qty Field
    Set as : $$Total:GatePassBodyPartL2F4
    Style : Large Bold
    Width : 35 mm
    Align : Right
    Border : Thin Bottom

    [Field: GatePassBodyPartL3F4.1]
    Use : Number Field
    Set as : $$Total:GatePassBodyPartL2F4.1
    Style : Large Bold
    Width : 25 mm
    Align : Right
    Border : Thin Bottom

    [Field: GatePassBodyPartL3F5]
    Use : Amount Field
    Set as : $Amount
    Style : Large Bold
    Width : 30 mm
    Align : Right
    Border : Thin Bottom

    ;;======================================================================================================================

    [Part : GatePassLastPart]
    Line : GatePassLastPartL1,GatePassLastPartL2
    Height : 17 mm
    Border : Thin Box
    Width : 220 mm

    [Line : GatePassLastPartL1]
    Field : GatePassLastPartL1F1,GatePassLastPartL1F2
    Height : 8 mm
    Border : Thin Bottom

    [Field : GatePassLastPartL1F1]
    Set as : "Prepared by :"
    Style : Large Bold
    Width : 80 mm
    Border : Thin Right

    [Field : GatePassLastPartL1F2]
    Set as : "Authorising Person :"
    Style : Large Bold
    Width : 60 mm

    [Line : GatePassLastPartL2]
    Field : GatePassLastPartL2F1,GatePassLastPartL2F2
    Height : 8 mm

    [Field : GatePassLastPartL2F1]
    Set as : "Signature :"
    Style : Large Bold
    Width : 80 mm
    Border : Thin Right

    [Field : GatePassLastPartL2F2]
    Set as : "Signature :"
    Style : Large Bold
    Width : 60 mm

    ;;======================End Of File =========================
     
    Last edited: Jan 1, 2015
    Mahesh Sethi likes this.


  2. mpal2311

    mpal2311 Active Member


    Great.
    Thanks for sharing.
     
    Dhrupal Gorasiya likes this.


  3. Nupur

    Nupur Member


    The followring error display. see the attach image
     


  4. Mahesh Sethi

    Mahesh Sethi Member


    Dear Nupur,

    there is no image file att.????????

    Manish
     


  5. mpal2311

    mpal2311 Active Member


    Attachment ??
     


  6. Nupur

    Nupur Member


    see the attachment.
     

    Attached Files:



  7. mpal2311

    mpal2311 Active Member

    Dhrupal Gorasiya likes this.


  8. Nupur

    Nupur Member


    thanx dear mpal2311. how can print only gate pass not sales invoice ?
     
    Dhrupal Gorasiya likes this.


  9. Joharfchhil

    Joharfchhil Member


    Nupur,

    First it will print sales invoice if you say no it will print gate pass.
     
    Dhrupal Gorasiya likes this.


  10. mpal2311

    mpal2311 Active Member


    Add a line Delete : Print : Printed Invoice before Add : Print : GatePass

    like this

    [#Form : Sales Color]
    Delete : Print : Printed Invoice
    Add : Print : GatePass
     
    Dhrupal Gorasiya likes this.



  11. Nupur,

    In this gate pass Image is Web Database to fetch
    and only path is required ...
     


  12. Nupur

    Nupur Member




  13. yes
    Before Sales Invoice.../
     


  14. Anshul Jain

    Anshul Jain New Member


    But its not Fetching Party Name from the Invoice.
    How it will work for Credit Sales ?
     



  15. it is work in Only Sales Invoice OtherWise Change VCH Name.
     


  16. Anshul Jain

    Anshul Jain New Member


    Friend ..

    I am using it in Sale Invoice. But its not printing the Party Name in the Gate Pass Voucher.
    Suppose there are 10 parcels in the delivery. How will we know which parcel to deliver without party name.
     


  17. Praveen Davis

    Praveen Davis Member


    Hi Dhrupal,

    I have a packing slip of 4 inch height. I want to print the same packing slip one below other in the same paper as shown below with the field set as gate pass in the second loading pass. Also the total quantity of inventory is not reflected!
    Please help me. TDL Attached. Untitled.jpg
     

    Attached Files:



  18. Mahesh Sethi

    Mahesh Sethi Member



    Dear Praveen,

    Try This & Manage Print Margins according to you......

    Manish
     

    Attached Files:



  19. Praveen Davis

    Praveen Davis Member


    Dear Mahesh,

    Thank you for your prompt reply.

    The code is not working due to errors.

    Untitled.jpg
     


  20. Mahesh Sethi

    Mahesh Sethi Member


    Dear,

    In Which Rel you have check.

    Manish
     


  21. Praveen Davis

    Praveen Davis Member




  22. Dear Praveen,
    You have also add extra field in this gatepass...
     


  23. Anshul Jain

    Anshul Jain New Member


    Sir ,

    This TDL is very helpful. But Party name is not getting printed in the Loading Slip. Please help me to print party name in the loading slip
     


  24. Praveen Davis

    Praveen Davis Member


    Dear Dhrupal,

    Which field is missed, please advise.
     


  25. Anshul Jain

    Anshul Jain New Member


    Dear Dhrupal,

    I want to get the company name printed
    can you please help me
     


Share This Page