New User? Sign Up  |  Sign In  |  Help
IDAutomation Logo
Barcode support and
tutorials from IDAutomation
and the community.		 Click for the BBB Business Review of this Computers Hardware, Software & Services in Tampa FL
Open Questions

code39 crystal report basic syntax


i'm rewriting all my crystal reports ( round about 100 reports ) from crystall syntax to crystal basic, to use the native language

like
if ({RPT_DOC_STD_3.GAU_DESCRIBE} = 'PUR-SE-Stock Entry' or {RPT_DOC_STD_3.GAU_DESCRIBE} = 'PUR-CRN-Control Reception Note')
then
IDAutomationCode39('30'+((ToText ({RPT_DOC_STD_3.DOC_DOCUMENT_ID},0,''))))

and it worked perfect

now new

'if ({RPT_DOC_STD_3.GAU_DESCRIBE} = 'PUR-SE-Stock Entry' or {RPT_DOC_STD_3.GAU_DESCRIBE} = 'PUR-CRN-Control Reception Note')
'then
'IDAutomationCode39('30'+((ToText ({RPT_DOC_STD_3.DOC_DOCUMENT_ID},0,''))))

'*********************************************************************
'* IDAutomation Barcode Font Formulas for Crystal Reports 4.01
'* Copyright, IDAutomation.com, Inc. 2000-2004. All rights reserved.
'*
'* You may incorporate our Source Code in your application
'* only if you own a valid License from IDAutomation.com, Inc.
'* for the associated font and the copyright notices are not
'* removed from the source code.
'*
'* Formula: Code39 - formats output to IDAutomationC39 fonts
'* Tutorial: http://www.BizFonts.com/crystal/
'*********************************************************************
Dim DataToEncode As String
'Change the next line to connect to your data source; for example:
'DataToEncode = ({Table.Field})
'DataToEncode = "1234 ABCD"
dim Result_CODE39 as string

if ({RPT_DOC_STD_3.GAU_DESCRIBE} = "PUR-SE-Stock Entry" or {RPT_DOC_STD_3.GAU_DESCRIBE} = "PUR-CRN-Control Reception Note") then
Result_CODE39 = (totext(30,0,""))+(ToText ({RPT_DOC_STD_3.DOC_DOCUMENT_ID},0,""))
formula = Result_CODE39
end if

DataToEncode = Result_CODE39


Dim StringLength as Number
Dim I as Number
Dim CurrentChar as String
Dim DataToPrint as String
DataToEncode = RTrim(LTrim(DataToEncode))
DataToEncode = UCase(DataToEncode)
StringLength = Len(DataToEncode)
For I = 1 To StringLength
CurrentChar = Mid(DataToEncode, I, 1)
If CurrentChar = " " Then CurrentChar = "="
DataToPrint = DataToPrint & CurrentChar
Next I
Formula = "(" & DataToPrint & ")" & " "

with the new version ( basic syntax) i get a an unreadble barcoce where should be blank, because the formular returns nothing

any idee
thnaks for help




Operating System: Windows 2019

Application: Crystal Reports

11-29-24     5 day(s) ago    

  Report Abuse
Find Interesting
 
Email to Others
 
Bookmark
 
Subscribe to Answer Alert
No comments yet.     Be the first to comment.
Answers (1)
Since we do not have your database, it is difficult to determine the issue. We recommend trying the formula provided in the example and then using a process of elimination to find the solution. If you change DataToEncode = Result_CODE39 to DataToEncode = "TEST" and it encodes TEXT, the issue is most likely with the Result_CODE39 variable.

Posted 5 day(s) ago

(0)
(0)
   Report Abuse
 Categories
Edit your comment. Click save when finished.
Question Title code39 crystal report basic syntax
Your Answer or Comment
  |         |  
bold  italic  underline  strike       big  small       superscript  subscript  list  list 
  Allows to add a link. Added links would only be converted to actual clickable link, when the domain of the link is white-listed by administrator.
Caption :
Link URL :
( Must start with "http://" or "https://" )
Add  |   Cancel
  Allow to insert an image. Must be among the following file types - *.jpg, *.gif, *.png & *.bmp.
Image Url :   Upload New
(Image url must always start with "http://" or "https://")
Width : pixels
(Must not be greater than 450px. Enter 0px for no resize)
Add  |   Cancel
  Allow to insert YouTube video. Insert the video embed code.
Embed Code :
Add Cancel
Character Count ( Max. - 6000 ) : 2428
Email this question link to friends
You must enter an email address, if name is entered or vice-versa for each friend.
Friend #1 -
Friend #2 -
Friend #3 -
Friend #4 -
Friend #5 -
  Your comment on this question
  |         |  
bold  italic  underline  strike       big  small       superscript  subscript 
  Allows to add a link. Added links would only be converted to actual clickable link, when the domain of the link is white-listed by administrator.
Caption :
Link URL :
(Must starts with "http://")
Add  |   Cancel
  Allow to insert an image. Must be among the following file types - *.jpg, *.gif, *.png & *.bmp.
Image Url :   Upload New
(Image url must always starts with " http:// ")
Width : pixels
(Must not be greater than 450px. Enter 0px for no resize)
Add  |   Cancel
  Allow to insert YouTube video. Insert the video embed code.
Embed Code :
Add  |   Cancel
Up to 5000 Characters are allowed. Current Count: 0
  Your comment on this answer
  |         |  
bold  italic  underline  strike       big  small       superscript  subscript 
  Allow you to add a link. Added links would only be converted to actual clickable link, when the domain of the link is white-listed by administrator.
Caption :
Link URL :
(Must start with "http://" or "https://")
Add  |   Cancel
  Allow to insert an image. Must be among the following file types - *.jpg, *.gif, *.png & *.bmp.
Image Url :   Upload New
(Image url must always start with "http://" or "https://")
Width : pixels
(Must not be greater than 450px. Enter 0px for no resize)
Add  |   Cancel
  Allow to insert YouTube video. Insert the video embed code.
Embed Code :
Add  |   Cancel
Up to 5000 characters are allowed. Current Count: 0

You may answer and comment on any thread according to the Terms and Conditions.

 © Copyright 2021 IDAutomation.com, Inc., All Rights Reserved. Legal Notices.

 Barcode Fonts | Components | Scanners | Support | Contact Us
Training Videos on YouTube Join us on Google Plus Join us on LinkedIn Follow us on Twitter Like us on Facebook