Job Work Invoice (Job Details Amount not Calculated)

Dear Experts,

I have done accounts only invoice customization (For Job work ). In Description Form it will work.

My problem is if UDF Field no 3 , 4, & 5 is filled then Last Amount will work but when Field No 3 is 0 then Amount is not calculated. So experts pls help me.

Screen Shoots & code is as under:

Thanks in advance,

Mani

[Form: Meterwiseform]
Part : MeterwisePart1,MeterwisePart2
Width : 50% Page
Height : 60% Page
Vertical Align : Centre
[Part: MeterwisePart1]

Line : VmeterTitle, VmeterDetail ;;VmeterDetailT,
Repeat : VmeterDetail : Vmeter
Break On : $$IsEmpty:$Vmeter
Scroll : Vertical
Total : Vmeterwise,Vtotalthancount

[Line: VmeterTitle]
Fields : Form Subtitle
Local : Field : Form SubTitle : Set as : "Please Enter Work wise Detail"
Space Bottom : 1

;[Line : VmeterDetailT]

;Use : VmeterDetail

;Local : Field : VThanNo : Set as : "S No"
;Local : Field : MItemName : Set as : "Item Name"
;Local : Field : MDia : Set as : "Dia-Metter"
;Local : Field : MQty : Set as : "Qty"
;Local : Field : MRate : Set as : "Rate"
;Local : Field : VMeterwise : Set as : "Amount"
;Skip Rows : Yes

[Line: VmeterDetail]
Fields : VthanNo, MItemName, MDia,MMQty, MQty,MRate,Vmeterwise,

[Field: VthanNo]

Use : Number Field
Width : 4
Set as : $$Line
Skip : Yes
Storage : vaibhTotalthan


[Field: Vmeterwise]
Use : Amount Field
;Set as : $MMItemQty * $MItemQty * $MRate ;;Its Working Fine is all fields fill up > 0
;; But proble when MMItemQty is 0 then it couldnot calculate

Set By Condition : If@@MMItemQty=>0 Then ($MMItemQty * $MItemQty * $MRate) Else +
If@@MMItemQty=<1 Then ($MItemQty * $MRate) Else + ""
Storage : Vmeter

;;============================
[Field : MItemName]
Set as: "Stock Item Name"

[Field : MDia]
Use : Number Field
Set as : $$DiaMtr
Width : 9 mms
Style : Normal Bold
Align : Center
Key : Calculator
Storage : MDiaMtr


[Field : MMQty]
Use : Number Field
Set as : $$MMItemQty ;;"Stock Item Qty"
Width : 9 mms
Style : Normal Bold
Format : "No Zero"
Align : Right
Key : Calculator
Storage : MMItemQty

[Field : MQty]
Use : Number Field
Set as : $$MItemQty ;;"Stock Item Qty"
Width : 18 mms
Style : Normal Bold
Format : "No Zero"
Align : Right
Key : Calculator
Storage : MItemQty

[Field : MRate]
Use : Amount Field
Set as : $$MRate
Width : 9 mms
Style : Small Bold
Key : Calculator
Align : Right
Storage : MRate
;;============================

[Part: MeterwisePart2]
Line : totalmeter

[Line: totalmeter]

Field : CVeha,CVeha1

[Field: CVeha]
Border : Totals
Set As :$$Total:Vmeterwise
Width : 4
Use : Amount Field
Storage : VmeterTotal
Skip:Yes
[Field: CVeha1]
Border : Totals
Set As :$$Total:Vtotalthancount; - 1
Width : 4
Skip:Yes

[System: UDF]

Vmeter : Amount: 700
vaibhTotalthan:Number:900
IsMultiMeterDetail:Logical:1000
VmeterTotal: Amount: 1100
vaibhTotalthancounts:Number:1101
MMItemQty : Number:1105
MItemQty : Number:1102
MRate : Amount:1103
MDiaMtr : Number:1104

 

