كود ادخال في فورمة من فورمة اخرى

السلام عليكم ورحمة الله وبركاته
اريد المساعدة في ايجاد حل لهذه المشكلة
قمت بعمل جدولين جدول للطلبات وجدول لتفاصيل للطلبات وقمت بوضع الاثنان على كنفز واحد بحيث يظهرو الاثنتان كانهما فاتورة
وقمت بوضع زر بحيث عند النقر عليهم يتم ادخال هذه السجلات في الجداول
بحيث تمثل حجم المبيعات التي تم بيعها
المشكلة تكمن في اني اريد عند على هذا الزر ايضا نقوم بادخال سجلات في جدول المخزن بحيث تكون مساوية لحجم الميعات حتى ينقص المحزون في المخزن بنفس الكمية
فما الكود المطلوب
وهل هذا الكود المطلوب هو هذا الكود
على فرض ان جدول الطلبات ord وجدول تفاصيل الطلبات ord|_items
Inv هو المخزن ( رقم الصنف و الكمية و التاريخ و الحالة )
Decleare
A number ;
B number ;
C mumber
Begin
A = :ord.item_no ;
B = :ord_item.quantitve ;
C = :ord_items.dat ;
If ord_item_no is not null then
Insert into inv
Values(:a , :b , :c , ‘out’ ) ;
Commit_form ;
Go_block(‘ord’) ;
End ;
فهل هذا الكود يصلح اما لا
انا كان لا فا ارجو المساعدة
ارجو ان اكون فد استطعت ان اوضح المشكلة