10. Februar 2017 00:36
LOCAL Fkt_Barcode_erfassen_mutieren(VAR parArtikel : Record Item)
lRecReferenzen.SETCURRENTKEY("Item No.","Cross-Reference Type","Unit of Measure");
lRecReferenzen.SETRANGE(lRecReferenzen."Item No.",parArtikel."No.");
lRecReferenzen.SETRANGE(lRecReferenzen."Cross-Reference Type",lRecReferenzen."Cross-Reference Type" :: "Bar Code");
lRecReferenzen.SETRANGE(lRecReferenzen."Unit of Measure", SpalteHolen('Z'));
IF lRecReferenzen.FINDFIRST THEN BEGIN
lRecReferenzen.INIT;
// MESSAGE(SpalteHolen('S'));
lRecReferenzen.VALIDATE(lRecReferenzen."Cross-Reference No.",SpalteHolen('S'));
lRecReferenzen.MODIFY(TRUE);
END ELSE BEGIN
IF SpalteHolen('R') <>'' THEN BEGIN
// MESSAGE('jetzt');
lRecReferenzen.INIT;
lRecReferenzen.VALIDATE(lRecReferenzen."Item No.",parArtikel."No.");
lRecReferenzen.VALIDATE(lRecReferenzen."Unit of Measure", SpalteHolen('Z'));
lRecReferenzen.VALIDATE("Cross-Reference Type", lRecReferenzen."Cross-Reference Type" :: "Bar Code");
lRecReferenzen.VALIDATE(lRecReferenzen."Cross-Reference No.",SpalteHolen('S'));
lRecReferenzen.VALIDATE(lRecReferenzen.Description, 'PL Import');
lRecReferenzen.INSERT(TRUE);
END;
END;
10. Februar 2017 08:46
10. Februar 2017 12:51
lRecReferenzen.MODIFY(TRUE);
lRecReferenzen.RENAME(TRUE);
10. Februar 2017 13:34
Item No.,Variant Code,Unit of Measure,Cross-Reference Type,Cross-Reference Type No.,Cross-Reference No.
17. Februar 2017 17:58