O/S Follow Up Tool

Discussion in 'Free Source Codes' started by Mohamed Baseeth, Jun 16, 2020.

         
  1. Mohamed Baseeth

    Mohamed Baseeth New Member


    This code adds a New Report/Tool allowing a user to effectively do payment follow up
    upload_2020-6-16_16-33-34.png





    upload_2020-6-16_16-34-53.png


    Welcome to improvements

    Code:
    ;;bismillah
    ;;; created by MBA
    
    [#Menu:Outstandings]
        Add:Key Item:Before:@@locquit:Follow Up:F:Display:OSFollowup
       
    [Report:OSFollowup]
        Title:$$LocaleString:"OS Follow Up Status"
        Form:OSFollowup
       
    
            [Form:OSFollowup]
                Width:100 % Screen
                Height:100% Screen
                Part:CMPLine,OSFollowup
                Button:Refresh,Print Button, Export Button
                Bottom Button:filter button,Instructions
                Print:OSFollowup
                Full Height:Yes
                Full Width:Yes
               
    [Part:CMPLine]
        Line:CMPLine
    [Line:CMPLine]
                        Left Field:CMPOSNAME
                        Right Field:DSP MainDateTitle
                [Part:OSFollowup]
                    Line:Title Line,Customerdetails,
                    Bottom Line:customerdetailsTotals
                    Repeat:customerdetails:GR SDC Groups
                    Scroll:Vertical
                    Common Border:Yes
                    Total       : ClosingBalance
                   
    
                   
                       
                       
                        [Field:CMPOSNAME]
                            Use:CMP Name
                            Set as:$CMPMailName
                       
                    [Line:Titleline]
                        use:customerdetails
                        Border:thick top bottom
                        Local   : Field : Default           : Type  : String
                        Local   : Field : Default           : Align : Left   
                        Local:Field:Customer Name:set as:"Customer Name"
                        Local:Field:ClosingBalance:set as:"Closing Balance"
                        Local:Field:ContactPerson:set as:"Contact Person"
                        Local:Field:Contact No:set as:"Contact No"
                        Local:Field:contact No.Alt:set as:"Alt. Contact No"
                        Local:Field:AvgDay:set as:"Avg.Day to Pay"
                        Local:Field:Remark1:set as:"Remarks"
                       
                       
    [line:customerdetails]
                        Left Field: Customer Name,closingBalance,Contact Person
                        Right Field:Contact No,Contact No.Alt,AvgDay,Remark1
                       
                                    [Field: Customer Name]
                                       
                                        Set as:$name
                                        Use:short name field
                                        Border:thin right
                                        Width:22% screen
                                        Quick Search:Yes
                                       
                                        Option      : DD Name Field Led  : $$IsLedger
                                       
                                    [!Field: DD Name Field Led]
               
                                    Variable    : LedgerName
                                    Display     : Ledger Outstandings
                   
                                       
                                        [Field:closingBalance]
                                        Set as:$closingbalance
                                        Width       : @@AmountWidth
                                        Max         : @@MaxNumberWidth
                                        Style       : Normal Bold
                                        Format      : "No Zero, Symbol," + ##ShowForex
                                        Align       : Right
                                        Border:thin right
                                        Display:ledger outstandings
                                        Type:Amount
                                       
                                       
                                        [Field:Contact Person]
                                        Set as:$LedgerContact
                                        Use:short name field
                                        Border:thin right
                                       
                                       
                                        [Field:Contact No]
                                        Set as:$LedgerMobile
                                        Use:short name field
                                        Border:thin right
                                       
                                        [Field:Contact No.Alt]
                                        Set as:$LedgerPhone
                                        Use:short name field
                                        Border:thin right
                                       
                                        [Field:AvgDay]
                                        Set as: if $$IsEmpty:$PerfByFormula then "" else $$SPrintf:@@DaysFormat:@@PerfByFormula
                                        TotalVal: If $$IsEmpty:$PerfByFormula:Group:##GroupName Then $$AsAmount:0 Else $PerfByFormula:Group:##GroupName
                                        Use:short name field
                                        Border:thin right
                                       
                                        [Field:Remark1]
                                        Use:short name field
                                        Border:thin right
                                        set as:$Remarksone
                                        Alter:Remark
                                        Full Width:Yes
                                       
        [Line: customerdetailsTotals]
    
            Use     : customerdetails
            Local   : Field : CustomerName  : Align : Centre
            Local   : Field : CustomerName  : Set as: "TOTAL"
            Local   : Field : ClosingBalance: Set as: $$Total:Closingbalance
            Border  : Thin Top Bottom
                                   
    
    
    
    /*................for adding remarks.............*/                           
    [Report:Remark]   
        Form:Remark
        Object:Ledger
               
    [Form:Remark]
        Part:Remark1
        [Part:Remark1]
            Line:Remarks
    [#Part: LEDNotes]   
        Add:Line:At End:Remarks
       
        [Line:remarks]
            Field       : Short Prompt, Remarks
            Invisible    : NOT ##LEDNotes
            Local       : Field: Short Prompt   : Setas : $$LocaleString:"Remarks:"
            [Field: Remarks]
    
        Use         : Short Name Field
        Use            : First Upper Case Field
        Full Width    : Yes
        Max         : 250
        Style       : Small Bold
        Storage     : RemarksOne
        Invisible   : ##MVInMultiMode
    
    
    
    
    /*.........UDFs............*/                                       
    [System:UDF]
        Remark:Aggregate:1000
        Remarksone:String:1001
        Remarkstwo:String:1002
       
    
    /*...........Collections.............*/
    [Collection : GR SDC Groups]
        Type        : Ledger
        Childof     : $$GroupSundryDebtors
        Belongs To  : Yes
    Filter:Mufasa
        [System:Formula]
            mufasa: not $closingbalance =0
       
    /*...........Instructions.............*/
    [Report:Instrucitons]   
        Form:Instrucitons
    [Form:Instrucitons]
        Part:Instrucitons
        Height:17    % page
        Width:50% page
    [Part:Instrucitons]
        Line:Instrucitons1
    [Line:Instrucitons1]
        Field:Instrucitons
       
    [Field:Instrucitons]
    Use:Name Field   
    Set as:"Press Enter to See OS Statement of Account and +
    Press Ctrl + Enter to add/edit+
    Remarks"
    Width: 50% page
    Align:Center
    Alignment:Center
    Line:3                                                   
       
      
    /*.................for Buttons...................*/
                    [Button:Refresh]
                        Key:CTRL+Z
                        Action:Refresh TDL
               
                   
                       
                    [Button:Instructions]
                        Key:CTRL+C
                        Action:Display:Instrucitons
                    
     
    G PRAKASH, Rajsrisrimal and mukeshb like this.


  2. Rajsrisrimal

    Rajsrisrimal Member


    sir,
    Your TDL is superb, can you add bill wise follow up and same remainder as on system date
    will be more useful.
    We thanks you for superb TDL
     


  3. G PRAKASH

    G PRAKASH New Member


    Good Job... Every Biz. person will be helpful if u do much more addition in this TDL...
     


  4. udaya

    udaya Member


    Great work...........
     


  5. MZMS

    MZMS New Member


    Hello
    Getting error while pressing control+enter
     

    Attached Files:



  6. Bipin Damania

    Bipin Damania Active Member


    upload_2020-6-26_12-4-41.png

    Set "Yes" to Add notes for ledger accounts
     


Share This Page