14 lines
256 B
Plaintext
14 lines
256 B
Plaintext
Procedure Posting()
|
|
CheckStock();
|
|
Movements.StockBalance.Write();
|
|
EndProcedure
|
|
|
|
Function CheckStock()
|
|
Query = New Query;
|
|
Query.Text =
|
|
"SELECT
|
|
Stock.Item
|
|
FROM
|
|
AccumulationRegister.StockBalance AS Stock";
|
|
EndFunction
|