Tally Chapter 176 TDL for Batch MFG Expiry Columns in Voucher By Rajiv Mishra Computer Class

 

Few Lines are missing here.

Pls watch the video first to get the full coding/

[#Line: EI ColumnOne]

Option : TlyErp EI ColumnOne : 

[#Line: EI ColumnTwo]

Option : TlyErp EI ColumnOne : 

[#Line: EI ColumnOneRate]

Option : TlyErp EI ColumnOne : 

[!Line : TlyErp EI ColumnOne]

Add : Right Fields : Before : VCH QtyTitle : TlyErp VCH BatchTitle, TlyErp VCH MfgTitle, TlyErp VCH ExpTitle

[Field: TlyErp VCH BatchTitle]

Set as : $$LocaleString:"Batch No"

Style : Small Bold

Align : Centre

;Border : Double Sub Column Titles : If @@IsJobOrdersOn OR @@IsExciseSupplementaryInv Then No Else $DiffActualQty AND NOT @@IsPhysStock AND NOT @@IsStockJrnl

Skip : Yes

Fixed : Yes

;Width : if (@@HasMfgDateSet OR @@IsPhysStock) then 9 else @@VCHBatchNameWidth

Inactive : NOT @@HasBatchWise

[Field: TlyErp VCH MfgTitle]

Set as : $$LocaleString:"Mfg. Date"

Style : Small Bold

Align : Centre

;Border : Double Sub Column Titles : If @@IsJobOrdersOn OR @@IsExciseSupplementaryInv Then No Else $DiffActualQty AND NOT @@IsPhysStock AND NOT @@IsStockJrnl

Skip : Yes

Fixed : Yes

;Width : if (@@HasExpiryDate OR @@IsPhysStock) then 9 else @@VCHBatchNameWidth

Inactive : NOT @@HasBatchWise

[Field: TlyErp VCH ExpTitle]

Set as : $$LocaleString:"Exp. Date"

Style : Small Bold

Align : Centre

;Border : Double Sub Column Titles : If @@IsJobOrdersOn OR @@IsExciseSupplementaryInv Then No Else $DiffActualQty AND NOT @@IsPhysStock AND NOT @@IsStockJrnl

Skip : Yes

Fixed : Yes

;Width : if (@@HasMfgDateSet OR @@IsPhysStock) then 9 else @@VCHBatchNameWidth

Inactive : NOT @@HasBatchWise

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

[#Line: EI InvInfo]

Option : TlyErp EI InvInfo : 

[#Line: CI InvInfo]

Option : TlyErp EI InvInfo : 

[!Line : TlyErp EI InvInfo]

Add : Right Fields : Before : VCH BilledQty : TlyErp VCH BatchName, TlyErp VCH MfgDate, TlyErp VCH ExpDate

[Field : TlyErp VCH BatchName]

Use : Batch Name Field

Align : Centre

Style : Small

Set as : $BatchName

;Width : if (@@HasMfgDateSet OR @@IsPhysStock) then 9 else @@VCHBatchNameWidth

Inactive : NOT @@HasBatchWise

Color : @@SV_VCHCOLOR

Background : @@SV_VCHTYPE

[Field : TlyErp VCH MfgDate]

Use : Short Date Field

Align : Centre

Style : Small

Set as : $MfdOn

;Width : if (@@HasMfgDateSet OR @@IsPhysStock) then 9 else @@VCHBatchNameWidth

Inactive : NOT @@HasBatchWise

Color : @@SV_VCHCOLOR

Background : @@SV_VCHTYPE

[Field : TlyErp VCH ExpDate]

Use : Due Date Field

Align : Centre

Style : Small

Set as : $ExpiryPeriod

;Width : if (@@HasMfgDateSet OR @@IsPhysStock) then 9 else @@VCHBatchNameWidth

Inactive : NOT @@HasBatchWise

Color : @@SV_VCHCOLOR

Background : Green