Sir Its Not Working, Also i want item master table pop-up in field 1.

How its possible.

Pls help.

 

Respected Sir,
Its not Done. As per Your instruction i have change the code as under & i am also trying to remove all Set as field's from 3 UDF Fields.


[Field : MMQty]
Use : Number Field
Set as : $$Value ;;"Stock Item Qty"
;; Set as : $$MMItemQty ;;"Stock Item Qty"
Width : 9 mms
Style : Normal Bold
Format : "No Zero"
Align : Right
Key : Calculator
Storage : MMItemQty

[Field : MQty]
Use : Number Field
Set as : $$Value ;;"Stock Item Qty"
;; Set as : $$MItemQty ;;"Stock Item Qty"
Width : 18 mms
Style : Normal Bold
Format : "No Zero"
Align : Right
Key : Calculator
Storage : MItemQty

[Field : MRate]
Use : Amount Field
Set as : $$Value
;; Set as : $$MRate
Width : 9 mms
Style : Small Bold
Key : Calculator
Align : Right
Storage : MRate


[Field: Vmeterwise]
Use : Amount Field
;;Set as : $MMItemQty * $MItemQty * $MRate
Set As : If@@MMItemQty >0 Then ($MMItemQty * $MItemQty * $MRate) Else If@@MMItemQty =<0 Then ($MItemQty * $MRate) Else ""
Storage : Vmeter

 

Res All Experts,

Pls guide me that what mistake i have doing in this code.

1. i want save the sub forms values and when i select end of list in stock item table its quit from sub form.
2. i want replace the total of last udf (Amount Field) with voucher ledger amount field
For example i select labour charges a/c & in sub form i select two different items and the amount field total is 1800 it should be replace with labour charges amount field .

My Code is as under :

Thanks in advance
.
Mani

;; Code Starts from here

