Transporter's and ewaybill details report sales wise

Discussion in 'Free Source Codes' started by love, Jan 3, 2020.

    
  1. love

    love Member


    thanks to experts of this forum , i just modified some codes ,

    Code:
    ; ------TRANSPORTERS REPORT DATE WISE--------------
    
    
    [#Menu: Gateway of Tally]
        Add: Option: love:
    
    
    [!Menu:love] 
      add : Key Item    :before:@@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 ,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 : 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 ,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: 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 ,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: 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,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 : 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
    
     

    Attached Files:

    Last edited: Jan 4, 2020
    Frz likes this.


  2. mpal2311

    mpal2311 Active Member


    Good work.
     


  3. love

    love Member


    experts plz guide me to sort it default by voucher number or by ledgername
     


  4. Himanshu-2002

    Himanshu-2002 Active Member


    Add This To your Collection Level

    Sort:0:$VoucherNumber

    Or

    Sort:0:$LedgerName
     


  5. love

    love Member


    @Himanshu-2002 , i am having only 1 collection as posted above

    [Collection:salesVchTPTCollct]
    Type : Voucher ;;s:Ledger
    Fetch :LEDGERNAME,VOUCHERNUMBER,DATE, Amount,ServicetaxPaidby,Despatchmode1,Billtyno,BasicShippedBy,BillofLadingNo,BillofLadingDate,BasicFinalDestination,GSTewayBillNumber,BASICSHIPDOCUMENTNO
    Filter: salesvch
    Sort:0:$VoucherNumber

    this is giving no result
     


  6. Himanshu-2002

    Himanshu-2002 Active Member


    [Collection:SalesVchColl]
    Type: Voucher: VoucherType
    Child of: $$VchTypeSales
    Belong To : Yes

    [Collection:SalesVchSummary]
    Source Collection: SalesVchColl
    Compute: VoucherNumber: $VoucherNumber
    Compute: Party name: $PartyLedgerName
    Compute: Date: $Date
    Compute: Amount: $Amount

    ;;;Compute All Thing Like this
    And After this add this
    Sort:0:$VoucherNumber

    And Use this summary collection to repeat lines
     
    love likes this.


  7. love

    love Member


    @Himanshu-2002 , i already had tried this method but not getting result, may be an error from my side

    one more thing i would like to know from you or other experts that in tally we can reach a desired result from multiple ways of coding , i have been using fetch and filter to get the result , you in general use compute and walk to get the same result , i would like to know the difference in compute and fetch in the above scenario, and which one is better to be used.
     


  8. love

    love Member


    tx @Himanshu-2002 , i changed the codes as per your suggestion and it's working now
     


  9. Himanshu-2002

    Himanshu-2002 Active Member



Share This Page