[#Form : LEDGER CONTACT] Button : Address Print [Button : Address Print ] Key : Ctrl + 5 Action : Print Report : EnvelopePrint [Report : EnvelopePrint] Form : EnvPrintForm Object : Ledger Object : Voucher [Form : EnvPrintForm] Width : 100% Page Height : 100% Page Space Top : 3 inch Space Left : 4 inch Space Right : 0.5 inch Part : EnvPrintBody [Part : EnvPrintBody] Part : EnvPrintBodyTop [Part : EnvPrintBodyTop] Width : 100 % page Height : 3 inch Space Top : 0.5 inch Space Left : 0.5 inch Space Right : 0.5 inch Line : EnvelopeHead1, EnvelopeHead2, FullAddress, PhoneNumbers, EmailAdd Repeat : FullAddressartyAddress Vertical : Yes [Line : EnvelopeHead1] Field : ToAddress, EnvelopeHead1 Space Top : 1 [Field : ToAddress] Use : Name Field Set as : "To," Width : 15 Align : Right Style : EnvStyleBOLD Space Left : 9 [Field : EnvelopeHead1] Use : Name Field Setas : $Name:Ledger:$PartyLedgerName Width : 50 style : EnvStyleBOLD Align : Left Object : Ledger [Line : EnvelopeHead2] Field : KindAttn, ContactPerson [Field : KindAttn] Use : Name Field Set as : Width : 15 Align : Centre Style : EnvStyleNormal Space Left : 9 PrintFG : Black [Field : ContactPerson] Use : Name Field Setas : $LedgerContact:Ledger:$PartyLedgerName Set Always : Yes Width : 50 Style : EnvStyleNormal Align : Left Border : thin Bottom PrintFG : Red [Style : EnvStyleBOLD] Font : "Arial Bold" Height : 16 Bold : yes [Line : FullAddress] Field : FullAddress [Field : FullAddress] Use : Name Field Setas : $Address Width : 50 Style : EnvStyleNormal Space Left : 25 Align : Left Object : Ledger [Line : PhoneNumbers] Field : PhoneNumbers [Field : PhoneNumbers] Use : Name Field Setas : "Phone : " + $LedgerPhone:Ledger:$PartyLedgerName + " / " + "Mobile : " + $LedgerMobile:Ledger:$PartyLedgerName Width : 50 Style : EnvStyleNormal Space Left : 25 Align : Left Object : Ledger [Line : EmailAdd] Field : EmailAdd [Field : EmailAdd] Use : Name Field Setas : "Email : " + $EMail:Ledger:$LedgerName Width : 50 Style : EnvStyleNormal Space Left : 25 Align : Left Object : Ledger [Style : EnvStyleNormal] Font : "Arial Bold" Height : 12 Bold : yes
Wherever......$LedgerName or $PartyLedgerName ....... is there........... replace it with #LedgerName
Code: ;;************ Coding by Purushothaman Rangarajan for LINGA CHEMICALS - AUGUST 2020 ************;; [#Form : LEDGER CONTACT] Button : Address Print [#Form : LEDGER VOUCHERS] Button : Address Print [Button : Address Print ] Key : Ctrl + 5 Action : Print Report : EnvelopePrint [Report : EnvelopePrint] Form : EnvPrintForm Object : Ledger Object : Voucher [Form : EnvPrintForm] Width : 100% Page Height : 100% Page Space Top : 3 inch Space Left : 4 inch Space Right : 0.5 inch Part : EnvPrintBody [Part : EnvPrintBody] Part : EnvPrintBodyTop [Part : EnvPrintBodyTop] Width : 100 % page Height : 3 inch Space Top : 0.5 inch Space Left : 0.5 inch Space Right : 0.5 inch Line : EnvelopeHead1, EnvelopeHead2, FullList, PhoneNumbers, EmailAdd Repeat : FullList : PartyContactDetailsColl Vertical : Yes [Line : EnvelopeHead1] Field : ToAddress, EnvelopeHead1 Space Top : 2 [Field : ToAddress] Use : Name Field Set as : "To," Width : 15 Align : Right Style : EnvStyleNormal Space Left : 9 [Field : EnvelopeHead1] Use : Name Field Setas : $Name:Ledger:#LedgerName Width : 50 style : EnvStyleBOLD Align : Left Object : Ledger [Line : EnvelopeHead2] Field : KindAttn, ContactPerson [Field : KindAttn] Use : Name Field Set as : Width : 15 Align : Centre Style : EnvStyleNormal Space Left : 9 PrintFG : Black [Field : ContactPerson] Use : Name Field Setas : $LedgerContact:Ledger:#LedgerName Set Always : Yes Width : 50 style : EnvStyleBOLD Align : Left [Style : EnvStyleBOLD] Font : "Arial Bold" Height : 16 Bold : yes [Line : FullList] Field : FullList [Field : FullList] Use : Name Field Setas : $Address Full Width : Yes Style : EnvStyleNormal Space Left : 25 Align : Left [Line : PhoneNumbers] Field : PhoneNumbers [Field : PhoneNumbers] Use : Name Field Setas : "Phone : " + $LedgerPhone:Ledger:#LedgerName + " / " + "Mobile : " + $LedgerMobile:Ledger:#LedgerName Width : 50 Style : EnvStyleNormal Space Left : 25 Align : Left Object : Ledger [Line : EmailAdd] Field : EmailAdd [Field : EmailAdd] Use : Name Field Setas : "Email : " + $EMail:Ledger:#LedgerName Width : 50 Style : EnvStyleNormal Space Left : 25 Align : Left Object : Ledger [Style : EnvStyleNormal] Font : "Arial Bold" Height : 12 Bold : yes ;;************ Coding by Purushothaman Rangarajan for LINGA CHEMICALS - AUGUST 2020 ************;; [Collection : PartyContactDetailsColl] Type : Address : Ledger Child of : #LedgerName
Please Help me in the Switch Attribute. I Want Site Address in the Sales And Purchase Voucher but in Ledger Voucher I want it to Print Office Address. The First Switch is working but second switch is not deleting the Site Address. Code: [#Form : Purchase Color] Button : Address Print [#Form : Sales Color] Button : Address Print [#Form : LEDGER VOUCHERS] Button : Address Print [Button : Address Print ] Key : Alt + W Action : Print Report : EnvPrintRpt [Report : EnvPrintRpt] Form : EnvPrintForm Object : Ledger Object : Voucher Variable:SVPrintOrientation:String Print Set : SVPrintOrientation : "Landscape" Print SET : SVPrinterName : "EPSON77D0AD (M200 Series)" [Form : EnvPrintForm] Width : 100% Page Height : 100% Page Space Top : 0 inch Space Left : 0 inch Space Right : 0 inch Part : EnvLeading [Part: EnvLeading] Parts : LeftPart Right Parts : RightPart Vertical : No [Part : LeftPart] Parts : EnvPrintPartyName, EnvPrintOffAdd ,SiteAddresss Vertical : Yes Width: 70% Page Switch: case7 : DeleteOffAddress : @@IsSales or @@IsPurchase Switch: Case7 : DeleteSiteAddress : Not(@@IsSales or @@IsPurchase) [!Part:DeleteOffAddress] Delete:Part:EnvPrintOffAdd [!Part:DeleteSiteAddress] Delete:Part:SiteAddresss
In .... [Part : LeftPart] where have you defined "SiteAddresss" ???? Why go reverse LOGIC ???? Do it this way........ [Part : LeftPart] Parts : EnvPrintPartyName Vertical : Yes Width: 70% Page Switch: case7 : AddOffAddress : @@IsSales or @@IsPurchase Switch: Case7 : AddSiteAddress : Not(@@IsSales or @@IsPurchase) [!Part: AddOffAddress] Addart: After: EnvPrintPartyName: EnvPrintOffAdd [!Part: AddSiteAddress] Addart: After: EnvPrintPartyName: SiteAddresss
This Code Solved half of the problem. Now I am getting Office Address and Site Address both in ledger Report even though i have Specified ... Not ##IsLedgerReport Code: [Part : LeftPart] Parts : EnvPrintPartyName;, EnvPrintOffAdd ,SiteAddresss Vertical : Yes Width: 70% Page Option : AddSiteAddress : (@@Ispurchase Or @@IsSales) And not ##IsLedgerReport Option : AddOffAddress : ##IsLedgerReport
that does not reflect the point that it is a Sales/Purchase register.......... Remove that and simply put........ ##IsLedgerReport and NOT ##IsLedgerReport.
Sir i have tried this already before but it still gives me the Site address Part in the ledger vouchers. Although i have achieve my result with invisible att at field level but im curious how to achieve it part level without using invisible att.
This Solved it. Code: [Part : LeftPart] Parts : EnvPrintPartyName, EnvPrintOffAdd ,SiteAddresss Vertical : Yes Width: 70% Page Option : AddSiteAddress : @@IsSalesVch or @@IsPurchaseVch Option : AddOffAddress : ##IsLedgerReport [!Part:AddOffAddress] Replace:Part:SiteAddresss:EnvPrintOffAdd ;Add:Part:After:EnvPrintPartyName:EnvPrintOffAdd [!Part:AddSiteAddress] Replace:Part:EnvPrintOffAdd:EnvPrintOffAdd ;Add:Part:After:EnvPrintPartyName:SiteAddresss