[#Part: LEDNotes]
Add:Lines:Total Meter Detail VAibhav
[#Part: STKI Desc]
Add:Lines:Total Meter Detail VAibhav
[Line:Total Meter Detail VAibhav]
Fields:Medium Prompt,Total Meter Detail VAibhav
Local:Field:Medium Prompt:Info:"Labour Work Detail?"
[Field:Total Meter Detail VAibhav]
Use:Logical Field
Storage:IsMultiMeterDetail

[#Field: EI AccDesc]

Add : SubForm : Meterwisereport $IsMultiMeterDetail:Ledger:$LedgerName)

[report : Meterwisereport]
form : Meterwiseform

[Form: Meterwiseform]
Part : MeterwisePart1,MeterwisePart2
Width : 60% Page
Height : 60% Page
Vertical Align : Centre
[Part: MeterwisePart1]

Line : VmeterTitle, VmeterDetail ;;VmeterDetailT,
Repeat : VmeterDetail : VmeterDetailC ;; MMItemName
Break On : $$IsEndOfList:$mmItemName
Scroll : Vertical
Total : Vmeterwise,Vtotalthancount

[Line: VmeterTitle]
Fields : Form Subtitle
Local : Field : Form SubTitle : Set as : "Please Enter Work wise Detail"
Space Bottom : 1


[Line: VmeterDetail]
Fields : VthanNo, MItemName, MDia,MMQty,MMQTYU, MQty,MQtyU,MRate,Vmeterwise,

[Field: VthanNo]

Use : Number Field
Width : 4
Set as : $$Line
Skip : Yes
Storage : vaibhTotalthan


;;============================
[Field : MItemName]
Use : Name Field
Set as : $MMItemName
Table : MItemNameT, End Of List
Show Table : Always
Storage : MMItemName

[Field : MDia]
Use : Number Field
Set as : $$Value
;; Set as : $$DiaMtr
Width : 9 mms
Style : Normal Bold
Align : Center
Key : Calculator
Storage : MDiaMtr


[Field : MMQty]
Use : Number Field
Set as : "1" ;;$$Value ;;"Stock Item Qty"
;; Set as : $$MMItemQty ;;"Stock Item Qty"
Width : 9 mms
Style : Normal Bold
Format : "No Zero"
Align : Right
Key : Calculator
Storage : MMItemQty

[Field : MMQTYU]
Use : Simple Field
Set as : "/T"
Width : 2 mms
Skip : Yes
[Field : MQty]
Use : Number Field
Set as : $$Value ;;"Stock Item Qty"
;; Set as : $$MItemQty ;;"Stock Item Qty"
Width : 18 mms
Style : Normal Bold
Format : "No Zero"
Align : Right
Key : Calculator
Storage : MItemQty

[Field : MQtyU]

Use : Name Field
;Storage : BrokerName
Storage : MQtyU
Width : 9 Mms
Table : MQTYUT
show Table : Always


[collection :MQTYUT]
TITLE : "Unit"
List : "Nos","Pcs","Kgs."


;;==========================
[Field : MRate]
Use : Amount Field
;; Set as : $$Value
;; Set as : $$MRate
Width : 9 mms
Style : Small Bold
Key : Calculator
Align : Right
Storage : MRate


[Field: Vmeterwise]
Use : Amount Field
Set as : $MMItemQty * $MItemQty * $MRate
;;Set As : If@@MMItemQty >0 Then ($MMItemQty * $MItemQty * $MRate) Else If@@MMItemQty =<0 Then ($MItemQty * $MRate) Else ""
;;Set As : If@@MMItemQty >0 Then ($MMItemQty * $MItemQty * $MRate) Else ($MItemQty * $MRate)
Storage : Vmeter

;;============================

[Part: MeterwisePart2]
Line : totalmeter

[Line: totalmeter]

Field : CVeha,CVeha1

[Field: CVeha]
Border : Totals
Set As :$$Total:Vmeterwise
Width : 55% Page
Use : Amount Field
Storage : VmeterTotal
Skip :Yes
[Field: CVeha1]
Border : Totals
Set As :$$Total:Vtotalthancount ; - 1
Width : 4
Skip:Yes

[System: UDF]

Vmeter : Amount: 1108
vaibhTotalthan:Number:1109
IsMultiMeterDetail:Logical:1000
VmeterTotal: Amount: 1100
vaibhTotalthancounts:Number:1101
MMItemQty : Number:1105
MItemQty : Number:1102
MRate : Amount:1103
MDiaMtr : Number:1104
MQtyU : String:1106
MMItemName : String:1107
;;======================================


[Collection : MItemNameT]
Use : List of Stock Items
Fetch : Name,
Format : $Name, 30
;Add : Format : $Parent, 20
;;Filter : IsLedgerBank



[Collection : VmeterDetailC]
Use : VmeterDetail
Fetch : MMItemName, MMItemQty,MItemQty,MRate,Vmeter
Format : $Name, 30

 

Res. Admin / Experts Sir,

Can you pls give me example for one field then i understood and Complete the project .

Thanks ,

 

Sir,

As per your instruction i am change the fields but not working.
Pls Pls Help
Just Give me one example.

Code as under:


[Form: Meterwiseform]
Part : MeterwisePart1,MeterwisePart2
Width : 60% Page
Height : 60% Page
Vertical Align : Centre
[Part: MeterwisePart1]

Line : VmeterTitle, VmeterDetail ;;VmeterDetailT,
Repeat : VmeterDetail : MMItemName
Break On : $$IsEndOfList:$mmItemName
Scroll : Vertical
Total : Vmeterwise,Vtotalthancount

[Line: VmeterTitle]
Fields : Form Subtitle
Local : Field : Form SubTitle : Set as : "Please Enter Work wise Detail"
Space Bottom : 1


[Line: VmeterDetail]
Fields : VthanNo, MItemName, MDia,MMQty,MMQTYU, MQty,MQtyU,MRate,Vmeterwise,

[Field: VthanNo]

Use : Number Field
Width : 4
Set as : $$Line
Skip : Yes
Storage : vaibhTotalthan


;;============================
[Field : MItemName]
Use : Name Field
Set as : $MMItemName
Table : MItemNameT, End Of List
Show Table : Always
Storage : MMItemName

[Field : MDia]
Use : Number Field
Set as : $DiaMtr
Width : 9 mms
Style : Normal Bold
Align : Center
;Format : "No Zero"
Key : Calculator
Storage : MDiaMtr


[Field : MMQty]
Use : Number Field
Set as : "1" ;;$$Value ;;"Stock Item Qty"
Width : 9 mms
Style : Normal Bold
Format : "No Zero"
Align : Right
Key : Calculator
Storage : MMItemQty

[Field : MMQTYU]
Use : Simple Field
Set as : "/T"
Width : 2 mms
Skip : Yes
[Field : MQty]
Use : Number Field
Set as : $MItemQty ;;"Stock Item Qty"
Width : 18 mms
Style : Normal Bold
Format : "No Zero"
Align : Right
Key : Calculator
Storage : MItemQty

[Field : MQtyU]

Use : Name Field
Storage : MQtyU
Width : 9 Mms
Table : MQTYUT
show Table : Always


[collection :MQTYUT]
TITLE : "Unit"
List : "Nos","Pcs","Kgs."


;;==========================
[Field : MRate]
Use : Number Field
Set as : $MRate
Width : 9 mms
;; Format : "No Zero, Symbol," + ##ShowForex
Style : Small Bold
Key : Calculator
Align : Right
Storage : MRate


[Field: Vmeterwise]
Use : Amount Field
Set as : $MMItemQty * $MItemQty * $MRate
;;Set As : If@@MMItemQty >0 Then ($MMItemQty * $MItemQty * $MRate) Else If@@MMItemQty =<0 Then ($MItemQty * $MRate) Else ""
;;Set As : If@@MMItemQty >0 Then ($MMItemQty * $MItemQty * $MRate) Else ($MItemQty * $MRate)
Storage : Vmeter

;;============================

[Part: MeterwisePart2]
Line : totalmeter

[Line: totalmeter]

Field : CVeha,CVeha1

[Field: CVeha]
Border : Totals
Set As :$$Total:Vmeterwise
Width : 55% Page
Use : Amount Field
Storage : VmeterTotal
Skip :Yes
[Field: CVeha1]
Border : Totals
Set As :$$Total:Vtotalthancount ; - 1
Width : 4
Skip:Yes

[System: UDF]

Vmeter : Amount: 1108
vaibhTotalthan:Number:1109
IsMultiMeterDetail:Logical:1000
VmeterTotal: Amount: 1100
vaibhTotalthancounts:Number:1101
MMItemQty : Number :1105
MItemQty : Number :1102
MRate : Number :1103
MDiaMtr : Number :1104
MQtyU : String :1106
MMItemName : String :1107
;;======================================

 

Dear Sir,

I have Done All most , Only two things not happen
1. when i put table in the field its not working.
2. Total Amount is not replaced with Ledger Value Field.

Pls tell me what mistake i have so that i correct it.

Pls Pls Sir

Code is as under

1.
[Field: CMP Salesman NameField]

Use : Name Field
Set as : $SalesmanName
;; Table : MItemNameT, End Of List
;; Show Table : Always
Storage : SalesmanName
Width : 63 mms
;;======================

[Collection : MItemNameT]
Use : List of Stock Items
Fetch : Name,
Format : $Name, 30


2.

[Field : Cmp BottomF]
Use : Number Field
Set as : $$Total:CMPCommissionField
Storage : CmpAmttotal
Format : "No Zero,decimal:2"
Skip : Yes
;;=============================================
[#Field: EI Value]

Set : #CmpAmttotal

 

Sir the file is mail to you on nehalsofttech@gmail.com , pls help me sir
Pls Pls Pls,

Manish

 

Hi Sir,

I am not a par fact skilled programmer who attend any session for tally TDL. So pls help me
Removed All Un-wanted and dead fields , Also total amount not replaced with ledger amount field.

Thanks to Rohit Khedar help me solve the break on issue.

Code is as under

[#Part: LEDNotes]
Add:Lines:Total Meter Detail VAibhav
[#Part: STKI Desc]
Add:Lines:Total Meter Detail VAibhav
[Line:Total Meter Detail VAibhav]
Fields:Medium Prompt,Total Meter Detail VAibhav
Local:Field:Medium Prompt:Info:"Labour Work Detail?"
[Field:Total Meter Detail VAibhav]
Use:Logical Field
Storage:IsMultiMeterDetail

[#Field: EI AccDesc]

Add : SubForm : CMP SalesmanReport $IsMultiMeterDetail:Ledger:$LedgerName)


[Report: CMP SalesmanReport]
Form: CMP SalesmanForm

[Form: CMP SalesmanForm]
Part: CMP Salesman PartTitle, CMP Salesman PartDetails,Cmp BottomP
Background: White, Petal Pink
Width : 60% Page
Height : 60% Page


[Part: CMP Salesman PartTitle]
Line: CMP Salesman LineTitle
Width : 60% Page
[Line: CMP Salesman LineTitle]
Field: Long Prompt
Local: Field: Long Prompt: Style: Small Bold
Local: Field: Long Prompt: Info: "Please Enter Work wise Detail"
Local: Field: Long Prompt: Align: Centre
Local: Field: Long Prompt: Width: 60% Page
Local: Field: Long Prompt: Border: Thin Bottom
Local: Field: Long Prompt: Style: Large Bold
;Local: Field: Long Prompt: Width: 60% Page

[Part: CMP Salesman PartDetails]
Line : CMP LineDetailsH, CMP Salesman LineDetails
Repeat : CMP Salesman LineDetails: MyDBSalesman
BreakOn : $$IsEndOfList:$SalesmanName
;Height : 60% Page
Width : 60% Page
Scroll : Vertical
Total : CMPCommissionField
;CommonBorder : Yes

[Line : CMP LineDetailsH]
Fields : VthanNoH, CMP Salesman NameFieldH,CMP DiaFH,CMP PQtyH, CMP MQtyH, CMP MRateH, CMP Salesman CommissionFieldH,
Skip Rows : Yes

[Field: VthanNoH]

Use : Name Field
Width : 4
Set as : "S.No"
Border : Thin Bottom

[Field : CMP Salesman NameFieldH]
Use : Name Field
Set as : "Discription"
Width : 63 mms
Border : Thin Bottom
Align : Center

[Field :CMP DiaFH]

Use : Name Field
Set as : "Dia Mtr."
Border : Thin Bottom
Width : 18 mms
[Field :CMP PQtyH]

Use : Name Field
Set as : "Qty"
Width : 9 mms
Border : Thin Bottom
[Field :CMP MQtyH]

Use : Name Field
Set as : "Qty"
Width : 9 mms
Border : Thin Bottom
[Field :CMP MRateH]

Use : Name Field
Set as : "Rate"
Width : 9 mms
Border : Thin Bottom
[Field :CMP Salesman CommissionFieldH]

Use : Name Field
Set as : "Amount"
Width : 18 mms
Border : Thin Bottom
[Line: CMP Salesman LineDetails]
Field: VthanNo,CMP Salesman NameField,CMP DiaF,CMP PQty, CMP MQty, CMP MRate, CMPCommissionField,


[Field: VthanNo]

Use : Number Field
Width : 4
Set as : $$Line
Skip : Yes
Storage : vaibhTotalthan

[Field: CMP Salesman NameField]

Use : Name Field
Set as : $SalesmanName
Table : List of Stock Items, End Of List
;; Show Table : Always
Storage : SalesmanName
Width : 63 mms

[Field: CMP DiaF]
Use : Number Field
Storage : Dia
Width : 18 mms
Align : Center

[Field: CMP PQty]
Use: Number Field
Set as : $PQty
Storage: PQty
Width : 9 mms

[Field: CMP MQty]
Use: Number Field
Set as : $MQty
Storage: MQty
Width : 9 mms

[Field: CMP MRate]
Use: Number Field
Set as : $MRate
Storage: MRate
Width : 9 mms
Format : "No Zero,decimal:2"

[Field: CMPCommissionField]
Use : Number Field
Set as : $PQty * $MQty * $MRate
Storage : Commission
;Border: Thin Left
Width : 18 mms
Format : "No Zero,decimal:2"
Align : Right

[System: UDF]
IsMultiMeterDetail:Logical:10003
MyDBSalesman : Aggregate: 10002
SalesmanName : String:1000
Commission : Number:1001
Dia : Number:1002
PQty : Number:1003
MQty : Number:1004
MRate : Number:1005
vaibhTotalthan : Number:1006
[System : Formula]

MAmt : $PQty * $MQty * $MRate

[Collection : MItemNameT]
Use : List of Stock Items
Fetch : Name,
Format : $Name, 30
;Add : Format : $Parent, 20
;;Filter : IsLedgerBank

[Part : Cmp BottomP]
Line : Cmp BottomL

[Line : Cmp BottomL]
Field : Cmp BottomF

[Field : Cmp BottomF]
Use : Number Field
Set as : $$Total:CMPCommissionField
Storage : CmpAmttotal
Format : "No Zero,decimal:2"
Skip : Yes
;;=============================================
[#Field: EI Value]

Set : $CmpAmttotal ;;Here i want total amount field. It is Labour charges amount field

 

Hi all,

Can Any one help me....

pls...pls...

 

I think i am almost reach the required field but not succeed .

;;[#Field: EI ValueInv]
;;[#Field: CIValue]
[#Field: EI Value]
;;ResetVal : If $$IsEmpty:$CmpAmttotal Then $$Value else $CmpAmttotal ;;$CmpAmttotal

Set as : #CmpAmttotal

 

Sir Its not working

[#Field: EI Value]
Use : Amount Forex Field
Set as : If NOT $$IsEmpty:$CmpAmttotal Then $CmpAmttotal Else @RoundedVal

 

Sir Its Done, i am not add storage in System : Udf So its not working for me.

Sorry to inconvenience you ,

Sir i have not attend any training session for tdl . Last 18-20 Years i am associated with tally. Before 6.3 version its very difficult for customized tally as per customer need. i am self Lerner Collect some example code from Various sources,
And Trying to full fill my customers requirements .

Thanks To you again for your kind support. Hope you support me in feature.

Thank You Sir

 

Respected sir Now i have add print code but not get result
pls help

;;Code start here:

;;======================================================================================================
;; Print Code Starts From Here
;;======================================================================================================
[System: UDF]
LineDetails:Aggregate: 10003

[#Part: EXPINV Totals]
Add:Line:After:EXPINV Totals:MyDetailsL
; ; Repeat : MyDetailsL: LineDetails

;; When i repeat this line as above its not Working

[Line : MyDetailsL]

Field : VthanNoF,MyDetailsF,CMPDiaFF, ;;CMPPQty, CMPMQty, CMPMRate, CMPCommissionF,
Border : Thin Top
Space Top : 9+9 mms
Space Bottom: 9 mms
[Field : VthanNoF]
Use : Number Field
Width : 4
Set as : $$Line
Skip : Yes
;Set as : $vaibhTotalthan

[Field : MyDetailsF]
; Use : Name Field
Width : 36 mms
Set as : "Here I Want Repeat the details" ;;$SalesmanName
Style : Large Bold

[Field : CMPDiaFF]
Use : Number Field
Set as : $Dia
Width : 18 mms
Align : Center