Skip to content

Commit

Permalink
Translate
Browse files Browse the repository at this point in the history
  • Loading branch information
DitriXNew committed Jul 31, 2024
1 parent cc9eb30 commit 3aa4fed
Show file tree
Hide file tree
Showing 5 changed files with 17 additions and 11 deletions.
16 changes: 9 additions & 7 deletions IRP/src/CommonModules/DocInventoryTransferServer/Module.bsl
Original file line number Diff line number Diff line change
Expand Up @@ -110,7 +110,8 @@ Function GetDataFromPI(BasisArray) Export
| PurchaseInvoiceItemList.ItemKey AS ItemKey,
| PurchaseInvoiceItemList.Unit AS Unit,
| ISNULL(PurchaseInvoiceSerialLotNumbers.Quantity, PurchaseInvoiceItemList.Quantity) AS Quantity,
| ISNULL(PurchaseInvoiceSerialLotNumbers.SerialLotNumber, VALUE(Catalog.SerialLotNumbers.EmptyRef)) AS SerialLotNumber
| ISNULL(PurchaseInvoiceSerialLotNumbers.SerialLotNumber, VALUE(Catalog.SerialLotNumbers.EmptyRef)) AS SerialLotNumber,
| PurchaseInvoiceItemList.Key AS Key
|FROM
| Document.PurchaseInvoice.ItemList AS PurchaseInvoiceItemList
| LEFT JOIN Document.PurchaseInvoice.SerialLotNumbers AS PurchaseInvoiceSerialLotNumbers
Expand All @@ -120,9 +121,10 @@ Function GetDataFromPI(BasisArray) Export
| PurchaseInvoiceItemList.Ref IN (&BasisArray)
|TOTALS
| MAX(Item) AS Item,
| MAX(Unit) AS Unit
| MAX(Unit) AS Unit,
| MAX(ItemKey) AS ItemKey
|BY
| ItemKey
| Key
|;
|
|////////////////////////////////////////////////////////////////////////////////
Expand Down Expand Up @@ -154,9 +156,9 @@ Function GetDataFromPI(BasisArray) Export
EndIf;
EndDo;

SelectionItemKey = ResultsArray[0].Select(QueryResultIteration.ByGroups, "ItemKey");
While SelectionItemKey.Next() Do
Selection = SelectionItemKey.Select();
SelectionKey = ResultsArray[0].Select(QueryResultIteration.ByGroups, "Key");
While SelectionKey.Next() Do
Selection = SelectionKey.Select();
CreateRow = False;
ArrayOfSerialLotNumbers = New Array;
While Selection.Next() Do
Expand Down Expand Up @@ -184,7 +186,7 @@ Function GetDataFromPI(BasisArray) Export
If CreateRow Then
NewRowItemList = New Structure(ColumnForItemList);
NewRowItemList.Key = New UUID();
FillPropertyValues(NewRowItemList, SelectionItemKey, "Item, ItemKey, Unit");
FillPropertyValues(NewRowItemList, SelectionKey, "Item, ItemKey, Unit, Key");
NewRowItemList.PurchaseInvoice = SelectionHeader.DistributedPurchaseInvoice;
If ArrayOfSerialLotNumbers.Count() > 0 Then
TotalQuantity = 0;
Expand Down
9 changes: 5 additions & 4 deletions IRP/src/Documents/PhysicalInventory/ManagerModule.bsl
Original file line number Diff line number Diff line change
Expand Up @@ -381,10 +381,11 @@ Function R4032B_GoodsInTransitOutgoing()
Return
"SELECT
| VALUE(AccumulationRecordType.Receipt) AS RecordType,
| ItemList.Period,
| ItemList.Store,
| ItemList.Basis,
| ItemList.ItemKey,
| ItemList.Period AS Period,
| ItemList.Store AS Store,
| ItemList.Basis AS Basis,
| ItemList.ItemKey AS ItemKey,
| VALUE(Catalog.SerialLotNumbers.EmptyRef) AS SerialLotNumber,
| ItemList.WriteOffQuantity AS Quantity
|INTO R4032B_GoodsInTransitOutgoing
|FROM
Expand Down
1 change: 1 addition & 0 deletions IRP/src/Documents/RetailGoodsReceipt/ManagerModule.bsl
Original file line number Diff line number Diff line change
Expand Up @@ -426,6 +426,7 @@ Function R4032B_GoodsInTransitOutgoing()
| ItemList.Store,
| ItemList.ItemKey,
| ShipmentConfirmations.ShipmentConfirmation AS Basis,
| VALUE(Catalog.SerialLotNumbers.EmptyRef) AS SerialLotNumber,
| -ShipmentConfirmations.Quantity AS Quantity
|INTO R4032B_GoodsInTransitOutgoing
|FROM
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -583,6 +583,7 @@ Function R4032B_GoodsInTransitOutgoing()
| END AS Basis,
| ItemList.Store AS Store,
| ItemList.ItemKey AS ItemKey,
| VALUE(Catalog.SerialLotNumbers.EmptyRef) AS SerialLotNumber,
| ItemList.Quantity AS Quantity
|INTO R4032B_GoodsInTransitOutgoing
|FROM
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -345,6 +345,7 @@ Function R4032B_GoodsInTransitOutgoing()
| ItemList.Store,
| ItemList.AdjustmentBasis AS Basis,
| ItemList.ItemKey,
| VALUE(Catalog.SerialLotNumbers.EmptyRef) AS SerialLotNumber,
| ItemList.Quantity
|INTO R4032B_GoodsInTransitOutgoing
|FROM
Expand Down

0 comments on commit 3aa4fed

Please sign in to comment.