20. April 2012 13:06
TempLotNo.RESET;
TempLotNo.DELETEALL;
WarehouseEntry.SETRANGE("Location Code",'ABC');
WarehouseEntry.SETRANGE("Bin Code",'445');
WarehouseEntry.SETRANGE("Item No.",Artikelnr);
//WarehouseEntry.SETRANGE("Variant Code","Variant Code");
//WarehouseEntry.SETRANGE("Unit of Measure Code","Unit of Measure Code");
//WarehouseEntry.SETRANGE("Zone Code","Zone Code");
WarehouseEntry.SETFILTER("Lot No.",'<>%1','');
WarehouseEntry.SETRANGE(Closed,FALSE);
IF WarehouseEntry.FINDSET THEN
REPEAT
IF NOT TempLotNo.GET(WarehouseEntry."Item No.",WarehouseEntry."Variant Code",WarehouseEntry."Lot No.") THEN
TempLotNo.INIT;
TempLotNo."Item No." := WarehouseEntry."Item No.";
TempLotNo."Variant Code" := WarehouseEntry."Variant Code";
TempLotNo."Lot No." := WarehouseEntry."Lot No.";
TempLotNo.TempMenge += WarehouseEntry.Quantity;
//-001
recItem.GET( WarehouseEntry."Item No." );
TempLotNo."range full" := recItem.RangeFull( WarehouseEntry."Lot No.", 'LX445' );
//+001
IF NOT TempLotNo.INSERT THEN
TempLotNo.MODIFY;
UNTIL WarehouseEntry.NEXT = 0;
TempLotNo.SETRANGE(TempMenge,0);
TempLotNo.DELETEALL;
TempLotNo.SETRANGE(TempMenge);
Form.Runmodual(50020,TempLotNo);
20. April 2012 14:55
IF FORM.RUNMODAL(0,myrec) IN [ACTION::None,ACTION::Cancel,ACTION::LookupCancel,
ACTION::No,ACTION::Close] THEN