16 lines
314 B
ObjectPascal
16 lines
314 B
ObjectPascal
|
unit ServerGlobal;
|
||
|
|
|
||
|
|
interface
|
||
|
|
var
|
||
|
|
gCompany: string = 'Company';
|
||
|
|
gCompanyCheck: Boolean = True;
|
||
|
|
gFreightCheck: Boolean = True;
|
||
|
|
gFreight: integer = 20;
|
||
|
|
gDeclineDeleteCustomers: Boolean = True;
|
||
|
|
gDeclineDeleteOrders: Boolean = True;
|
||
|
|
gCheckCustomerID: Boolean = True;
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|
||
|
|
|