Дипломная работа: Автоматизация процесса приема и идентификации поступившей продукции в АО "Кодекс"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
144
При обнаружении несоответствия фактического количества учетному,
активируется кнопка «Корректировка», открывающая форму «Корректировка».
Рисунок П2.3. Форма ввода «Инвентаризация»
В диалоговом окне «Корректировка» указывается новое значение
учетного количества (рисунок П2.4). По умолчанию в поле ввода подставляется
значение фактического количества по результатам инвентаризации.
Рисунок П2.4 Форма ввода «Инвентаризация»
Добавление из
справочника
«Сотрудники»
Добавление из
справочника
«Номенклатура»
Данные из
таблицы
«Остатки»
Ручной
ввод
Вызов диалогового
окна
«Корректировка»
Печать отчета
145
Приложение 3. Исходный текст программного модуля «Приемка
товаров»
unit Priemka;
interface
uses
SysUtils, Windows, Classes, Graphics, Controls,
Forms, Dialogs, DB, DBTables,Math;
type
TDataModule2 = class(TDataModule)
TovarTableID_TOVAR: TAutoIncField;
TovarTableNAME_TOVAR: TStringField;
TovarSr: TDataSource;
TovarTable: TTable;
PrihodSr: TDataSource;
DocTable: TTable;
SaleTable: TTable;
DocSr: TDataSource;
SaleSr: TDataSource;
SaleTableID_TOVAR_SALE: TAutoIncField;
SaleTableNAME_TOVAR: TStringField;
SaleTableID_TOVAR: TIntegerField;
SaleTablePRICE: TCurrencyField;
SaleTableID_SALE: TIntegerField;
SaleTableSUMMA: TCurrencyField;
SaleTableNDS: TFloatField;
SaleTableSUMMA_NDS: TCurrencyField;
SaleTableALL_SUMMA: TCurrencyField;
SummaQry: TQuery;
SummaQrySUMMA: TCurrencyField;
SummaQrySUMMA_NDS: TCurrencyField;
SummaQryALL_SUMMA: TCurrencyField;
ClientSr: TDataSource;
ClientTable: TTable;
ClientTableID_CLIENT: TAutoIncField;
ClientTableCLIENT: TStringField;
ClientTableADRESS: TStringField;
ClientTableTELEPHONE: TStringField;
ClientTableFAX: TStringField;
ClientTableREKVEZIT: TStringField;
ClientTableBIK: TStringField;
ClientTableINN: TStringField;
ClientTableKOD_OKPO: TStringField;
ClientTableKOD_OKONH: TStringField;
ClientTableMAN: TStringField;
ClientTableDOCUMENT: TStringField;
FirmaTable: TTable;
FirmaSr: TDataSource;
FirmaTableFIRMA: TStringField;
FirmaTableADRESS: TStringField;
FirmaTableTELEPHON: TStringField;
FirmaTableFAX: TStringField;
146
FirmaTableREKVEZIT: TStringField;
FirmaTableBIK: TStringField;
FirmaTableINN: TStringField;
FirmaTableKOD_OKPO: TStringField;
FirmaTableKOD_OKONH: TStringField;
FirmaTableDIREKTOR: TStringField;
FirmaTableBUHGALTER: TStringField;
UpdateTovQry1: TQuery;
UpdateTovQry2: TQuery;
RashodQry: TQuery;
RashodSr: TDataSource;
RashodQryDATA_SALE: TDateField;
RashodQryID_TOVAR: TIntegerField;
RashodQryPRICE: TCurrencyField;
UpTovQry1: TQuery;
UpTovQry2: TQuery;
SaleTableNALOG: TFloatField;
SaleTableSUMMA_NALOG: TCurrencyField;
SummaQrySUMMA_NALOG: TCurrencyField;
TovarTableSELECT: TStringField;
KategTable: TTable;
KategSr: TDataSource;
KategTableID_KATEG: TAutoIncField;
KategTableNAME_KATEG: TStringField;
TovarTableID_KATEG: TIntegerField;
SumRashQry: TQuery;
ReportQry: TQuery;
SumRashQryID_TOVAR: TIntegerField;
SumRashQryNAME_TOVAR: TStringField;
SumRashQrySUMOFKOLVO_TOVAR: TFloatField;
SumRashQrySUMOFKOLVO_PRIHOD: TFloatField;
SelectQry: TQuery;
SaleTableCOUNTRY: TStringField;
SaleTableN_DECLAR: TStringField;
SumRashQry2: TQuery;
SumRashQry2ID_TOVAR: TIntegerField;
SumRashQry2NAME_TOVAR: TStringField;
SumRashQry2KOLVO_TOVAR: TIntegerField;
SumRashQry2KOLVO_PRIHOD: TSmallintField;
DeclTable: TTable;
DeclSr: TDataSource;
SelectDeclQry: TQuery;
SelectDeclSr: TDataSource;
SelectDeclQryN_DECLAR: TStringField;
SelectDeclQryID_DECLAR: TIntegerField;
SelectDeclQryID_TOVAR: TIntegerField;
DocTableID_SALE: TAutoIncField;
DocTableDATA_SALE: TDateField;
DocTableN_FAKTURA: TStringField;
DocTableN_NAKLAD: TStringField;
DocTableN_ORDER: TStringField;
DocTableCLIENT: TStringField;
DocTableDOC_SUMMA: TCurrencyField;
147
DocTableDOC_NDS: TCurrencyField;
DocTableDOC_ALL_SUMMA: TCurrencyField;
DocTableSUMMA_STRING: TStringField;
DocTableID_CLIENT: TIntegerField;
DocTableDOC_NALOG: TCurrencyField;
InsPlusQry: TQuery;
FirmaTableSEL: TStringField;
KategTableSEL: TStringField;
Query2: TQuery;
IntegerField1: TIntegerField;
StringField1: TStringField;
IntegerField2: TIntegerField;
SmallintField1: TSmallintField;
IntegerField3: TIntegerField;
SaleTableOSTATOK: TIntegerField;
UpPrihodQry: TQuery;
SumRashQry2OSTATOK: TIntegerField;
InsPrihodQry: TQuery;
SkaldTable: TTable;
SkladSr: TDataSource;
SkaldTableID_SKLAD: TAutoIncField;
SkaldTableNAME_SKALD: TStringField;
KategTableID_SKLAD: TIntegerField;
RashodQryN_NAKLAD: TStringField;
RashodQryCLIENT: TStringField;
PrihodQry: TQuery;
PrihodQryN_NAKLAD_PRIHOD: TStringField;
PrihodQryDATE_PRIHOD: TDateField;
PrihodQryPOSTAVSHIK: TStringField;
PrihodQryKOLVO_TOVAR: TFloatField;
PrihodQryPRICE_TOVAR: TCurrencyField;
PrihodQrySUMMA: TCurrencyField;
RashodQryDOC_SUMMA: TCurrencyField;
TovarTableSHIFR: TStringField;
TovarTablePRICE_PRIH: TCurrencyField;
TovarTablePRICE_RASH: TCurrencyField;
PrMoneyTable: TTable;
RasMoneyTable: TTable;
PrMoneySr: TDataSource;
RasMoneySr: TDataSource;
PrMoneyTableID_MONEY_PRIH: TAutoIncField;
PrMoneyTableID_SKLAD: TIntegerField;
PrMoneyTableDATA_MONEY_PRIH: TDateField;
PrMoneyTablePRIH_MONEY_RUB: TCurrencyField;
PrMoneyTablePRIH_MONEY_USD: TCurrencyField;
PrMoneyTablePRIH_KURS: TCurrencyField;
PrMoneyTableZA_CHTO_MONEY_PRIH: TStringField;
PrMoneyTableCOMMENT_MONEY_PRIH: TStringField;
RasMoneyTableID_RASHOD_MONEY: TAutoIncField;
RasMoneyTableID_SKLAD: TIntegerField;
RasMoneyTableDATA_RASH_MONEY: TDateField;
RasMoneyTableRASH_MONEY_RUB: TCurrencyField;
RasMoneyTableRASH_MONEY_USD: TCurrencyField;
148
RasMoneyTableRASH_KURS: TCurrencyField;
RasMoneyTableZA_CHTO_MONEY_RASH: TStringField;
RasMoneyTableCOMMENT_MONEY_RASH: TStringField;
SkladTableSELECT: TStringField;
ClientTableSEL: TStringField;
TovarTableED_IZM: TStringField;
TovarTableCOMMENT: TBlobField;
SaleTableKOLVO_TOVAR: TFloatField;
TovarTableOSTATOK: TFloatField;
ReportQryCLIENT: TStringField;
ReportQryADRESS: TStringField;
ReportQryTELEPHONE: TStringField;
ReportQryMAN: TStringField;
ReportQryDOCUMENT: TStringField;
ReportQryDATA_SALE: TDateField;
ReportQryN_NAKLAD: TStringField;
ReportQryN_ORDER: TStringField;
ReportQryDOC_SUMMA: TCurrencyField;
ReportQryDOC_NDS: TCurrencyField;
ReportQryDOC_ALL_SUMMA: TCurrencyField;
ReportQryDOC_NALOG: TCurrencyField;
ReportQrySUMMA_STRING: TStringField;
ReportQryNAME_TOVAR: TStringField;
ReportQryKOLVO_TOVAR: TFloatField;
ReportQryPRICE: TCurrencyField;
ReportQrySUMMA: TCurrencyField;
ReportQryNDS: TFloatField;
ReportQrySUMMA_NDS: TCurrencyField;
ReportQryALL_SUMMA: TCurrencyField;
ReportQryNALOG: TFloatField;
ReportQrySUMMA_NALOG: TCurrencyField;
ReportQryFIRMA: TStringField;
ReportQryADRESS_1: TStringField;
ReportQryTELEPHON: TStringField;
RashodQrySUMMA: TCurrencyField;
procedure DataModuleCreate(Sender: TObject);
procedure PrihodTableAfterPost(DataSet: TDataSet);
procedure RashodTableAfterPost(DataSet: TDataSet);
procedure SaleTableBeforePost(DataSet: TDataSet);
procedure SaleTableAfterPost(DataSet: TDataSet);
procedure SaleTableAfterDelete(DataSet: TDataSet);
procedure SaleTableBeforeEdit(DataSet: TDataSet);
procedure SaleTableBeforeDelete(DataSet: TDataSet);
procedure PrihodTableBeforeEdit(DataSet: TDataSet);
procedure PrihodTableBeforeDelete(DataSet: TDataSet);
procedure PrihodTableAfterDelete(DataSet: TDataSet);
private
{ private declarations }
public
{ public declarations }
end;
Источник: https://baza.diplomsite.ru/previewfile/2110