Dear Experts, I have written a code through which we can print item pic in sales invoice only single item invoices. This is working fine for me. But suppose we want print multiple item pic in below item name just like item description. i have tried lot just like item description code but can't get success please help me out dear experts. Single item code is given below please rewrite code for multiple item its really helpful for everyone. Code: [#Part: CMP AccFeat Right] Lines : CMP InvoicingTitle, CMP Invoicing, CMPPurcAsInvoice, CMP UseDCNotes, CMP CNoteAsInvoice, CMP DNoteAsInvoice Lines : CMP BudgetTitle, CMP Budgets, CMP UseRevJrnl Lines : CMP BankingTitle, CMP EnableChqPrinting, CMP EnableChqPrinting Note1, CMP EnableChqPrinting Note2, CMP AlterBankingFeatures Lines : CMP OthersAccountingTitle, CMP ZeroEntries Lines : CMP MultiAddressOn, CMP MultiAddress, CMP AllowMobileNos,CMP CompanyLogo,ITEM PIC ENABLE BY HARRY Space Left : 2 [Line: ITEM PIC ENABLE BY HARRY] Fields : Medium Prompt, ITEM PIC ENABLE BY HARRY Local : Field : Medium Prompt : Info : $$LocaleString:"Enable Print Item Pic By Harry ?" Space Top : 0.4 [Field : ITEM PIC ENABLE BY HARRY] Use : Logical Field Storage : IsItemPicEnable Sub Form : ISITEMPIC : $IsItemPicEnable [Report : ISITEMPIC] Form : ISITEMPIC [Form : ISITEMPIC] Parts : Form SubTitle, ISITEMPIC FullWidth : No FullHeight : No SpaceTop : 1 SpaceBottom : 1 SpaceLeft : 1 SpaceRight : 1 Local : Field : Form SubTitle: Info : $$LocaleString:"ITEM PIC BY HARBANSH SINGH" Horizontal Alignment: Centre Vertical Alignment : Centre [Part : ISITEMPIC] Line : ISITEMPIC, ISITEMPIC NotesOne, ISITEMPIC NotesTwo, ISITEMPIC NotesThree [Line : ISITEMPIC NotesOne] Field : ISITEMPIC Notes Space Top : 1 Space Bottom : 0.4 Local : Field : ISITEMPIC Notes: Set as : "- " + $$LocaleString:"Formats Supported is JPEG" [Line : ISITEMPIC NotesTwo] Field : ISITEMPIC Notes Space Bottom : 0.4 Local : Field : ISITEMPIC Notes: Set as : "- " + $$LocaleString:"Recommended size is 299 pixels in width X 129 pixels in height" [Line : ISITEMPIC NotesThree] Field : ISITEMPIC Notes Space Bottom : 1 Local : Field : ISITEMPIC Notes: Set as : "- " + $$LocaleString:"Company Item Pic is printed on single item Sales voucher." [Field: ISITEMPIC Notes] Style : Normal Italic FullWidth : Yes Align : Left Skip : Yes Fixed : Yes [Line :ISITEMPIC] Fields : Medium Prompt, ISITEMPIC Local : Field : Medium Prompt : Info : $$Localestring:"Location of Item Pic Folder:" [Field : ISITEMPIC] Use : Name Field Case : Normal Set as : $ISITEMPICpath:Company:##SVCurrentCompany Storage : ISITEMPICpath Set always : Yes Width : @@LongWidth Max : 100 ;Control : CMPISITEMPICpathExist : ($$IsEmpty:$$Value OR Not $$IsFileExists:$$Value) [System : Formula] CMPISITEMPICpathExist : (If $$IsEmpty:$$Value then $$LocaleString:"Specify Logo Path" Else + If Not $$IsFileExists:$$Value then $$LocaleString:"Invalid Logo Path" Else $$LocaleString:"Format Not Supported") [system : udf] IsItemPicEnable : logical : 8654 ISITEMPICpath : string : 9889 [*Field: STKI Parent] Use : Master Parent Table : Stock Group Extract, Primary Show Table : Always Key : Create Stock Group, Alter StkGrp Variable : SV Stock Group Set as : ##DEFStockGroupName Modifies : DEFStockGroupName Common Table: No Fetch Object : StockGroup : $$Value : BaseUnits, AdditionalUnits, Conversion, Denominator, + IsBatchWiseOn, HasMfgDate, IsPerishableOn, CostingMethod, + ValuationMethod, IgnorePhysicalDifference, IgnoreNegativeStock, TreatSalesAsManufactured, + TreatPurchasesAsConsumed, TreatRejectsAsScrap, AllowUseOfExpiredItems Sub Form: ItemPic [Report:ItemPic] Form:ItemPic [Form:ItemPic] Background:white Horizontal Align:Center Vertical Align:Center Parts:ItemPic bottom parts:ItemPic1 width : 24% screen height : 25% screen [*Part:ItemPic] Lines : ItemPic Graph Type : $ISITEMPICpath:Company:##SVCurrentCompany+"\"+$stockitemname+".jpg" [*Line: ItemPic] Field : ItemPic [*Field: ItemPic] Use:narration field Set as : "" Color:white [*Part:ItemPic1] Horizontal Alignment:Right Vertical:No Lines : ItemPic1 [*Line: ItemPic1] Field : ItemPic1 [*Field: ItemPic1] Color:white Width:0 Set as : "" ;*********************************************************************************************************** [Report:ItemPic2] Form:ItemPic2 [Form:ItemPic2] Background:white Horizontal Align:Center Vertical Align:Center Parts:ItemPic2 bottom parts:ItemPic12 width : 24% screen height : 25% screen [*Part:ItemPic2] Horizontal Align:Center Lines : ItemPic2 Graph Type : $ISITEMPICpath:Company:##SVCurrentCompany+"\"+$stockitemname+".jpg" ; :company:##svcurrentcompany [*Line: ItemPic2] Field : ItemPic2 [*Field: ItemPic2] Use:narration field Set as : "" Color:white [*Part:ItemPic12] Horizontal Alignment:Right Vertical:No Lines : ItemPic12 [*Line: ItemPic12] Field : ItemPic12 [*Field: ItemPic12] Color:white Width:0 Set as : "" ;*********************************************************************************************************** [*Field: VCH StockItem] Use : Item Name Field CollVal : If $$IsSysNameEqual:NotApplicable:$CurBomName Then $$Value Else ##lvCompValues[$$Line].vStockItemName MfgrCollVal : If $PrevBOMName != $CurBOMName Then ##lvByCoValues[$$Line].vStockItemName + Else If $$IsSysNameEqual:NotApplicable:$CurBomName Then "" Else $$Value Sub Form:itempic2 Sub Form : EI DescExplosion : ##ICFGAddlDesc AND NOT $$IsSysName:$$Value AND NOT $$IsExploded:EIDescExplosion AND @@IsInvoice ;;AND NOT @@IsCreditNote AND NOT @@IsDebitNote Sub Form : GRN Indent : ($$IsIndentOn) AND (($$IsPurchase:##SVVoucherType) AND (NOT $$IsMultiGodownOn AND NOT $$IsTrackingOn AND NOT $$IsPurcOrdersOn) AND (NOT $$IsEndofList:#VCHStockItem) AND (NOT @@HasBatchWise)) Sub Form : Trader SalesDtls : @@IsExciseDealerOn AND $IsInvoice AND @@IsSales AND @@TraderItemTariff AND NOT $$IsSysNameEqual:Manufacturer:$ExciseRegistrationType:Godown:#EIExciseMfgrUnit AND @TraderBillsSrc Sub Form : Trader CreditNoteDtls : @@IsExciseDealerOn AND $IsInvoice AND @@IsCreditNote AND @@TraderItemTariff AND NOT $$IsSysNameEqual:Manufacturer:$ExciseRegistrationType:Godown:#EIExciseMfgrUnit Sub Form : Trader DebitNoteDtls : @@IsExciseDealerOn AND $IsInvoice AND @@IsDebitNote AND @@IsTraderInvoice AND @@TraderItemTariff AND @TraderBillsSrc Sub Form : Trader ExciseJrnlDtls : @@IsExciseDealerOn AND @@IsJournal AND @@IsTraderShortageClassJrnl AND @@TraderItemTariff AND $$IsSysNameEqual:Dealer:$ExciseRegistrationType:Godown:#EIExciseMfgrUnit AND $$IsLedofGrp:$LedgerName:$$GroupPurchase AND NOT $IsDeemedPositive AND @TraderJrnlBillsSrc ;;For Servicen Tax - With Inventory option is Yes Sub Form : STX VchTaxObject AllocIE : $$IsEndofList:#VCHStockItem AND $$Owner:$$IsSTXVchTaxObjectAllocSubForm Sub Form : STX JV TaxObject AllocIE : $$IsEndofList:#VCHStockItem AND $$Owner:$$IsSTXJVTaxObjectAllocSubForm Option : VCHACC StockItem : @@IsAccVch OR @@IsInvoice Switch : VCHStockItemType : VCHPHYSStockItem : $$IsPhysStock:##SVVoucherType Switch : VCHStockItemType : VCHJRNLStockItem : $$IsStockJrnl:##SVVoucherType Switch : VCHStockItemType : VCHINV StockItem : @@IsInvVch AND NOT $$IsPhysStock:##SVVoucherType AND NOT $$IsStockJrnl:##SVVoucherType AND NOT @@IsInvoice AND NOT @@IsJobMaterialVchs Switch : VCHStockItemType : VCH JobWork StockItem : @@IsJobMaterialVchs Switch : VCHStockItemType : VCH DNCENVATAvailing StockItem : @@IsDebitNote AND @@IsCENVATAvailing ;; Notify : MsgVATRate : @@IsIndianVAT AND ##VCFGVATRateMismatch AND ##ICFGCommonLED AND NOT $$IsSysName:$$Value AND $RateofVAT:TaxClassification:#VCHVATClass > 0 AND $RateofVAT:TaxClassification:#VCHVATClass != $ItemVATRate AND $ItemVATRate > 0 Modifies : SV Stock Item Fetch Object : StockItem : $$Value : Name, PrevNarration, RateofMRP, IsMRPInclofTax, BaseUnits, AdditionalUnits, BasicTariffType, + IsBatchWiseOn, ClosingBalance, ClosingAsondate, BasicQty, BasicRateOfExcise, + StandardCost, StandardPrice, Description, HasMfgDate, IsPerishableOn, + ItemSDClass, PurchaseList.*, SalesList.*, Componentlist.*, + MultiComponentList.*, MultiComponentList.MultiComponentItemList.*, + ExciseItemGodown.NumItemsOfExciseDuties, ExciseItemGodown.*, ExciseItemGodown.ExciseMRPRates.*, + ExciseMethodOfCalc,ExciseAltRepUnits, ExciseRepUnits, ExciseAbatementPercentage, ExciseItemMRP, ExciseRepDenominator, + ExciseTypeofDutiesForTaxObj, ExciseMfgrRateofDuty, ExciseFGStockItemType, MRPBasedItemValue, IsAdditionalTax, IsCessExempted, + AltTaxObjExciseMethodOfCalc, ExciseItemValoremAmt, ExciseItemValoremAmt, ExciseCNItemValoremAmt, AltTaxObjExciseItemMRPAmt,+ AltTaxObjExciseItemMRPValue, AltTaxObjInvExciseItemMRP, AltTaxObjExciseAbatementPercentage, IsSpecialAEDOfCVDExistsInStkItem, + CurrentStdPriceMethod, CurrentStdCostMethod, TaxClassificationName, Previous Sales, Previous Purchase, IsCostTrackingOn TraderBillsSrc : $$NumItems:TraderListOfPurcSrcGenerate => 0 TraderJrnlBillsSrc : $$NumItems:TraderJrnlListOfPurcSrcGenerate => 0 [#Part: EXPINV Terms] Lines : EXPINV SubTitle, EXPINV Terms Repeat : EXPINV Terms : BasicOrderTerms Local : Field : EXPINV SubTitle : Info : $$LocaleString:"Terms of Delivery" Local : Line : EXPINV SubTitle : SpaceBottom : 0.25 Local : Field : EXPINV SubTitle : Cells : @@ExcelCellColumn - 2 * ($$Quotient:@@ExcelCellColumn:4) Height : 10% Page Width : 50% Page Invisible : If @@IsJobMaterialRcpt Then No Else NOT @@OrderTerms OR NOT @@IsInvoice OR @@IsJobOrderOut OR @@IsJobOrderIn or $IsItemPicEnable:Company:##SVCurrentCompany Local : Field : EXPINV SubTitle : Width : 50% Page [#Line: EXPINV Terms] Field : Name Field Local : Field : Name Field : Set as : $BasicOrderTerms Local : Field : Name Field : Width : 50% Page Local : Field : Name Field : Cells : @@ExcelCellColumn - 2 * ($$Quotient:@@ExcelCellColumn:4) [#Part: EXPINV TopRight] Parts : EXPINV BasicInfo, EXPINV Terms,ItemPicHarry,JMInOutInv NatureofProcess Vertical : Yes Width : 50% Page [Part: ItemPicHarry] Height : 15% Page ;; Width : 50% Page Space Top: 2% Page Space Bottom: 2% Page Space Right: 2% Page Space Left: 3% Page lines : logo lineItemPic Invisible : If @@IsJobMaterialRcpt Then No Else NOT @@OrderTerms OR NOT @@IsInvoice OR @@IsJobOrderOut OR @@IsJobOrderIn or not $IsItemPicEnable:Company:##SVCurrentCompany Local : Field : EXPINV SubTitle : Width : 50% Page Graph Type : $ISITEMPICpath:Company:##SVCurrentCompany+"\"+$stockitemname+".jpg" [line : logo lineItemPic] fields : logo lineItemPic [field : logo lineItemPic] set as : " " Align : Center
Dear Manikchand, Above uploaded file is also working in release 4.92 This file is compatible with release 5.4.4
It can be done by creating parts for each line item line. Only 4-5 parts can be printed and it will be a single page invoice.
