1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Explode commande error

Discussion in 'Free Source Codes' started by Atul Khakher, Apr 9, 2024.

    
  1. Atul Khakher

    Atul Khakher Member


    Can any one suggest error correction. Its quit with internal error

    [Part: QDMMPrices]



    Top Part:QDMMPriceTitlePart

    Part:QDMMPrices1

    Bottom Part:QDMMPriceTotal

    Vertical: Yes

    Border : Blue Thick Box





    [Part: QDMMPriceTitlePart]

    Lines: QDMMPriceTitle1,QDMMPriceTitle2

    Border : Column Titles

    Common Border: Yes



    [Part:QDMMPrices1]

    Common Border: Yes

    Lines: QDMMPriceData

    Repeat: QDMMPriceData : QDMMPrices

    Break On: $$IsEnd:$ModelNo ;;@@EmptyModelNo

    Scroll: Vertical

    Float : No

    Total:QDMMPrice



    [Part:QDMMPriceTotal]

    Line:QDMMPriceTotal

    Border:Totals



    [Line:QDMMPriceTitle1]



    Use: QDMMPriceData





    Local : Field : Default : Delete : Storage

    Local : Field : Default : Inactive : No

    Local : Field : Default : Type : String

    Local : Field : Default : Align : Center

    Local : Field : Default : Border : Delete

    Local : Field : Default : Print FG : White

    Local : Field : Default : Skip : Yes

    Local : Field : Default : Lines : 0

    Local : Field : QModelNo : Info : $$LocaleString:”Product Name"

    Local : Field : QDMMQty : Info : $$LocaleString:"Qty"

    Local : Field : QDMMRate : Info : $$LocaleString:"Unit"

    Local : Field : QDMMFreight : Info : $$LocaleString:"P&F "

    Local : Field : QDMMGST : Info : $$LocaleString:"GST"

    Local : Field : QDMMPrice : Info : $$LocaleString:"Total"

    Local : Field: Default : Delete : Print BG

    Local : Field: Default : Delete : Background





    [Line:QDMMPriceTitle2]



    Fields: QModelNoTitle, QDMMQtyTiTle, QDMMRateTitle, QDMMFreightTitle, QDMMGSTTitle, QDMMPriceTiTle

    Use: QDMMPriceData

    ;;Delete:Space Top

    ;;Delete:Space Bottom



    Local : Field: Default : Delete: Print BG

    Local : Field : Default : Delete : Storage

    Local : Field : Default : Inactive : No

    Local : Field : Default : Type : String

    Local : Field : Default : Skip : Yes

    Local : Field : Default : Align : Center

    Local : Field: Default : Print FG : White

    Local : Field: Default : Delete : Print BG

    Local : Field: Default : Delete : Background

    Local : Field : Default : Border : Delete

    Local : Field : QModelNo : Info : $$LocaleString:"Models (HSN code: __________ )"

    Local : Field : QDMMQty : Info : $$LocaleString:"Nos"

    Local : Field : QDMMRate : Info : $$LocaleString:"Rate"

    Local : Field : QDMMFreight : Info : $$LocaleString:"Charges"

    ;; Local : Field : QDMMNetAmt : Info : $$LocaleString:""

    Local : Field : QDMMGST : Info : $$LocaleString:"@ 18%"

    Local : Field : QDMMPrice : Info : $$LocaleString:"Price(Rs.)"



    [Line:QDMMPriceTotal]



    Use: QDMMPriceData

    Space Bottom: 1

    Border: Totals



    Local : Field : Default : Delete : Storage

    Local : Field : Default : Inactive : No

    Local : Field : Default : Type : String

    Local : Field : Default : Skip : Yes

    Local : Field : Default : Align : Center

    Local : Field: Default : Delete : Background

    Local : Field: Default : Delete : Print BG

    Local : Field : Default : Border : Delete

    Local : Field : QModelNo : Set As : $$InWords:$QDMMPriceTotal +"Only";;$$LocaleString:"Total"

    Local : Field : QDMMQty : Info : $$LocaleString:" "

    Local : Field : QDMMRate : Info : $$LocaleString:" "

    Local : Field : QDMMFreight : Info : $$LocaleString:"Total : "

    ;;Local : Field : QDMMNetAmt : Info : $$LocaleString:" "

    Local : Field : QDMMGST : Info : $$LocaleString:" "

    Local : Field : QDMMPrice : Key : calculator

    Local : Field : QDMMPrice : Type : Amount

    Local : Field : QDMMPrice : Set as : ($$Total:QDMMPrice)

    Local : Field : QDMMPrice : Storage : QDMMPriceTotal

    Local : Field : QDMMPrice : Format : "Currency,ShowBaseSymbol"



    [Line: QDMMPriceData]



    Explode: NM DescExplosion :Yes ;; please check this

    ;; Explosions:NM DescExplosion : $$InExportMode

    Local : Line : NM DescExplosion : Indent : 1

    Fields: QModelNo, QDMMQty,QDMMRate, QDMMFreight, QDMMGST, QDMMPrice

    Space Top: 1 mms

    Space Bottom: 1 mms

    Next Page : NOT $$DoExplosionsFit OR (($$LineNumber = $$LastLineNumber) AND $$IsLastOfSet)



    [Field:QModelNo]



    Use: Name Field



    Set as: $ModelNo

    Storage: ModelNo

    Full Width: Yes

    ;; Width: 50

    Border : White Thick Left Right

    Table: List of Stock Items, End of List

    Sub Form : NM DescExplosion : Not $$IsEnd:$ModelNo

    Show Table: Always



    [Field:QDMMQty]

    Use: Number Field

    Align: Right

    Set as: $QDMMqty

    Storage: QDMMQty

    Border : White Thick Left Right

    Inactive: @@EmptyModelNo



    [Field: QDMMRate]

    Use: Amount Field

    Set as: $QDMMRate

    Format : "Currency,ShowBaseSymbol"

    Storage: QDMMRate

    Key : Calculator

    ;; Border: Red Thick Left

    Border : White Thick Left Right

    ;; Width: 8

    Inactive: @@EmptyModelNo



    [Field:QDMMFreight]

    Use: Amount Field

    Set as: $DMMFreight

    Storage:DMMFreight

    Format : "Currency,ShowBaseSymbol"

    Key : Calculator

    Border : White Thick Left Right

    Inactive: @@EmptyModelNo



    [Field:QDMMNetAmt]

    Use: Amount Field

    Set as: ((#QDMMQty*#QDMMRate)+#QDMMFreight)

    Key : Calculator

    Border : White Thick Left Right

    Set Always: Yes

    Invisible: Yes

    Inactive : @@EmptyModelNo



    [Field:QDMMGST]

    Use: Amount Field

    Set as: ((#QDMMQty*#QDMMRate)+#QDMMFreight)*(0.18)

    Set Always: Yes

    Format : "Currency,ShowBaseSymbol"

    Skip: Yes

    Key : Calculator

    Border : White Thick Left Right

    Inactive: @@EmptyModelNo



    [Field:QDMMPrice]

    Use: Amount Field

    Set as: (((#QDMMQty*#QDMMRate)+#QDMMFreight)+#QDMMGST)

    Set Always: Yes

    Format : "Currency,ShowBaseSymbol"

    Skip: Yes

    Key : Calculator

    Border : White Thick Left Right

    Inactive: @@EmptyModelNo





    [Part:QDMMPriceList]

    Border: Blue Thick Box

    Parts: QDMMPriceTitlePart,QDMMPriceList1

    Bottom Part:QDMMPriceTotal

    Vertical: Yes

    Common Border: Yes

    ;; Option: SkyBlueBG Part: $$InExportMode

    Background: @@CatalogueBG

    Print BG: @@CatalogueBG



    [Part:QDMMPriceList1]



    Background: @@CatalogueBG

    Print BG: @@CatalogueBG

    Lines: QDMMPriceData

    Repeat: QDMMPriceData : QDMMPriceList

    Break On: @@EmptyModelNo

    ;; Local: Field: Default : Skip: Yes

    Scroll: Vertical



    [Part: NM DescExplosion]



    Local:Field:Default : Style : Small Italic

    Line : NM DescExplosion

    Repeat : NM DescExplosion : BasicUserDescription

    BreakOn : $$IsEmpty:$BasicUserDescription

    Scroll : Vertical



    [Line: NM DescExplosion]



    Fields : NM Desc

    Indent : If $$InPrintMode Then 3 Else 2

    Remove if : #NMDesc = $$String:0

    [Field: NM Desc]



    Use : Name Field

    Style : Small Italic

    Storage : BasicUserDescription

    Full Width: Yes

    ;;Set as: $$Value



    Set as : If (($$ExplodeLevel = 0) AND ($$Line = 1)) Then $Description:StockItem:$ModelNo Else $$Value



    [Report: NM DescExplosion] ;; For StockItem



    Title : $$LocaleString:"Description of Item"



    [Form: NM DescExplosion]



    Part : EI DescTitle, NM DescExplosion

    Height : 80% Page

    Width : 80% page

    FullWidth : Yes

    Space Right : 2



    Local : Line : Form SubTitle : Local : Field : Form SubTitle : Info : $$LocaleString:"Description(s) for Item"









    [System: UDF]





    QDMMQty :Number: 11011

    QDMMRate :Amount: 11012

    QDMMPrices: Aggregate: 11013

    QDMMPriceTotal:Amount: 11014
     
    Atul Khakher, Apr 9, 2024
    #1


Share This Page