Stock Item Picture

How to write Each InventoryEntries Line as Individual Parts by Using Function?

I tried but not succeded?

 

are you looking for something like this?

 

Thanks!
www.aaradhyaasolutions.in

 

i am trying to use the TDL for Item Pic

but while loading the tdl i get the error

"error T00008: could not find original description of Part - ItemPic"

could you pls help me solve the issue.

 

can u provide me image source code plzz mohds169@gmail.com

 

can you plz provide me the source code of item image code
every im form muscat seeb
that would b help full to me
thanks in advance

mohds169@gmail.com

 

Regarding Stock item with image

Dear Sir
i do everything as per your instruction but when i import tdl then shows the error

 

stock item picture not showing rel 1.1

pls help

 

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

 

rel 1.1 doesn't support logo so it won't work on it..
Use rel 3.6 and above

 

Dear Sir In invoice the picture will be print or not???

 

100% Possible to Print Invoice With Image

Contact me via Mail raj@ampleoman.com

 

Is that tdl is work with 5.4 or need to do any changes

 

Dear Parvez,
If you need source Just Call me or whatsapp me @ +968 95429289

I couldnt give it as free. after long time i found this solution.

 

It Can be worked in any version above 4.61

 

How to solve this error??

 

How to solve error T0008

 

I have some error in this code how to solve this?

 

;View stock Images


[*Part: STKIWithPartNos]
Left Part:InfoPart
Right Part:StkImgPart

[Part:InfoPart]
Lines : PhotoLine

[LinehotoLine]
Field:Short Prompt, StockPhoto
Local: Field: Short Prompt: Info:$$LocaleString:"Link Photograph:"
Space Bottom: 0.25

[Field:StockPhoto]
Use:Name Field
Storage:StockPhoto

[System:UDF]
StockPhoto:String:1080

[Part:StkImgPart]
Line:StkImgLine
Image:Stock
Width: 20% Screen
Height: 20% Screen
Horizontal Alignment : Top
Vertical:No

[Resource: Stock]
Source: $StockPhoto
Resource Type: Jpeg

[Line:StkImgLine]
Field:StkImgFld

[Field:StkImgFld]

Set as:""

 

;View stock Images

[*Part: STKIWithPartNos]
Left Part:InfoPart
Right Part:StkImgPart

[Part:InfoPart]
Lines : PhotoLine

[LinehotoLine]
Field:Short Prompt, StockPhoto
Local: Field: Short Prompt: Info:$$LocaleString:"Link Photograph:"
Space Bottom: 0.25

[Field:StockPhoto]
Use:Name Field
Storage:StockPhoto

[System:UDF]
StockPhoto:String:1080

[Part:StkImgPart]
Line:StkImgLine
Image:Stock
Width: 20% Screen
Height: 20% Screen
Horizontal Alignment : Top
Vertical:No

[Resource: Stock]
Source: $StockPhoto
Resource Type: Jpeg

[Line:StkImgLine]
Field:StkImgFld

[Field:StkImgFld]

Set as:""

 

;View stock Images

[*Part: STKIWithPartNos]
Left Part:InfoPart
Right Part:StkImgPart

[Part:InfoPart]
Lines : PhotoLine

[LinehotoLine]
Field:Short Prompt, StockPhoto
Local: Field: Short Prompt: Info:$$LocaleString:"Link Photograph:"
Space Bottom: 0.25

[Field:StockPhoto]
Use:Name Field
Storage:StockPhoto

[System:UDF]
StockPhoto:String:1080

[Part:StkImgPart]
Line:StkImgLine
Image:Stock
Width: 20% Screen
Height: 20% Screen
Horizontal Alignment : Top
Vertical:No

[Resource: Stock]
Source: $StockPhoto
Resource Type: Jpeg

[Line:StkImgLine]
Field:StkImgFld

[Field:StkImgFld]

Set as:""

 

Dear sir,
I had tried same but nothing effect found , Please suggest me

 

Dear sir,
This is good TDL. but i wan to show image of item on Query with button. please help me.

 

Dear Sir,
I want to show item of picture attached in company item picture in stock item to Stock Query with Button View. How to do this sir? Help me.