要在 2 个单独字段中扫描的条码内容
Barcode content to be scanned in 2 seperate fields
我已将 2 个字段放入条形码和一个额外的分隔符中。条形码内容将为例如 123456789|abcdefg,其中竖线是分隔符。
现在我必须 sacn 这个条形码一次,然后让第一部分出现在一个字段和第二部分,即 | 之后的任何内容。在 seconf 领域正在进行 4gl?我该怎么做?
您可以创建第一个格式化字段,因为它可以处理所有代码。然后,进入字段的 RETURN 事件(假设您使用 SmartWindow 和条码 reader 在条码读取结束时执行 CR/LF),您使用第一个字段的内容并将其拆分为两个字段。像这样:
DEF VAR cField1 AS CHAR NO-UNDO FORMAT 'x(50)'.
DEF VAR cField2 AS CHAR NO-UNDO FORMAT 'x(50)'.
UPDATE cField1 WITH WIDTH 333. /* Here you 'bip' your barcode */
ASSIGN cField2 = ENTRY(2,cField1,'|')
cField1 = ENTRY(1,cField1,'|').
DISP cField1 cField2.
希望对您有所帮助。
我已将 2 个字段放入条形码和一个额外的分隔符中。条形码内容将为例如 123456789|abcdefg,其中竖线是分隔符。 现在我必须 sacn 这个条形码一次,然后让第一部分出现在一个字段和第二部分,即 | 之后的任何内容。在 seconf 领域正在进行 4gl?我该怎么做?
您可以创建第一个格式化字段,因为它可以处理所有代码。然后,进入字段的 RETURN 事件(假设您使用 SmartWindow 和条码 reader 在条码读取结束时执行 CR/LF),您使用第一个字段的内容并将其拆分为两个字段。像这样:
DEF VAR cField1 AS CHAR NO-UNDO FORMAT 'x(50)'.
DEF VAR cField2 AS CHAR NO-UNDO FORMAT 'x(50)'.
UPDATE cField1 WITH WIDTH 333. /* Here you 'bip' your barcode */
ASSIGN cField2 = ENTRY(2,cField1,'|')
cField1 = ENTRY(1,cField1,'|').
DISP cField1 cField2.
希望对您有所帮助。