1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

LPO Number is not showing can any one plz fix this code

Discussion in 'Requests' started by FLF, Nov 6, 2023.

    
  1. FLF

    FLF New Member


    [#Form : Sales Color]
    Delete : Print : Printed INVOICE
    Print : INVOICE

    [Report : INVOICE]
    Object : Voucher
    Filtered : Yes
    Form : INVOICE
    Use : VATGCC InvAnalysis Report_Variables


    [Form :INVOICE]
    Parts :comdet,AMFINVTOP2Q,AMFINVTOP7,AMFINVTOP8new

    Bottom Parts : botnew,sigpart,SIG22

    HEIGHT : 100% PAGE
    WIDTH : 100% PAGE
    SPACETOP :1% PAGE
    SPACELEFT : 7% PAGE
    SPACERIGHT : 7% PAGE
    ;; SPACEBOTTOM :6% PAGE
    PAGE BREAK : AMFINVCLBREAKsaQ,AMFINVOPBREAKsaQ
    Option : GCCVAT Comprehensive Invoice : @@IsVChGVATApplicable



    [PART : AMFINVCLBREAKsaQ]
    PARTS : AMFINVCONTINUEDsaQ
    VERTICAL : YES

    [PART : AMFINVCONTINUEDsaQ]
    LINE : AMFINVCONTINUEDsaQ

    [LINE : AMFINVCONTINUEDsaQ]
    FIELDS :CONTQ

    [FIELD : CONTQ]
    SET AS : "CONTINUED ON NEXT PAGE"


    [PART : AMFINVOPBREAKsaQ]
    PARTS : comdet,AMFINVTOP2Q,AMFINVTOP7
    VERTICAL : YES



    ;;-----------------------------------
    [PART : comdet]
    LINE : comdet1,COMDETA,comdet2 ,AMFINVTITQ
    REPEAT : comdet2 : company ADDRESS
    ;; HEIGHT : 10% PAGE
    WIDTH : 100% PAGE
    BORDER : THIN BOTTOM

    [Line: comdet1]

    Field:comdet1


    [Field: comdet1]
    Set as: @@cmpmailname
    Style : comsty3
    ALIGN : center
    width : 100% page

    [Line: comdetA]

    Field:comdetA


    [Field: comdetA]
    Set as: "فريش ليف لتجارة المواد الغذائية ذ م م"
    Style : comsty3
    ALIGN : center
    width : 100% page

    [Line: comdet2]

    Field:comdet2

    [Field: comdet2]
    Set as: $Address
    Style : comsty
    ALIGN : center
    width : 100% page



    [style : comsty]
    font : "Century Gothic"
    height : 10
    bold : yes

    [style : comsty3]
    font : "Century Gothic"
    height : 20
    bold : yes

    [style : comsty1]
    font : "Century Gothic"
    height : 10
    bold : yes

    ;;--------------------------------------------top 2 start

    [PART : DELPART]
    LINES : DELPART
    space top : 1
    border : thin box
    [LINE : DELPART]
    FIELD :DELTIT, DELPART

    [FIELD : DELPART]
    SET AS : $finaldestination
    ;; WIDTH : 100% PAGE

    ALIGN : RIGHT
    Style : BurHeader

    [FIELD : DELTIT]
    use : short prompt
    SET AS : "Delivery Address"
    ;; WIDTH : 100% PAGE

    ALIGN : RIGHT
    Style : BurHeader





    [PART : AMFINVTITQ]
    LINES : AMFINVTITQ

    height : 2% page

    [LINE : AMFINVTITQ]
    FIELD : AMFTOPTITQ
    space top : 1 mms
    space bottom : 1 mms
    border : thick top


    [FIELD : AMFTOPTITQ]
    SET AS : "TAX INVOICE/فاتورة ضريبية"
    WIDTH : 100% PAGE

    ALIGN : Center
    STYLE : COMSTY

    ;;----------------------------





    [PART : AMFINVTOP2Q]
    PART : AMFINVTOP2LEFTQ
    RIGHT PART : AMFINVTOP2RIGHTQ
    ; HEIGHT : 10% PAGE
    ; WIDTH : 100% PAGE
    [PART : AMFINVTOP2LEFTQ]
    LINE : TOP2L1Q,TOP2L2Q,vatpartytin ;;,TOP2L3Q,TOP2L4Q,TOP2L5Q,TOP2L6Q ;;TOP2L3Q,TOP2L4Q,
    REPEAT : TOP2L2Q : party ADDRESS
    ; HEIGHT : 10% PAGE
    WIDTH : 50% PAGE

    [Line: vatpartytin]

    Field:vatpartytinfldtit,vatpartytinfld

    [Field: vatpartytinfld]
    Set as: $VATTINNumber:Ledger:$PartyLedgerName
    Style : BurHeader
    ALIGN : LEFT


    [Field: vatpartytinfldtit]
    use : SHORT prompt
    Set as: "TRN No"
    Style : BurHeader



    [LINE : TOP2L1Q]
    FIELD :TOP2L1Qtit, TOP2L1Q


    [FIELD : TOP2L1Qtit]
    use : SHORT prompt
    SETAS : "M/s"
    ;; WIDTH : 45% PAGE
    Style : BurHeader



    [FIELD : TOP2L1Q]
    SETAS : IF $LEDGERNAME="CASH A/C" THEN "CASH CUSTOMER" ELSE $LEDGERNAME
    WIDTH : 45% PAGE
    Style : comsty
    ALIGN : LEFT
    line : 0

    [LINE : TOP2L2Q]
    FIELD : TOP2L2Qtit,TOP2L2Q
    SPACE TOP : 1 MMS


    [FIELD : TOP2L2Qtit]
    use : SHORT prompt
    SETAS : if $$line=1 then "Address" else ""
    ; WIDTH : 45% PAGE
    Style : BurHeader



    [FIELD : TOP2L2Q]

    SETAS : $ADDRESS
    ; WIDTH : 45% PAGE
    Style : BurHeader
    ALIGN : LEFT



    [LINE : TOP2L3Q]
    FIELD : TOP2L3Qtit,TOP2L3Q
    SPACE TOP : 1 MMS

    [FIELD : TOP2L3Qtit]
    use : SHORT prompt
    SETAS : "Tel Phone No"
    ; WIDTH : 45% PAGE
    Style : BurHeader




    [FIELD : TOP2L3Q]
    SETAS : $LedgerPhone:ledger:$ledgername
    ; WIDTH : 45% PAGE
    Style : BurHeader
    ALIGN : LEFT



    [LINE : TOP2L4Q]
    FIELD : TOP2L4Qtit,TOP2L4Q
    SPACE TOP : 1 MMS

    [FIELD : TOP2L4Qtit]
    use : SHORT prompt
    SETAS : "Tel Fax"
    ; WIDTH : 45% PAGE
    Style : BurHeader




    [FIELD : TOP2L4Q]
    SETAS : $Ledgerfax:ledger:$ledgername
    ; WIDTH : 45% PAGE
    Style : BurHeader
    ALIGN : LEFT




    ;;----------------------------------



    [PART : AMFINVTOP2RIGHTQ]
    ; HEIGHT : 10% PAGE
    LINE : TOP2R3Q,TOP2R2Q,TOP2R1Q
    WIDTH : 35% PAGE



    [LINE : TOP4R1Q]
    FIELD : TOP4R1TITQ
    RIGHT FIELD :TOP4R1Q
    space top : 2 mms

    [FIELD : TOP4R1TITQ]

    SET AS : "Supply Date"
    Style : BurHeader
    WIDTH : 10% PAGE
    [field : TOP4R1Q]
    USE : DATE FIELD
    SET AS :$BasicShippingDate
    WIDTH : 20% PAGE
    ALIGN : LEFT
    Style : BurHeader






    [LINE : TOP3R1Q]
    FIELD : TOP3R1TITQ
    RIGHT FIELD :TOP3R1Q
    space top : 2 mms

    [FIELD : TOP3R1TITQ]

    SET AS : "JOB No"
    Style : BurHeader
    WIDTH : 10% PAGE
    [field : TOP3R1Q]
    ; USE : NAME FIELD
    SET AS :$PurchaseOrderNo
    WIDTH : 20% PAGE
    ALIGN : LEFT
    Style : BurHeader


    [LINE : TOP2R1Q]
    FIELD : TOP2R1TITQ
    RIGHT FIELD :TOP2R1Q
    space top : 2 mms

    [FIELD : TOP2R1TITQ]

    SET AS : "Payment Terms"
    Style : BurHeader
    WIDTH : 10% PAGE
    [field : TOP2R1Q]
    ; USE : NAME FIELD
    SET AS :$DueDateofPymt
    WIDTH : 20% PAGE
    ALIGN : LEFT
    Style : BurHeader





    [LINE : TOP2R2Q]
    FIELD : TOP2R2TITQ
    RIGHT FIELD :TOP2R2Q
    space top : 2 mms
    [FIELD : TOP2R2TITQ]
    ; USE : MEDIUM PROMPT
    SET AS : "Date"
    Style : BurHeader
    WIDTH : 10% PAGE
    [field : TOP2R2Q]
    SET AS :$DATE
    WIDTH : 20% PAGE
    ALIGN : LEFT
    Style : BurHeader

    [LINE : TOP2R3Q]
    FIELD : AMFINVTOP1RQ
    RIGHT FIELD :AMFINVDATEQ

    [FIELD : AMFINVTOP1RQ]
    ; USE : MEDIUM PROMPT
    SET AS : if ##svvouchertype="QuotationS" then "Quote No" else if ##svvouchertype="sales order" then "Proforma No" else "Invoice No"
    WIDTH : 10% PAGE
    Style : BurHeader

    [FIELD : AMFINVDATEQ]
    ; USE : NAME FIELD
    SET AS : $VOUCHERNUMBER
    Style : comsty
    WIDTH : 20% PAGE
    ; BORDER : THICK TOP BOTTOM
    ALIGN : LEFT

    [LINE : TOP2R4Q]
    FIELD : AMFINVTOP1RQ4
    RIGHT FIELD :AMFINVDATEQ4
    space top : 2 mms
    [FIELD : AMFINVTOP1RQ4]
    ; USE : MEDIUM PROMPT
    SET AS : "Terms of Delivery"
    WIDTH : 10% PAGE
    Style : BurHeader

    [FIELD : AMFINVDATEQ4]
    ; USE : NAME FIELD
    SET AS : $OrderTerms
    Style : BurHeader
    WIDTH : 20% PAGE
    ; BORDER : THICK TOP BOTTOM
    ALIGN : LEFT



    [LINE : TOP2R5Q]
    FIELD : AMFINVTOP1RQ5
    RIGHT FIELD :AMFINVDATEQ5
    space top : 2 mms
    [FIELD : AMFINVTOP1RQ5]
    ; USE : MEDIUM PROMPT
    SET AS : "Terms of Payment"
    WIDTH : 10% PAGE
    Style : BurHeader

    [FIELD : AMFINVDATEQ5]
    ; USE : NAME FIELD
    SET AS : $DueDateofPymt
    Style : BurHeader

    WIDTH : 20% PAGE
    ALIGN : LEFT




    ;;-------------------------------
    [PART : AMFINVTOP7]
    HEIGHT : 3% PAGE
    WIDTH : 100% PAGE
    LINE : AMFINVTOP7
    ; VERTICAL: Yes
    ; Scroll : Vertical
    BORDER : THIN box
    COMMON BORDER: YES


    [Line : AMFINVTOP7]

    Fields : AMFINV7, AMFINV71
    right field : AMFINV72 , AMFINV72A , AMFINV74,AMFINV78,AMFINV76,AMFINV77,AMFINV75 ;;


    [Field : AMFINV7]
    Width : 4% Page
    Setas : "Sr No"
    Style : BurHeader1
    Align : centre
    Border : Thin Left RIGHT
    [Field : AMFINVdotit]
    Width : 7% Page
    Setas : "DO"
    Style : BurHeader1
    Align : center
    Border : Thin right



    [Field : AMFINV72]
    Width : 10% Page
    Setas : "QTY"
    Style : BurHeader1
    Align : center
    Border : Thin left right


    [Field : AMFINV72A]
    Width : 10% Page
    Setas : "QTY"
    Style : BurHeader1
    Align : center
    Border : Thin left right

    [Field : AMFINV721]
    Width : 6% Page
    Setas : "Pkgs"
    Style : BurHeader
    Align : center
    Border : Thin right


    [Field : AMFINV73]
    Width : 4% Page
    Setas : "UNIT"
    Style : BurHeader1
    Align : center
    Border : Thin left

    [Field : AMFINV74]
    Width : 7% Page
    Setas : "RATE"
    Style : BurHeader1
    Align : center
    Border : Thin RIGHT


    [Field : AMFINV75]
    Width : 10% Page
    Setas : "TOTAL AMT"
    Style : BurHeader1
    Align : center
    Border : Thin RIGHT

    [Field : AMFINV71]
    Width : 30% Page
    Setas : "DESCRIPTION"
    Style : BurHeader1
    Align : center
    [Field : AMFINV78]
    Width : 10% Page
    Setas : "SUB TOTAL"
    Style : BurHeader1
    Align : center
    Border : Thin RIGHT

    [Field : AMFINV76]
    Width : 5% Page
    Setas : "VAT(5%)"
    Style : BurHeader1
    Align : center
    Border : Thin RIGHT


    [Field : AMFINV77]
    Width : 6% Page
    Setas : "VAT"
    Style : BurHeader1
    Align : center
    Border : Thin RIGHT



    ;;----------------------------



    ;;----------------------------
    [Part: amfinvtop8new]

    Parts : amfinvtop8 ;;;, jaccpart
    ;; HEIGHT : 62% PAGE
    Width : 100% page
    SCROLL : VERTICAL
    FLOAT : NO
    BORDER : THIN BOX
    COMMON BORDER: YES



    [PART : AMFINVTOP8]
    ;; HEIGHT : 62% PAGE
    Width : 100% page
    LINE : AMFINVTOP8
    REPEAT : AMFINVTOP8 : AllInventoryEntries ;; InventoryEntries
    ; BORDER : THIN BOX
    ; COMMON BORDER: YES
    Total : AMFINV822, AMFINV88
    ;; space top : 2 mms
    ObjectEx : (Voucher,##VoucherID).



    [Line : AMFINVTOP8]

    Fields : AMFINV8, AMFINV81
    Right field : AMFINV822,AMFINV822A,AMFINV84,AMFINV88,AMFINV86,AMFINV87,AMFINV85 ;;;,AMFINV85 ;;;,AMFINV86,AMFINV87

    Explode : CGInvDet AddDesc : NOT $$IsEmpty:$StockItemName AND ##ICFGAddlDesc AND NOT $$IsEmpty:$BasicUserDescription ;;;EI DescExplosion


    [#Field: EI Desc]
    WIDTH : 60% PAGE
    Style : BurHeader
    SPACE LEFT : 26 MMS


    ;;--------------------------------

    ; Explode : CGInvDet AddDesc

    [Part : CGInvDet AddDEsc]
    Line : CGInvDet AddDesc

    [Line : CGInvDet AddDesc]
    FIELDS : AMFINVVAL3exp
    right field :altqtydet


    [Field : AMFINVVAL3exp]

    Set as : $UserDescription
    width : 45% page
    space left : 18% page
    lines : 0
    ;;----------------------------------------



    [Field : Altqtydet]
    use : qty secondary field
    Set as : $Billedqty
    align : left
    width : 52% page
    style : tiny
    format : "Bracketed,nozero"

    [Field : AMFINV8]
    Width : 4% Page
    Setas : $$line
    Style : BurHeader
    Align : centre
    Border : Thin Left RIGHT


    [FIELD : AMFINVdo1n]

    ; Use : Tracking Number Field
    ;; Set as : if $BasicShipDeliveryNote=" Not Applicable" then "" else $BasicShipDeliveryNote

    sET AS : IF $TrackingNumber=" Not Applicable" THEN "" ELSE $TrackingNumber
    STYLE : burheader
    ALIGN : left
    width : 7% page
    border : thin right

    [FIELD : AMFINV822]
    use : qty primary field
    set as : $billedqty
    Border : Thin left RIGHT
    Format : "Symbol,nocomma,FOREX,Decimals:2"
    Align : RIGHT

    [FIELD : AMFINV822A]
    use : qty secondary field
    Set as : $Billedqty
    Border : Thin left RIGHT

    Align : RIGHT

    Format : "Symbol,nocomma,FOREX,Decimals:2"

    ; [Field : AMFINV822]
    ; Use : Short Name Field
    ; Set as : $$String:mad:FldValA+" "+@FldVAl1
    ; FldValA : $qtynum ;;$$CollectionField:$QtyNum:1:BatchAllocations ;;@@QtyNumUOM
    ; FldVal1 : $qtyuom ;;;$$CollectionField:$QtyUOM:1:BatchAllocations
    ; Set Always : Yes
    ; Border : Thin left RIGHT
    ; format : "no Symbol"
    ; Align : RIGHT


    Width : 10% Page
    Style : BurHeader

    [Field : AMFINV83]
    USE : SHORT NAME FIELD
    Align : Right
    SET AS : $baseunits:stockitem:$stockitemname
    FLDVAL1 : $$COLLECTIONFIELD:$QTYUOM:1:BATCHALLOCATIONS
    Align : RIGHT
    Border : Thin left
    Style : BurHeader
    Width : 4% Page


    [Field : AMFINV84]
    Use : Rate Price Field
    Align : Right
    Set as : $Rate
    Align : RIGHT
    Border : Thin left RIGHT
    Format : "No Symbol,nocomma,FOREX "
    Width : 7% Page
    Style : BurHeader




    [Field : AMFINV88]
    use : amount forex field

    Align : Right
    Set as :$Amount
    Align : RIGHT
    Width : 10% Page
    Style : BurHeader
    Border : Thin RIGHT
    Format : "No Symbol,FOREX,Decimals:2,no comma"


    [Field : AMFINV86]
    Use : Name Field ;;RATE FIELD
    Align : Right
    Set as :"5% "
    Align : RIGHT
    Width : 5% Page
    Style : BurHeader
    Border : Thin RIGHT

    [Field : AMFINV87]
    Use : Number Field ;;RATE FIELD
    Align : Right
    Set as : (5*$Amount)/100 ;;vatdetails:tempVATRate:StockItem:$stockItemName ;; v\tempVATRate$$ReportObject:$$CollectionFieldByKey:$VATGCCInv_TaxRate:mad:@GVATTaxAnalysisItemLedKey1:VATGCCTjaxAnalysisAlongWithItems
    Align : RIGHT
    Width : 6% Page
    Style : BurHeader
    Border : Thin RIGHT
    Format : "No Symbol,FOREX,Decimals:2"

    [Field : AMFINV85]
    use : Amount Forex Field
    Width : 10% Page
    Setas : $Amount+#AMFINV87
    Style : Small Bold
    Align : RIGHT
    Style : BurHeader
    Format : "No Symbol,FOREX,Decimals:2"
    [Field : AMFINV81]
    Width : 30% Page
    Setas : $stockitemname

    Align : left
    Style : BurHeader


    ;;---------------------------------------
    [style : BurHeader1]
    font : FRANKLIN GOTHIC MEDIUM
    height : 9
    Bold : yes

    [style : BurHeader]
    ; font : LORA-REGULAR
    ; height : 8
    font : FRANKLIN GOTHIC MEDIUM
    height : 10


    [style : BurHeaderbig]
    ; font : LORA-REGULAR
    height : 12
    font : FRANKLIN GOTHIC MEDIUM


    ;;-----------------------------
    [PART : BINTAMTOT]

    HEIGHT : 3% PAGE
    Line : FGTotalwords
    BORDER : THIck top bottom


    [PART : BINTAMTOTVAT]

    HEIGHT : 3% PAGE
    Line : VATAMTWORDS
    BORDER : THIck top bottom



    [LINE : FGTotalwords]
    FIELD : FGTotalwords
    RIGHT FIELD :FGTOTTIT, FGTOTFIG
    SPACE TOP : 2 MMS

    [FIELD : FGTotalwords]
    WIDTH : 75% PAGE
    SETAS : "IN WORDS:"+$$INWORDS:#FGTOTFIG:"Forex" + " Only."
    ALIGN : Left
    Style : BurHeader

    [field : FGTOTFIG]
    Use : Amount Forex Field

    Set as : if $$IsPurchase:##SVVoucherType then $$NettAmount:$Amount:$AddlAmount else $Amount ;; SETAS :if $VoucherTypeName contains "DELIVERY " ;;then " " ELSE $$CollAmtTotal:InventoryEntries:$Amount
    ALIGN : Right
    Style : BurHeader
    Format : "Symbol,Forex"


    [field : FGTOTTIT]

    Set as : "TOTAL :"
    ALIGN : Right
    Style : BurHeader
    Format : "Symbol,Forex"

    ;;----------------VAT AMOUNT IN WORDS

    [LINE : VATAMTwords]
    FIELD : VATAMTwords

    SPACE TOP : 2 MMS

    [FIELD : VATAMTwords]
    WIDTH : 75% PAGE
    SETAS : "IN WORDS:VAT"+$$INWORDS:#AMFINV87:"Forex" + " Only."
    ALIGN : Left
    Style : BurHeader









    ;;---------------------------


    [PART : sigpart]
    part : sig2
    right part : sig1


    [part : sig1]

    LINE : TOPTITTOT ;;,TOP3L1QTOT
    HEIGHT : 6% PAGE
    WIDTH : 50% PAGE
    border : thick box


    [part : sig2]

    LINE : TOP3L1QTOT
    ;; HEIGHT : 12% PAGE
    WIDTH : 50% PAGE
    border : thick box


    [LINE : TOPTITTOT]
    space top : 2 mms
    FIELD : TOPTITTOT
    ;; FIELD : TOP2L1QTOT

    [FIELD : TOPTITTOT]
    SETAS : "For:"+@@CMPMAILNAME
    ;; WIDTH : 75% PAGE
    Style : BurHeaderbig
    ALIGN : LEFT



    [FIELD : TOP2L1QTOT]

    SETAS : "Goods Received in Good Condition"
    Style : BurHeaderbig
    ALIGN : LEFT

    [LINE : TOP3L1QTOT]
    space top : 2 mms
    FIELD : TOP3L1QTOT
    space top : 4 mms
    [FIELD : TOP3L1QTOT]

    SETAS : "Receiver's Name, Signature & Mobile No"
    Style : BurHeaderbig
    ALIGN : LEFT




    ;;---------------------------------------



    ;;------------------------


    [Part : JTOP]

    Lines : JTOP

    [Line:JTOP]

    Fields : EXPINVPartyLedName ;; This is an invisible required field

    ;;--------------------------------------------top 2 start

    [Part : JACCPart]

    Lines : JAccLines
    Repeat : JAccLines : Ledger Entries
    Total : JAFld7
    Float : No


    [Line : JACCLines]

    Fields : JAFld1, JAFld2, JAFld3, JAFld4, JAFld5, JAFld6
    Right Field : JAFld7
    ;; Space BOTTOM : 2 mms
    Empty if : $ledgername=$partyledgername
    space top : 2 mms

    [Field : JAFld1]

    Type : String
    Width : @@widthCol1 mms
    Set as : " "
    ; Style : DraftBold2
    Align : Left


    [Field : JAFld2]

    Width : @@widthcol2 mms
    ALIGN : center
    Set As : if $Amount < 0 then "Less : "+ $LedgerName else if $$IsSysName:$LedgerName then " " else $LedgerName
    Style : BurHeader
    SPACE LEFT : 7% PAGE


    [Field : JAFld3]

    Width : @@WidthCol3 mms
    Set As : " "
    Align : Right


    [Field : JAFld4]

    Width : @@WidthCol4 mms
    Set As : " "
    Align : Right

    [Field : JAFld5]

    Width : @@WidthCol5 mms
    Set As : " "
    Align : Right

    [Field : JAFld6]

    Width : @@WidthCol6 mms
    Set As : " "
    Align : Right

    [Field : JAFld7]

    Use : Amount Field
    Set as : $Amount

    ALIGN : center
    Width : 12% Page

    Style : BurHeader






    [PART : SIG22]
    LINE : COMGEN1
    ; height : 4% page
    ; SPACE TOP : 2% PAGE

    [LINE : COMGEN1]
    FIELD : COMGEN1

    [FIELD : COMGEN1]
    SETAS : "This is a Computer Generated Document & does not require Stamp or Signature"
    Style : tiny
    Width : 100% page
    ALIGN : CENTER





    ;;;;--------------------------------


    [part : botnew]
    part : amfinvbot1
    right part : botnew1


    [Part : AMFINVBOT1]

    Line :NARR,totwords
    Width : 60% page
    border : thick box


    [Part : botnew1]
    Line :AMFINVBOT1,AMFINVBOT1VAT ,AMFINVbotdis,AMFINVBOT2L1 ;;,AMFINVbotdi
    Border : thin box
    ;; height : 22% page
    Width : 35% page

    [Line : NARR]
    ;; spacetop : 1% Page
    Fields : NARR1


    [Field : NARR1]

    set as : "Remarks :"+$narration
    style : BurHeader





    [Line : AMFINVbotdis]
    ;; spacetop : 1% Page
    right Fields : amfinvdistit,AMFINVBOT21
    border : thin bottom

    [Field : AMFINVdistit]
    use : short prompt
    set as : "Discount:"
    style : BurHeader

    width : 25% page

    [Field : AMFINVBOT21]

    use : Amount Field
    ;;width : 80% page
    ;; Set as : IF $LEDGERNAME="CASH A/C" THEN "0.00" ELSE $$abs:$OldBalance
    ;; Set as : IF $LEDGERNAME="CASH A/C" THEN "0.00" ELSE (($$abs:$OldBalance) - #AMFINVtot)
    Set as : $$FilterValue:$Amount:LedgerEntries:last:IsDiscountLedger1 ;; IF $LEDGERNAME="CASH A/C" THEN "0.00" ;;ELSE @@DiscAmt
    style : BurHeader




    [Line : AMFINVbot1VAT]
    spacetop : 2 mms
    right Fields : amfinvVATTit,AMFINVBOT21VAT
    border : thin top bottom


    [Field : AMFINVVATTit]
    use : short prompt
    set as : "VAT @5%:"
    style : BurHeader
    width : 25% page

    [Field : AMFINVBOT21VAT]

    use : Amount Field
    Set as : $$FilterValue:$Amount:LedgerEntries:First:IsVATLedger1 ;; IF $LEDGERNAME="CASH A/C" THEN "0.00" ;;ELSE @@DiscAmt
    style : BurHeader


    [System : Formula]
    IsDiscountLedger1 : $LedgerName Contains "Discount Paid"
    IsVATLedger1 : $LedgerName Contains "VAT"



    [Line : AMFINVBOT1]
    space top: 2 mms
    right field :amfinvtottit,AMFINVtotVAT


    [Line : qtytotline]
    ;; spacetop : 1% Page
    right Fields :qtytottit, qtytot


    [Field : qtytottit]

    ;; width : 18% page
    setas : "Total CTN"
    style : BurHeader
    Format : "noSymbol"
    ALIGN : left



    [Field : AMFINVtotVAT]

    Use : Amount Forex Field
    ;; width : 19% page
    setas : $$Total:AMFINV88
    style : BurHeader
    Format : "Symbol,Forex"
    ALIGN : RIGHT

    [Field : AMFINVTotalAmtWrds]
    type : string
    width : 55% page
    set as : $$Inwords:#AMFINVbot22:"Forex" + " Only" ;;:"NoSymbol"
    style : BurHeader
    Format : "NO Symbol,Forex"
    ALIGN : LEFT
    LINE : 2


    [Field : AMFINVtottit]
    use : short prompt
    set as : "Sub Total:"
    style : BurHeader
    ;; SPACE LEFT : 1 MMS
    width : 25% page



    [Part : AMFINVBOT2]
    ;; Width : 100% page
    ;; Height : 14.75% Page ;;6%
    Lines : AMFINVBOT2L1

    [line : totwords]

    Fields : AMFINVTOTALAMTWRDS

    [Line : AMFINVBOT2L1]
    SPACETOP : 1% PAGE
    ; Fields : AMFINVTOTALAMTWRDS
    right field :amfinvbot22tit,AMFINVBOT22

    border : thick bottom

    [Field : AMFINVBOT22]
    use : Amount Field
    Storage : Amount : Ledger Entries : First
    Set AS : if $$IsPurchase:##SVVoucherType then $$NettAmount:$Amount:$AddlAmount else $Amount ;;;; $$NettAmount:mad:EIValTotal1:$$Total:DISC
    Style : comsty
    ;; ALIGN : LEFT



    [Field : AMFINVbot22tit]
    use : short prompt
    set as : "Total:"
    style : BurHeader
    width : 25% page


    ;;;
    [Line : AMFINVBOT2L2]
    SPACETOP : 2% PAGE
    ;; Fields : amfinvtit,AMFINVBOT2L21
    right field :amfinvtit,AMFINVBOT2L21,amfinvbottit,AMFINVBOT2L23



    [Field : AMFINVBOT2L21]
    ;; width : 33% page
    set as : $Advance
    style : BurHeader
    ALIGN : LEFT
    SPACERIGHT : 4% PAGE





    [Field : AMFINVtit]
    ;; width : 30
    use : short prompt
    set as : "Advance:"
    style : BurHeader

    [Field : AMFINVbottit]
    use : short prompt
    set as : "Balance:"
    style : BurHeader




    [Field : AMFINVBOT2L23]
    USE : AMOUNT FIELD
    ;; width : 33% page
    set as : IF $LEDGERNAME="CASH A/C" THEN #AMFINVtot ELSE #AMFINVBOT22-$Advance ;;+#PZFld6 ;;"NETBAL"
    Style : comsty
    ;; ALIGN : Right




    ;;;--------------------------------------


    [PART : BOT1]
    LINE : BOT1
    HEIGHT : 5% PAGE


    [Line : bot1]
    field :bot1



    [Field :bot1]
    width : 100% page
    set as : "NB : NO PAYMENT IS VALID WITHOUT OUR OFFICIAL RECEIPT VOUCHER"
    style : BurHeader
    ALIGN : LEFT




    [PART : cgs]
    LINE : cgs
    HEIGHT : 5% PAGE


    [Line : cgs]
    field :cgs



    [Field :cgs]
    width : 100% page
    set as : "This is a Computer Generated Invoice"
    style : BurHeader
    ALIGN : center






    ;;------------------------------------------



    [SYSTEM : UDF]
    DONEW : STRING : 343
    PONEW : STRING : 344
    ;--------------------------------
     
    FLF, Nov 6, 2023
    #1


Share This Page