Effective Date in Vchr & Report

Dear All
Can We do Effective Date in vchr & Report.........
If Yes Please let Me Know

 

Dear Sir
We want to make stock Report
PFA Excel Report

 

Mr. Pudkedheeraj

Try below code you need to modify at your end as per your need. It is my already made code.




[#Part: PDCN Party]

Space Top : 0.08 inch
Space Bottom : 0.05 inch

[#Part: PJR Sign]

Space Top : 0.03 inch
Delete : Lines : PJR Sign
Add : Lines : PPR GINPO



[#Part: PDCN Party]

Delete : Lines : PDCN PartyAddr
Delete : Repeat: PDCN PartyAddr

[#Part: PDCN Title]

Delete : Lines : PDCN Ref
Add : Lines : PPR BillDetail
;; Add : Lines : PPR GINPO

[Line: PPR BillDetail]

Fields : PPR InvNumber,
Fields : Simple Prompt, PPR BillDt
Right Fields: Short Prompt, PPR BillDueDt

;; Local : Field : Simple Prompt : Info : $$LocaleString:"Bill No" + ".:"
;; Local : Field : Simple Prompt : PrePrinted: Yes
;; Local : Field : Simple Prompt : Inactive : $$IsEmpty:$Reference OR NOT @@Reference
;; Local : Field : PPR VchNumber : Set as : $Reference
;; Local : Field : PPR VchNumber : Inactive : $$IsEmpty:$Reference OR NOT @@Reference

Local : Field : Simple Prompt : Info : $$LocaleString:"Bill Date :"
Local : Field : Simple Prompt : Width : 7
Local : Field : Simple Prompt : PrePrinted: Yes
Local : Field : PPR BillDt : Set as : $referencedate

Local : Field : Short Prompt : Info : $$LocaleString:"Due Date :"
Local : Field : Short Prompt : Width : 7
Local : Field : Short Prompt : PrePrinted: Yes
Local : Field : PPR BillDueDt : Set as : $$String$LedgerEntries.LedgerEntries.BillAllocations.BillCreditPeriod):UniversalDate
SpaceBottom : 0.03 inch
SpaceTop : 0.03 inch
;; Border : Column Titles
;; Border : Thin Top

[Field: PPR InvNumber]

Use : Short Name Field
Set as : "Bill No" + ".:" + " " + $Reference
Inactive : $$IsEmpty:$Reference OR NOT @@Reference
Width : 30


[Field: PPR BillDt]

Use : UniDateField
Set as : $referencedate ;; $PartyInvDate ;;"Bill Date" + ".:" +
;; Width : if NOT $$InPixelMode then 15 else 7
Width : 10



[Field: PPR BillDueDt]

Use : Uni Date Field
Width : 10
Set as : if NOT $$IsSetByDate:$BillCreditPeriod then ("( " + $$String:$BillCreditPeriod:UniversalDate + " )") else @AuxInDays


[Line: PPR GINPO]

Fields : PPR GINNO, PPR PONO
Right Fields: Simple Prompt, PPR BillEffDate

Local : Field : Simple Prompt : Info : $$LocaleString:"Effective Dt."
Local : Field : Simple Prompt : Width : 7
Local : Field : Simple Prompt : PrePrinted: Yes
Local : Field : PPR BillEffDate: Set as : $EffectiveDate

SpaceBottom : 0.30
SpaceTop : 0.30
Border : Thin Bottom


[Field: PPR GINNO]

Use : Short Name Field
Set as : "GIN No" + ".:" + " " + $VCHGINNO
;; Inactive : $$IsEmpty:$Reference OR NOT @@Reference
Full Width : Yes

[Field: PPR PONO]

Use : Short Name Field
Set as : "PO No" + ".:" + " " + $VCHPONO
;; Inactive : $$IsEmpty:$Reference OR NOT @@Reference
Full Width : Yes

[Field: PPR BillEffDate]

Use : Uni Date Field
Set as : $EffectiveDate ;;"Effective Date" + ".:" +
;; Width : if NOT $$InPixelMode then 15 else 7
Width : 15



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

 

Dear Sir
Thank you for your Support
bt this code is not working...