1

我在 Microsoft Dynamics 中有一个用于打印自定义标签的报告。

报告本身有一个来自 Items 表的 DataItem。如果您运行报告，您可以输入一个项目编号，它会在选定的热敏打印机上打印一个标签。

现在，我要存档的是，如果我有采购订单，我想点击 somwhere 和 navision 应该做这样的事情：

运行带有项目“10001”的 6 个标签副本的报告“50070”；运行带有项目“10020”标签的 3 个副本的报告“50070”；

等等。

我没有找到关于这个话题的太多内容。我尝试使用一些帖子中提到的复制循环来做到这一点，但这并没有按照我想要的方式工作。

概述

报告数据项：

“项目”-> 记录::项目

以下代码来自 Item - OnAfterGetRecord() - Trigger

RecordNo := RecordNo + 1;
ColumnNo := ColumnNo + 1;

ItData[ColumnNo][1] := FORMAT("No.");
ItData[ColumnNo][2] := FORMAT(Description);
ItData[ColumnNo][3] := FORMAT(Var1);
ItData[ColumnNo][4] := FORMAT(Var2);
ItData[ColumnNo][5] := FORMAT("Unit Price");
ItData[ColumnNo][5] := FORMAT("Unit Price" * 1.19);


// finding own barcode first, if no own barcode found, take 
// the one you can get
barcodeStr := '';

recBarcode.SETFILTER("Item No.", "No.");
recBarcode.SETFILTER("Barcode No.", '99916*');

IF recBarcode.FINDFIRST THEN BEGIN
  barcodeStr := recBarcode."Barcode No.";
END ELSE BEGIN
  recBarcode.RESET;
  recBarcode.SETRANGE("Item No.", "No.");
  IF recBarcode.FINDFIRST THEN BEGIN
    barcodeStr := recBarcode."Barcode No.";
  END;
END;


// ask user, if to printing barcode is not a company own
// barcode, and let him decide if he whishes to print anyway
IF STRLEN(barcodeStr) = 13 THEN BEGIN
  IF (COPYSTR(barcodeStr, 1, 5) <> '99916') THEN BEGIN
    IF NOT CONFIRM('This item has NO company own barcode. Do you whish to print it anyway?', FALSE) THEN
      EXIT;
  END;

  // format the barcode-string to a format, that the barcode font
  // can understand and printing it properly for reading with a scanner
  EAN13 := DADA.GetPrintTextEAN13(barcodeStr);

END;

COMPRESSARRAY(ItData[ColumnNo]);

IF RecordNo = NoOfRecords THEN BEGIN
  FOR i := ColumnNo + 1 TO NoOfColumns DO
    CLEAR(Addr[i]);
  ColumnNo := 0;
END ELSE BEGIN
  IF ColumnNo = NoOfColumns THEN
    ColumnNo := 0;
END;


// finding a suiting logo for the barcode, user can choose between none, dd or ex
IF intLogoOption = 2 THEN BEGIN
  IF EXISTS ('N:\Labelprinting\dd\75x75\sw_for75x75.bmp') THEN
    TT.BLOBImport(BLOBRef, 'N:\Labelprinting\dd\75x75\sw_for75x75.bmp', FALSE);
END ELSE IF intLogoOption = 3 THEN BEGIN
  IF EXISTS ('N:\Labelprinting\ex\75x75\sw_for75x75.png') THEN
    TT.BLOBImport(BLOBRef, 'N:\Labelprinting\ex\75x75\sw_for75x75.png', FALSE);
END;

CALCFIELDS(Item.Picture);

我的目标是，用户可以单击一次并选择一次打印机，并且所有标签都可以正确打印

4

1 回答 1

3

您应该使用以下数据项制作一份报告副本：

Sales Header
--Sales Line
----Integer
------Item

将您的代码打印一张贴纸到Integer数据项中。它将被执行多次。用您的订单号过滤Sales Header。链接Sales Line到销售标题，因此报告将贯穿您的所有项目。

将以下代码放在Sales line - OnAfterGetRecord：

Integer.setrange("Number",1,"Sales Line"."Quantity");

将项目过滤放入Integer - OnPreDataItem

Item.setrange("No.", "Sales Line"."Item No.");

它将启动贴纸打印的数量是您订单中每行商品数量的两倍。这也将允许您为一堆订单打印贴纸。

于 2013-10-25T08:12:59.070 回答