Procedure Posting()
    CheckStock();
    Movements.StockBalance.Write();
EndProcedure

Function CheckStock()
    Query = New Query;
    Query.Text =
    "SELECT
        Stock.Item
     FROM
        AccumulationRegister.StockBalance AS Stock";
EndFunction