Stock Item Picture

Gopal Rajbhandari · Aug 21, 2018

Dear Santosh Jee

It is possible to show item picture in stock item master & stock query report.
If you have tried to develop code, please share it. Developers are ready here to help you.

Ameed · Feb 10, 2020

Dear Sir

How to choose a different location for image other than Part no. Coz image is hiding the part no.

*Part: STKIWithPartNos

Rohit001 · Feb 10, 2020

JObimon Arackal JOhn said: ↑

One of my closest friend is working auto spare parts shop.He wants to see the picture of stock item when he enters part

no.

I gave him this Solution

For this solution a folder is to be created in \tally.erp9\data\Company Number folder\
Folder Name must be "Itempic"

Eg:= I:\Tally.ERP9\Data\10000\Itempic\

then Image files must be saved as partname.jpg in that folder
Eg:= I:\Tally.ERP9\Data\10000\Itempic\56478.jpg

When we create Stoc Item we need to give the part number in part number
then a window will show you the image of that partnumber

when we do the sales entry , the sane image will be shown once again to make sure that he has selected correct item by selecting correct part no
Click to expand...

Sir, i want a group wise security control please help sir

prem · Apr 28, 2020

Aaradhya Chaudhari said: ↑

Thanks!
www.aaradhyaasolutions.in
Click to expand...

Please share logic as i am trying hard to get on repeat lines

my Mobile - 9819813618 - tally9090@gmail.com

Kaushik Mandal · Jun 5, 2020

harbansh said: ↑

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

Click to expand...

dear sir

i have try this tdl show error

"item Pic.txt"(18): errror T0008: could not find original discription for Part -'ItemPic'

plz help sir i need this tdl

Muinuddin · Aug 15, 2022

rekakR said: ↑

View attachment 2314
Click to expand...

Can U share sample code for this

Tara Solution · Aug 16, 2023

rekakR said: ↑

Mr. Ramkumar. I couldnt Share the full Code, I can Give you the idea about it. In Invoice Instead of Writing Explode ,
I done Writing Each InventiryEntries Line as Individual Parts by Using Function
Click to expand...

i added one part of item details then one part for item image. but, it is not printing correctly in case of more then 5 item , means for next page. can you help by giving some hint

Log in or Sign up

Stock Item Picture

Gopal Rajbhandari Member

Ameed New Member

Rohit001 Member

prem New Member

Kaushik Mandal New Member

Muinuddin New Member

Tara Solution New Member

Share This Page

Log in or Sign up

Stock Item Picture

Gopal Rajbhandari Member

Ameed New Member

Rohit001 Member

prem New Member

Kaushik Mandal New Member

Muinuddin New Member

Tara Solution New Member

Share This Page

Useful Searches