AUTO NARRATION FOR SALES AND PURCHASE BILL

Discussion in 'Free Source Codes' started by sattam, Jul 14, 2016.

    
  1. sattam

    sattam Active Member


    [#Field: VCH Narration]

    Add:Option:VCH Narration Sale Purchase:mad:@IsPurchase Or @@IsSales

    [!Field:VCH Narration Sale Purchase]
    Use : Voucher Narration Field
    Lines : 4
    Storage : Narration
    Set as :If $$IsSales:##SVVoucherType Then " Being Sales to the Party " +#EIConsignee + " With Invoice No: " + $VoucherNumber +"

    Dated "+""+$$String:##VARVchDate else " Being Purchase Raw Materials from the Party

    " + #EIConsignee + " With Invoice No: " + $VoucherNumber +" Dated "+""+$

    $String:##VARVchDate
     


  2. uttam100

    uttam100 Member


    Good thoughts.
     


  3. BHARGAV

    BHARGAV New Member


    Code Note Working. Show error at Set as line.
     


  4. anbhuselvan

    anbhuselvan Member


    Dear Sir,

    Im unable to get the QTY and RATE my customized Purchase Invoice, Please help me and correct my TDL Code:

    [#Form: Comprehensive Invoice]

    Parts : STDInvoiceTop, EXPINV OpPageBreak, EXPINV Details
    BottomParts : EXPINV Totals , EXPINV SignOff , EXPINV Customer, EXPINV Jurisdiction, EXPINV InvoiceCompGen

    ; Width : @@InvWidth Inch
    ; Height : @@InvHeight Inch
    ; Space Top : @@InvSpace inch
    ; Space Right : 0.5 inch
    ; Space Left : @@InvSpaceLeft inch
    ; Space Bottom: 0.25 inch

    Page Break : EXPINV ClPageBreak, EXPINV OpPageBreak

    Option : Dealer ExcisePurchaseInvoice : (@@IsExciseTraderOn AND (@@IsPurchase OR @@IsDebitNote) AND @@IsTraderInvoice AND ##PUDealerExciseDutyInfo)
    Option : STX Comprehensive Invoice : @@IsIndianServiceTax AND $$STXCanUpdateDutyLed
    Option : Invoice Bank Info Fetch : ##SABankInfo AND NOT $$IsSysName:##SABankName

    ;; When Sales Bill is made in Voucher mode, while printing sales ledger is also getting printed
    Set Always : SVViewName : $$SysName:InvVchView
    Delete :parts : STDInvoiceTop, EXPINV OpPageBreak, EXPINV Details
    Delete :BottomParts : EXPINV Totals , EXPINV SignOff , EXPINV Customer, EXPINV Jurisdiction, EXPINV InvoiceCompGen

    Add: Top Parts : INV;,EXPSMPtitle1

    Height : 100% Page
    Width : 100% Page
    Space Top : 0.25 inch
    Space Right : 0.25 inch
    Space Left : 0.5 inch
    Space Bottom: 0.5 inch

    [part : INV]
    ;Line :RMCmpName,INVS, TRWK,RMCmpAdd, MIComPhone,MIVATTINNumber
    Line :RMCmpName,INVS, TRWK,RMCmpAdd,MIVATTINNumber,CSTN
    Repeat : RMCmpAdd:Company Address
    Line : MI VCHDate,MI PartyName;, MI ColumnTitles
    Add: Line: MIQuantity
    Add: Line: MI rate
    Add: Line: IE Amount , MI AmtInWords
    Add: Line: Global ForCmp1
    Add: Line: INCDetails
    Border: MyBorder
    ;


    [Border: MyBorder]
    Top : Flush, Thin, Full Length
    Bottom : Flush, thin, full length
    Left : Thin
    Right : Flush, Thin, Full Length

    [Border: MyBorder1]
    ;Top : Flush, Thin, Full Length
    Bottom : Flush, thin, full length
    ;Left : Thin
    ;Right : Flush, Thin, Full Length

    [Line :INVS]
    Field: INVS
    [Field: INVS]
    Set as : "BOUGHT NOTE"
    Style : newSTY2
    Align : Center
    FullWidth : Yes

    [Line :TRWK]
    Field: TRWK
    [Field: TRWK]
    Set as : "Trading To Waste Kraft Boxes"
    Style : newSTY2
    Align : Center
    FullWidth : Yes


    [Line: RM CmpName]
    Fields : RMcmpname

    [Field : RMCmpName]
    Set as :mad:@CmpMailName
    Align : Center
    FullWidth : Yes
    Style : newSTY1

    [Line : RMCmpAdd]
    Fields : RMCmpAdd

    [Field : RMCmpAdd]
    Set as : $Address
    Align : Center
    FullWidth : Yes
    Style : newSTY1
    /*
    [Line: MI ComPhone]
    Field : MI ComPhone
    [Field: MI ComPhone]
    Use : Name Field
    Set as : $phonenumber:Company:##SvCurrentCompany
    Indent : 10
    */

    [Line: MI VATTINNumber]
    Left Fields: Short Prompt, MI VATTINNumber
    ;Right Fields: Short Prompt, CSTN
    Local : Field : Short Prompt : Set as : "TIN No:"
    ;Local : Field : Short Prompt : Set as : "GST : "
    [Field : MI VATTINNumber]
    Use : Name Field
    Set as : $VATTINNUMBER:Company:##SvCurrentCompany
    ;FullWidth : yes
    Style : pp6
    Align : Center

    [Line: CSTN]
    Right Fields: Short Prompt, CSTN
    Local : Field : Short Prompt : Set as : "CST.N : "
    [Field : CSTN]
    Use : Name Field
    Set as : $InterstateStnumber:Company:##SvCurrentCompany
    ;FullWidth : yes
    Style : pp6
    Align : Center

    [Line: MI VCHDate]
    Field : Simple Prompt, MI VCHNo
    Right Field : Short Prompt, MI VCHDate
    Local : Field : Short Prompt : Set as : "Voucher Date : "
    Local : Field : Simple Prompt : Set as : " Voucher No : "
    Border: MyBorder1

    [Field: MI VCHDate]
    Use : Short Date Field
    Set as : $Date

    [Field: MI VCHNo]
    Use : Short Name Field
    Set as : $VoucherNumber

    [Line: MI PartyName]
    Space Top: 1
    Field : Short Prompt, MI PartyNAme
    Local : Field : Short Prompt : Set as : "Purchaser: (Name & Vehical No: "

    [Field: MI PartyName]
    Use : Name Field
    Set as : $PartyLedgerName
    ;Set as: $BuyerName


    [Line: MIQuantity]
    Space Top: 1
    Field : Short Prompt, IE Qty
    Local : Field : Short Prompt : Set as : "Quantity: "

    ;[Field: MIQuantity]
    /*Use : Qty Primary Field ;Number Field ;;
    ;Use : Qty Primary Field
    Set as : $BasicQty
    Format : "NoSymbol,Primary"
    */


    [Field : IE Qty]

    ;Use : Qty Primary Field
    Use: Number Field
    Set as : $BilledQty
    ;Border : Thin Left
    [Line: MI rate]
    Space Top: 1
    Field : Short Prompt, MI rate
    Local : Field : Short Prompt : Set as : "Unit Price: "

    ;Explode : Item Desc : $$NumItems:UserDescription > 0

    [Field : MI rate]

    ;Use : Rate Field
    ;Border : Thin Left
    ;Rate Units Field
    ;Use: Number Field
    ;Set as : $Rate

    Use : Rate Price Field
    Set as : $Rate

    [Line: IE Amount]
    Space Top: 1
    Field : Short Prompt, IE Amount
    Local : Field : Short Prompt : Set as : "Amount: "

    [Field : IE Amount]
    Use : Amount Field
    Set as : $Amount
    ;Border : Thin Left Right
    Format : "NoComma,NoZero"
    ;FullWidth : yes

    [Line: MI AmtInWords]
    Space Top: 1
    Field : Short Prompt, MI AmtInWords
    Local : Field : Short Prompt : Set as : "Rs: "

    [Field : MI AmtInWords]
    Use : Name Field
    Set as : $$InWords:$Amount
    FullWidth : yes
    Style : Small

    [Line: Global ForCmp1]
    Space Top: 2
    Right Fields: Global ForCmp1
    Space Bottom: 2

    [Field: Global ForCmp1]


    Use : Name Field
    Set as : "For " + @@CMPMailNAme
    Align : Right
    Width : 0

    [Line: INCDetails]
    Space Top: 1
    Field : INCDetails
    ;Local : Field : Short Prompt : Set as : "Purchaser tax Shall be paid bythe Purchaser"

    [Field: INCDetails]
    Style : Normal1
    Set as: "Purchaser tax Shall be paid bythe Purchaser"

    /*[Collection:VCHCollection]
    Type: Stock Item
    */


    [System: Formula]



    LargeSize : 14
    SmallerSize : 6

    ;******************** Cardinal styles ********************;

    [Style: Normal1]

    ;; for linux face name is changed
    Font : if $$SysInfo:IsWindows then "Arial" else "Helvetica"
    Bold: Yes
    Height : @@LargeSize
     


  5. Ajeet Jain

    Ajeet Jain Member


    ;;Use below fields

    [Field : IE Qty]
    Use: Number Field
    Set as : $$CollectionField:$BilledQty:1:InventoryEntries


    [Field : MI rate]
    Use : Rate Price Field
    Set as : $$CollectionField:$Rate:1:InventoryEntries
     


  6. Mithun Das

    Mithun Das New Member


    Dear sir, I want auto narration for bank receipt Only. Please help me in following format.
    Narration format: Being + $Chq No. + deposited into + $bank ledger+ by + $party ledger + $voucher date.

    Please help me.
     


  7. khkhilji

    khkhilji New Member


    how can i activate it?
     


  8. hemal1202

    hemal1202 New Member


    Is not Working... Please Help
     


  9. Mantesh RM

    Mantesh RM New Member



    it is not working
     


Share This Page