Print Stock Item Additional Description as additional column in Invoice

Discussion in 'Free Source Codes' started by Devendra_Rawat, Nov 15, 2018.

    
  1. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    Dear Friends

    This TDL prints first additional stock item description as additional column in invoice in Print Mode and also print package size as additional l column.

    Print Setting is to be selected @ F12 after print command and select "Print Additional Description in separate Column?" to


    Code:
       
    [#Line: EXPSMP Column1]
         Add:  Field      : After : EXPINV DescTitle  :RBCSMP AddlDescTitle; : @@RBCAddlDescDetails
         Add    : Right Field    :  Before : EXPINV QtyTitle : EXPINV PackagesTitle1
         Local          : Field : EXPINV PackagesTitle1    :  Border: Thin Left
         Local          : Field : EXPINV PackagesTitle1    :  Info: "Package"
         Local          : Field : EXPINV DescTitle    :  Align : Left
          
    [#Line: EXPSMP Column2]
        Add:  Field     : After :EXPINV DiscTitle: RBCSMP Column2; :  @@RBCAddlDescDetails
        Add    : Right Field    :  Before : EXPINV ActualQtyTitle : EXPINV PackagesTitle2
        Local          : Field : EXPINV PackagesTitle2    :  Border: Thin Left
        Local          : Field : EXPINV PackagesTitle2    :  Info: ""  
    
    [#Line: EXPSMP InvDetails]
        Add:  Field     : After :EXPINV Desc :RBCSMP AddlDesc InvDetails
        Add    : Field    :  Before : EXPINV ActualQty : EXPINV Packages
    
    
      
    
    
    [Field:  RBCSMP AddlDescTitle]
    
        Use         : ShortName Field
        Info        : $$LocaleString:"Colour"
        Border      : Thin Left
        Align       : Left
        Style       : Small
        Cells       : If (@@InvWithActQty AND (NOT @@IsJobWorkVouchers)) Then 2 Else 1
        Width        : @@NameWidth - 15
        Invisible    : NOT @@RBCAddlDescDetails
      
    [Field:  RBCSMP Column2]
        Use         : ShortName Field
        Set as      : ""
        Align       : Centre
        Style       : Small
        Width        : @@NameWidth - 15
        Invisible    : NOT @@RBCAddlDescDetails
    
      
    
    [Field: RBCSMP AddlDesc InvDetails]
    
        Use         : Name Title Field
        Width        : @@NameWidth - 15
        Set as      : @@RBCColourName
        Align       : Left
        Style       : Small
        Border      : Thin Left
        Invisible    : NOT @@RBCAddlDescDetails
      
      
    
    [#Line: EXPINV Column1]
        Add    : Left Field   : After : EXPINV DescTitle: RbcEXPINV AddlDescTitle
        Delete: Field    :    EXPINV PackagesTitle1  
        Add    : Right Field    :  Before : EXPINV QtyTitle : EXPINV PackagesTitle1  
        Local          : Field : EXPINV PackagesTitle1    :  Border: Thin Left
        Local          : Field : EXPINV PackagesTitle1    :  Info: "Package"
        Local          : Field : EXPINV DescTitle    :  Align : Left
    
    [#Line: EXPINV Column2]
      
         Add:  Field     : After : EXPINV DescTitle: RbcEXPINV AddlDescTitle2
         Delete: Field    :    EXPINV PackagesTitle2  
         Add    : Right Field    :  Before : EXPINV ActualQtyTitle : EXPINV PackagesTitle2
        Local          : Field : EXPINV PackagesTitle2    :  Border: Thin Left
        Local          : Field : EXPINV PackagesTitle2    :  Info: ""  
    
    [#Line: EXPINV InvDetails]
      
        Add:  Field      : After :  EXPINV Desc: RBCEXPAddlDescDetails
        Delete: Field    :    EXPINV Packages  
        Add    : Right Field    :  Before : EXPINV ActualQty : EXPINV Packages
        Local          : Field : EXPINV Packages    :  Border: Thin Left
        Local          : Field : EXPINV Packages    :  Style: Tiny
        Local          : Field : EXPINV Packages    :  Align: Justified
      
    [#Line: EXPINV Totals]
        Delete: Field    :    EXPINV PackagesTitle1
        Add    : Right Field    :  Before : EXPINV ActualQtyTotal : EXPINV PackagesTitle1
        Local       : Field : EXPINV PackagesTitle1 : Info        : ""
        Local          : Field : EXPINV PackagesTitle1    :  Border: Thin Left
      
    [Field:  RbcEXPINV AddlDescTitle]
    
        Use         : ShortName Field
        Info        : $$LocaleString:"Colour"
        Border      : Thin Left
        Align       : Left
        Style       : Small
        Cells       : If (@@InvWithActQty AND (NOT @@IsJobWorkVouchers)) Then 2 Else 1
        Width        : @@TrackingWidth
        Invisible    : NOT @@RBCAddlDescDetails
      
          
      
    [Field:  RbcEXPINV AddlDescTitle2]
    
        Use         : ShortName Field
        Set as      : ""
        Align       : Centre
        Style       : Small
        Width        : @@TrackingWidth
        Cells       : If (@@InvWithActQty AND (NOT @@IsJobWorkVouchers)) Then 2 Else 1
        Invisible    : NOT @@RBCAddlDescDetails
      
    
    [Field: RBCEXPAddlDescDetails ]
    
        Use         : ShortName Field
        Set as      : @@RBCColourName
        Style       : Small
        Align       : Left
        Border      : Thin Left
        Cells        : If (@@InvWithActQty AND (NOT @@IsJobWorkVouchers)) Then 2 Else 1
        Width        : @@TrackingWidth
        Invisible    : NOT @@RBCAddlDescDetails
      
      
    
      
    [#Line: EXPINV AccDetails]
      
        Add    : Field: After: EXPINV AccDesc :RBCAccAddlDescDetails
        Delete: Field    :    EXPINV AccPackages
        Add    : Right Field    :  Before : EXPINV AccActualQty : EXPINV AccPackages
        Local          : Field : EXPINV AccPackages    :  Border: Thin Left
    
        [Field: RBCAccAddlDescDetails ]
    
            Use         : ShortName Field
            Border      : Thin Left
            Style       : Small
            Align       : Left
            Width        : @@TrackingWidth
            Set as      : @@RBCColourName
            Invisible    : NOT @@RBCAddlDescDetails
    
    
    
    
    [Variable: RBCTraderAddlDesc]
    
        Type        : Logical
        Persistent    : Yes
      
    [System: Variables]
    
    RBCTraderAddlDesc : No
    
    
    [#Part: VchF12PrnSTDConfig SalesInvoiceLeft]
      
    Add : Line : Before : SATraderAddlDesc : RBCAddlDescColumn
      
    [Line: RBCAddlDescColumn]
          
                Field        : Medium Prompt, Logical Field  
                Local        : Field : Medium Prompt    : Info        : $$LocaleString:"Print Additional Description in separate Column?"        ;;; To Display Print Additional Description(s) for Item Name in Print F12 Config
                Local        : Field : Logical Field    : Modifies  : RBCTraderAddlDesc
                ;Invisible   : NOT (@@IsExciseTraderOn AND @@IsSalesConfig AND ##IsExciseVoucher AND NOT @@IsTraderSVCommercialInvoice)
          
    
    [System:Formulae]
    
    RBCColourName :  @@VATBuyerDescription
    RBCAddlDescDetails    : If @@IsSales OR @@IsCreditNote OR @@IsDelNote Then ##RBCTraderAddlDesc Else No
    
     

    Attached Files:

    Last edited: Nov 15, 2018
    nasir likes this.


  2. nasir

    nasir Member


    [#Part: VchF12PrnSTDConfig SalesInvoiceLeft]

    error showing in 9.1.1
     


  3. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    it should not give such error
     


  4. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    It is pirated 9.1.1 .......... 90% of TDL here does not work for him and his tally version.

    So do not bother in wasting time trying to find solution for a ERROR which is actually not there at all.
     


  5. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    ha ha... you are right... I told him to buy original one..let us see. Hope he does acquire one.
     
    Jenny likes this.


  6. Rais Ahmed

    Rais Ahmed Member


    Dear Experts,
    the error F-12 has nothing 2 do with pirated or license version. so many function of earlier tally has different function. If some one add F-12 instead of Garimaji, he must change Part: IPCFG Right or Left. I have added other fields and work fine. This is my opinion and i m not commenting on any one's thinking. Secondly it is not necessary that every one must opt for tally 6.4 or latest version one of my friend is still using 7.2 and he is happy because his work done with that. please don't mind what AMITJI said that also very much true if some old version user try to go through TD 2 he can know the function. People r finding foods free and even don't want to bite or chew finding directly digestive. And for those such type, real r suffering. I saw so many post of Mr. Nasir if he really want to know TDL must refer TD.
    Regards
     
    Last edited: Dec 1, 2018
    nasir likes this.


  7. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    I agree.... but you must know about pirated programs, they are tweaked and broken by removing certain line of codes. Therefore pirated 9.1.1 procured by me from one source will work while from another source will not work. Depends on how the codes have been modified. This is my experience,

    As for Mr. Nasir, 45% of his posts are "give me TDL, give me TDL" and 45% are "not working". He makes so a bland statement on the efforts of genuine programmers. Even if the same TDL is working for other members as observed by their comments in the same relevant posts.

    You can analyze it yourself from his profile. I agree he cannot afford a license version, and I pity him for that, knowing his conditions and limitations, but since most coders are working on licensed package, it is difficult as well as waste of time by reacting to a pirated user's post/comments and try to find errors, when actually there are none. Any sane and experience coder will test the same before uploading it. Simple facts.
     


  8. Rais Ahmed

    Rais Ahmed Member


    Dear sir,
    Thanks and forget every thing. U Experts R genius and GENIUSES are always more polite as U. If U just push, someone GADDI might run.
    Regards
     
    nasir likes this.


  9. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    I tried to help him.. but it leaves us clueless when someone is getting the error and we are not getting it.. it is difficult to guess what is wrong with code..

    any way.. cheers. this platform is to help each others.
     
    Last edited: Dec 17, 2018
    sattam likes this.


  10. nasir

    nasir Member


    thanks bro u are a grate person
    i have alot of codes which i got from this site of some friends gave me......we should help others
     
    yacob likes this.


  11. Rais Ahmed

    Rais Ahmed Member


    Dear Nasir,
    U pl go through tally developer, u will learn lot. Though I M not expert and i m also learner. Some times experts from whom we r expecting help they could not due to busyness or with any other reason. We think that no one is their to help and due to that frustration we build negative thinking. But I personally think that it is good because if they will not response then after only we will try otherwise we would be dependable 2 others only. and if after we stuck defiantly TDL experts will help. i M also stuck on one function and since 8 days trying also posted for help, no response even daily 5 hour searching and trying and defiantly i will succeed and some help or push I will get, hope so..
    Thanks and Regards
     
    nasir likes this.


  12. nasir

    nasir Member


    thank you brother can i have ur whats app plzzzz
     


  13. Rais Ahmed

    Rais Ahmed Member


    Thanks Garimaji for response. I have one problem ,how to retrieve invoice tax detail (Amount) in our report. Means with which function. I tried $VChTaxAmount, $$IsSysNameEqual:CST:$TaxType:Ledger:$LedgerName:$Amount, $$IsSysNameEqual:Others:$TaxType:Ledger:$Amount, $EIVatAmount could not succeeded. Pl Initiate.
    Regards.
     


  14. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    Ha Ha... I am not that genius .. I can try only when i have a working code (I can not write a complete tdl just to check it.. you can share it here or if already shared plz provide link or email me to ca.devendra.rawat@gmail.com
     


  15. Rais Ahmed

    Rais Ahmed Member


    Sir, U R mistaken. I m not asked for TDL or write TDL but if U know how to retrieve value of those functions. As I mentioned some formula U might have been understood.
    Regards.
     


  16. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Dear Mr. Rais.........please read Garimaji's post again........he has not misunderstood................ He said he cannot write a TDL just to check your formula.

    So YOU need to provide him with the CODE so he can help you further in the matter.

    Some problems cannot be solved without a complete code and/or data.
    For some queries we also need the TALLY data as we experts do not have time to create tally company data just to try the code and solve errors.

    So when experts ask for code or data, please provide........in case one needs their help to solve the queries.
     


  17. Devendra_Rawat

    Devendra_Rawat Well-Known Member



    :) Exactly sir, very well explained.. Thanks

    Sometimes standard methods/functions provided by Tally Solutions do not work exactly as intended, we need to work it out by trying many alternative ways... so code is desired..
     


  18. Rais Ahmed

    Rais Ahmed Member


    Sorry Sir, I misunderstood and I have no issue to send the code it is 4 my benefit after all. Thanks Sir Can i send U too? I got net amount, total amount and both column total also as well Igst,Sgst,Cgst amount but not getting column totals. Mail sent to Garimaji
    Thanks and regards
     


  19. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    It is okay Rais.... just follow instructions of Experts ..... not necessary to attach code here, so you can send it to experts directly.

    I think Garima is more capable than me in TDLs........... I am more of trial and error method type problem solver.

    Never found time to read the TDE manual either, so i rely on existing code to solve my problems as well as other members.
     


  20. Salman

    Salman Member




    Yes exactly true.....the old version of tally or developer is not having much features of new version of both so it gives such error. Mr. Nasir just download the new version of tally and check the same hope your problem will sort out...
     


  21. Rais Ahmed

    Rais Ahmed Member


    Garimaji,
    U might have recd mail Pl look and Guide. and thanks Amitji .
    Regards
     


  22. Devendra_Rawat

    Devendra_Rawat Well-Known Member



    Error Fields are defined as Name fields.. actually they are Amount fields.. thats why total is not coming...

    ;):mad::eek:
     


  23. Rais Ahmed

    Rais Ahmed Member


    Thanks Garimaji I corected now it is coming . What about My Filter which i put for 1 item now for all stock item what to do .I tried + "+" but not working. As well quntity total r not coming I think that due to unit included in Qty that might give problem but I can not remove it though I tried VCHQty, VCHTotal QTY. Pl guide
    Thanks
     


  24. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    earlier you filtered with 1 stock item now you want all....... so remove the filter from the collection.

    even though you remove the UoM, it will still not calculate...because you are only removing it from display and not from the inherrent values............

    it will calculate only when all UoMs are same.
     


  25. Rais Ahmed

    Rais Ahmed Member


    I removed filter then amount column nil, then I put another filter for other item it works but for all item it is not possible is there any other function ? PL
    [Field : Amount]
    Use : Amount Field
    Set As : $$FilterAmtTotal:AllInventoryEntries:MyFilter:$Amount + $$FilterAmtTotal:AllInventoryEntries:MyFilter1:$Amount
    Width : 11
    MyFilter :$StockitemName Contains "Arecanut"
    MyFilter1 :$StockitemName Contains "Gunny Bags"
    And for UOM correct I checked Sales columnar when single Qty it totals else nil.But in my report even single UOM total is not coming means may be some other problem. If I need total of UOM for diff unit each item must have separate column. If so then fetching Value function would be
    Set As : If $BaseUnit:StockItem:Kgs Then $billdqty else
    Invisible : If @@Kgs > 0 then No else Yes
    Is it Correct?
    Regards
     


Share This Page