1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

PO number and PO Date in C-Form Report and also C Form Reminder Latter

Discussion in 'Tally Developer' started by vishal jayswal, Jul 2, 2013.

    
  1. vishal jayswal

    vishal jayswal Member


    /************************************************************************************************************

    Shree Ganesh Shree Krishna
    Objective : Customised C Form.
    Path : F11 -> F3 -> Use Customised C Form?

    *************************************************************************************************************/

    ;; For Company Configuration


    [#Part: CMP Statutory Left]
    Add : Line : At End : UseCustomisedCFormReport

    ;; Company Level Variable

    [Line : UseCustomisedCFormReport]

    Fields : Medium Prompt, CMP UseCustomisedCFormReport
    Local : Field : Medium Prompt : Info : $$LocaleString:"Use Customised C-Form Report?"

    [Field: CMP UseCustomisedCFormReport]

    Use : Logical Field
    Storage : SimpleFormReport
    Set always : Yes
    Inactive : NOT $IsAccountingOn OR NOT $IsInventoryOn
    Modifies : SimpleFormReport

    [System : UDF]

    SimpleFormReport :Logical : 6001


    [System : Variable]

    SimpleFormReport : No

    [Variable: SimpleFormReport]

    Type : Logical

    [#Line: CST VouchersDetails]


    [Field : CADMAC Srno]
    Use : Number Field
    set as : $$Line
    width : 4


    [Field : CADMac ClientName]
    Use : Name Field
    Set as : $PartyLedgerName


    ;; Use : DSP VchLedAccount

    [Field : CADMac BillNo]
    use : DSP VchNumber

    [Field : CADMac BillDate]
    Use : DSP VchDate
    Set as : $Date

    [Field : CADMacAmount]
    Use : CST GrossAmount


    [Field : CADMac AssessableValue]
    Use : CST AssesableAmount
    Indent : 3
    [Field : CADMac CST Amount]
    USe : CST TaxAmount

    [Field : CADMac CST FormType]
    Use : CST PendingFormType


    [Field : CADMacCST FormNumber]
    Use : CST PendingFormNo

    [Field : CADMacCST FormNumberII]
    USe : CST PendingFormNoii

    [Field : CADMac CST FormDate]
    Use : CST FormRecptDate

    [Field : CADMac PONo]
    USe : Name Field
    set as : if NOT $$IsSysName:$BasicPurchaseOrderNo then $$FullList:InvoiceOrderList:$BasicPurchaseOrderNo else ""
    Indent : 12

    [Field : CADMacPODate ]
    USe : Name Field
    set as : if $$IsSysName:$BasicPurchaseOrderNo then "" else $$FullList:InvoiceOrderList:mad:@BasicOrderDateUniversal


    [#Line: CST VouchersDetails]

    Add : Option : CADMac CST VCH Detail : ##SimpleFormReport

    [!Line : CADMac CST VCH Detail]

    Delete : Field : DSP VchDate

    Add : Field : At Beginning : CADMAC Srno,CADMac ClientName
    Add : Right Fields: At End : CADMac PONo, CADMacPODate
    Add : Right Fields: After : DSP VchNumber : DSP VchType, DSP VChDate

    Local : Field : DSP VchLedAccount : Invisible : Yes

    [#Line: CST ColTitles]

    Add : Option : CADMac CST VCH Col Title : ##SimpleFormReport

    [!Line : CADMac CST VCH Col Title ]

    Add : Field : At Beginning :CADMAC Srno,CADMac ClientName
    Add : Right Fields : At End :CADMac PONo, CADMacPODate

    Delete : Field : DSP VchDateTitle
    Delete : Field : DSP VchAcctTitle

    Right Field : DSP VchTypeTitle,CST AmountTitle

    Add : Right Field : After : DSP VchNumberTitle : DSP VchDateTitle

    Local : Field : CADMAC Srno : Info : "Sr."
    Local : Field : CADMac ClientName : Info : "Name of Client"
    Local : Field : CADMac PONo : Info : " PO No"
    Local : Field : CADMacPODate : Info : " PO Date"
    Local : Field : CADMacPODate : Type : String
    Local : Field : CADMacPODate : Info : "PO Date"
    Local: Field: CADMac ClientName : Delete: Width
    Local: Field: CADMac ClientName : Delete: Indent

    [#Line: CST ColTitles2]

    Add : Option : CADMac CST VCH Col Title2 :##SimpleFormReport

    [!Line :CADMac CST VCH Col Title2]

    Add : Field : At Beginning : CADMAC Srno,CADMac ClientName
    Add : Right Fields: Before : CST VCHRefTitle : DSP CSTNoTitle,DSP VchNumberTitle,DSP VchDateTitle
    Add : Right Fields: At End : CADMac PONo, CADMacPODate

    Delete : Field : DSP VchAcctTitle

    Local : Field : DSP CSTNoTitle : Inactive : Yes
    Local: Field: DSP VchNumberTitle: Inactive : Yes
    Local : Field : DSP VchDateTitle : Inactive : Yes


    Local : Field : CADMAC Srno : Info : ""
    Local : Field : CADMac PONo: Info : ""
    Local : Field : CADMacPODate: Info : ""
    Local : Field : CADMacPODate: Type : String
    Local : Field : CADMacPODate : Info : ""
    Local: Field: CADMac ClientName: Delete: Width
    Local: Field: CADMac ClientName: Delete: Indent

    ;;;;; FOR PRINT LETTER

    [#Line: CST FRColTitle]

    Add : Right Field : At End : PO, PODATE

    Local: Field: PO: Set as: $$LocaleString:"PO"
    Local: Field: PODATE: Set as: $$LocaleString:"PO DATE"

    [#Line: CST FRMainDetails]

    Add : Right Field : At End : PO, PODATE

    [Field: PO]

    Use : Name Field
    set as : if NOT $$IsSysName:$BasicPurchaseOrderNo then $$FullList:InvoiceOrderList:$BasicPurchaseOrderNo else ""
    Width: 12% Page

    [Field: PODATE]

    Use : Name Field
    set as : if $$IsSysName:$BasicPurchaseOrderNo then "" else $$FullList:InvoiceOrderList:mad:@BasicOrderDateUniversal
    Width: 12% Page
     
    vishal jayswal, Jul 2, 2013
    #1


  2. dkp_jal

    dkp_jal Member


    Not work in tally.erp 9 version 1.1.
    Error given in TDL.
     
    dkp_jal, Jul 2, 2013
    #2


  3. Bsingh

    Bsingh New Member


    Dear vishal jayswal
    This is a great report by you & working well.
    Can please also add two more field to this report which is Excise Book & Excise Serial no. (in case of excise manufacturer).
    Please help.......
    Thanks in advance:)
     
    Bsingh, Oct 19, 2013
    #3


Share This Page