How to Get Invoice Details

Code:

[System: Formula]
InvAntBB : $Amount:Voucher:$VoucherNumber


[#Menu: Gateway OF Tally]
Add: Toolbar Buttons: SlaesBill


Add: Buttons: SlaesBill
Item : Report : Alter:BillDetails

[Button: SlaesBill]
Key: ALT + z


Action: alter : BillDetails

Title: " SalesBill Details"

[Report: BillDetails]
Form: BillDetails
Title: "SalesBill Details"

Variable:partyLedgerselect

[Form: BillDetails]
Part: BillDetails



[Part: BillDetails]
;USE : MyWhatsappCol2
Line: PartyLedgerName, BillDetBid ,OtherDetBid
[Line: PartyLedgerName]
Field:partyLedgerName ,PartyLedgerselect, BillNoA, BillNoB



[Field:partyLedgerName]
Use:Name field
Set as:"Party Name :"
Width : 10
Skip:Yes

[Field:BillNoA]
Use:Name field
Set as:"Bill No :"
Width : 10
Skip:Yes

[Field:BillAmountB]
Use:Name field
Set as:"Bill Amount :"
Skip:Yes

[Line:BillDetBid]
Field:BillVal,BillVal1,BillGST,BillGST1,BillTPT,BillTPT1,BillTOT,BillTOT1

[Field:BillVal]
Use:Name Field
Set as:"Goods Value :"
Width: 10
Skip:Yes

[Field:BillGST]
Use:Name Field
Set as:"GST Value :"
Width: 10
Skip:Yes

[Field:BillTPT]
Use:Name Field
Set as:"Trannspotation :"
Width: 10
Skip:Yes


[Field:BillTot]
Use:Name Field
Set as:"Total Value :"
Width: 10
Skip:Yes

[Field:BillVal1]
Use:Amount Field
Set as: $Amount:Voucher:$VoucherNumber   ;;;#mcistate2PbV
Width: 10
Set Always : Yes
Readonly : yes
Skip:Yes

[Field:BillGST1]
Use:Amount Field
Set as: @@LastVchAmount
Width: 10
Skip:Yes

[Field:BillTPT1]
Use:Amount Field
Set as: $Amount
Width: 10
Skip:Yes

[Field:BillTot1]
Use:Amount Field
Set as: $Amount
Width: 10
Skip:Yes





[Field: PartyLedgerselect]
Use: short name field
Color:"Red"
Set as : ##mcistate2Pb
Modifies: mcistate2Pb
width :75 mms
Table: BWR Voucher2Pb   ;;;,All Items
ShowTable: Always
[Collection: BWR Voucher2Pb]
    Title        : $$LocaleString:"Party Name"
    Type         : Vouchers : VoucherType
        Child of    : $$VchTypeSales       
    Belongs to    : Yes   
    Fetch       : PARTYNAME,PartyLedgerName,LEdgerContact, BASICBUYERNAME, VoucherNumber,Amount
;    Filter : IsSalesVT22p,IsOptional2p,CSTFilter2p ;;;,CSTFilter22p

format : $PartyLedgerName, 50

[Field: BillNoB]
Use: short name field
Width : 12
Color:"Red"
Set as : ##mcistate2PbV
Modifies: mcistate2PbV
width :75 mms
Table: BWR Voucher2PbV ;;;;;,All Items
ShowTable: Always
[Collection: BWR Voucher2PbV]
    Title        : $$LocaleString:"Invoice Nos"
    Type         : Vouchers : VoucherType
        Child of    : $$VchTypeSales  
    Belongs to    : Yes   
    Fetch       : PARTYNAME,PartyLedgerName,LEdgerContact, BASICBUYERNAME, VoucherNumber,Amount
    Filter : PaBB  ;;;IsSalesVT22p,IsOptional2p,CSTFilter2p ;;;,CSTFilter22p

format : $VoucherNumber, 11

[System : formula]

PaBB : $PartyLedgerName = #PartyLedgerselect


[Line :OtherDetBid]
Field : BillDtBB, BillDtBB1, EWBNobb,EWBNobb1, DriverNAmeBB,DriverNAmeBB1, DriberMobBB, DriberMobBB1

[Field :BillDtBB]
Use : Name Field
Set as:"Bill Date :"
Width: 10
Skip:Yes

[Field : BillDtBB1]
Use:Date Field
Set as:$Date
Width: 10
Skip:Yes


[Field : EWBNobb]
Use:Name Field
Set as:"EWB No :"
Width: 10
Skip:Yes

[Field : EWBNobb1]
Use:Name Field
Set as:$PartyLedgerName
Width: 10
Skip:Yes

[Field : DriverNAmeBB]
Use:Name Field
Set as:"Driver Name:"
Width: 10
Skip:Yes

[Field : DriverNAmeBB1]
Use:Name Field
Set as:@@LastVchType
Width: 10
Skip:Yes

[Field :DriberMobBB]
Use:Name Field
Set as:"Driver Mobile:"
Width: 10
Skip:Yes

[Field : DriberMobBB1]
Use:Name Field
Set as:$DriverMobile
Width: 10
Skip:No


;;=========================end code========================

[Variable : PartyLedgerselect]
Type : String
Persistent : Yes

[Variable : mcistate2pB]
Persistent : Yes
Type : string

[Variable : mcistate2pBV]
Persistent : Yes
Type : string

[System : Formulae]
PartyLedgerselect : ""
;;;=========================================
;Make a new collection

;USE Search Key By Bill No.

;Fetch Details


[Collection : RBCPartyVouchersSrc]

Type : Vouchers : Ledger                                        
Child Of : ##vYourLedgerName                               


[Collection : RBCPartyVouchers]

Source Collection : RBCPartyVouchersSrc
Fetch    :Date, VoucherTypeName, PartyLedgerName, Amount

Sort    : @@Default    : -$Date


[System : Formulae]

LastVchType : $$CollectionField:$VoucherTypeName:First:RBCPartyVouchers
LastVchAmount : $$CollectionField:$Amount:First:RBCPartyVouchers

 

[Collection : SalesVCHBB]

Type : Vouchers : Ledger
Filter : PaBB

[Collection : SalesVCHBB1]

Source Collection : SalesVCHBB
Filter : VNBB
Fetch ate, VoucherTypeName, PartyLedgerName, Amount
Sort : @@Default : -$Date


[System : Formulae]
PaBB : $PartyLedgerName = #PartyLedgerselect
VNBB : $VoucherNumber = #Voucherelect
LastVchType :$VoucherTypeName
LastVchAmount : $Amount