Godown Security - Free TDL Source Code

Discussion in 'Free Source Codes' started by admin, Aug 31, 2012.

         
  1. admin

    admin Administrator Staff Member


    Godown Security - Free TDL Source Code

    Code:
    ;; Sri Ganeshji : Sri Balaji : Sri Pitreshwarji : Sri Durgaji : Sri Venkateshwara
     
    [#Collection: Godown]
        Add    : Filter    : IsUserGodown
     
    [#Collection: Godown for Parent]
        Add    : Filter    : IsUserGodown
     
    [#Collection: Multi Godown]
        Add    : Filter    : IsUserGodown
     
    [#Collection: Godown Under MGodown]
        Add    : Filter    : IsUserGodown
     
    [#Collection: Stockable Godown]
        Add    : Filter    : IsUserGodown
     
    [#Collection : Godown Summary]
        Add    : Filter    : IsUserGodown
       
    [#Collection    : GodownChildOfGodownName]
        Add    : Filter    : IsUserGodown
     
    [#Collection    : Primary Godowns]
        Add    : Filter    : IsUserGodown
     
    [#Collection: Stockable Godown VchExtract]
        Add    : Filter    : IsUserGodown   
    [#Collection: Godown VchSrc]
        Add    : Filter    : IsUserGodown
       
    [System : Formula]
        JLGlobalPassFilter        : ($$Name=$$CmpUserName)
        ReqGodName              : $$FilterCount:JLGodownName:ForThisGodown > 0
        ForThisGodown          : $JLGodown = $$ReqObject:$Name
        IsUserGodown            : If $$IsCmpOwner Then 1=1 else $$AsReqObj:$$FilterValue:@@ReqGodName:JLGLUserList:First:JLGlobalPassFilter
     
    [#Collection: Inv Reports]
       
    [#Collection: Godown Summary]
        Delete        : Collection
        Collection    : Primary    : $$IsCmpOwner
     
    [Collection : JL GL User List]
        Type        : User List    : Company
        Childof        : ##SVCurrentCompany
     
    [#Line: CUTitle]
        Add    :  Fields  : At End    : ABN CU Valid Date Title
       
        [Field : ABN CU Valid Date Title]
            Use        : Short Name Field
            Set as        : "Godown"
     
    ;[#Line: Company Users]
    ;    Add    :  Fields  : At End    : ABN CU Valid Date
     
    [#Part: Company Users]
     
        Local    : Line    : Company Users : Add : Field : At End    : ABN CU Valid Date
     
     
        [Field : ABN CU Valid Date]
            Use        : Logical Field
            Set as      : If $$IsEmpty:#CMPUserName Then "" Else "No"
            Skip        : $$IsEmpty:#CMPUserName
            SubForm    : JLGodownForm  : $$Value
     
     
    [Report: JLGodownForm]
        Form    : JLGodownForm
     
    [Form: JLGodownForm]
        Part    : JLGodownForm
        Height  : 50% Screen
        Width  : 25% Screen
       
    [Part: JLGodownForm]
        Line        : JLGodownFormTitle, JLGodownForm
        Repeat      : JLGodownForm  : JLGodownName
        Scroll      : Vertical
        Break on    : $$IsSysName:$JLGodown
     
    [Line: JLGodownFormTitle]
        Field  : Name Field
        Border  : Thin Top Bottom
        Local  : Field : Name Field    : Set as    : "Godown Name"
        Local  : Field : Name Field    : Full Width: Yes
        Local  : Field : Name Field    : Align    : Center
        Local  : Field : Name Field    : Skip      : Yes
     
    [Line: JLGodownForm]
        Field: JLGodownForm
     
    [Field: JLGodownForm]
        Use        : Name Field
        Set as      : $JLGodown
        Storage    : JLGodown
        Table      : Godown                : $$Line  = 1
        Table      : Godown, EndofList    : $$Line  > 1
        Show Table  : Always
        Full Width  : Yes
         
    [System    : UDF]
        JLGodownName        : Aggregate    : 1
            JLGodown        : String    : 101
    ;;    JLGroupIsCalculable    : String    : 5001
     
    ;; Eof
     
    Frz, pudkedheeraj, Ras Raj and 2 others like this.


  2. mpal2311

    mpal2311 Active Member


    Thank you Sir.
     


  3. Dharmaraj

    Dharmaraj New Member


    Thanks sir
    I need voucher type security control sir
     


  4. admin

    admin Administrator Staff Member


    Will be posted Soon :) Wait for that day :)
     


  5. Basha

    Basha Member


    Mr. Admin
    I Need all vouchers need date and time pls help me. This is only for Sales Voucher.


    [#Part : VCHNarration]
    Option : SalesUser : @@Issales


    [!Part : SalesUser]
    Add : Line : SKUser,SKDate,SKTime,

    [Line : Skuser]
    Field : Name Field,Shortname Field
    Local : Field : Name Field : Info : "User Name "
    Local : Field : Short name Field : Set as : If $$InCreatemode Then ##Svusername Else $SkUser
    Local : Field : Shortname field : Storage : SKUser
    Local : Field : Shortname field : Skip : Yes


    [Line : SKDate]
    Field : Name Field
    Local : Field : Name Field : Set as : If $$InCreateMode Then $$MachineDate Else $SkDate
    Local : Field : Name Field : Storage : SkDate
    Local : Field : Name Field : Skip : yes


    [Line : SKTime]
    Field : Name Field
    Local : Field : Name Field : Set as : If $$InCreateMode Then $$MachineTime Else $SkTime
    Local : Field : Name Field : Storage : SkTime
    Local : Field : Name Field : Skip : yes


    [System : Udf]
    Skuser : String : 2111
    SkTime : String : 2112
    SkTime : String : 2113
     


  6. admin

    admin Administrator Staff Member


    Please a new thread to get reply for your query !!!
     


  7. saif

    saif New Member


    Plz Add This TDL. All voucher showing date, time and user name
    Option : PurchaseUser : @@Ispurchase
    Option : Journaluser :mad:@IsJournal
    Option : Receiptuser :mad:@IsReceipt
    OPtion : Paymentuser :mad:@Ispayment

    [!Part : PurchaseUser]
    Add : Line : SKUser,SKDate,SKTime,
    [!Part : JournalUser]
    Add : Line : SKUser,SKDate,SKTime,

    [!Part : ReceiptUser]
    Add : Line : SKUser,SKDate,SKTime,

    [!Part : PaymentUser]
    Add : Line : SKUser,SKDate,SKTime,
    Plz Admin help me voucher printing showing Date, time & user name. or only user name.
     


  8. laxman

    laxman Member


    Dear try attach code
     

    Attached Files:



  9. Basha

    Basha Member


    Try this

    [#Part : VCHNarration]


    Add : Line : SKUser, SKDate,SKTime

    [Line : Skuser]
    Field : Name Field,Shortname Field
    Local : Field : Name Field : Info : "User Name "
    Local : Field : Short name Field : Set as : If $$InCreatemode Then ##Svusername Else $SkUser
    Local : Field : Shortname field : Storage : SKUser
    Local : Field : Shortname field : Skip : Yes

    [Line : SKdate]
    Field : Name Field,Shortname Field
    Local : Field : Name Field : Set as : If $$InCreateMode Then $$MachineDate Else $SkDate
    Local : Field : Name Field : Storage : SkDate
    Local : Field : Name Field : Skip : yes


    [Line : SKTime]
    Field : Name Field,Shortname Field
    Local : Field : Name Field : Set as : If $$InCreateMode Then $$MachineTime Else $SkTime
    Local : Field : Name Field : Storage : SkTime
    Local : Field : Name Field : Skip : yes

    [System : Udf]
    Skuser : String : 2111
    SKdate : string : 2112
    SkTime : String : 2113
     


  10. VIKRAM PAREEK

    VIKRAM PAREEK New Member



    It shows user name only on Screen it is not being printed.
     


  11. VIKRAM PAREEK

    VIKRAM PAREEK New Member



    I have tried attached code also not working

    [#Part : VCHNarration]
    Option : SalesUser : @@Issales OR @@IsPurchase OR @@IsReceipt OR @@IsPayment OR @@IsContra OR @@IsJournal

    [!Part : SalesUser]
    Add : Line : SKUser,SKDate,SKTime,

    [Line : Skuser]
    Field : Name Field,Shortname Field
    Local : Field : Name Field : Info : "User Name "
    Local : Field : Short name Field : Set as : If $$InCreatemode Then ##Svusername Else $SkUser
    Local : Field : Shortname field : Storage : SKUser
    Local : Field : Shortname field : Skip : Yes


    [Line : SKDate]
    Field : Name Field
    Local : Field : Name Field : Set as : If $$InCreateMode Then $$MachineDate Else $SkDate
    Local : Field : Name Field : Storage : SkDate
    Local : Field : Name Field : Skip : yes


    [Line : SKTime]
    Field : Name Field
    Local : Field : Name Field : Set as : If $$InCreateMode Then $$MachineTime Else $SkTime
    Local : Field : Name Field : Storage : SkTime
    Local : Field : Name Field : Skip : yes


    [System : Udf]
    Skuser : String : 2111
    SkTime : String : 2112
    SkTime : String : 2113

    ;;======================end of report================================
     


  12. vanandd

    vanandd Member



    Dear Admin / Experts,

    Please post a TDL of Voucher Type Wise Godown and Stock Group Control which is useful to all industries.

    Waiting for your reply at the earliest...

    Regards
    vanandd
     
    AMALNAVA likes this.



  13. Thanks for sharing code Iwant help from you that i want to restrict sundry debtor group according to i specify on secrurity. I done all but didnot restrict on report
    please help me.......
     


  14. miteshchavda

    miteshchavda New Member


    Superb Code Dear Sir, Thank you for Sharing
     


  15. udaya

    udaya Member


    User Name : Date & Time is working fine ..... keep it up... bro's
     


Share This Page