Remove Line automatically remove exploded part's line... Please Help

Discussion in 'Free Source Codes' started by kapil22, Jun 17, 2021.

    
  1. kapil22

    kapil22 Member


    Dear Experts,
    Need help in below code of cost centre voucher report.
    when i remove line of cost centre name it impact it's exploded part's voucher line also remove.
    like if i remove 6 no cost centre line number it remove 6 no voucher line number also.
    i hope some solution.
    Regards,
    Kapil

    Code:
    [Report:     K011Report]
    option:         K011ReportK011:            @@IsK011TDLModuleOn
    [!Report:     K011ReportK011]
    Title:         $$LocaleString:"SC Cost Centre Voucher Report"
    Use:             DSP Template
    Form:         K011Form
    Variables:     SVCurrentCompany, CostCentreName, SVFromDate, SVToDate,
    Variables:     IsDayBook, IsLedgerReport, IsCCReport
    Set             :     IsCCReport    :    Yes
    Set         :     Is Day Book     :     Yes   
    set:            SVFromDate:    $BookFrom:Company:##SVCurrentCompany
    set:            SVToDate:        $$Min:@@FinYrEnding:$EndingAt:Company:##SVCurrentCompany
    Filtered:     Yes
    Export:         Yes   
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Form:         K011Form]
    Parts:         K011PartTitle1, K011PartTitle2, K011PartDataCC
    Button:         BlankButton1, ExplodeFlag, F2ChangePeriod, ChangeCompany
    Button:         BlankButton2, K011CostCentre,
    BUTTON:        BlankButton3, K011BValue, BlankButton5, K011BCode
    BUTTON:        BlankButton4,RemoveLine, Restore Line, Restore AllLines
    width:         100% page
    height:        100% page
    Page Break:     DSP ClPageBreak, K011OpPageBreak
    Space Top:         if $$InPrintMode then ##SVSpaceTop  else 0.05 inches
    Space Bottom:     if $$InPrintMode then 0.5  else 0    inches
    Space Left:         if $$InPrintMode AND $$InPixelMode then 0.5  else 0 inches
    Space Right:         if $$InPrintMode AND $$InPixelMode then 0.25 else 0 inches
    ;Background:        AmberYellow    
    ;Background:        LightCyan
    ;Background:        lemonchiffon
    ;Background:        SkyBlueLighter
    ;Background:        Alice Blue
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Part:         K011OpPageBreak]
    Parts:         K011PartTitle1, DSP ScaleFactor, K011PartTitle2
    Vertical:     Yes
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Part:        K011PartTitle1]
    line:        K011PartTitle1Line5, K011PartTitle1Line6, K011PartTitle1Line1, K011PartTitle1Line2, K011PartTitle1Line3, K011PartTitle1Line4
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [line:        K011PartTitle1Line5]
    Field:         SimplePrompt,
    local:        field:    SimplePrompt:    info:        @@CmpMailName
    local:        field:    SimplePrompt:    style:        LargeBold
    local:        field:    SimplePrompt:    width:        70
    local:        field:    SimplePrompt:    color:        Black
    local:        field:    SimplePrompt:    cell:        4
    local:        field:    SimplePrompt:    align:        left
    local:        field:    SimplePrompt:    Invisible:     NOT ($$InPrintMode OR $$InExportMode )
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [line:        K011PartTitle1Line6]
    Field:         NameField
    local:        field:    NameField:    info:        $$LocaleString:"SC Cost Centre Voucher Report"
    local:        field:    NameField:    Style:        LargeBold
    local:        field:    NameField:    width:        70
    local:        field:    NameField:    color:        Black
    local:        field:    NameField:    cell:        4
    local:        field:    NameField:    align:        left
    local:        field:    NameField:    border:        Thin Bottom
    local:        field:    NameField:    Invisible:     NOT ($$InPrintMode OR $$InExportMode )
    Space Bottom:     if $$InPrintMode then 0.5 else 0
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [line:        K011PartTitle1Line1]
    Field:         SimplePrompt, NameField
    local:        field:    SimplePrompt:    SET AS:    "Fund Type :"
    local:        field:    SimplePrompt:    style:    TinyBold
    local:        field:    SimplePrompt:    width:    15
    local:        field:    SimplePrompt:    color:    Blue
    local:        field:    SimplePrompt:    cell:    2
    local:        field:    NameField:    Set as:     $Parent:CostCentre:#SimpleField
    local:        field:    NameField:    Style:    TinyBold
    local:        field:    NameField:    width:    15
    local:        field:    NameField:    color:    red
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [line:        K011PartTitle1Line2]
    Field:     SimplePrompt, SimpleField
    local:    field:    SimplePrompt:        SET AS:    "Fund Agency :"
    local:    field:    SimplePrompt:        style:    TinyBold
    local:    field:    SimplePrompt:        width:    15
    local:    field:    SimplePrompt:        color:    Blue
    local:    field:    SimplePrompt:        cell:    2
    local:    field:    SimpleField:        Set as:     $Parent:CostCentre:##CostCentreName
    local:    field:    SimpleField:        Style:    TinyBold
    local:    field:    SimpleField:        width:    35
    local:    field:    SimpleField:        color:    red
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [line:        K011PartTitle1Line3]
    Field:     SimplePrompt, ShortNameField
    local:    field:    SimplePrompt:        SET AS:    "Project :"
    local:    field:    SimplePrompt:        Style:    TinyBold
    local:    field:    SimplePrompt:        width:    15
    local:    field:    SimplePrompt:        color:    Blue
    local:    field:    SimplePrompt:        cell:    2
    local:    field:    ShortNameField:    Set as:     ##CostCentreName
    local:    field:    ShortNameField:    STYLE:    TinyBold
    local:    field:    ShortNameField:    width:    35
    local:    field:    ShortNameField:    color:    red
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [line:        K011PartTitle1Line4]
    Field       :     SimplePrompt, ShortNameField
    Space Bottom:     if $$InPrintMode then 0.5 else 0.5
    local:    field:    SimplePrompt:        SET AS:    "Period :"
    local:    field:    SimplePrompt:        Style:    TinyBold
    local:    field:    SimplePrompt:        width:    15
    local:    field:    SimplePrompt:        color:    Blue
    local:    field:    SimplePrompt:        cell:    2
    local:    field:    ShortNameField:    Set as:     @@DSPDateStr
    local:    field:    ShortNameField:    STYLE:    TinyBold
    local:    field:    ShortNameField:    width:    35
    local:    field:    ShortNameField:    color:    Black
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Part:         K011PartTitle2]
    Line:         K011PartTitle2Line1, K011PartTitle2Line2
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Line:         K011PartTitle2Line1]
    Field:         K011FieldSNo, K011FieldVchDate, K011FieldVchCCName, K011FieldVchLN, K011FieldCCProjectName
    RightField:     K011FieldVchType, K011FieldVchVNo, K011FieldCCBudAmount, K011FieldCCActAmount, K011FieldCCVarAmount
    Border:         K011ColumnTitlesTop
    Local:         Field:     Default:                 color:    Black
    Local:         Field:     Default:                 Align:     Left
    Local:         Field:     Default:                 Lines:     1
    Local:         Field:     Default:                 style:    TinyBold
    Local:         Field:     K011FieldSNo:            info:     $$LocaleString:"SNo"
    Local:         Field:     K011FieldVchDate:         info:     if ##K011BCode then "Date" else "Code"
    Local:         Field:     K011FieldVchDate:         width:        if $$InPrintMode then 7 else 10
    Local:         Field:     K011FieldVchCCName:    info:    ""
    Local:         Field:     K011FieldVchLN:         info:     "Budget Line / Ledger / Narration"
    Local:         Field:     K011FieldCCProjectName:    info:    ""
    Local:         Field:     K011FieldVchType:         info:     "Vch Type"
    Local:         Field:     K011FieldVchVNo:         info:     "Vch No"
    local:        field:    K011FieldCCBudAmount:    info:    "Budget"
    local:        field:    K011FieldCCBudAmount:    Align:     Center
    local:        field:    K011FieldCCBudAmount:    Border:         K011ColumnTitlesBottom
    Local:         Field:     K011FieldCCActAmount:     info:     "Actual"
    Local:         Field:     K011FieldCCActAmount:     Align:     Center
    Local:         Field:     K011FieldCCActAmount:     Border:     K011ColumnTitlesBottom
    local:        field:    K011FieldCCVarAmount:    info:    "Varriance"
    local:        field:    K011FieldCCVarAmount:    Align:     Center
    local:        field:    K011FieldCCVarAmount:    Border:     K011ColumnTitlesBottom
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Line:         K011PartTitle2Line2]
    use:            K011PartTitle2Line1
    Border:         K011ColumnTitlesBottom
    Local:         Field:     Default:                 color:    Blue
    Local:         Field:     Default:                 Align:     Left
    Local:         Field:     Default:                 Lines:     1
    Local:         Field:     Default:                 style:    TinyBold
    Local:         Field:     K011FieldSNo:            info:     ""
    Local:         Field:     K011FieldVchDate:         info:     if ##K011BCode then "" else "Date"
    Local:         Field:     K011FieldVchCCName:    info:    ""
    Local:         Field:     K011FieldVchLN:         info:     ""
    Local:         Field:     K011FieldCCProjectName:    info:    ""
    Local:         Field:     K011FieldVchType:         info:     ""
    Local:         Field:     K011FieldVchVNo:         info:     ""
    local:        field:    K011FieldCCBudAmount:    info:    "Amount"
    local:        field:    K011FieldCCBudAmount:    Align:     Center
    Local:         Field:     K011FieldCCActAmount:     info:     "Amount"
    Local:         Field:     K011FieldCCActAmount:     Align:     Center
    local:        field:    K011FieldCCVarAmount:    info:    "Amount"
    local:        field:    K011FieldCCVarAmount:    Align:     Center
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Part:         K011PartDataCC]
    Line:         K011PartDataCCLine,
    Repeat:         K011PartDataCCLine:     K011CostCentreRepeatColl
    BottomLine:     K011PartDataTotalLine
    total:        K011FieldCCBudAmount
    Total:        K011FieldCCActAmount
    total:        K011FieldCCVarAmount
    Scroll:         vertical
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Line:         K011PartDataCCLine]
    Field:         K011FieldSNo, K011FieldCode, K011FieldCCBudgetLine, K011FieldCCBudgetLine1, K011FieldCCProjectName,
    Right Field:    K011FieldCCBudAmount, K011FieldCCActAmount, K011FieldCCVarAmount
    ;Remove if:      (if ##K011BValue then $$IsEmpty:$CCAmount else "")
    removeif:    $$IsExploded
    Space Top:         0.6
    Option:         ExplodeOnEnter
    option:        DisplayOnEnter ;; this line option will not initiate the alter
    Explode:     K011PartExplodeVouchers:     if $$IsEmpty:#ShortNameField then NO else ($$KeyExplode or ##ExplodeFlag)
    local:        field:    Default:                FORMAT:        "Bracketed:ForNegative,NoZero"
    local:        field:    Default:                Style:        TinyBold
    local:        field:    K011FieldSNo:            color:        Black
    local:        field:    K011FieldCode:            color:        Blue
    Border:         K011ThickBottom
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Border:     K011ThickBottom]
    bottom:        thick, Bold
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Field:        K011FieldSNo]
    Use :         NumberField
    SET AS:        $$Line
    width:        if $$InPrintMode then 4 else 4
    Align:         left
    Style:         if $Depth=4 Then "Tiny Bold Italic" else if $Depth=5  then "Tiny Italic" else "Tiny Bold"
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:        K011FieldCode]
    Use:            Name Field
    setas:        if $$IsEmpty:$$StringWord:1:@@K011CodeName = no then $$StringWord:1:@@K011CodeName else  ""
    width:        if $$InPrintMode then 7 else 10
    color:        if $Depth=4 then "Black" else if $Depth=5 then "Blue" else  "StoneWashRed"
    invisible:    if ##K011BCode then yes else no
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldCCBudgetLine]
    Use:             Name Field
    ;Display:        CCVouchers
    width:        if $$InPrintMode then 40 else if ##K011BValue then 75 else 65
    color:        StoneWashRed
    Align:         LEFT
    Set as:         $Name
    invisible:    yes
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:        K011FieldCCBudgetLine1]
    ;display:        CCVouchers
    delete:        Alter
    Use:             Name Field
    Use:             DSPAccNameTmpl
    setas:        $$StringRemWord:1:$Name
    width:        if $$InPrintMode then 40 else if ##K011BValue then 75 else 65
    color:        StoneWashRed
    Align:         LEFT
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [field:        K011FieldCCProjectName]
    use:            NameField
    WIDTH:        20
    Setas:        @@K011CCPR
    INVISIBLE:    YES
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldCCBudAmount]
    Use:             Amount Field
    format:        "DrCr"
    Set as:         $$AsCrAmt:@@K011CCBAmt
    Style:        Tiny
    invisible:    if ##K011BValue then yes else no
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [field:        K011FieldCCActAmount]
    use:            AmountField
    format:        "DrCr"
    color:        Blue
    Setas:        $$AsDrAmt:$CCAmount
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldCCVarAmount]
    Use:             Amount Field
    format:        "DrCr"
    Set as:         $$AsCrAmt:$$NettAmount:#K011FieldCCBudAmount:#K011FieldCCActAmount
    Style:        Tiny
    invisible:    if ##K011BValue then yes else no
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Part:         K011PartExplodeVouchers]
    Line:         K011PartExplodeVouchersLine
    Repeat:         K011PartExplodeVouchersLine:         K011CCVoucherLoopColl
    Scroll:         vertical
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Line:         K011PartExplodeVouchersLine]
    Field:         K011FieldSNo, K011FieldVchDate, K011FieldVchCCName, K011FieldVchLN, K011FieldCCProjectName, K011FieldCMPName, VID
    RightField:     K011FieldVchType, K011FieldVchVNo, K011FieldAmount1, K011FieldCCVchAmount,  K011FieldAmount3,
    Remove if:     #K011FieldVchCCName != #K011FieldCCBudgetLine
    local:        field:        Default:                FORMAT:        "Bracketed:ForNegative,NoZero"
    local:        field:        Default:                Style:        Tiny
    local:        field:        K011FieldSNo:            color:        StoneWashRed
    local:        field:        K011FieldSNo:            indent:        1
    local:        field:        K011FieldCCProjectName:    setas:        ""
    ;border:        K011ColumnTitlesBottom
    Space Top:     0.02
    Key:            VchAlter
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    [Line:         K011PartDataTotalLine]
    Field:         K011FieldSNo, K011FieldVchDate, K011FieldVchCCName, K011FieldVchLN, K011FieldCCProjectName
    Right Field:    K011FieldVchType, K011FieldVchVNo, K011FieldAmount1, K011FieldAmount2, K011FieldAmount3
    BORDER:        Totals
    Local:         Field:     Default:                 FORMAT:        "Bracketed:ForNegative,NoZero"
    Local:         Field:     Default:                 color:        Blue
    Local:         Field:     Default:                 style:        TinyBold
    Local:         Field:     K011FieldSNo:            Info:        ""
    Local:         Field:     K011FieldVchDate:        info:         ""
    Local:         Field:     K011FieldVchCCName:    info:         ""
    Local:         Field:     K011FieldVchLN:        info:         "Grand Total"
    Local:         Field:     K011FieldCCProjectName:    info:        ""
    Local:         Field:     K011FieldVchType:        info:         ""
    Local:         Field:     K011FieldVchVNo:        info:         ""
    local:        field:    K011FieldAmount1:        Setas:        $$Total:K011FieldCCBudAmount
    Local:         Field:     K011FieldAmount2:         setas:         $$Total:K011FieldCCActAmount
    local:        field:    K011FieldAmount3:        setas:        $$Total:K011FieldCCVarAmount
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Field:         K011FieldVchDate]
    ;Use:             ShortDateField
    use:            UniDateField
    Set as:         $Date
    Style:        Tiny
    width:        if $$InPrintMode then 8 else 10
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Field:         K011FieldVchCCName]
    Use:             ShortNameField
    Set as:         $CCName
    width:        20
    color:        blue
    Invisible:     Yes
    Style:        Tiny
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldVchLN]
    Use:             NameField
    Style:        Tiny
    line:        0
    Align:        left
    width:        if $$InPrintMode then 40 else if ##K011BValue then 75 else 65
    Set as:         $LedgerName + (if $$IsEmpty:$LedNarration then "" else " || LNarr:")+ $LedNarration + (if $$IsEmpty:$Narration then "" else " || CNarr:") +$Narration
    color:        Blue
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [FIELD:        K011FieldCMPName]
    use:            Namefield
    setas:        $CPName
    width:        8
    ;Alter:         Voucher
    ;Variable:     SVCurrentCompany
    ;Modifies:     SVCurrentCompany
    invisible:    yes
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldVchType]
    Use:             ShortNameField
    Set as:         $VoucherTypeName
    Width:         14
    Style:        Tiny
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldVchVNo]
    Use:             VoucherNumberField
    Set as:         $VoucherNumber
    Width:         13
    Style:        Tiny
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Field:         K011FieldCCVchAmount]
    Use:             Amount Field
    format:        "DrCr"
    Set as:         $$AsDrAmt:$VchCCAmount
    Style:        Tiny
    color:        StoneWashRed
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldAmount1]
    Use:             Amount Field
    format:        "DrCr"
    invisible:    if ##K011BValue then yes else no
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldAmount2]
    Use:             Amount Field
    format:        "DrCr"
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Field:         K011FieldAmount3]
    Use:             Amount Field
    format:        "DrCr"
    invisible:    if ##K011BValue then yes else no
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [#Field:         VID]
    Use:             Name Field
    Setas:         $$SPrintf:"ID:%s":$MasterID
    Invisible:     Yes
    [#Key:         VchAlter]
    Key:         Enter
    Action:         Call : AltVoucher:#VID
    Scope:         Current
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Key:         K011CostCentre]
    Title:         "Cost Centre"
    key:         Alt+1
    Action:         Modify Variables : Cost Centre Name
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [Button:     K011BValue]
    Title:         if ##K011BValue then "With Budget" else "Without Budget"
    Key:         Alt + 2
    Action:         Set:     K011BValue:     not ##K011BValue
    [Button:     K011BCode]
    Title:         if ##K011BCode then "With Code" else "Without Code"
    Key:         Alt + 6
    Action:         Set:     K011BCode:     not ##K011BCode
    [Variable:     K011BValue]
    Type:         Logical
    Persistent:     no
    [Variable:     K011BCode]
    Type:         Logical
    Persistent:     no
    [System:     Variable]
    K011BValue:     YES
    K011BCode:    yes
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    [Border:     K011TopThickBottomThin]
    Top:         Thick
    Bottom:     Thin
    [Border:     K011LeftThickThin]
    Left:         Thick
    [Border:     K011ColumnTitlesTop]
    Top:         Thick, Full Length
    [Border:     K011ColumnTitlesBottom]
    Bottom:     Thin,  Full Length
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    
    ;[#Object:     Voucher]
    ;VchCCAmt:     $$CollAmtTotal:AllLedgerEntries:$LedCCAmt
    ;[#Object:     LedgerEntry]
    ;LedCCAmt:     $$CollAmtTotal:CategoryAllocations:$CCatCCAmt
    ;[#Object:     Category Allocations]
    ;CCatCCAmt:     $$FilterAmtTotal:CostCentreAllocations:K011Smp CC Filter:$Amount
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    
    [System:     Formula]
    K011VTFil1:         $VoucherTypeName not Contains "Memorandum"
    K011VTFil2:         $VoucherTypeName not Contains "DELHI- BUDGET"
    K011VTFil3:         NOT $IsCancelled AND NOT $IsDeleted  and not $IsOptional
    K011Smp CC Filter:     $Name = #K011FieldCCBudgetLine
    K011CCNFilter:     $K011CCPR Contains ##CostCentreName
    K011CCFTFAPR:    Not $$NumChildren>0
    K011CCFA:         IF $Depth=2 THEN $Name ELSE $Parent:CostCentre:@@K011CCPR
    K011CCPR:         IF $Depth=3 THEN $Name ELSE $Parent:CostCentre:@@K011CCBL
    K011CCBL:         IF $Depth=4 THEN $Name ELSE $Parent:CostCentre:@@K011CCSBL
    K011CCSBL:         IF $Depth=5 THEN $Name ELSE $Parent:CostCentre:@@K011CCSSBL
    K011CCSSBL:         IF $Depth=6 THEN $Name ELSE ""
    K011IsBudVCH:        $VoucherTypeName contains "DELHI- BUDGET"
    K011LocSearchKey:    $Name
    K011CCBAmt:            $$ReportObject:$$CollectionFieldByKey:$CCVAmount:@@K011LocSearchKey:K011CollectionBA
    K011CodeName:        $$StringFindAndReplace:$Name:"-":""
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    ;[Collection:            K011CompanyColl]
    ;type:                Company
    ;Fetch:                Name
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    [Collection:             K011CCVoucherLoopColl]            ;; Resultant Collection
    Collection:             K011LCCollection;:         K011CompanyColl
    Sort:                 @@Default:             $$Date:$Date, $VoucherNumber
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    [Collection:             K011VchOfCostCentre]
    Type:                 Vouchers : CostCentre
    Child of:             ##CostCentreName
    Belongs To:             Yes   
    filter:                K011VTFil1, K011VTFil2, K011VTFil3
    Fetch:                 MasterID, Date, LedgerName, VoucherTypeName, VoucherNumber, Amount
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    [Collection:             K011LCCollection]
    Source Collection:     K011VchOfCostCentre
    Walk         :         AllLedgerEntries, CostCentreAllocations
    By            :        Date                : $Date
    By             :         LedgerName        : $LedgerName    
    By             :         CostCentreName    : $Name:CostCentre:$Name
    by            :        Amount            : $Amount
    Compute           :         Date                      : $Date
    compute        :        MasterID            : $MasterID
    Compute           :         VoucherTypeName    : $VoucherTypeName
    Compute           :         VoucherNumber     : $VoucherNumber
    Compute           :         Narration             : $().Narration
    compute        :        LedNarration        : $CostCentreAllocations.Narration
    Compute        :         CCName            : $Name:CostCentre:$Name
    Compute        :        VchCCAmount        : $Amount
    Compute        :         CPName            : $$LoopCollObj:$Name
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    [Collection:             K011CostCentreRepeatColl]             ;; Resultant Collection
    sourceCollection:    K011CostCentreLoopColl
    by:                    Name:        $Name
    aggrcompute:        CCAmount:    sum:    $$NettAmount:$DebitTotals:$CreditTotals
    sort:                Default:        $$Name, $Depth
    [Collection:             K011CostCentreLoopColl]
    Collection:            K011CostCentreColl;:        K011CompanyColl
    sort:                Default:        $$Name, $Depth
    [Collection:             K011CostCentreColl]
    Type:                 Cost Centre
    Filter:                 K011CCNFilter, K011CCFTFAPR
    Fetch:                 Name, Depth, MasterID, DebitTotals, CreditTotals
    sort:                Default:        $$Name, $Depth
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    [Collection:            K011CollectionBudgetVoucher]
    Type:                 Voucher
    filter:                K011IsBudVCH
    fetch:                MasterID, Date, VoucherNumber, VoucherTypeName,
    ParmVar:             SVFromDate:     Date:     $StartingFrom:Company:##SVCurrentCompany
    ParmVar:             SVToDate:     Date:     $LastVoucherDate:Company:##SVCurrentCompany
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
    [Collection:            K011CollectionBA]                    ;; Resultant Collection
    Source Collection:     K011CollectionBudgetVoucher
    Walk:                 AllLedgerEntries, CostCentreAllocations
    By:                     Name:        $Name:CostCentre:$Name
    searchkey:            $Name
    AGGRcompute:        CCVAmount:    Sum:        $Amount
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End of Coding
     


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Dear Kapil.......

    Expect you to stick to "topical" THREADS........

    When you queries are related to same module, it is better to stick to the same THREAD as you opened originally.

    Making different threads for separate queries on same issues, breaks the chain..........
     
    kapil22 likes this.


  3. kapil22

    kapil22 Member


    I just make to subject highlights to use different.
    Thanks I'll mind.
     


  4. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    The logic is like this.........one must think from the opposite person's mind......

    All idea is streamlined and in continuance ----- in your mind....but for others.... it takes time to go through the code... and understand....... so if topical thread is maintained.... experts / helpers can know and grasp easily.
     
    kapil22 likes this.


  5. kapil22

    kapil22 Member


    Yes I agree
     


  6. kapil22

    kapil22 Member




    Any help !!!
     


  7. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    by logic it should......and it is doing so.........

    if you remove a line, its exploded PART will also get removed.
     


  8. kapil22

    kapil22 Member


    no i remove line no suppose 4 no of cost centre, it remove cc line no. 1's exploded line no. 4.
     


  9. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Without data and proper understanding of your TDL's requirement.........

    I would say it is because of the condition of "Remove if" of the exploded part. Feel free to experiment on the condition.
     


  10. dipu369

    dipu369 Member


    Amit Sir, Can u please tell me the Collection of HSN CODE in "my sales register" which I made . Now I want a new column of HSN Code.
    Pl/help me .
     


  11. dipu369

    dipu369 Member


    This is ledger type i.e.
    Set as : $(LEDGER,$LEDGERNAME).GSTDETAILS[LA].HSNCODE
     


  12. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    First -- do not hijack threads.......make your own thread -- better for future reference by other members.
    Second -- Make your query proper... you said you have made your own report........ based on the report's fields the code has to be examined.
     
    Samiksha likes this.


  13. dipu369

    dipu369 Member


    Sir I did not Hijack but taken help from your site . I am professional of SAP-ABAP and in my own interest I am writing PRG in Tally . Some dept. of
    my office are using tally . Just Check or Run .
    My code is as follows :

    ;----------------Enabling Category Master Table-------------------------------------------------------------------

    ;[#Part: CMP AccFeat Left] ;;for TALLY ERP9
    ;Add: Line: CMP EnableSimoCatTable ;;for TALLY ERP9

    ; FOR Tally Prime
    [#Part: Company F11 Acc Features]
    Local : Part : Cfg PartContent : Add : Lines : CMP Use Type, CMP BillwiseOn, CMP CCOn, CMP Interest, CMP EnableSimoCatTable


    [Line: CMP EnableSimoCatTable]
    Field: Medium Prompt, CMP EnableSimoCatTable
    Local: Field: Medium Prompt: Info: "Enable Simo Category ? "
    Local: Field: Long Prompt: Info: "Enable CAT wise Report.? "

    Space Top: 1

    [Field: CMP EnableSimoCatTable]
    Use: Logical Field
    Storage: EnableSimoCat
    Set as: If $$IsEmpty:$$Value then "No" else $$Value

    Sub Form: SimoReport: $$Value = "Yes"


    [#Menu: Gateway Of Tally]

    Add : Item : before : @@locQuit : Simo Module : Menu : SIMOMenu

    [Menu: SIMOMenu]
    Add : Item : SIMO Category Master : Alter : Category Name
    Add : Item : Blank

    ;;Add : Item : SIMO Service Register : Display : SimoReport

    Key Item : SIMO Service Register : S : Display : SimoReport

    Control : SIMO Category Master : NOT ##SVEducationalMode


    [Report: Category Name]
    Form : Category Name
    Object : Company


    [Form: Category Name]
    Part : FormSubTitle, Catman

    ;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations

    FullWidth : No
    Height : 90% Screen
    Background : @@SV_CHEQUE
    SpaceRight : 0.5
    SpaceLeft : 1.5
    Local : Field : Form SubTitle : Info : $$LocaleString:"Simo Category"
    Option : Small Size Form


    [Part: Catman]
    Lines : CMP SimoCat
    Repeat : CMP SimoCat:mydbSimoCat
    Break on: $$IsEmpty:$SimoCatName
    Scroll : Vertical
    Height : 90% Screen

    [Line: CMP SimoCat]
    Fields : Multi SNo, CMPCatName
    Local : Field : Default : Delete : Border

    [Field: CMPCatName]
    Use : Short Name Field
    Storage : SimoCatName
    Unique : Yes


    [System: UDF]
    mydbSimoCat : Aggregate: 999
    SimoCatName : String : 1000 ;: Yes


    [Collection : SimoCatNameCollection]
    Type : mydbSimoCat : Company
    Childof : ##SVCurrentCompany
    Format : $SimoCatName, 6
    Title : Category Name

    ;=============== Category feature During Sales Voucher Entry=============

    ;;[#Part: EI BaseInfo] for Tally ERP9

    [#Part: EI Consignee]
    Option: HPSimoCatName: $$IsSales:##SVVoucherType OR $$IsCreditNote:##SVVoucherType


    [!Part: HPSimoCatName]
    Add: Line: HPSimoCatName

    [Line: HPSimoCatName]
    Add: Field: HPSimoCatNameTitle
    Add: Field: VCHSimoCatName

    [Field: HPSimoCatNameTitle]
    Info : "Simo Category : "
    Color : Blue
    Style : Normal Bold
    Width: 14


    [Field: VCHSimoCatName]
    Use : Name Field
    Storage : VCHSimoCatName
    Set as : $VCHSimoCatName
    Width : 25
    Table : SimoCatNameCollection, not applicable
    Show Table: Always
    Key : Create SimoCatName

    [Key: Create SimoCatName]
    Key :Alt + C
    Action: Alter: SimoCatName

    [System: UDF]
    VCHSimoCatName:String:375


    ;===========================Sub Form: SimoReport: Sales/Service Register=====================


    [Report: SimoReport]
    Use : DSP Template
    Form : PQRReport
    Title : "Daily SIMO Service Register"


    Set : SVFromDate : $$MonthStart:##SVCurrentDate
    Set : SVToDate : $$MonthEnd:##SVCurrentDate

    ;Set : SV From Date : if $$InPrintMode then $$MonthStart:##SVCurrentDate else ##SVCurrentDate
    ;Set : SV To Date : if $$InPrintMode then $$MonthEnd:##SVCurrentDate else ##SVCurrentDate


    Set : SIMOCatChqVar : "Full"
    Set : SIMOCatName : ""

    [Form: PQRReport]
    Use : DSP Template
    Parts : PQRReport
    Height : 100% screen
    Width : 100% screen
    Delete : Buttons: ExplodeFlag

    ;Background: @@SV_RELEASEDLEAFGREEN_PL ; Very Light Sea Green

    Background : @@SV_UNYELLOW


    ;Background : white

    ;Delete : Bottom Buttons: DSPAutoColumns, RelReports,BudgetAnalysis, ReportConfig

    Bottom Toolbar Buttons : BottomToolBarBtn1, BottomToolBarBtn6, BottomToolBarBtn7, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12,


    ;Add: Button: SIMOCatfilter ; omitted because used tally style search/Filter

    [Part: PQRReport]
    Lines:pQRTitile,PQRBody
    BottomLines : PQRBody Total
    Repeat : PQRBody :pQRSIMOCatVouchersColl
    CommonBorder: Yes
    Scroll : Vertical
    Total :pQRPartyAmount,MyVchfNo2,MyVchfNo3,MyVchfNo4,MyVchAmount2x

    [Line: PQRTitile]
    Use:pQRBody
    Local : Field : Default : Type : String
    Local : Field : Default : Style : Tiny Bold
    Local : Field : Default : Align : Centre
    Local : Field : Default : Color : Pqrcolr2 ;deep green

    Local : Field : Default : set as : $$LocaleString:"Sl"
    Local : Field : PQRPartyDate : Set as: $$LocaleString:"Date"
    Local : Field : PQRPartyVchNo : Set as: $$LocaleString:"Invoice No."
    Local : Field : PQRPartySIMOCat: Set as: $$LocaleString:"Cat"

    Local : Field : SimoGrp : Set as: $$LocaleString:"Group"

    Local : Field : PQRDistName : Set as: $$LocaleString:"Party Name"

    Local : Field : MyVchTIN2 : Set As : "GST No"


    Local : Field : PQRPartyVchType : Set As : $$LocaleString:"Type"

    Local : Field : PQRState : Set As : $$LocaleString:"State Name"

    Local : Field : PQRHSN : Set As : $$LocaleString:"HSN Code"

    Local : Field : MyVchAmount2x : Set As : $$LocaleString:"Basic Amount"

    Local : Field : MyVchfNo2 : Set As : $$LocaleString:"CGST"
    Local : Field : MyVchfNo3 : Set As : $$LocaleString:"SGST"
    Local : Field : MyVchfNo4 : Set As : $$LocaleString:"IGST"

    Local : Field : PQRPartyAmount : Set as: $$LocaleString:"Invoice Amount"

    Border : Flush Totals

    [Line: PQRBody]
    Field:pQRSno, PQRPartyDate,PQRPartyVchNo,PQRPartySIMOCat,SimoGrp,PQRDistName,MyVchTIN2,PQRPartyVchType,PQRState,PQRHSN

    RightField: MyVchAmount2x,MyVchfNo2,MyVchfNo3,MyVchfNo4,pQRPartyAmount ;;,MyVchAmount2x

    Border :Thin Bottom

    [Field:pQRSno] ;Serial No
    Set as : $$Line
    Width : 1.0 cm
    Align : Center
    Border : Thin Left Right
    ;Color : Blue
    ;Style : Normal Bold


    [Field: PQRPartyDate] ; Bill Date
    Set as : $Date
    Width : 6% Screen
    Align : Right
    Style : Tiny
    Border : Thin Left
    ;Color : Blue
    ;Style : Normal Bold

    [Field: PQRPartyVchNo] ; Bill No
    Set as : $VoucherNumber
    ;Width : 9% Screen
    Width : 16
    Align : Center
    Style : Tiny
    Border : Thin Left
    ;Color : Blue
    ;Style : Normal Bold


    [Field: PQRPartySIMOCat] ; Category
    Use :Name Field
    Set as :$VCHSIMOCatName
    Border : Thin Left
    ;Width : 3.5% Screen
    Width : 5
    Align : Centre
    Style : Tiny
    Color : Pqrcolr ;Blue
    ;Style : Normal Bold
    Key : Create SIMOCatName


    [Field: Simogrp] ; Group Name
    Use : Name Field
    Set as : $Parent:Ledger:$PartyLedgerName
    Border : Thin Left
    ;Width : 12% Screen
    Width : 16
    Align : Centre
    Color : Blue
    ;Style : Normal Bold
    Style : Tiny



    [Field: PQRDistName] ; Party Name
    Use : Name Field
    Set as : $PartyLedgerName
    Border : Thin Left
    Width : 40% Screen
    Align : Left
    Style : Tiny
    ;Color : Blue
    ;Style : Normal Bold
    Variable: LedgerName
    Display : Ledger Vouchers


    [Field : MyVchTIN2] ; GST No.
    Use : Name Field
    Set As :$PartyGSTIN:Ledger:$PartyLedgerName ;;$VATTINNumber
    Width : 17
    Style : Tiny
    Border : Thin Left



    [Field: PQRPartyVchType] ; Voucher Type
    Set as : $VoucherTypeName
    Border : Thin Left
    ;Width : 6% Screen
    Width : 12
    Align : Center
    ;Color : Blue
    ;Style : Normal Bold
    Style : Tiny


    [Field: PQRState] ; State Name
    Set as : $Ledstatename:Ledger:$PartyLedgerName
    Border : Thin Left
    ;Width : 6% Screen
    Width : 12
    Align : Left
    ;Color : Blue
    ;Style : Normal Bold
    Style : Tiny


    [Field: PQRHSN] ; hsn cODE
    Set as : $(LEDGER,$LEDGERNAME).GSTDETAILS[LA].HSNCODE

    Border : Thin Left
    ;Width : 6% Screen
    Width : 6
    Align : Left
    ;Color : Blue
    ;Style : Normal Bold
    Style : Tiny


    [Field : MyVchAmount2x] ; Basic Amount
    Use : Amount Forex Field
    Set as : $Amount-($SGST + $CGST + $IGST)
    Border : Thin Left
    ;Width : 8% Screen
    Width : 15
    Align : Right
    Style : Tiny


    [Field : MyVchfNo2] ; CGST Amount
    Use : Amount Forex Field
    Set as:$$FilterAmtTotal:LedgerEntries:CGST1:$Amount
    Border : Thin Left
    ;Width : 6% Screen
    Width : 10
    Style : Tiny
    Align : Right


    ;***********************
    [Field : MyVchfNo3] ; SGST Amount
    Use : Amount Forex Field
    Set as : $$FilterAmtTotal:LedgerEntries:SGST1:$Amount
    Border : Thin Left
    ;Width : 6% Screen
    Width : 10
    Style : Tiny
    Align : Right



    ;***********************
    [Field : MyVchfNo4] ; IGST Amount
    Use : Amount Forex Field
    Set as : $$FilterAmtTotal:LedgerEntries:IGST1:$Amount;$IGSTAMOUNT
    Border : Thin Left
    Width : 6% Screen
    Width : 12
    Style : Tiny
    Align : Right



    [Field: PQRPartyAmount] ; TOTAL Bill Amount
    Use : Amount Forex Field
    Set as : $Amount
    Border : Thin Left
    ;Width : 8% Screen
    Width : 16 ;16
    Align : Right
    ;Color : Blue
    ;Style : Normal Bold
    Style : Tiny
    Format : "No Zero,DrCr,Symbol," + ##ShowForex



    [Line: PQRBody Total]
    Use:pQRBody
    Local : Field : Default : Type : String
    Local : Field : Default : Style : Tiny Bold
    Local : Field : Default : Align : Right

    Local : Field : Default : Color : Pqrcolr2 ;deep green

    Local : Field : PQRSno : Set as: ""
    Local : Field : PQRPartyDate : Set as: ""

    Local : Field : PQRPartyVchNo : Set as: ""

    Local : Field : PQRPartySIMOCat: Set as: ""

    Local : Field : PQRDistName : Set as: "TOTAL"
    Local : Field : PQRDistName : Align : Centre

    Local : Field : PQRPartyVchType : Set as: ""

    Local : Field : PQRPartyAmount : Set as: $$Total:pQRPartyAmount
    Local : Field : MyVchAmount2x : Set as: $$Total:MyVchAmount2x

    Local : Field : MyVchfNo2 : Set as: $$Total:MyVchfNo2
    Local : Field : MyVchfNo3 : Set as: $$Total:MyVchfNo3
    Local : Field : MyVchfNo4 : Set as: $$Total:MyVchfNo4

    ;Local : Field : PQRPartyAmount :Set as : $$AsPositive:$$Total:pQRPartyAmount
    Border : Flush Totals

    ;============================== Filter ===================================

    [Button:SIMOCatFilter]
    Key : Alt+S
    Action : Execute : SIMOCatFilter
    ;Title : SIMOCat Name
    Title : SIMO Category Search
    Inactive: Not $EnableSimoCat:Company:##SVCurrentCompany

    [Report:SIMOCatFilter]
    Form : SIMOCatFilter
    ;Set : SIMOCatName : ""
    Set : SIMOCatChqVar : "Filter"

    [Form:SIMOCatFilter]
    Part : SIMOCatFilter
    No Confirmation : Yes

    [Part:SIMOCatFilter]
    Line : SIMOCatFilter

    [Line:SIMOCatFilter]
    Field : Medium Prompt,SIMOCatFilter
    Local : Field : Medium Prompt : Set as : "Select SIMOCat Name: "

    [Field:SIMOCatFilter]
    Table : SIMOCatNameCollection,EndOfList
    ShowTable : Always
    Use : Name Field
    Width : 20
    Border : Thin Box
    Variable : SIMOCatName
    Modifies : SIMOCatName



    ;================================================================================================
    ;===================================== Collections =================================================

    [Collection: PQRSIMOCatVouchersColl]
    Type : Voucher
    Fetch : Date, VoucherNumber,VCHSIMOCatName,LedgerName,PartyLedgerName,VoucherTypeName,Ledstatename,Name, Parent ,LEDGERNAME.HSNCODE LedgerEntries.*

    Fetch : CGSTAmount,SGSTAmount,IGSTAmount

    Compute:IGSTAmount:$$CollAmtTotal:InventoryEntries:$Amount * $(Stockitem,$stockitem).GSTIGSTRate / 100 ; ledger entries
    Compute:CGSTAmount :$$CollAmtTotal:InventoryEntries:$Amount * $(Stockitem,$stockitem).GSTIGSTRate / 100/2
    Compute:SGSTAmount:$$CollAmtTotal:InventoryEntries:$Amount * $(Stockitem,$stockitem).GSTIGSTRate / 100/2

    Filter : PQRSaleManVouchers
    Filter : SIMOCatFilter

    [System:UDF]
    EnableSIMOCat : Logical : 1000


    [Variable:SIMOCatName]
    Type : String

    [Variable:SIMOCatChqVar]
    Type : String

    [System:Variable]
    SIMOCatName : ""
    SIMOCatChqVar : ""


    [System: Formula]
    SGST :$$FilterAmtTotal:LedgerEntries:SGST1:$Amount
    SGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"SGST"

    CGST :$$FilterAmtTotal:LedgerEntries:CGST1:$Amount
    CGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"CGST"

    IGST :$$FilterAmtTotal:LedgerEntries:IGST1:$Amount
    IGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"IGST"

    [System: Formula]
    PQRSaleManVouchers: $$IsSales:$VoucherTypeName ;;OR $$IsCreditNote:$VoucherTypeName

    SIMOCatWise : $VCHSIMOCatName=@@SIMOCatEOL
    SIMOCatFull : $VCHSIMOCatName=$VCHSIMOCatName
    SIMOCatEOL : if $$IsEndOfList:##SIMOCatName then $VCHSIMOCatName Else ##SIMOCatName
    SIMOCatFilter : if ##SIMOCatChqVar="Filter" Then @@SIMOCatWise Else @@SIMOCatFull


    [Color:pqrcolr]
    RGB :0,255,0

    [Color:pqrcolr2]
    RGB :0,51,0

    [Color:pqrcolr3]
    RGB :0,51,102
     

    Attached Files:



  14. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    In the CONTEXT of this website/forum.......... Hijack means.... the topic of this thread is "this" and you are inserting "that"......

    Your query has nothing to do with the TOPICAL of this thread.... which is ...... "
    Remove Line automatically remove exploded part's line... Please Help
     
    Samiksha and kapil22 like this.


  15. dipu369

    dipu369 Member


    Sir at the time of fetching , shall I fetch with filed name HSNCode or another thing ? fetch HSNCode is not coming.

    Type : Voucher
    Fetch : HSNCode
     


  16. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    if you need answers then............... refer to POST # 12 and 14 ............. thanks.
     


  17. dipu369

    dipu369 Member


    Nothing is found in POST # 12 and 14 regarding HSNCode.
     


  18. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Right..... so read the POST carefully and ...make your own Thread.......
     


Share This Page