4 Replies Latest reply: Apr 10, 2013 2:14 AM by 979471 RSS

    Is it posibble to code values like *000.01* into Barcode in Documaker 11.4

    979471
      I am looking for the feasiblity to encode values like '*000.01*' into Barcode in Documaker 11.4

      When i tried the same i got a warning message (6657) stating Invalid Barcode.

      But my Barcode reader is expecting a value as mentioned above.

      Edited by: Barath88 on Mar 21, 2013 12:12 AM
        • 1. Re: Is it posibble to code values like *000.01* into Barcode in Documaker 11.4
          User9976633-Oracle
          What type of barcode are you using? Do you have a barcode font? Any other information might be helpful to start a discussion.
          • 2. Re: Is it posibble to code values like *000.01* into Barcode in Documaker 11.4
            979471
            I am using Code 39 3:3 barcode which will be created using a variable with its type as Barcode and value being passed thru banner page processing at GenPrint step.
            • 3. Re: Is it posibble to code values like *000.01* into Barcode in Documaker 11.4
              User9976634-Oracle
              If the asterisks represents the normal start and stop codes then you don't need to supply those in the data. The barcode generation will add the start and stop codes automatically. I made a barcode 39:1133 and entered 000.01 and then scanned it using a barcode reader. It came back as 000.01 as expected.
              • 4. Re: Is it posibble to code values like *000.01* into Barcode in Documaker 11.4
                979471
                Banner Dal:

                BeginSub PreBatch
                #tran = 0
                rname = Trim(RecipName())
                EndSub

                BeginSub PreTrans
                #tran += 1
                #Pagecnt = TOTALSHEETS(rname)
                #pageno = 0
                BatchRecip=RecipName()
                #Formcnt=0
                Group = GroupName(,"*")
                Form = FormName(, , Group)
                while(Form != "")
                Nextform = FormName(#Formcnt,Form,Group)
                if (Nextform = "")
                Group = GroupName(1,Group)
                if (Group = "") then
                break
                end
                Form = FormName(,"*",Group)
                if (Form = "") then
                break
                end
                #Formcnt = 0
                continue
                end
                #Formcnt += 1
                #FormPgNum=1
                #AddImgnameCntr=1
                Imgname = PAGEIMAGE(#FormPgNum,BatchRecip,Nextform)
                while(Imgname != "")
                #pageno += 1
                tran = Format(#tran,'n','9999')
                Pagecnt = Format(#Pagecnt,'n','99')
                pageno = Format(#pageno,'n','99')
                If (#Pagecnt = #pageno)
                #cnt = 1
                else
                #cnt = 0
                end
                Barcod2 = "0000" & "." & tran & "." & Pagecnt & "." & pageno & "." & "00" & "." & #cnt
                #rcSetFld=SetFld(Barcod2,"NYFTZ","NYFTZAA\" & #AddImgnameCntr,Nextform)
                #rcSetFl1=SetFld(Barcod3,"NYFTY","NYFTZAA\" & #AddImgnameCntr,Nextform)
                #AddImgnameCntr += 1
                #FormPgNum += 1
                Imgname = PAGEIMAGE(#FormPgNum,BatchRecip,Nextform)
                wend
                wend
                EndSub

                Image Addition DAL:

                #pageno = 1
                #Pagecnt = TOTALSHEETS()
                if (#Pagecnt > 0)
                while(1)
                iName=PageImage(#pageno)
                If (iName = "")
                break
                end
                qName = "NYFTZAA"
                AddImage(qName,iName,,"*",1)
                qName = qName & "\" & #pageno
                #pos.top=9700
                #pos.left=18400
                SetImagePos("#pos",qName,,"*");
                SetFld(0,"NYFTZ",qName,,"*");
                SetFld(0,"NYFTY",qName,,"*");
                #pageno += 1
                wend;
                end