How to fetch Vehicle Number

Discussion in 'Free Source Codes' started by Rakesh Kumar, Oct 14, 2020.

    
  1. Rakesh Kumar

    Rakesh Kumar Member


    Dear Experts, please guide me how to fetch Vehicle Number in below Code :-

    [Line : myluvTPTbodyln]
    fields : Fvchno,Fvchdate ,PartyNam,ReTransportnm,FTPT, Lorry, Fvchref,FBrokerper,Ewayno
    Right fields : Servicedespatc,
    local : field : Fvchno : set as : $VOUCHERNUMBER
    local : field : Fvchdate : set as : $Date
    Local: Field: PartyNam : Set as: $ledgername
    Local: Field: ReTransportnm : Set as: $BasicShippedBy
    local : field : Fvchref : set as : $BillofLadingDate
    local : field : FTPT : set as : $BillofLadingNo
    local : field : Lorry : set as : $VehicleNumber
     


  2. Rakesh Kumar

    Rakesh Kumar Member


    Respected Experts, full code is below and I have tried a lot to fetch Vehicle No. in Report but not get results.
    Kindly help me to do :

    [#Menu: Gateway of Tally]
    Add: Option: love:


    [!Menu:love]
    add : Key Item :before:mad:@locQuit: @@locTransp : S : Display :lovesal : $$IsAccountingOn:$$CurrentCompany


    [system : formula]

    locTransp :$$LocaleString:"Transporter Report for Sales"


    [Report :lovesal]
    Use : Dsp template
    Form : myluv TPTForm
    Title: $$LocaleString:"Transporter Details"
    Set: variable : svfromdate, svtodate
    Set : SVFromDate : $$MonthStart:##SVCurrentDate
    Set : SVToDate : $$MonthEnd:##SVCurrentDate


    ;;*******************************************

    [Form :myluv TPTForm]
    Use : Dsp template
    Height : 100% Page
    Width : 100% Page
    Parts : myluvPrttitle,myluvprtTPTDetails
    bottom parts : prtbottom
    Delete:page Break
    add:page Break : DSP ClPageBreak, myDSPOpPageBreak


    [Part : myDSPOpPageBreak]
    parts :,myluvPrttitle
    vertical : yes


    [Part :myluvPrttitle]
    Line : myluvlntitle



    [Line : myluvlntitle]
    fields : Fvchno,Fvchdate,PartyNam,ReTransportnm,FTPT, MotorvehicleNo, Fvchref,FBrokerper,Ewayno
    Right fields : Servicedespatc
    local : field : default : type : string
    local : field : default : style : normal bold
    ;local : field : default : align : centre
    local : field : Fvchno : set as : "Voucher No."
    local : field : Fvchdate : set as : "Date"
    Local: Field: PartyNam : Set as: "Party name"
    Local: Field: ReTransportnm : Set as: "Transporter Name"
    local : field : FTPT : set as : "R R No."
    local : field : MotorvehicleNo : set as : "Lorry No."
    local : field : FBrokerper : set as : "Destination"
    local : field : Fvchref : set as : "Bilty Date"
    Local: Field: Ewayno : Set as: "EwayBill No."
    Local: Field: Servicedespatc : Set as: "Amount"
    Border : Totals


    [Part :myluvprtTPTDetails]
    Line : myluvTPTbodyln
    repeat :myluvTPTbodyln : salesVchTPTCollct
    scroll : vertical
    Total:Servicedespatc




    [Line : myluvTPTbodyln]
    fields : Fvchno,Fvchdate ,PartyNam,ReTransportnm,FTPT, MotorvehicleNo, Fvchref,FBrokerper,Ewayno
    Right fields : Servicedespatc,
    local : field : Fvchno : set as : $VOUCHERNUMBER
    local : field : Fvchdate : set as : $Date
    Local: Field: PartyNam : Set as: $ledgername
    Local: Field: ReTransportnm : Set as: $BasicShippedBy
    local : field : Fvchref : set as : $BillofLadingDate
    local : field : FTPT : set as : $BillofLadingNo
    local : field : MotorvehicleNo : set as : $EvehicleNo





    Local: Field: Ewayno : Set as: ""
    Local: Field: Ewayno : Set as:$GSTewayBillNumber
    local : field : FBrokerper : set as : $BasicFinalDestination
    Local: Field: Servicedespatc : Set as:$Amount
    Option : AlterOnEnter : $$IsVoucher
    ;


    [Part : prtbottom]
    Line :broktot

    [Line : broktot]
    fields : Fvchno,Fvchdate ,PartyNam,ReTransportnm,FTPT, MotorvehicleNo, Fvchref,FBrokerper,Ewayno
    Right fields : Servicedespatc,
    local : field : Fvchno : set as :"Total"
    local : field : Fvchdate : set as : ""
    Local: Field: PartyNam : Set as: ""
    Local: Field: ReTransportnm : Set as:""
    local : field : Fvchref : set as : ""
    local : field : FTPT : set as : ""
    local : field : MotorvehicleNo : set as : ""
    Local: Field: Ewayno : Set as: ""
    Local: Field: Ewayno : Set as:""
    local : field : FBrokerper : set as : ""
    Local: Field: TotServicedespatc : Set as :$$Total:Servicedespatc
    border : Totals


    [Collection:salesVchTPTCollct]
    Type : Voucher ;;s:Ledger
    Fetch : Amount,ServicetaxPaidby,Despatchmode1,Billtyno, EvehicleNo, BasicShippedBy,BillofLadingNo,BillofLadingDate,BasicFinalDestination,GSTewayBillNumber,
    Filter: salesvch
    ;

    [System: formula]
    salesvch : $$IsSales:$vouchertypename

    [Field :Fvchref]
    use : short date field
    width :.85 inch
    style : normal

    [Field : Fvchdate]
    use : short date field
    width : .85 inch
    style : normal
    align : left

    [Field :Fvchno]
    Use : Name field
    style : Normal
    width : .85 Inch
    Alter : Voucher

    [Field : FTPT]
    Use : name field
    style : Normal
    Width : 1.2 Inch

    [Field : MotorvehicleNo]
    Use : name field
    style : Normal
    Width : 1.2 Inch

    [Field : FBrokerper]
    Use : name field
    style : normal
    width : 1.2 inch
    align : Left




    [Field: PartyNam]
    Use: name field
    Width: 2 inch
    Style: small
    Quick Search: Yes

    [Field: Ewayno]
    Use: short name field
    Width: 2 inch
    Style: small
    [Field: Servicedespatc]
    Use: Number field
    Width: .9 inch
    Style: small
    format : "no zero,decimal:2"
    [Field: ReTransportnm]
    Use: name field
    Width: 2 inch
    Style: small

    [Field: TotServicedespatc ]
    Use: Number field
    Width: 1.5 inch
    Style: small
    format : "no zero,decimal:2"
    [Button:Invoice Btn]
    Key:Alt+I
    Action:Execute:Invoice Rpt
    Title:Find Invoice

    [Report:Invoice Rpt]
    Form:FrmFindVoucher
    Use: salesvch

    [Form:Invoice Frm]
    Part:Invoice Prt
    Add : On : Form Accept : yes :Message Box

    [Part:Invoice Prt]
    Line:Invoice Ln

    [Line:Invoice Ln]
    Field:Medium Prompt, Invoice Fld
    Local:Field:Medium Prompt:Set as:"Invoice No"

    [Field:Invoice Fld]
    Use:Name Field
    Width:50
    Border:Thin Box
     


  3. Sanjeev S

    Sanjeev S Active Member


    Use
    local : field : MotorvehicleNo : set as : $BasicShipVesselNo
    instead of ....
    local : field : MotorvehicleNo : set as : $EvehicleNo

    Secondly fetch the same in collection.

    Regards
     


  4. Murari Bajaj

    Murari Bajaj Member


    Yes the below code works fine

    Set as : $BasicShipVesselNo
     


  5. ananddanacial

    ananddanacial New Member


    I want to get Pincode, place, and distance from the waybill generate . I am using the field below. I am able to get distance but unable to get place and Pincode.Please help.

    local : Field : Destination: Set As:$GSTewayPlace
    Local: Field: Pincode : Set as: $GSTEwbpincode
    Local: Field: Distance : Set as : $GSTewayDistance
     

    Attached Files:



Share This Page