Dear sir, I need help to get below mentioned Party DL no show on Sales voucher ( at the time of Invoicing ) So We can know this party having Drug lic for bill drugs. Please help me to update the code ;;Following Code is to print "DL No" on Invoices ;;;--- [#Part: CMP Tax Info] Add : Line : At End : CMP DLNNoTL [Line: CMP DLNNoTL] Right Field : Medium Prompt Local : Field : Medium Prompt : Set as : "Drug Lic No. :" Option : Small Size Line Space Top : 0.4 [#Part: CMP Tax Value] Add : Line : At End : CMP DLNNoVAL [Line: CMP DLNNoVAL] Field : Name Field Local : Field : Name Field : Storage : CMPDLNNoVAL Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Max : 200 Local : Field : Name Field : Line : 2 Option : Small Size Line Space Top : 0.4 [#Part: LED Other Details] Add : Lines : At End : LED DLNo [Line: LED DLNo] Fields : Medium Prompt, LED DLNo Local : Field : Medium Prompt : Set as : $$LocaleString:"Drug Lic. No :" Invisible : NOT @@IsIndian [Field: LED DLNo] Use : Name Field Storage : LEDDLNo Full width : YEs Line : 2 Max : 200 [#Part:EXPINV SaleSalesTax] ;;[#Part:EXPINV VATDetails] Add : Lines : AT END : SalesHCmpDLicno,SalesBuyerDLIC [Line: SalesHCmpDLicno] Space Top : 0.05 Field : Short Prompt,Name Field Local : Field : Short Prompt : Set As : "Our DL No:" Local : Field : Name Field : Set As : $CMPDLNNoVAL:Company:##SVCurrentCompany Local : Field : Name Field : Full width : yes Local : Field : Name Field : Style : Normal Invisible : $$IsEmpty:$CMPDLNNoVAL:Company:##SVCurrentCompany [System: UDF] CMPDLNNoVAL : String : 21110 LEDDLNo : String : 21111 [Line: SalesBuyerDLIC] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Party DL No:" Local : Field : Name Field : Set As : $LEDDLNo:Ledger:$PartyLedgerName Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal Invisible : $$IsEmpty:$LEDDLNo:Ledger:$PartyLedgerName ;;Following Code show " Party DL No" on Sales Voucher [#Line: EI PartyLimit] Add : Field : After : EI CreditLimit : DLNo [Field LNo] Invisible : NOT ##CurBalanceFlag Field : Simple Prompt, Name Field Local : Field : Simple Prompt : Info : $$LocaleString:"DL No:" Local : Field : name Field : Set as : $LedgerContact:LEDDLNo:#EIConsignee + " " + $LedgerDL No:Ledger:#EIConsignee Local: Field: Name Field: Width:25
Thank you for uploading code... Have a look. Code: ;;Following Code is to print "DL No" on Invoices ;;;--- [#Part: CMP Tax Info] Add : Line : At End : CMP DLNNoTL [Line: CMP DLNNoTL] Right Field : Medium Prompt Local : Field : Medium Prompt : Set as : "Drug Lic No. :" Option : Small Size Line Space Top : 0.4 [#Part: CMP Tax Value] Add : Line : At End : CMP DLNNoVAL [Line: CMP DLNNoVAL] Field : Name Field Local : Field : Name Field : Storage : CMPDLNNoVAL Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Max : 200 Local : Field : Name Field : Line : 2 Option : Small Size Line Space Top : 0.4 [#Part: LED Other Details] Add : Lines : At End : LED DLNo [Line: LED DLNo] Fields : Medium Prompt, LED DLNo Local : Field : Medium Prompt : Set as : $$LocaleString:"Drug Lic. No :" Invisible : NOT @@IsIndian [Field: LED DLNo] Set as:"" Use : Name Field Storage :LEDDLNo Full width : YEs Line : 2 Max : 200 [#Part:EXPINV SaleSalesTax] ;;[#Part:EXPINV VATDetails] Add : Lines : AT END : SalesHCmpDLicno,SalesBuyerDLIC [Line: SalesHCmpDLicno] Space Top : 0.05 Field : Short Prompt,Name Field Local : Field : Short Prompt : Set As : "Our DL No:" Local : Field : Name Field : Set As : $CMPDLNNoVAL:Company:##SVCurrentCompany Local : Field : Name Field : Full width : yes Local : Field : Name Field : Style : Normal Invisible : $$IsEmpty:$CMPDLNNoVAL:Company:##SVCurrentCompany [System: UDF] CMPDLNNoVAL : String : 21110 LEDDLNo : String : 25250 [Line: SalesBuyerDLIC] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Party DL No:" Local : Field : Name Field : Set As : $LEDDLNo:Ledger:$PartyLedgerName Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal ;Invisible : $$IsEmpty:$LEDDLNo:Ledger:$PartyLedgerName ;;Following Code show " Party DL No" on Sales Voucher [#Line: EI PartyLimit] Add : Field : After : EI CreditLimit : DLNo [Field :DLNo] Invisible : NOT ##CurBalanceFlag Field : Simple Prompt;, Name Field Local : Field : Simple Prompt : Set as : "DL NO New:"+" "+$$LocaleString:@@DL5;$$LocaleString:"DL No:" ;Local : Field : name Field : Set as : "DL NO New:"+" "+$$LocaleString:@@DL5;$LedgerContact:LEDDLNo:#EIConsignee + " " + $LedgerDL No:Ledger:#EIConsignee [System:Formula] DL5:$LEDDLNo:Ledger:$PartyLedgerName
Neeru sir, DL No not showing in voucher class wise, some error is there, Please help to solve the same and thanks for your support
Dear Rajsrisrimal Sir, New code here check. DL No is after selecting Party name Code: ;;Following Code is to print "DL No" on Invoices ;;;--- [#Part: CMP Tax Info] Add : Line : At End : CMP DLNNoTL [Line: CMP DLNNoTL] Right Field : Medium Prompt Local : Field : Medium Prompt : Set as : "Drug Lic No. :" Option : Small Size Line Space Top : 0.4 [#Part: CMP Tax Value] Add : Line : At End : CMP DLNNoVAL [Line: CMP DLNNoVAL] Field : Name Field Local : Field : Name Field : Storage : CMPDLNNoVAL Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Max : 200 Local : Field : Name Field : Line : 2 Option : Small Size Line Space Top : 0.4 [#Part: LED Other Details] Add : Lines : At End : LED DLNo [Line: LED DLNo] Fields : Medium Prompt, LED DLNo Local : Field : Medium Prompt : Set as : $$LocaleString:"Drug Lic. No :" Invisible : NOT @@IsIndian [Field: LED DLNo] Set as:"" Use : Name Field Storage :LEDDLNo Full width : YEs Line : 2 Max : 200 [#Part:EXPINV SaleSalesTax] ;;[#Part:EXPINV VATDetails] Add : Lines : AT END : SalesHCmpDLicno,SalesBuyerDLIC [Line: SalesHCmpDLicno] Space Top : 0.05 Field : Short Prompt,Name Field Local : Field : Short Prompt : Set As : "Our DL No:" Local : Field : Name Field : Set As : $CMPDLNNoVAL:Company:##SVCurrentCompany Local : Field : Name Field : Full width : yes Local : Field : Name Field : Style : Normal Invisible : $$IsEmpty:$CMPDLNNoVAL:Company:##SVCurrentCompany [System: UDF] CMPDLNNoVAL : String : 21110 LEDDLNo : String : 25250 [Line: SalesBuyerDLIC] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Party DL No:" Local : Field : Name Field : Set As : $LEDDLNo:Ledger:$PartyLedgerName Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal ;Invisible : $$IsEmpty:$LEDDLNo:Ledger:$PartyLedgerName ;;Following Code show " Party DL No" on Sales Voucher ;[#Line: EI PartyLimit] ;Add : Field : After : EI CreditLimit : DLNo ;[Field :DLNo] ; ;Invisible : NOT ##CurBalanceFlag ;Field : Simple Prompt;, Name Field ;Local : Field : Simple Prompt : Set as : "DL NO New:"+" "+$$LocaleString:@@DL5;$$LocaleString:"DL No:" ;Local : Field : name Field : Set as : "DL NO New:"+" "+$$LocaleString:@@DL5;$LedgerContact:LEDDLNo:#EIConsignee + " " + $LedgerDL No:Ledger:#EIConsignee [System:Formula] DL5:$LEDDLNo:Ledger:$PartyLedgerName [#Line: EI Consignee] Field : Simple Prompt, EI Consignee, EI CurrConsignee, EI FirstLedger, INVMailName, Name field RightFields : Short Prompt, EI PriceLevel, EI PrevPriceLevel Add: Right Field: After:Short Prompt: CustomerNamePrompt [Field:CustomerNamePrompt] Use: Name Field;Medium Prompt Set as: "DL NO New:"+" "+$$LocaleString:@@DL5 Skip:Yes ; Color:Blue
apart from that.. this code snippet also shows how to add new Settings/Configurations in Tally Prime (F12 Part has been made more difficult) Code: ;;Following Code is to print "DL No" on Invoices ;;;--- [#Collection: Company MoreDetails GeneralDetails] Add: Object : Obj Company DrugLic Details [Object: Obj Company DrugLic Details] <InUse:Report:CMPDrugLicDetails> Use : Obj MasterMoreDtls Template Name : $$LocaleString:"Drug Licence Details" PrmyVisbl : Yes Value : @@ComDrugLicValue SortPos : 10 IsCountryAplcbl : @@IsIndia Action : MoreDetails : Call : MasterMoreDetails:"CMP DrugLic Details" [System : Formula] ComDrugLicValue : $CMPDLNNoVAL:Company:##SVCurrentCompany ;------------------------------------------------------------------------------------ [Report: CMP DrugLic Details] Title : $$SPrintf:mad:@CmpOperationFormat:mad:@ModeName Family : $$Translate:"Company Features" Form : CMP DrugLic Details [Form: CMP DrugLic Details] Use : MoreDetails Template Part : Company DrugLic Details Local : Field : Form Sub Title : Info : @@locPANCINDetails [Part: Company DrugLic Details] Local : Field : Medium Prompt : Width : 25 Line : CMP DLNNumber Local : Line : CMP DLNNumber : Delete : Space Top Local : Line : Default : No Cursor : Yes [Line: CMP DLNNumber] Left Fields : Medium Prompt, CMP DLNNumber Local : Field : medium Prompt : Set as : $$LocaleString:"Drug Lic No. :" Option : Small Size Line Space Top : 1 [Field: CMP DLNNumber] Use : Short Name Field Use : Upper Case Field Width : @@NameWidth Max : 21 Storage : CMPDLNNoVAL ASCIIOnly : Yes [#Part: LED Other Details] Add : Lines : At End : LED DLNo [Line: LED DLNo] Fields : Medium Prompt, LED DLNo Local : Field : Medium Prompt : Set as : $$LocaleString:"Drug Lic. No :" Invisible : NOT @@IsIndian [Field: LED DLNo] Use : Name Field Storage :LEDDLNo Full width : YEs Line : 2 Max : 200 [#Part:EXPINV SaleSalesTax] ;;[#Part:EXPINV VATDetails] Add : Lines : AT END : SalesHCmpDLicno,SalesBuyerDLIC [Line: SalesHCmpDLicno] Space Top : 0.05 Field : Short Prompt Field : Name Field Local : Field : Short Prompt : Set As : "Our DL No: " Local : Field : Name Field : Set As : $CMPDLNNoVAL:Company:##SVCurrentCompany ; Local : Field : Name Field : Full width : yes Local : Field : Name Field : Style : Normal Invisible : $$IsEmpty:$CMPDLNNoVAL:Company:##SVCurrentCompany [System: UDF] CMPDLNNoVAL : String : 21110 LEDDLNo : String : 21111 [Line: SalesBuyerDLIC] Field : Short Prompt Field : Name Field Local : Field : Short Prompt: Set As : "Party DL No:" Local : Field : Name Field : Set As : $LEDDLNo:Ledger:$PartyLedgerName ; Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal ;Invisible : $$IsEmpty:$LEDDLNo:Ledger:$PartyLedgerName ;;Following Code show " Party DL No" on Sales Voucher ;[#Line: EI PartyLimit] ;Add : Field : After : EI CreditLimit : DLNo ;[Field :DLNo] ; ;Invisible : NOT ##CurBalanceFlag ;Field : Simple Prompt;, Name Field ;Local : Field : Simple Prompt : Set as : "DL Nos:"+" "+$$LocaleString:mad:@DL5;$$LocaleString:"DL No:" ;Local : Field : name Field : Set as : "DL Nos:"+" "+$$LocaleString:mad:@DL5;$LedgerContact:LEDDLNo:#EIConsignee + " " + $LedgerDL No:Ledger:#EIConsignee [System:Formula] DL5:$LEDDLNo:Ledger:$PartyLedgerName [#Line: EI Consignee] Field : Simple Prompt, EI Consignee, EI CurrConsignee, EI FirstLedger, INVMailName, Name field RightFields : Short Prompt, EI PriceLevel, EI PrevPriceLevel Add: Right Field: Before:Short Prompt: CustomerNamePrompt [Field:CustomerNamePrompt] Use : Name Field;Medium Prompt Set as : "DL Nos: "+" "+$$LocaleString:mad:@DL5 Skip : Yes Width : 30 Full Width : Yes ; Color:Blue
Yes it is..... i have added the new object..........But in case you need to make it work for both ERP9 and Prime........it throws error in ERP9 as it is not available there. but otherwise it works in both. so, i simply use a new BUTTON for additional CONFIG settings, which works in both versions.
Or....one can find a common ground between the 2 versions and then split from there....... Code: [#Form : Company Operations] Option : MSME4Prime : $$ProdInfo:ProdMajorVersion = 1 and $$ProdInfo:ProdMinorVersion > 0 Option : MSME4ERP9 : $$ProdInfo:ProdMajorVersion = 1 and $$ProdInfo:ProdMinorVersion = 0 [System : Formula] MSMEPromptSTR : $$LocaleString:"Micro, Small and Medium-sized Enterprise Registration :" MSMEPrintSTR : "Print Company's MSME Regn No. :" MSMEPrintSTRLed : "Print Party's MSME Regn No. :" INVCompStr : "Company's M.S.M.E. : " INVPartyStr : "Party's M.S.M.E. : " ;;for PRIME Interface ►►►►►►►► [!Form : MSME4Prime] Local : Part : Cmp F11 Features : Local : Part : Company F11 Features Right : + Local : Part : Company F11 Stat Features : Local : Part : Cfg PartContent : + Add : Bottom Lines : CMPMSMEYNPrime [Line : CMPMSMEYNPrime] Use : Cmp Ops All Config Fields : Medium Prompt, CMPIndianMSME Invisible : $IsAggregate OR NOT (##CmpShowMoreConfig AND ##CmpShowAllConfig) Local : Field : Medium Prompt : Set as : @@MSMEPromptSTR ;;for ERP9 Interface ►►►►►►►► [!Form : MSME4ERP9] Local : Part : CMP Statutory F11 : Local : Part : CMP Tax Details : + Local : Part : CMP Tax Info : Add : Lines : After : CMP ITNumber Info : CMPMSMEInfo4ERP9T Local : Line : CMPMSMEInfo4ERP9T : Space Top : .9 Local : Part : CMP Statutory F11 : Local : Part : CMP Tax Details : + Local : Part : CMP Tax Value : Add : Lines : After : CMP ITNumber : CMPMSMEYNERP9 Local : Line : CMPMSMEYNERP9 : Space Top : .8 [Line : CMPMSMEInfo4ERP9T] Right Field : Medium Prompt Local : Field : Medium Prompt : Set as : @@MSMEPromptSTR Option : Small Size Line Space Top : 1 [Line : CMPMSMEYNERP9] Fields : Medium Prompt, CMPIndianMSME Invisible : $IsAggregate ;OR NOT (##CmpShowMoreConfig AND ##CmpShowAllConfig) Local : Field : Medium Prompt : Set as : @@MSMEPromptSTR ;----------- Common Code for Prime and ERP9 ----------- [Field : CMPIndianMSME] Use : Logical Field Set As : If $$IsEmpty:$udfMSMERegn Then No Else Yes Case : Normal Set Always : Yes SubForm : Company MSME Details : $$EditData = Yes [Report : Company MSME Details] Title : $$LocaleString:"Company's M.S.M.E. Registration" Form : Company MSME Details Auto : Yes Variable : vLEDMSMEYN [Form : Company MSME Details] No Confirm : No Parts : Form SubTitle, CMPMSMEMain Width : 45% Page Background : MSMEMonoGrey Local : Line : Form SubTitle : SpaceBottom : 0.5 Space Top : 1 Space Bottom : 1 Space Left : 1 Space Right : 1 Local : Field : Form SubTitle : Info : $$LocaleString:"Enter M.S.M.E. Registration Details" Local : Field : Form SubTitle : Color : White Local : Field : Form SubTitle : Style : Large Bold Horizontal Alignment: Centre Vertical Alignment : Centre [Part : CMPMSMEMain] Line : CMPMSMEDetails, CMPMSMEPrint, LineEmpty, LEDMSMEYN, LEDMSMEPrint Border : MSMEDoubleBorder Vertical : Yes Space Bottom: 1 Space Top : 1 [Line : CMPMSMEDetails] Fields : Medium Prompt, CMPMSMEDetails Local : Field : Medium Prompt : Set as : @@INVCompStr Local : Field : Medium Prompt : Width : 40 Local : Field : Default : Color : White Space Bottom: .5 [Field : CMPMSMEDetails] Use : Name Field Use : Upper Case Field Set Always : Yes Storage : udfMSMERegn Width : 20 Style : Small Bold [Line : CMPMSMEPrint] Field : Medium Prompt, Logical Field Local : Field : Medium Prompt : Info : @@MSMEPrintSTR Local : Field : Medium Prompt : Width : 40 Local : Field : Logical Field : Modifies : vCompanyMSME Local : Field : Default : Color : White Invisible : NOT @@IsGSTOnAppl Space Bottom: .5 [Line : LineEmpty] Field : Medium Prompt Local : Field : Medium Prompt : Skip : Yes Local : Field : Default : Color : White Invisible : NOT @@IsGSTOnAppl Space Bottom: .5 [Line : LEDMSMEYN] Fields : Medium Prompt, MyLogicalField Local : Field : Medium Prompt : Set as : $$LocaleString:"Activate MSME details for Trade Ledgers ?" Local : Field : Medium Prompt : Width : 40 Local : Field : MyLogicalField: Modifies : vLEDMSMEYN Local : Field : Default : Color : White Space Bottom: .5 [Field : MyLogicalField] Use : Logical Field Set Always : Yes [Line : LEDMSMEPrint] Field : Medium Prompt, Logical Field Local : Field : Medium Prompt : Info : @@MSMEPrintSTRLed Local : Field : Medium Prompt : Width : 40 Local : Field : Medium Prompt : Color : If ##vLEDMSMEYN = "No" Then "Blue" Else "Red" Local : Field : Logical Field : Modifies : vLedgerMSME Local : Field : Default : Color : White Local : Field : Default : InActive : NOT ##vLEDMSMEYN Local : Field : Logcal Field : Skip : ##vLEDMSMEYN = "No"
That too is a big headache...... finding and assigning a KEY (Ctrl/alt etc) which does not clash in both version or existing keys. that reminds me, I had wanted to ask some experts .... can we have a conditional KEY strokes ??? If thiscriteria then "Ctrl + b" else "Alt+b" Tried but not working...so have another idea.....but yet to try out.... -- in all my reports now i make a identifier field and store it in a variable..... -- then in form, based on variable's values the button gets activated.........
@garima wanted your opinion...... From code, you will see there is a subform and within that there are options.... there is a Y/N field and based on that the next line displays or hides, but it does not happen unless and until the form is activated again i.e. quit and enter again..... what am i missing?
@ Amit Sir, on Tally Prime I am getting error " Variable vLEDMSMEYN No Description FOund" Pl help get it resolved Thanks in advance