Delivery Note Source Code : Help me in page break up and bottom totals field

Discussion in 'Requests' started by vinayprasad.Dubai, Nov 5, 2018.

    

  1. Code:
    ;::::::::::::::OM NAMHA SHIVYA::::::::::::::::::
    
    ;::::::::::::::SRI ganesha :::::::::::::::::::::
    ;; Author Vinay::::
    ;:: Dated : 05-11-2018
    
    [#Form     : Delivery Note Color]
    Delete     : Print  : Printed Invoice
    Print    : Del focus Delivery Note
    
    [Report : Del focus Delivery Note]    
    Form     : Del focus Delivery Note
    Object     : Voucher
    
    
    [Form     : Del focus Delivery Note]  
    
        Space Top    : 35 MM
        Space Bottom: 0
        Space Left    : 0.5 inch
        Space Right    : 0.5 inch
        ;Height        : 100% Page
        ;Width        : 100% Page   
        Add            : Parts            : DEL title part
        Add         : Parts            : DEL Invoice Top Part
        Add            : Parts            : DEL invoice Column Titles
        Add         : Parts            : DEL Invoice Body Part
        Add         : Bottom Parts  : DEL Invoice Bottom Part
        Page Break  : my OpPageBreak, my ClPageBreak
        
    
                       
    [Part: my OpPageBreak]
            Line: DEL PageBreak
              Vertical        : Yes
             
    [Part: my ClPageBreak]
        Use    : DEL Invoice Top Part
     
    
        [Line: DEL PageBreak]
        ;  Border      : Thin Top
            Field      : DEL INV PageBreak
          
    [Field: Del Inv Pagebreak]
        Use         : Name Field
        Set as      : "Continued..."
        Align       : Right
        Full Width  : Yes
    
    ;:::::::::::::::::::::::::::::::;;;;Invoice start;:::::::::::::::::::::::::::;
    [Part: DEL title part]
        Line: DEL Title
    [Line: Del Title]   
    Field: Del Title
    Space Bottom: 1
    [Field: Del Title]
        Type: String
        Set as: "Deivery Note"
        Full Width: Yes
        ;Print BG: Grey
        Align: Center
        Style: Large
        Wide Space: Yes
       
       
    [Part: DEL Invoice Top Part]
        Add: Parts: Del Left, Del Right
       
    
    [Part: Del LEft]
            add :Lines       : Denparty, Departyadd,DTphone, DTEMail
            Repeat:  Departyadd:  PartyAddress
            Common Border: Yes
            Border: thin box
            Height: 12
            ;Width: 120 MM
           
    [Line: DenParty]
                Fields: simple Field, Name Field
                Local: Field: Simple Field : Set as: "Bill To :"
                Local: Field: Simple Field : Width: 20 MM
                Local    : Field    : Name Field    : Style        : Large Serif Bold
                Local    : Field    : Name Field    : Line        : 2
                Local    : Field    : Name Field    : Set as    : $ledgername
                Local    : Field    : Name Field    : Width        : 50% page
                ;Space Top: 2.5 MM
                Border: Full Thin Top Rgt
               
            [Line: DE partyadd]
    
                Fields    : Name Field
                Local    : Field    : Name Field    : Style        : Normal
                Local    : Field    : Name Field    : Set as    : $Address
                ;Local    : Field    : Name Field    : Width        : 50% page
                Indent: 10
               
           
    [Line: DTphone]
            Fields    : Name Field, Simple Field
                Local    : Field    : Name Field    : Style        : Normal
                Local    : Field    : Name Field    : Set as    : "TEL :"
                Local: Field: Simple Filed : Set as: $LEDPHONe
                Space Top: 2
               
    [Line:DTEMail]
            Fields    : Name Field, Simple Field
                Local    : Field    : Name Field    : Style        : Normal
                Local    : Field    : Simple Field     :Set as : $VATTINNumber:Ledger:@@PartyLedgerName
                Local    : Field    : Simple Field     : Width: 40 mm
                Local    : Field    : Name Field    : Set as    : "TRN NO. :"
               
           
    [Part: Del Right]
        Lines : ordref,pages,currency,revison,+
        Delterms,sales person,
        ;Space Top: 2.5 MM
        Local: Line: Default : Border : thin box
        Common Border : yes
       
    [Line:Ordref]
        Field: Simple Prompt, Name Field
        Local: Field: Simple Prompt : Set as: "Offer Ref"
        Local: Field: Simple Prompt : Width: 30 MM
        Local: Field: Name Field : Set as: $BASICPURCHASEORDERNO
        ;Local: Field: Name Field : Print BG: grey
        Local: Field: Name Field : Full Width: Yes
        Height: 2
       
    [Line : Pages]
        Field: Simple Prompt, Number Field
        Local: Field: Simple Prompt : Set as: "Pages"
        Local: Field: Simple Prompt : Width: 30 MM
        Local: Field: Number field     : Set as:$$PageNo
        Local: Field: Number field     :Format    : "No Comma, No Zero"
       
        Height: 2
       
    [Line : currency]
        Field: Simple Prompt, Name Field
        Local: Field: Simple Prompt : Set as: "Currency"
        Local: Field: Simple Prompt : Width: 30 MM
        Local: Field: Name Field : Set as: "AED"
        Height: 2
       
        [Line : revison]
        Field: Simple Prompt, Name Field
        Local: Field: Simple Prompt : Set as: "Revison"
        Local: Field: Simple Prompt : Width: 30 MM
        Local: Field: Name Field : Set as: $revisions
        Height: 2
       
        [Line : Delterms]
        Field: Simple Prompt, Name Field
        Local: Field: Simple Prompt : Set as: "Delivery Terms"
        Local: Field: Simple Prompt : Width: 40 MM
        Local: Field: Name Field : Set as: $BASICORDERTERMS
        Height: 2
    [Line: sales person]
        Field: Simple Prompt, Name Field
        Local: Field: Simple Prompt : Set as: "Sales person"
        Local: Field: Simple Prompt : Width: 40 MM
        Local: Field: Name Field : Set as: $BASICORDERREF
        Height: 2
    [Line: Contact person]
        Field: Simple Prompt, Name Field
        Local: Field: Simple Prompt : Set as: "Contact person"
        Local: Field: Simple Prompt : Width: 40 MM
        Local: Field: Name Field : Set as: $Contactperson
        Border : thin box
        Height: 2
    [Line: Del Proj]
        Field: Simple Prompt, DEL proj,
        Right Field : Short Prompt,Del ref
        ;Local: Field    :Default    :Width    : 25% page
        Local: Field: Simple Prompt : Set as: "Project Name :"
        Local: Field: Simple Prompt : Width: 30 MM
        ;Local: Field: Simple Prompt : Width    : 20 MM
        ;Local: Field: Name Field     : Set as: $Costcentername
        Local: Field: Short Prompt     : Set as: "Your Ref"
        Local: Field: Short Prompt    : Width    : 25 MM
        ;Local: Field: Short Prompt    : Print BG: grey
        Border : thin box
        Height: 2
       
    [Field:Del ref]
        Type: String
        Use: name Field
        Set as: $VOUCHERNUMBER
        Border: Thin Left
        Width : 70 MM
       
       
    [Field:Del proj]
        Type: String
        Use: name Field
        Set as: $ref
        Border: Thin box
        Width : 90 MM
        ;Print BG: grey
       
    [Line:DEl decl]
        Field: Name Field
        Local: Field: Name Field : Set as: $Declaration
        Local: Field: Name Field : Line: 2
        ;Local: Field: Name Field : Print BG: Grey
        Local: Field: Name Field : Full Width: Yes
        Border: thin box
    
    
    [Part        : DEL invoice Column Titles]
        Add: Lines:Contact Person,Del Proj,DEl decl, DEL ColumnTitles
       
       
    
    [Line: DEL Column Titles]
        Use         : DE Details
                Local: Field: Default         : Lines     : 2
                Local: Field: Default         : Type      : String
                Local: Field: Default         : Style     : Normal Bold
                Local: Field: Default         : Align        : Center
                Local: Field: DE SrNo         : Set as    : "Sr No"
                Local: Field: DE SiName     : Set as    : "Description"
                Local: Field: DE Qty        : Set as    : "Qty"
                Local: Field: DE Rate         : Set as    : "Unit Price"
                Local: Field: DE Amount     : Set as    : "Amount"
                Border      : Column Titles
    
    [Part: DEL Invoice Body Part]
            Parts         : DE Details,
            ;Add : Part : LE Details ;;;;;;;;;;;;;;;; GE (inventory) LED (Ledger Line)
            Vertical     : Yes
            Scroll         : Vertical
            Common Border: Yes
            Space Top: 2
    
            [Part: DE Details]
    
                Lines         : DE Details,;LEDG Details
                Repeat         : DE Details : Inventory Entries
                ;Total         : LEDG Details
               
                [Line: DE Details]
    
                    Fields        : DE SrNo, DE SiName
                    Right Fields: DE Qty, DE Rate, DE Amount
                    Explode     : Item Descr     : $$NumItems:UserDescription > 0
                   
                [Part: Item Descr]
    
                        Lines         : Item Descr
                        Repeat      : Item Descr     : UserDescription
    
                        [Line: Item Descr]
    
                            Fields      : Item Descr
    
                            [Field: Item Descr]
    
                                Use         : Name Field
                                Width         : 40
                                Indent         : 8
                                Set as        : $UserDescription
                                Style         : Normal Italic
    
                    [Field: DE SrNo]
    
                        Use         : Short Name Field
                        Set as      : $$Line
                        Border         : Thin Left
                        Width         : 4
                           
                    [Field: DE SIName]
    
                        Use         : Name Field
                        Set as      : $StockItemName
                        Border         : Thin Left
                        FullWIdth     : Yes
    
                    [Field: DE Qty]
    
                        Use         : Number Field
                        Set as      : $BilledQty
                        Border         : Thin Left
                        Format         : "NoSymbol"
                        Align       : Right
    
                    [Field: DE Rate]
    
                        Use         : Rate Price Field
                        Set as      : $Rate
                        Border         : Thin Left
    
       
                    [Field: DE Amount]
    
                        Use         : Amount Field
                        Set as      : $Amount
                        Border         : Thin Left Right
                        Format         : "NoComma, NoZero"
    
    [Part:DEL Invoice Bottom Part]
                Use: DE Details
                Local        : Field    : DE QTY        : Set as: $BilledQty
                Local        : Field    : DE Sr No        : Delete: Border
                Local        : Field    : DE SIName        : Delete: border
                ;Local        : Field    : GI Rate        : Width    : 20
                Local        : Field    : GI Rate        : Set as: ""
                Local        : Field    : DE Sr No        : Set as: ""
                Local        : Field    : DE SIName        : Set as: ""
                Local        : Field    : GI Amount        : Set as: $Amount
                Local        : Field    : GI Amount        : Style    : Normal Bold
                Local        : Field    : GI Amount        : Border: Thin box
                Common Border: Yes
                ;Border: thin box
    
     


  2. hprahul

    hprahul Member


    Dear,

    I feel one of the error is:
    Closing page break should come first and then opening one.
    Code:
    Page Break  : my ClPageBreak, my OpPageBreak
    Then, from above code, I have inferred is put this break in Part instead of form and thus breaking the required part only and not the complete form is re-painted.

    Hope this helps...
     


Share This Page