運行報告並傳遞要打印的頁數和一些值

我在Microsoft Dynamics中有一個用於打印自定義標籤的報告。運行報告並傳遞要打印的頁數和一些值

報表本身有一個來自Items表的DataItem。如果您運行報告，您可以鍵入項目編號並在選定的熱敏打印機上打印標籤。現在

，我要歸檔的是，如果我有一個採購訂單，我想克利克somwhere和Navision公司應該做這樣的事情：

運行報告「50070」與項目「10001」 6份標籤; 運行項目'10020'的報告'50070'3份標籤;

等等。

我沒有發現這個話題。我試圖用一些副本中提到的副本循環來做到這一點，但這並不像我想要的那樣工作。

概述

報告DataItems：

「項目」 - >記錄::項目

下面的代碼是從項目 - OnAfterGetRecord（） - 觸發

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);

我的目標是，用戶可以點擊一次並選擇一次打印機，並且所有標籤都可以正確打印。

來源

2013-10-24 Ello

你應該讓你的報告的副本有以下dataitems：

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

把你的代碼打印一個貼到Integer DataItem的。它將被執行多次。過濾器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-25 08:12:59

運行報告並傳遞要打印的頁數和一些值

回答

相關問題