Print Selected Voucher In Day Book

Discussion in 'Requests' started by Vikram Bhat, Jul 16, 2018.

         
  1. Vikram Bhat

    Vikram Bhat Member


    Dear Experts
    I Am Try To Day Book Print Selected Bill Print But Its Comes Error
    1.Indivisual Bill Print GSTAnalysis Not Showing Correct
    2. Selected Bill And All Bill Print In Day Book Botton Its Show 2 Error 1St One GSTAnalysis Problem 2nd one Adress Not Showing Please Correct My Code Please


    [#Form:daybook]
    Button:print all
    Button:print Selected
    [Button:print all]
    Title:"Print all sales"
    Key: Alt + L
    Action: Print Report:mynewinvoiceprint
    Scope : Selected Lines
    [Button: Print Selected]
    Title : "Print Selected Sales "
    Key : Alt + S
    Action : Print Report: mynewinvoiceselectprint
    Scope : Selected Lines
    [Report: mynewinvoiceselectprint]
    Form : mynewinvoice
    Print Set : Report Title : "TAX INVOICE (Selected)"
    Local : Part : Default : Float : No
    Collection : Selected Obj Collection

    [Collection: Selected Obj Collection]
    Data Source : Report : Selected

    [#Collection: Daybook Vouchers of Company]
    Type:vouchers:vouchertype
    Child Of:$$VchTypeSales
    Fetch : ALLInventoryEntries.*,
    Fetch : LedgerEntries.*

    [Report:mynewinvoiceprint]
    Form:mynewinvoice
    Print Set : Report Title : "TAX INVOICE"
    Local : Part : Default : Float : No
    Local:part:default:Float:No
    Collection:typesalesvch
    [Collection:typesalesvch]
    Type:vouchers:vouchertype
    Child Of:$$VchTypeSales
    Fetch:allinventoryentries.*,?
    Fetch:ledgerentries.*


    [#Form:sales color]
    delete:print ;; for non obtaining tally default invoice
    Add:print:mynewinvoice
    ; Set : SVCurrentUILanguageId : 1102
    [Report:mynewinvoice]
    Form:mynewinvoice
    object:voucher
    Print Set : Report Title : "TAX INVOICE"
    Local : Part : Default : Float : No

    [Form:mynewinvoice]
    Delete : Parts
    Delete : Bottom Parts
    Width : 8.5 Inch
    Height : 6 Inch
    Space Top : 0.05 Inch
    Space Right : 0.10 Inch
    Space Left : 0.10 Inch
    Space Bottom: 0.05 Inch
    HorizontalAlign:Left
    Width:98% Page
    Height:98% Page
    Delete:page Break
    Add:page Break:GSTINVClosingPageBreak,GSTINVOpeningPart
    Add:part:STDInvoiceTop,GSTINVTopInfoPart,GSTINVTopPart,OTS Invoice Body Coloumns
    Add : Bottom Part:GSTINVTINvBottomOne,GSTINVTINvBottomTwo,GSTINVTINvBottomThree,GSTINVTINvBottomFour
    Set : SVCurrentUILanguageId : 1102


    [Part:GSTINVTopInfoPart]
    BottomLine:GSTINVTopInfoPartL
    Border:Thin Bottom

    [Part:GSTINVOpeningPart]
    HorizontalAlign:Left
    Vertical:Yes
    Sync:Yes
    Part:STDInvoiceTop,GSTINVTopInfoPart,GSTINVTopPart

    [Part:GSTINVClosingPageBreak]
    Part:GSTINVClosingPageBreakT

    [Part:GSTINVClosingPageBreakT]
    Line:GSTINVClosingPageBreakT
    [Line:GSTINVClosingPageBreakT]
    Right Field:Simple Field
    Local:Field:Simple Field:Style:GSTSmallBold
    Local:Field:Simple Field:Align:Right
    Local:Field:Simple Field:Set as:"Continued to page No "+ $$LocaleString:($$PageNo+1)
    Border : Full Thin Top

    [Line:GSTINVTopInfoPartL]
    Field:Name Field,Simple Field
    Local:Field:Name Field:Style:GSTTitleBold
    Local:Field:Name Field:Align:Left
    Local:Field:Name Field:Full Width:yes
    Local:Field:Name Field:Setas:##ReportTitle
    Local: Field: Simple Field:Style:GSTTitleBold
    Local: Field: Simple Field:Align: Right
    Local: Field: Simple Field:Full Width: Yes
    Local: Field: Simple Field:Set as:If @@GetCopyNum = 1 Then "ORIGINAL FOR RECIPIENT" Else +
    If @@GetCopyNum = 2 Then $$LocaleString:"DUPLICATE FOR SUPPLIER" Else +
    If @@GetCopyNum = 3 Then $$LocaleString:"TRIPLICATE FOR TRANSPOTER" Else +
    If @@GetCopyNum = 4 Then $$LocaleString:"EXTRA COPY" Else $$LocaleString:"EXTRA COPY"


    ;===================================================Company Name And Address==============================================

    [Part:GSTINVTopPart]
    HorizontalAlign:Left
    Vertical:Yes
    Sync:Yes
    Part:GSTINVLogoPart,GSTINVMidInfoPart,GSTINVDetailsHPart


    [Part:GSTINVLogoPart]
    Vertical:No
    Part:GSTINVLogoPartR
    Border:Thin Cover

    [Part:GSTINVLogoPartR]
    HorizontalAlign:Right
    Vertical:Yes
    Part:GSTINVLogoPartRT,GSTINVLogoPartRB

    [Part:GSTINVLogoPartRT]
    Line:GSTINVCompanyName
    [Part:GSTINVLogoPartRB]
    Line:GSTINVCompanyAddress,GSTINVTelPhone,GSTInvTax

    [Line:GSTINVCompanyName]
    Field:GSTINVCompanyName
    [Field:GSTINVCompanyName]
    Use:NameField
    Style:GSTLargeBold
    Align: Center
    Full Width:Yes
    Set as:If NOT ($$IsSysNameEqual:primary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint) Then $(Company, ##SVCurrentCompany).MultiAddressList[1, @@IsSameCmpAddrType].MailingName Else @@CmpMailName

    [Line:GSTINVCompanyAddress]
    Field:GSTINVCompanyAddress
    [Field:GSTINVCompanyAddress]
    Use:NameField
    Full Width:Yes
    Style:GSTNormal
    Set as:$$FullList:GSTCompanyAddress:$Address
    Align: Center

    [Line:GSTINVTelPhone]
    Field:GSTINVTelPhone
    [Field:GSTINVTelPhone]
    Use:NameField
    Full Width:Yes
    Style:GSTNormal
    Align: Center
    Set as:mad:tel+@Mob+@Fax
    Tel:If $$IsEmpty:($Phonenumber:Company:##SVCurrentCompany) then "" else ("Tel:"+($Phonenumber:Company:##SVCurrentCompany))+","
    Mob:If $$IsEmpty:($MobileNo:Company:##SVCurrentCompany) then "" else "Mob:"+($MobileNo:Company:##SVCurrentCompany)+","
    Fax:If $$IsEmpty:($FaxNumber:Company:##SVCurrentCompany) Then "" Else $$LocaleString:"Fax:"+ $FaxNumber:Company:##SVCurrentCompany

    [Line:GSTInvTax]
    Field:GSTInvTax
    [Field:GSTInvTax]
    Use:NameField
    Full Width:Yes
    Style:GSTNormalBold
    Align: Center
    Set as:mad:GSTIN+@PAN+@CIN
    PAN:" PAN:"+$IncomeTaxNumber:Company:##SVCurrentCompany+","
    GSTIN:"GSTIN/UIN:" + $GSTRegNumber:TaxUnit:mad:@CMPExcisePrimaryGodown+","
    CIN:If $$IsEmpty:($CorporateIdentityNo:Company:##SVCurrentCompany) Then "" else $$LocaleString:" CIN:" + $CorporateIdentityNo:Company:##SVCurrentCompany

    ;=====================================================Costomer Address And Invoice Details================================

    [Part:GSTINVMidInfoPart]
    Vertical:no
    Border:Thin Box
    Part:GSTINVMidInfoPartL
    Right Part:GSTINVMidInfoPartR00

    [Part:GSTINVMidInfoPartL]
    Width:120
    Vertical:Yes
    Part:GSTINVInvoicedTo
    Space Left:0.5

    [Part:GSTINVInvoicedTo]
    Vertical:Yes
    Part:GSTINVInvoicedToA,GSTINVInvoicedToB

    [Part:GSTINVInvoicedToA]
    Height:4 mms
    Line:GSTINVInvoicedTo

    [Part:GSTINVInvoicedToB]
    Height:20 mms
    Line:GSTCustomerName,GSTCustomerAddress,GSTINVState,GSTINVPhone,GSTINVGSTINUIN
    Space Left:0.5

    [Line:GSTINVInvoicedTo]
    LeftField:NameField
    Local:Field:NameField:Setas:"Details for Buyer (Billed & Shipped To )"
    Local:Field:NameField:FullWidth:yes
    Local:Field:NameField:Style:GSTNormalBold

    [Line:GSTCustomerName]
    LeftField:NameField
    Local:Field:NameField:Setas:mad:@SimpleOtherPartyName
    Local:Field:NameField:FullWidth:Yes
    Local:Field:NameField:Style:GSTNormalBold

    [Line:GSTINVState]
    LeftField:Medium Prompt,NameField
    Local:Field:Medium Prompt:Setas:"State Name:"
    Local:Field:Medium Prompt:Style:GSTNormalBold
    Local:Field:Medium Prompt:Width:70 mms
    Local:Field:NameField:LocalFormula:StateName:If $$IsEmpty:$StateName OR $$IsSysName:NotApplicable:$StateName then "" else $StateName
    Local:Field:NameField:Setas:mad:StateName+",Code:"+$$getgststatecode:mad:StateName
    Local:Field:NameField:FullWidth:yes
    Local:Field:NameField:Style:GSTNormal

    [Line:GSTINVPhone]
    LeftField:Medium Prompt,NameField
    Local:Field:Medium Prompt:Setas:"Contact No:"
    Local:Field:Medium Prompt:Style:GSTNormalBold
    Local:Field:Medium Prompt:Width:70 mms
    Local:Field:NameField:Setas:$$SPrintf:mad:@LedContactFrmt:mad:@LedTelNo:mad:@LedMobNo
    Local:Field:NameField:FullWidth:yes
    Local:Field:NameField:Style:GSTNormal

    [Line:GSTINVGSTINUIN]
    LeftField:Medium Prompt,NameField
    Local:Field:Medium Prompt:Setas:"GSTIN/UIN:"
    Local:Field:Medium Prompt:Style:GSTNormalBold
    Local:Field:Medium Prompt:Width:70 mms
    Local:Field:NameField:Setas:mad:@BuyerGSTTaxNum
    Local:Field:NameField:FullWidth:yes
    Local:Field:NameField:Style:GSTNormalBold

    [Line:GSTCustomerAddress]
    Field: Name Field
    Local: Field: Name Field: Setas:$$FullList:BasicBuyerAddress:$BasicBuyerAddress
    Local: Field: Name Field: FullWidth:yes
    Local: Field: Name Field: Style:GSTNormal
    Local: Field: Name Field: Align: Left

    [Part:GSTINVMidInfoPartR00]
    Width:83
    Border:Thin Left
    Line:GSTINVNo,GSTINVDate
    Space Left:1

    [Line:GSTINVNo]
    Field:MediumPrompt,ShortNameField
    Local:Field:MediumPrompt:Setas:"Invoice No"
    Local:Field:MediumPrompt:Width:30
    Local:Field:MediumPrompt:Style:GSTTitleBold
    Local:Field:ShortNameField:Setas:$VoucherNumber
    Local:Field:ShortNameField:Full Width:Yes
    Local:Field:ShortNameField:Style:GSTTitleBold
    Space Top:1

    [Line:GSTINVDate]
    Field:MediumPrompt,NameField
    Local:Field:MediumPrompt:Style:GSTTitleBold
    Local:Field:MediumPrompt:Setas:"Invoice Date"
    Local:Field:MediumPrompt:Width:30
    Local:Field:NameField:Full Width:Yes
    Local:Field:NameField:Style:GSTTitleBold
    Local:Field:NameField:Setas:$Date
    Space Top:1
    ;-------------- inventory part-------------
    [part:GSTINVDetailsHPart]
    Line:OTS Invoice Body Title
    Border:Thin Box
    CommonBorder:yes

    [Part: OTS Invoice Body]
    Part:OTS Invoice Body Coloumns
    Vertical: Yes
    Border: Thin Cover

    [Part:OTS Invoice Body Title]
    Line:OTS Invoice Body Title
    Common Border: Yes

    [Line:OTS Invoice Body Title]
    Use: OTS Invoice Body Coloumns

    Local: Field: Default: Type: String
    Local: Field: Default: Style: GSTNormalBold
    Local: Field: Default: Align: Center

    Local: Field:OTS SrNo: Set as: "S.N "
    Local: Field:OTS Item Description: Set as: "Description of Goods"
    Local: Field:OTS HSN Code: Set as: "HSN/SAC"
    Local: Field:OTS GST Per: Set as: "GST%"
    Local: Field:OTS Actual Qty: Set as: "Actual"
    Local: Field:OTS Billed Qty: Set as: "Billed"
    Local: Field: OTS Rate: Set as: "Rate"
    Local: Field:OTS Discount: Set as: "Disc"
    Local: Field:OTS Gross Amt: Set as: "Amount"

    Space Bottom: 0.15

    [Part:OTS Invoice Body Coloumns]
    Line:OTS Invoice Body Coloumns
    Repeat:OTS Invoice Body Coloumns:Inventory Entries
    Bottom Line: OTS Invoice Body Coloumns Total
    Scroll: Vertical
    Float: No
    Common Border: Yes
    Border: Thin Cover

    [Line:OTS Invoice Body Coloumns]
    Left Field: OTS SrNo, OTS Item Description
    Right Field: OTS HSN Code,OTS GST Per,OTS Actual Qty,OTS Billed Qty,OTSRate,OTS Discount,OTS Gross Amt
    Space Top: 0.15
    Explode : EI DescExplosion : NOT $$IsEmpty:$StockItemName AND ##PRNWithItemDesc AND NOT $$IsEmpty:$BasicUserDescription
    Local: Field:OTS SrNo: Width: 7
    Local: Field:OTS HSN Code: Width: 18
    Local: Field:OTS GST Per: Width: 12
    Local: Field:OTS Actual Qty: Width: 18
    Local: Field:OTS Billed Qty: Width: 18
    Local: Field:OTSRate: Width: 16
    Local: Field:OTS Discount: Width: 8
    Local: Field:OTS Gross Amt: Width: 19

    Local: Field:OTS SrNo: Border: Thin Right
    Local: Field:OTS HSN Code: Border: Thin Left
    Local: Field:OTS GST Per: Border: Thin Left
    Local: Field:OTS Actual Qty: Border: Thin Left
    Local: Field:OTS Billed Qty: Border: Thin Left
    Local: Field:OTSRate: Border: Thin Left
    Local: Field:OTS Discount: Border: Thin Left
    Local: Field:OTS Gross Amt: Border: Thin Left


    [Field: OTS Sr NO]
    Use: Simple Field
    Set as: $$ZeroFill:$$Line:2+"."
    Style:GSTNormal
    Align: Center

    [Field:OTS Item Description]
    Use: Simple Field
    Set as: if NOT $$IsSysName:$StockItemName then @@InvItemName else ""
    Style: GSTNormal
    Full Width: Yes
    ;Line:0

    [Field:OTS HSN Code]
    Use: Simple Field
    Set as: $GSTItemHSNCodeEx
    Style:GSTNormal
    Align: Right

    [Field:OTS GST Per]
    Use: Number Field
    Set as: If NOT $GSTIsTransLedEx Then "" Else $GSTClsfnIGSTRateEx
    Format : "NoZero,Percentage"
    Set Always: Yes
    Style:GSTNormal
    Align: Center

    [Field:OTS Actual Qty]
    Use: Qty Field
    Set as: $ActualQty
    Style:GSTNormal
    Align: Right

    [Field:OTS Billed Qty]
    Use: Qty Field
    Set as: $BilledQty
    Style:GSTNormal
    Align: Right

    [Field:OTSRate]
    Use: Rate Price Field
    Set as: $Rate
    Style:GSTNormal
    Align: Right

    [Field:OTS Discount]
    Use: Number Field
    Set as: ""
    Set as: $Discount
    Format : "NoZero,Percentage"
    Style:GSTNormal
    Align: Right

    [Field:OTS Gross Amt]
    Use:Amount Forex Field
    Set as: $Amount
    Style:GSTNormal
    Align: Right

    [Line:OTS Invoice Body Coloumns Total]
    Use: OTS Invoice Body Coloumns

    Local: Field: Default: Type: String
    Local: Field: Default: Style: GSTSmall
    Local: Field: Default: Align: Right

    Local: Field:OTS SrNo: Set as: ""
    Local : Field : OTS EXPINV MRPTitle : Info : ""
    Local: Field:OTS Item Description: Set as: "TOTAL"
    Local: Field:OTS HSN Code: Set as: ""
    Local: Field:OTS GST Per: Set as: ""
    Local: Field:OTS MRP Qty: Set as: ""
    Local: Field:OTS Actual Qty: Set as: $$CollAmtTotal:InventoryEntries:$ActualQty
    Local: Field:OTS Billed Qty: Set as: $$CollAmtTotal:InventoryEntries:$BilledQty
    Local: Field: OTSRate: Set as: ""
    Local: Field: OTS Discount: Set as: ""
    Local: Field:OTS Gross Amt: Set as: $$CollAmtTotal:InventoryEntries:$Amount
    Border: Thin Top
    Space Bottom: 0.15
    Space Top: 0.15

    ; account details part-------------

    [Part:GSTINVTINvBottomOne]
    Border:Thin Box
    Part:OTS GST analisys ledgerentries

    [Part:OTS GST analisys ledgerentries]
    Left Part:GSTINVGSTAnalysis
    Right Part: OTSLedgerEnteries
    Common Border:No

    [Part:GSTINVGSTAnalysis]
    Delete:parts
    Delete:Bottom Parts
    Use:VCHGSTAnalysis
    Common Border:No
    Vertical: Yes
    Width:131
    Border: Thin Box
    Add:part:GSTINVGSTAnalysisTitle,GSTINVGSTAnalysisDetails
    Add:Bottom Parts:GSTINVGSTAnalysisTotal;,VCHGSTAmtInWords
    [Part:GSTINVGSTAnalysisTitle]
    Common Border:No
    Line:GSTINVGSTAnalysisTitle00,GSTINVGSTAnalysisTitle01
    Border:Thin Bottom
    [Line:GSTINVGSTAnalysisTitle00]
    Local:Field:Default:Type:String
    Local:Field:Default:Style:GSTNormalBold
    Local:Field:Default:Align:Center
    Field:GSTINVGSTAnalysisHSN
    Right Field:GSTINVGSTAnalysisTaxValue,GSTINVGSTAnalysisIGSTAmt,STINVGSTAnalysisCGSTAmt
    Right Field:STINVGSTAnalysisSGSTAmt,STINVGSTAnalysisCessAmt
    Local:Field:GSTINVGSTAnalysisHSN:Set as:""
    Local:Field:GSTINVGSTAnalysisTaxValue:Set as:"Taxable"
    Local:Field:GSTINVGSTAnalysisIGSTAmt:Delete:Field:GSTINVGSTAnalysisIGSTRate
    Local:Field:STINVGSTAnalysisCGSTAmt:Delete:Field:GSTINVGSTAnalysisCGSTRate
    Local:Field:STINVGSTAnalysisSGSTAmt:Delete:Field:STINVGSTAnalysisSGSTRate
    Local:Field:STINVGSTAnalysisCessAmt:Delete:Field:STINVGSTAnalysisCessRate
    Local:Field:GSTINVGSTAnalysisIGSTAmt:Delete:Field:GSTINVGSTAnalysisIGSTAmtS
    Local:Field:STINVGSTAnalysisCGSTAmt:Delete:Field:STINVGSTAnalysisCGSTAmtS
    Local:Field:STINVGSTAnalysisSGSTAmt:Delete:Field:STINVGSTAnalysisSGSTAmtS
    Local:Field:STINVGSTAnalysisCessAmt:Delete:Field:STINVGSTAnalysisCessAmtS
    Local:Field:GSTINVGSTAnalysisIGSTAmt:Setas:mad:@IGSTDutyHead
    Local:Field:STINVGSTAnalysisCGSTAmt:Setas:mad:@CGSTDutyHead
    Local:Field:STINVGSTAnalysisSGSTAmt:Setas:mad:@SGSTDutyHead
    Local:Field:STINVGSTAnalysisCessAmt:Setas:mad:@CessDutyHead
    Local:Field:GSTINVGSTAnalysisIGSTAmt:width:21+1
    Local:Field:STINVGSTAnalysisCGSTAmt:width:21+1
    Local:Field:STINVGSTAnalysisSGSTAmt:width:21+1
    Local:Field:STINVGSTAnalysisCessAmt:width:21+1
    [Line:GSTINVGSTAnalysisTitle01]
    Border:Thin Top
    Local:Field:Default:Type:String
    Local:Field:Default:Align:Center
    Local:Field:Default:Style:GSTSmallBold
    Field:GSTINVGSTAnalysisHSN
    Right Field:GSTINVGSTAnalysisTaxValue,GSTINVGSTAnalysisIGSTAmt,STINVGSTAnalysisCGSTAmt
    Right Field:STINVGSTAnalysisSGSTAmt,STINVGSTAnalysisCessAmt
    Local:Field:GSTINVGSTAnalysisHSN:Set as:"HSN/SAC"
    Local:Field:GSTINVGSTAnalysisTaxValue:Set as:"Value"
    Local:Field:GSTINVGSTAnalysisIGSTRate:Set as:"Rate"
    Local:Field:GSTINVGSTAnalysisIGSTAmts:Set as:"Amount"
    Local:Field:GSTINVGSTAnalysisCGSTRate:Set as:"Rate"
    Local:Field:STINVGSTAnalysisCGSTAmts:Set as:"Amount"
    Local:Field:STINVGSTAnalysisSGSTRate:Set as:"Rate"
    Local:Field:STINVGSTAnalysisSGSTAmts:Set as:"Amount"
    Local:Field:STINVGSTAnalysisCessRate:Set as:"Rate"
    Local:Field:STINVGSTAnalysisCessAmts:Set as:"Amount"
    [Part:GSTINVGSTAnalysisDetails]
    Float:Yes
    Line:GSTINVGSTAnalysisBody
    Repeat:GSTINVGSTAnalysisBody:GSTAnalysisPrintSummary
    Horizontal Align: Right
    Total:GSTINVGSTAnalysisTaxValue,GSTINVGSTAnalysisIGSTAmtS,STINVGSTAnalysisCGSTAmtS,STINVGSTAnalysisSGSTAmtS,STINVGSTAnalysisCessAmtS
    Invisible:mad:@IsGSTInvoiceEmptyCollection OR NOT @@InvGSTAnalysis
    Common Border:Yes
    [Line:GSTINVGSTAnalysisBody]
    Field:GSTINVGSTAnalysisHSN
    Right Field:GSTINVGSTAnalysisTaxValue,GSTINVGSTAnalysisIGSTAmt,STINVGSTAnalysisCGSTAmt
    Right Field:STINVGSTAnalysisSGSTAmt,STINVGSTAnalysisCessAmt
    [Part:GSTINVGSTAnalysisTotal]
    Border:Thin Top
    Line:GSTINVGSTAnalysisTotal,VCH GST RecChargeMsg
    [Line:GSTINVGSTAnalysisTotal]
    Field:GSTINVGSTAnalysisHSN
    Right Field:GSTINVGSTAnalysisTaxValue,GSTINVGSTAnalysisIGSTAmt,STINVGSTAnalysisCGSTAmt
    Right Field:STINVGSTAnalysisSGSTAmt,STINVGSTAnalysisCessAmt
    Local:Field:Default:Type:String
    Local:Field:Default:Style:GSTSmallBold
    Local:Field:Default:Skip:Yes
    Local:Field:DEfault:Align:Right
    Local:Field:Default:Set as: ""
    Local:Field:GSTINVGSTAnalysisHSN:Set As:$$LocaleString:"Total"
    Local: Field: GSTINVGSTAnalysisHSN: Align: Center
    Local:Field:GSTINVGSTAnalysisTaxValue:Set as:$$Total:GSTINVGSTAnalysisTaxValue
    Local:Field:GSTINVGSTAnalysisIGSTAmts:Set as:$$Total:GSTINVGSTAnalysisIGSTAmts
    Local:Field:STINVGSTAnalysisCGSTAmts:Set as:$$Total:STINVGSTAnalysisCGSTAmts
    Local:Field:STINVGSTAnalysisSGSTAmts:Set as:$$Total:STINVGSTAnalysisSGSTAmts
    Local:Field:STINVGSTAnalysisCessAmts:Set as:$$Total:STINVGSTAnalysisCessAmts

    [Field:GSTINVGSTAnalysisHSN]
    Use:NameField
    Set as:$GSTInvoice_ItemHSNCode
    Width:15
    Style:GSTSmall
    Full Width:Yes
    [Field:GSTINVGSTAnalysisTaxValue]
    Use:AmountField
    Set as:$GSTInvoice_GSTAssesableValue
    Width:15
    Border:Thin Left
    Style:GSTSmall
    [Field:GSTINVGSTAnalysisIGSTAmt]
    Border:Thin Left
    Width:22
    Style:GSTSmall
    Invisible:##GSTFirstTransNatureType NOT IN (2, 3) OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualIGSTAmount)
    Left Field:GSTINVGSTAnalysisIGSTRate,GSTINVGSTAnalysisIGSTAmtS
    [Field:GSTINVGSTAnalysisIGSTRate]
    Use:NameField
    Set as:If $$IsSysNameEqual:OnQuantity:$GSTInvoice_IGSTClsTValType Then $$Sprintf:"%s/%s":$GSTInvoice_IGSTClsfnRate:$GSTInvoice_GSTStockItemUOM Else $$Sprintf:"%s%%":$GSTInvoice_IGSTClsfnRate
    Width:8
    Style:GSTSmall
    Align:Right
    Format:"NoZero,Percentage"
    Invisible:##GSTFirstTransNatureType NOT IN (2, 3) OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualIGSTAmount)
    [Field:GSTINVGSTAnalysisIGSTAmtS]
    Use:AmountField
    Set as:$GSTInvoice_IGSTClsTaxAmt
    Width:13
    Style:GSTSmall
    Border:Thin Left
    Invisible: ##GSTFirstTransNatureType NOT IN (2, 3) OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualIGSTAmount)
    [Field:STINVGSTAnalysisCGSTAmt]
    Border:Thin Left
    Width:22
    Style:GSTSmall
    Invisible:##GSTFirstTransNatureType != 1 OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualCGSTAmount)
    Left Field:GSTINVGSTAnalysisCGSTRate,STINVGSTAnalysisCGSTAmtS
    [Field:GSTINVGSTAnalysisCGSTRate]
    Use:NameField
    Set as:If $$IsSysNameEqual:OnQuantity:$GSTInvoice_CGSTClsValType Then $$Sprintf:"%s/%s":$GSTInvoice_CGSTClsfnRate:$GSTInvoice_GSTStockItemUOM Else $$Sprintf:"%s%%":$GSTInvoice_CGSTClsfnRate
    Width:8
    Align:Right
    Style:GSTSmall
    Format:"NoZero,Percentage"
    Invisible:##GSTFirstTransNatureType != 1 OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualCGSTAmount)
    [Field:STINVGSTAnalysisCGSTAmtS]
    Use:AmountField
    Set as:$GSTInvoice_CGSTClsTaxAmt
    Width:13
    Style:GSTSmall
    Border:Thin Left
    Invisible: ##GSTFirstTransNatureType != 1 OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualCGSTAmount)
    [Field:STINVGSTAnalysisSGSTAmt]
    Border:Thin Left
    Width:22
    Style:GSTSmall
    Invisible: ##GSTFirstTransNatureType != 1 OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualSGSTAmount)
    Left Field:STINVGSTAnalysisSGSTRate,STINVGSTAnalysisSGSTAmtS
    [Field:STINVGSTAnalysisSGSTRate]
    Use:NameField
    Set as:If $$IsSysNameEqual:OnQuantity:$GSTInvoice_SGSTClsValType Then $$Sprintf:"%s/%s":$GSTInvoice_SGSTClsfnRate:$GSTInvoice_GSTStockItemUOM Else $$Sprintf:"%s%%":$GSTInvoice_SGSTClsfnRate
    Width:8
    Style:GSTSmall
    Align:Right
    Format:"NoZero,Percentage"
    Invisible: ##GSTFirstTransNatureType != 1 OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualSGSTAmount)
    [Field:STINVGSTAnalysisSGSTAmtS]
    Use:AmountField
    Set as:$GSTInvoice_SGSTClsTaxAmt
    Border:Thin Left
    Width:13
    Style:GSTSmall
    Invisible:##GSTFirstTransNatureType != 1 OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualSGSTAmount)
    [Field:STINVGSTAnalysisCessAmt]
    Border:Thin Left
    Width:22
    Invisible:NOT ##IsCessAppl OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualCessGSTAmount)
    Left Field:STINVGSTAnalysisCessRate,STINVGSTAnalysisCessAmtS
    [Field:STINVGSTAnalysisCessRate]
    Use:NameField
    Set as:If $$IsSysNameEqual:OnQuantity:$GSTInvoice_CessGSTClsValType Then $$Sprintf:"%s/%s":$GSTInvoice_CessGSTClsfnRate:$GSTInvoice_GSTStockItemUOM Else $$Sprintf:"%s%%":$GSTInvoice_CessGSTClsfnRate
    Width:8
    Align:Right
    Style:GSTSmall
    Format:"NoZero,Percentage"
    Invisible:NOT ##IsCessAppl OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualCessGSTAmount)
    [Field:STINVGSTAnalysisCessAmtS]
    Use:AmountField
    Set as:$GSTInvoice_CessGSTClsTaxAmt
    Width:13
    Style:GSTSmall
    Border:Thin Left
    Invisible:NOT ##IsCessAppl OR (NOT ##IsRevChargeAppl AND $$IsEmpty:##GSTActualCessGSTAmount)


    [Part:OTSLedgerEnteries]
    Line:OTSLedgerEnteries
    Repeat:OTSLedgerEnteries:Ledger Entries
    Common Border: Yes
    ;Scroll: Vertical
    Float: No
    Width: 64.5

    [Line:OTSLedgerEnteries]
    Field: OTSLedgerName, OTSLedgerPercentage,OTSPercentageSing, OTSLedgerAmount
    Remove if: $LedgerName = $PartyLedgerName

    [Field:OTSLedgerName]
    Set as : if ##SATCSDetails AND @@TaxLedgerHasTCS then $$LocaleString:"TCS : Income Tax" else +
    if NOT $$IsSysName:$LedgerName then $LedgerName else "" ;;; used to print on invoice

    Style:GSTNormalBold
    Align : Right
    Full Width : yes
    AbatementVal: If $$Number:$STXAbatementRate = 0 Then $$String:"0" Else $$String:$STXAbatementRate
    LedNarr : (@@IsSales AND ##SALedgerNarr) OR (@@IsPurchase AND ##PULedgerNarr) AND $$Filtercount:LedgerEntries:LedgerNarrFltr > 0
    Option : LeftAlignField : @@AcctsInvoice
    Width:6

    [Field:OTSLedgerPercentage]
    Use : Rate Price Field
    Type : Number
    Align : Right
    Format : "NoZero,Decimals:-1"
    Style:GSTNormal
    Set as : if ##SATCSDetails AND @@TaxLedgerHasTCS AND NOT $$IsSysName:$TDSRateName:Ledger:$LedgerName then @@TCSITTaxRate else +
    $BasicRateOfInvoiceTax
    Inactive : $$IsSysName:$LedgerName
    Invisible : NOT @@InvWithRate
    Border: Thin Left
    Width: 5.7

    [Field:OTSPercentageSing]
    Set as:if $$IsEmpty:$BasicRateOfInvoiceTax then "" else "%"
    Set By Condition : @@TaxLedgerHasTCS AND NOT ($$IsSysName:$TDSRateName:Ledger:$LedgerName) : If $$IsEmpty:mad:@TCSITTaxRate Then "" Else "%"
    Inactive : $$IsSysName:$LedgerName
    Invisible : NOT @@InvWithRate
    Width: 1.4
    Style:GSTNormal

    [Field:OTSLedgerAmount]
    Use : Amount Forex Field
    Set as : $$SignedAmount:$Amount:mad:@VchOpposite
    Border: Thin Left
    Align: Right
    Width: 19
    Style:GSTNormal

    [Part:OTSInvoiceAmtwordandamount]
    Left Part: OTSAmountinWord
    Right Part:OTSInvoiceAmount
    Border: Thin Cover
    Common Border: Yes

    [Part:GSTINVTINvBottomTwo]
    Left Part: OTSAmountinWord
    Right Part:OTSInvoiceAmount
    Border: Thin Cover
    Common Border: Yes

    [Part:OTSAmountinWord]
    Line:OTSAmountinWord

    [Line:OTSAmountinWord]
    Field: Medium Prompt, Name Field
    Local: Field: Medium Prompt: Set as: "Amount In Words"
    Local: Field: Medium Prompt:Style:GSTNormalBold
    Local: Field: Medium Prompt: Width: 35
    Local: Field: Name Field: Set as:$$InWords:$Amount +" "+ "Only."
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Line:0
    Local: Field: Name Field:Style:GSTNormal
    Space Top:0.15
    Space Bottom:0.15

    [Part:OTSInvoiceAmount]
    Line:OTSInvoiceAmount

    [Line:OTSInvoiceAmount]
    Field: Name Field, Amount Field
    Local: Field: Name Field: Set as: "Total"
    Local: Field: Name Field: Border: Thin Left
    Local: Field: Name Field: Width:14
    Local: Field: Name Field: Align: Center
    Local: Field: Name Field: Style:GSTTitleBold
    Local: Field: Amount Field: Set as: $Amount
    Local: Field: Amount Field: Width:19
    Local: Field: Amount Field: Border: Thin Left
    Local: Field: Amount Field: Style:GSTTitleBold
    Space Top:0.15
    Space Bottom:0.15


    [Part:GSTINVTINvBottomThree]
    Left Part: OTSTermsBankdetails
    Right Part: OTSCustomer Signature, OTSSignature
    Border:Thin Box

    [Part:OTSTermsBankdetails]
    Part: OTSTermsPart, OTSBankdetails
    Vertical:Yes
    Width:100

    [Part:OTSTermsPart]
    Line:OTSTermsPart
    Border: Thin Bottom

    [Line:OTSTermsPart]
    Field: Name Field
    Local: Field: Name Field:Set as: "GOODS ONCE SOLD WILL NOT BE TAKEN BACK OR EXCHANGED"
    Local: Field: Name Field: Style: GSTNormalBold
    Local: Field: Name Field: Align: Center
    Local: Field: Name Field: Full Width: Yes

    [Part:OTSBankDetails]
    Line:GSTINVMidInfoPartR07B

    [Line:GSTINVMidInfoPartR07B]
    Line:EXPINVBankTitle,EXPINVBankName,EXPINVBankAccNo,EXPINVBankBranchInfo
    Local:Line:EXPINVBankTitle:Local:Field:SimpleField:Style:GSTNormalBold
    Local:Line:EXPINVBankName:Local:Field:Default:Style:GSTNormal
    Local:Line:EXPINVBankAccNo:Local:Field:Default:Style:GSTNormal
    Local:Line:EXPINVBankBranchInfo:Local:Field:Default:Style:GSTNormal
    Local: Field: Default: Full Width: Yes

    [Part:OTSCustomer Signature]
    Line: For OTSCustomer Signature,OTSAcceptance
    Border: Thin Left
    Width:80% Page

    [Line:For OTSCustomer Signature]
    Field: Name Field
    Local: Field: Name Field: Set as:mad:@SimpleOtherPartyName
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: GSTNormalBold
    Local: Field: Name Field: Align: Center
    Space Top:0.2

    [Line:OTSAcceptance]
    Field: Name Field
    Local: Field: Name Field: Set as: "Signatory"
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: GSTNormalBold
    Local: Field: Name Field: Align: Center
    Space Top:3


    [Part:OTSSignature]
    Line: ForOTSSignature, OTSAuthorised
    Border: Thin Left
    Width:70% Page

    [Line:ForOTSSignature]
    Field: Name Field
    Local: Field: Name Field: Set as: "For" +" "+ @@CmpMailName
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: GSTNormalBold
    Local: Field: Name Field: Align: Center
    Space Top:0.2

    [Line:OTSAuthorised]
    Field: Name Field
    Local: Field: Name Field: Set as: "Authorised Signatory"
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: GSTNormalBold
    Local: Field: Name Field: Align: Center
    Space Top:3

    [Part:GSTINVTINvBottomFour]
    Line:OTS Juridiction

    [Line:OTS Juridiction]
    Field: Simple Field
    Right Field:Name Field
    Local: Field: Simple Field: Set as: "UDUPI JURISDICTION"
    Local: Field: Simple Field: Align:Left
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: GSTTitleBold
    Local: Field: Name Field: Set as: "This is a Computer Generated Invoice"
    Local: Field: Name Field: Align: Right
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: GSTTitleBold



    [System:FOrmula]
    IsSalesVch: $$IsSales:$VoucherTypeName
    ismydt: $$Number:$VoucherNumber<$$Number:($$ReportObject:$VoucherNumber)
    newdate : ($$CollectionField:$Date:1:mycoll)
    FltOldVCHId : $MasterID<$$ReportObject:$..MasterId
    EIConBalnew :$$ToValue:$myprvdate:$ClosingBalance:Ledger:#EIConsignee
    cashparty : $partyledgername= "cash"
    isrecpt:$$IsReceipt:$VoucherTypeName

    ;; list of receipts
    [Part:rcptpart]
    Border: thin box
    Float:No
    Line:rcptlntl,rcptlnhd,rcptline
    Repeat:rcptline:collforrecpts

    [Line:rcptlntl]
    Field:rcptlntl
    [Field:rcptlntl]
    Info:"Receipt Details"
    Style: normal bold
    Border: thin bottom
    Align: Center
    Full Width:Yes

    [Line:rcptlnhd]
    Space Top: 2 mms
    Use:rcptline
    Local:Field:default:Type:String
    Local:Field:default:Align:Center
    Local:Field:default:Style: normal bold
    Local:Field:rcptdt:Info:"Date"
    Local:Field:rcptno:Info:"No."
    Local:Field:rcptamt:Info:"Amount"
    [Line:rcptline]
    Local:Field:default:Align:Right
    Fields:rcptdt,rcptno,rcptamt

    [Field:rcptdt]
    Set as: $date
    Width: 15

    [Field:rcptno]
    Set as: $vouchernumber
    Width: 7
    [Field: rcptamt]
    Set as: $amount
    Width: 15
    ;==========================================A5 Costom Invoice With Multi Print==============================================
    [Function: GSTDDMMYYYYFormat]
    PARAMETER : pInputDate : Date
    VARIABLE : vInputVarDate : String
    VARIABLE : vInputVarMonth : String
    VARIABLE : vInputVarYear : String
    RETURN : String
    10 : IF : NOT $$IsEmpty:##pInputDate
    20 : SET : vInputVarDate : $$Zerofill:($$DayofDate:##pInputDate):2
    30 : SET : vInputVarMonth : $$Zerofill:($$MonthofDate:##pInputDate):2
    40 : SET : vInputVarYear : $$LocaleString:($$YearofDate:##pInputDate)
    50 : RETURN : $$String:##vInputVarDate+"-"+$$String:##vInputVarMonth+"-"+$$String:##vInputVarYear
    60 : END IF
    70 : RETURN : ""
    [Collection:GSTINVDNList]
    SourceCollection:Default
    Walk:InvoiceDelNotes
    Fetch:BasicShipDeliveryNote,BasicShippingDate
    Compute:TCBasicShipDeliveryNote:$$LocaleString:$BasicShipDeliveryNote+" Dt. "+$$GSTDDMMYYYYFormat:$BasicShippingDate
    [Collection:GSTINVLPOList]
    SourceCollection:Default
    Walk:InvoiceOrderList
    Fetch:BasicPurchaseOrderNo,BasicOrderDate
    Compute:TCBasicPurchaseOrderNo:$$LocaleString:$BasicPurchaseOrderNo+" Dt. "+$$GSTDDMMYYYYFormat:$BasicOrderDate
    [Object: GSTCompanyState]
    Address:if $$IsEmpty:mad:@CompanyStateName then "" else @@CompanyStateName
    [Object: GSTCompanyCountry]
    Address:If $$IsEmpty:$CountryName:Company:##SVCurrentCompany then "" else $CountryName:Company:##SVCurrentCompany
    [Object: GSTCompanyPIN]
    Address:if $$IsEmpty:$Pincode:Company:##SVCurrentCompany then "" else + "-" + $Pincode:Company:##SVCurrentCompany
    [Collection:GStTCompanyAddress]
    Type : Address : Company
    Child of : ##SVCurrentCompany
    Object : GSTCompanyState
    Object : GSTCompanyCountry
    Object : GSTCompanyPIN
    Filter : IsNotBlankAddr
    [System:Formula]
    GSTINVBatch:if $$IsEmpty:$BatchName then "" else "Batch:"+$BatchName
    GSTMfgOn:if $$IsEmpty:$MfdOn then "" else "; Mfd.On:"+ $$LocaleString:$MfdOn
    GSTExpOn:if $$IsEmpty:$MfdOn then "" else "; Expiry:"+ $$LocaleString:$ExpiryPeriod

    [*Part: VchF12PrnAdvConfig SalesInvoice]
    Parts : Form SubTitle, SAVchF12PrnConfig Common, IPCFG Common,InvCustConfigPart, VchF12PrnAdvConfig SalesInvoiceMain, +
    VchF12PrnAdvConfig SAPartyDesc
    Vertical : Yes
    Local : Line : Form SubTitle : Space Bottom : 0.5
    Local : Field : Form SubTitle : Info : If @@IsSales Then $$LocaleString:"Advanced Sales Configuration" Else $$LocaleString:"Advanced Credit Note Configuration" ;;; F12->Invoice Configuration->Form Title
    [Part:InvCustConfigPart]
    Lines:ShowRateinForex;,INVLedgerDetHeight,INVInvDetHeight,ShowRateinForex

    [Line:INVLedgerDetHeight]
    Field:MediumPrompt,NumberField
    Local:Field:MediumPrompt:Info:$$LocaleString:"Height of Ledger Part"
    Local:Field:NumberField:Modifies:INVLedgerDetHeightV
    [Line:INVInvDetHeight]
    Field:MediumPrompt,NumberField
    Local:Field:MediumPrompt:Info:$$LocaleString:"Height of Item Part"
    Local:Field:NumberField:Modifies:INVInvDetHeightV
    [Line:INVSignDetHeight]
    Field:MediumPrompt,NumberField
    Local:Field:MediumPrompt:Info:$$LocaleString:"Height of Sign Part"
    Local:Field:NumberField:Modifies:INVSignDetHeightV
    [Line:ShowRateinForex]
    Field:MediumPrompt,LogicalField
    Local:Field:MediumPrompt:Info:$$LocaleString:"Show Rate in Forex"
    Local:Field:LogicalField:Modifies:ShowRateinForexV
    [Variable:INVLedgerDetHeightV]
    Type:Number
    Persistent:Yes
    [Variable:INVSignDetHeightV]
    Type:Number
    Persistent:Yes
    [Variable:INVInvDetHeightV]
    Type:Number
    Persistent:Yes
    [Variable:ShowRateinForexV]
    Type:Logical
    Persistent:Yes
    [System:Variables]
    INVLedgerDetHeightV:20
    INVInvDetHeightV:100
    INVSignDetHeightV:35
    ShowRateinForexV:No
    [System:Formulae]
    NoShowForex: $$IsEqual:##ShowForex:"Primary"; ##ShowForex
    [System:Formula]
    INVInvDetHeightVa:##INVInvDetHeightV
    [System:Formula]
    INVSignDetHeightVa:##INVSignDetHeightV
    [System:Formula]
    INVLedgerDetHeightVa:##INVLedgerDetHeightV

    ;=========================================================================Font=============================================
    [Style:GSTNormalBold]
    Font:"Calibri"
    Height:10
    Bold:true
    [Style:GSTTitleBold]
    Font:"Calibri"
    Height:11
    Bold:true
    [Style:GSTNormal]
    Font:"Calibri"
    Height:10
    [Style:GSTLargeBold]
    Font:"Calibri"
    Height:16
    Bold:true
    [Style:GSTSmall]
    Font:"Calibri"
    Height:8
    [Style:GSTSmallBold]
    Font:"Calibri"
    Height:8
    Bold:true
    [Style:GSTTitle]
    Font:"Calibri"
    Height:11
    [Style:GSTMSmall]
    Font:"Calibri"
    Height:9
    [Style:GSTMSmallBold]
    Font:"Calibri"
    Height:9
    Bold:true


    Print All Sales.jpg Print Indivsual Bill.jpg
     


  2. garima

    garima Active Member


    add following line to your form which is printed

    Option: Dummyoption : If $$PageNo=1 Then No Else If @@IsGSTCompositeOn Then $$LoadGSTCompAnalysisDetails Else $$LoadGSTAnalysisDetails
     
    Vikram Bhat likes this.


Share This Page