MONTHLY SALE PURCHASE CR DR NOTE IN SAME PAGE

Discussion in 'Free Source Codes' started by SHREYASH PATIL, Aug 25, 2023.

    

  1. [System : UDF]
    UDFColNo : Number : 500
    [#Part: MST LED Details]
    Add : Option : PrtNonPartyLed : NOT $IsDebtorCreditor
    [!Part: PrtNonPartyLed]
    Lines : LnColNoInColReport
    [Line: LnColNoInColReport]
    Field : Long Prompt, FldColNoInColReport
    Local : Field : Long Prompt : Setas : "Column No in Columer Report :"
    [Field : FldColNoInColReport]
    Use : Number Field
    Storage : UDFColNo
    [#Menu: Account Books]
    Add : Item : Before : @@locQuit : Details Monthly Summery : Display Collection : ClnVoucherTypes : NOT $$IsEmpty:$$SelectedCmps
    [Collection : ClnVoucherTypes]
    Type : Voucher Type
    Format : $$Name, 20
    Align : Right
    FullHeight : Yes
    Title : $$LocaleString:"Select Voucher Type"
    Fetch : Name, Parent, IsDeemedPositive
    Report : RptMonthlySummaryRegister
    Variable : SVoucherType
    Trigger : SVoucherType1
    Filter : OnlySalePurchase
    BelongsTo : Yes
    WithAlias : Yes
    Set as : $Name
    Fetch : SortPosition, AdditionalName
    [Report: SVoucherType1]
    Use : Collection Variable
    Title : $$LocaleString:"Select Voucher Type"
    Local : Line : Collection Variable : Field : SVoucherType1
    Local : Field: MV Title : Info : $$LocaleString:"Voucher Type"
    [Field: SVoucherType1]
    Use : Name Field
    Table : ClnVchrList
    Show Table : Always
    Key : Create Voucher Type
    Modifies : SVoucherType
    [Collection : ClnVchrList]
    use : ExtractVoucherType
    Filter : OnlySalePurchase
    [Report : RptMonthlySummaryRegister]
    Use : DSP Template
    Title : "Columnar Register - Monthly Summery"
    Form : FrmMonthlySummaryRegister
    Family : $$Translate:"Sales Register"
    [Form : FrmMonthlySummaryRegister]
    Use : DSP Template
    Parts : DSP AccTitles, PrtMSmryTitles, PrtMSmryColTitles, PrtMSmryDetails
    Option : SmallSizeForm : NOT $$InPrintMode
    [Part : PrtMSmryTitles]
    Lines : Empty, LnMSmryTitles, LnMSmryTitles2
    [Line : LnMSmryTitles]
    Fields : Name Field, FldCheckVchrTypeDRCR
    Local : Field : Name Field : Set As : "Monthly Summary of " + ##SVoucherType
    [Line : LnMSmryTitles2]
    Fields : Name Field
    Local : Field : Name Field : Set As : "For the period from " + $$String:##SVFromDate + " to " + $$String:##SVToDate
    Local : Field : Name Field : FullWidth : Yes
    Border : Thick Bottom
    [Field : FldCheckVchrTypeDRCR]
    Use : Logical Field
    set as : $IsDeemedPositive:VoucherType:##SVoucherType
    Invisible : Yes
    [Part : PrtMSmryColTitles]
    Lines : LnMSmryColTitles
    Common Border : Yes
    [Line : LnMSmryColTitles]
    Use : LnMSmryColDetails
    Local : Field : Default : Type : String
    Local : Field : Short Name Field : Set As : "Month"
    Local : Field : FldMSmryMONTH : Set As : "Month"
    Local : Field : FldMSmryAmt : Set As : $LName
    Local : Field : FldMSmryAmt : Line : 0
    Local : Field : FldMTotal : Set As : "Total"
    Border : Thick Bottom
    [Part : PrtMSmryDetails]
    Lines : LnMSmryColDetails, LnMSmryColTotals
    Repeat : LnMSmryColDetails : ClnDatewiseSales
    Scroll : Vertical
    [Line : LnMSmryColDetails]
    Fields : Short Name Field, FldMSmryMONTH, FldMSmryAmt, FldMTotal
    Repeat : FldMSmryAmt : ClnSaleLeds
    Local : Field : Short Name Field : Set As : $PMonth + " - " + $PYear
    Local : Field : FldMSmryMONTH : Set As : $mDate
    Local : Field : FldMSmryAmt : Set As : @ExactAmt
    Local : Field : FldMTotal : Set As : $MAmount1
    [Line : LnMSmryColTotals]
    Fields : Short Name Field, FldMSmryMONTH, FldMSmryAmtTot, FldMTotalTot
    Repeat : FldMSmryAmtTot : ClnSaleLeds
    Local : Field : Short Name Field : Set As : "Total"
    Local : Field : FldMSmryMONTH : Set As : ""
    Local : Field : FldMSmryAmtTot : Set As : @ExactAmt
    Local : Field : FldMTotalTot : Set As : $$CollAmtTotal:ClnSaleLeds:$MAmount
    Border : Totals
    [Field : FldMSmryMONTH]
    Use : Short Name Field
    Invisible : Yes
    [Field : FldMSmryAmt]
    Use : Amount Field
    mSrchKey : #FldMSmryMONTH + $LName
    mAmt : $$ReportObject:$$CollectionFieldByKey:$MAmount:mad:mSrchKey:ClnMonthLedMatrix
    ExactAmt : if #FldCheckVchrTypeDRCR then (if $$IsDr:mad:mAmt then @mAmt * -1 else @mAmt) else (if $$IsDr:mad:mAmt then @mAmt else @mAmt * -1)
    [Field : FldMTotal]
    Use : Amount Field
    [Field :FldMSmryAmtTot]
    Use : Amount Field
    mAmt : $$ReportObject:$$CollectionFieldByKey:$MAmount:$LName:ClnSaleLeds
    ExactAmt : if #FldCheckVchrTypeDRCR then (if $$IsDr:mad:mAmt then @mAmt * -1 else @mAmt) else (if $$IsDr:mad:mAmt then @mAmt else @mAmt * -1)
    [Field : FldMTotalTot]
    Use : Amount Field
    [Collection: ClnSaleVchrs]
    Type : Voucher
    Fetch : Date, SanVchrYearMonth, PartyLedgerName, Amount
    Filter : SanSelectedVchr
    [Collection: ClnSaleLeds]
    Source Collection : ClnSaleVchrs
    Walk : All Ledger Entries
    By : LName : $LedgerName
    By : ColNo : $mColNo
    Aggr Compute : MAmount : SUM : $Amount
    Filter : SanNonParty
    Keep Source : ().
    Search Key : $LName
    Sort : Default : $ColNo
    [#Object : Voucher]
    SanVchrYearMonth : $$String:mad:@mVchrYear + $$ZeroFill:mad:@mVchrMonthNo:2
    [#Object : Ledger Entry]
    mColNo : $UDFColNo:Ledger:$LedgerName
    [#Object : Ledger]
    IsDebtorCreditor : $$IsBelongsTo:$$GroupSundryDebtors OR $$IsBelongsTo:$$GroupSundryCreditors
    [System : Formula]
    mVchrYear : $$YearOfDate:$Date
    MVchrMon : $$MonthOfDate:$Date
    mVchrMonthNo : $$String:mad:@MVchrMon
    [Collection: ClnDatewiseSales]
    Source Collection : ClnSaleVchrs
    By : PYear : $$YearOfDate:$Date
    By : PMonth : $$FullMonthName:$Date
    By : mDate : $SanVchrYearMonth
    Aggr Compute : MAmount1 : SUM : $Amount
    Keep Source : ().
    Sort : Default : $mDate
    Search Key : $mDate
    [Collection: ClnMonthLedMatrix]
    Source Collection : ClnSaleVchrs
    Walk : All Ledger Entries
    By : PYear : $$YearOfDate:$Date
    By : PMonth : $$FullMonthName:$Date
    By : mDate : $SanVchrYearMonth
    By : LName : $LedgerName
    Aggr Compute : MAmount : SUM : $Amount
    Keep Source : ().
    Search Key : $mDate + $LName
    Filter : SanNonParty
    [System: Formula]
    SanNonParty : NOT $IsDebtorCreditor:Ledger:$LName
    SanSelectedVchr : $VoucherTypeName = ##SVoucherType
    OnlySalePurchase : $$IsSales:$Parent OR $$Ispurchase:$Parent OR $$IsDebitNote:$Parent OR $$IsCreditNote:$Parent
    ;;==============
    Regards
     



  2. In the above code what to do if we want all in one page purchase sales credit Note etc
     


Share This Page