Customized Sale voucher

Discussion in 'Tally Developer' started by Raju Das, Feb 3, 2014.

    
  1. Raju Das

    Raju Das Member


    Hi,
    can anyone point out the issue with the below code it is not giving any errors but i couldn't find my VAT amount on print Invoice format

    ; [#Part: EXPSMP AccDetails]
    ; Add : Lines : At End : EXPSMP AccRounOffDetails

    [#Line: EXPSMP AccDetails]
    Empty : $$IsEmpty:$Amount AND $RemoveZeroEntries OR @@TaxLedgerHasService OR @@IsVATCSTLed OR @@IsVATSurLed Or ($LedgerName = $PartyLedgerName)

    [Line : EXPSMP AccRounOffDetails]

    Use : EXPSMP AccDetails
    Delete : Explode
    Delete : Empty
    Delete : Option
    Local : Field : EXPINV AccDesc : Set as : "Rounded Off"
    Local : Field : EXPINV AccAmount : Set as : $Amount-($$CollAmtTotal:InventoryEntries:$Amount)

    ; [#Part: EXPINV AccInfo]
    ; Add : Lines : At End : EXPINV AccRounOffDetails

    [#Line: EXPINV AccDetails]

    Empty : $$IsEmpty:$Amount AND $RemoveZeroEntries OR @@IsVATCSTLed OR @@IsVATSurLed Or ($LedgerName = $PartyLedgerName)

    [Line : EXPINV AccRounOffDetails]

    Use : EXPINV AccDetails
    Delete : Explode
    Delete : Empty
    Delete : Option
    Local : Field : EXPINV AccDesc : Set as : "Rounded Off"
    Local : Field : EXPINV AccAmount : Set as : $Amount-($$CollAmtTotal:InventoryEntries:$Amount)

    [#Line: EXPINV Column1]

    Add : Right Field : Before : EXPINV AmountTitle : SAPP TOTAmt, SAPP VATAmt
    Local : Field : SAPP TOTAmt : Info : "Amount" ; change the name
    Local : Field : SAPP VATAmt : Info : "VAT"



    [#Line: EXPINV Column2]

    Add : Right Field : Before : EXPINV AmountTitle : SAPP TOTAmt, SAPP VATAmt
    Local : Field : SAPP TOTAmt : Info : "Ex.VAT"
    Local : Field : SAPP VATAmt : Info : "Amount"



    [#Part: EXPINV Details]

    Total : SAPP VATAmt, SAPP TOTAmt

    [#Part: EXPINV InvInfo]

    Total : SAPP VATAmt, SAPP TOTAmt

    [#Part: EXPINV AccInfo]

    Total : SAPP VATAmt, SAPP TOTAmt

    [#Line: EXPINV InvDetails]

    Add : Right Field :Before: EXPINV Amount : SAPP TOTAmt, SAPP VATAmt
    Local : Field : EXPINV Amount : Set as: #SAPPTOTAmt + #SAPPVATAmt
    ;; Local : Field : SAPP TOTAmt : Set As: $AdditionalDetails.Amount ;[Report: MyReport];;;;;;;;;;;;;;;;;;;;;;;;;;;;new line


    [Field: SAPP TOTAmt]

    Use : Amount Field
    Style : Normal Bold
    Set as : $Amount
    Border : Thin Left
    Align: Centre
    width :7

    [Field: SAPP VATAmt]

    Use : Amount Field ;Number Field
    Style : Normal Bold
    Set as : ($$Number:$Amount*$$Number:mad:@SAPVATPer)/100 ;;;;;;
    Border : Thin Left
    Align: Centre
    width :7

    [#Line: EXPINV InvSubTotal]

    Add : Right Fields: Before : EXPINV ValueSubTotal : SAPP TOTAmt, SAPP VATAmt
    Local : Field : EXPINV ValueSubTotal : Set as : ""
    Local : Field : SAPP TOTAmt : Set as : ""
    Local : Field : SAPP VATAmt : Set as : ""


    [#Line: EXPINV AccDetails]

    Add : Right Field : Before : EXPINV AccAmount : SAPP TOTAmt, SAPP VATAmt

    Local : Field : SAPP TOTAmt : Set as : ""
    Local : Field : SAPP VATAmt : Set as : ""



    [#Line: EXPINV Totals]

    Add : Right Field : Before : EXPINV Total : SAPP TOTAmt,SAPP VATAmt
    Local : Field : SAPP TOTAmt : Set as : $$Total:SAPPTOTAmt
    Local : Field : SAPP VATAmt : Set as : $$Total:SAPPVATAmt

    [System: Formula]

    SAPPVatFilter : @@IsVATCSTLedTube ;$LedgerName Contains "VAT" ;$TaxType:Ledger:$LedgerEntries[1].LedgerName = "VAT"
    SAPPCSTFilter : @@IsVATSurLedTube ;$LedgerName Contains "CST";$TaxType:Ledger:$LedgerEntries[1].LedgerName= "CST"
    SAPPVATCSTFilter : @@SAPPVatFilter OR @@SAPPCSTFilter
    IsVATCSTLed : $LedgerName Contains "Vat" or $LedgerName Contains "CST" ;@@InvoiceVATLedger OR @@InvoiceCSTLedger
    IsVATSurLed : $LedgerName Contains "Surcharge"
    SAPVATPer : $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed ;IF $$IsEmpty:$$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed Then $$Number:0 Else $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed
    SAPVATSurPer : $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed ;IF $$IsEmpty:$$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed Then $$Number:0 Else $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed


    ;@@InvoiceVATLedger And
    Untitled.png
     


  2. Raju Das

    Raju Das Member


    plz anybody help me
     


  3. tally.manish

    tally.manish Member


    Dear Raju Das

    Please Check the Given Code.
     

    Attached Files:



  4. Raju Das

    Raju Das Member


    its not working bro, i also try lot of time.....
     


Share This Page