Hong Kong Style Noodles and Dimsum Inventory System

A very simple inventory system that I wrote for Hong Kong Style Noodles and Dimsum a local business here in Bacolod City to monitor the daily business transaction of products in the company. I am using Turbo Pascal For Windows in this program.

I am currently accepting programming work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.

Sample Program Output

Program Listing

inventory.pas

{ Written By Mr. Jake R. Pomperada, MAED-IT }

{ Date : October 21, 2017                   }

{ Eroreco Subdivision, Bacolod City, Negros Occidental Philippines }

Program Inventory;

Uses WinCrt;

Var

Product,Date : String;

In_day, End_Day, Balance : Integer;

Begin

   Write('Hong Kong Style Noodles and Dimsum Inventory System');

   Writeln;

   Writeln;

   Write('Date       : ');

   Readln(date);

   Write('Product    :  ');

   Readln(product);

   Write('In of Day  :  ');

   Readln(In_day);

   Write('End of Day :  ');

   Readln(End_Day);

   writeln;

   writeln('Daily Report ');

   writeln;

   write('Product    : ' ,product);

   writeln;

   write('Date       : ' ,date);

   writeln;

   writeln;

   balance := (In_day-End_Day);

   Write('Balance    :  ', balance);

   Readln;

End.