Skip to content

K
KGOrders
Commit a9c2147a by Cameron Hayes
Options

missed one log

parent 8fa96190
Showing with 29 additions and 12 deletions
kgOrdersServer/Source/Lookup.ServiceImpl.pas
......@@ -355,7 +355,7 @@ var
ADDRESS_LIST: TJSONArray;
ADDRESS: TJSONObject;
begin
logger.Log(5, 'TLookupService.DelShippingAddress');
logger.Log(3, 'TLookupService.DelShippingAddress');
SQL := 'DELETE FROM customers_ship WHERE customer_ship_id = ' + AddressID;
OrdersDB.UniQuery1.SQL.Text := SQL;
OrdersDB.UniQuery1.ExecSQL;
......@@ -393,6 +393,7 @@ var
PageNum, PageSize: integer;
offset,limit: string;
begin
logger.Log(3, 'TLookupService.GetCustomers');
params := TStringList.Create;
params.StrictDelimiter := true;
params.Delimiter := '&';
......@@ -462,6 +463,7 @@ var
ADDRESS: TAddressItem;
USER: TUserItem;
begin
logger.Log(3, 'TLookupService.GetCustomer');
try
if ID = '' then
SQL := 'select * FROM customers c LEFT JOIN customers_ship s ON c.CUSTOMER_ID = s.customer_id WHERE c.CUSTOMER_ID = -1'
......@@ -520,6 +522,7 @@ var
USER: TUserItem;
SQL: string;
begin
Logger.Log(3, 'TLookupService.GetRepUsers');
SQL := 'SELECT USER_ID, NAME from users where QB_ID IS NOT NULL AND QB_ID <> ' + quotedStr('');
result := TList<TUserItem>.Create;
doQuery(ordersDB.UniQuery1, SQL);
......@@ -543,7 +546,7 @@ var
CompanyID, CompanyName: string;
params: TStringList;
begin
logger.Log(5, 'TLookupService.GenerateOrderListPDF');
logger.Log(3, 'TLookupService.GenerateOrderListPDF');
rptOrderList := TrptOrderList.Create(nil);
try
try
......@@ -603,7 +606,7 @@ var
JSONArray: TJSONArray;
Item: TAddressItem;
begin
logger.Log(5, 'TLookupSerivce.AddShippingAddress');
logger.Log(3, 'TLookupSerivce.AddShippingAddress');
result := TJSONObject.Create;
JSONData := TJSONObject.ParseJSONValue(AddressInfo) as TJSONObject;
if JSONData = nil then
......@@ -696,6 +699,7 @@ var
msg: string;
unique: boolean;
begin
logger.Log(3, 'TLookupService.AddCustomer');
DateFormat := TFormatSettings.Create;
DateFormat.ShortDateFormat := 'yyyy-mm-dd';
DateFormat.DateSeparator := '-';
......@@ -802,7 +806,7 @@ var
rptOrderCorrugated: TrptOrderCorrugated; // Local instance of the report
begin
rptOrderCorrugated := TrptOrderCorrugated.Create(nil);
logger.Log(5, 'TLookupService.GenerateOrderCorrugatedPDF');
logger.Log(3, 'TLookupService.GenerateOrderCorrugatedPDF');
try
try
// Generate SQL query for a single order
......@@ -830,6 +834,7 @@ var
SQL: string;
rptOrderWeb: TrptOrderWeb; // Local instance of the report
begin
logger.Log(3, 'TLookupService.GenerateOrderWebPDF');
rptOrderWeb := TrptOrderWeb.Create(nil);
try
try
......@@ -860,7 +865,7 @@ var
rptOrderCutting: TrptOrderCutting; // Local instance of the report
begin
rptOrderCutting := TrptOrderCutting.Create(nil);
logger.Log(5, 'TLookupService.GenerateOrderCuttingPDF');
logger.Log(3, 'TLookupService.GenerateOrderCuttingPDF');
try
try
// Generate SQL query for a single order
......@@ -1133,6 +1138,7 @@ var
ColorType: string;
SQLQuery: TSQLQuery;
begin
logger.Log(3, 'TLookupService.GetOrders');
SQLQuery := generateOrdersSQL(searchOptions);
TXDataOperationContext.Current.Handler.ManagedObjects.Add(SQLQuery);
......@@ -1221,6 +1227,7 @@ var
table: string;
ADDRESS: TAddressItem;
begin
logger.Log(3,'TLookupService.GetCorrugatedOrder');
orderID := orderInfo;
try
SQL := 'select * from corrugated_plate_orders cpo JOIN customers c ON c.CUSTOMER_ID = cpo.COMPANY_ID join orders o on cpo.ORDER_ID = o.ORDER_ID where cpo.ORDER_ID = ' + quotedStr(orderID);
......@@ -1330,6 +1337,7 @@ var
SQL: string;
ADDRESS: TAddressItem;
begin
logger.Log(3, 'TLookupService.GetWebOrder');
try
orderID := orderInfo;
SQL := 'select * from web_plate_orders wpo JOIN customers c ON c.CUSTOMER_ID = wpo.COMPANY_ID join orders o on wpo.ORDER_ID = o.ORDER_ID where wpo.ORDER_ID = ' + quotedStr(orderID);
......@@ -1457,6 +1465,7 @@ var
SQL: string;
ADDRESS: TAddressItem;
begin
logger.Log(3, 'TLookupService.GetCuttingDieOrder');
try
orderID := orderInfo;
SQL := 'select * from cutting_die_orders cdo JOIN customers c ON c.CUSTOMER_ID = cdo.COMPANY_ID join orders o on cdo.ORDER_ID = o.ORDER_ID where cdo.ORDER_ID = ' + quotedStr(orderID);
......@@ -1514,6 +1523,7 @@ var
SQL: string;
item: TItemItem;
begin
logger.Log(3, 'TLookupService.GetItems');
try
params := TStringList.Create;
params.StrictDelimiter := true;
......@@ -1573,6 +1583,7 @@ function TLookupService.GetUsers(searchOptions: string): TUserList;
var
user: TUserItem;
begin
logger.Log(3, 'TLookupService.GetUsers');
try
// Prepare and open the query
ordersDB.UniQuery1.Close;
......@@ -1654,7 +1665,7 @@ var
hashString: string;
hashPW: string;
begin
logger.log(5, 'TLookupService.EditUser');
logger.log(3, 'TLookupService.EditUser');
params := TStringList.Create;
params.Delimiter := '&';
params.StrictDelimiter := true;
......@@ -1780,6 +1791,7 @@ var
mode: string;
msg: string;
begin
logger.Log(3, 'TLookupService.AddCorrugatedOrder');
DateFormat := TFormatSettings.Create;
DateFormat.ShortDateFormat := 'yyyy-mm-dd';
DateFormat.DateSeparator := '-';
......@@ -1873,7 +1885,7 @@ var
mode: string;
change: boolean;
begin
logger.Log(5, 'TLookupService.AddStatusSchedule');
logger.Log(3, 'TLookupService.AddStatusSchedule');
mode := order.GetValue<string>('mode');
if mode = 'ADD' then
begin
......@@ -1936,7 +1948,7 @@ var
order: TJSONObject;
begin
try
logger.Log(5, 'TLookupService.SetStatus');
logger.Log(3, 'TLookupService.SetStatus');
StatusInfo := TJSONObject.ParseJSONValue(statusOptions) as TJSONObject;
params := TStringList.Create;
// parse the statusOptions
......@@ -2070,7 +2082,7 @@ var
rightsInt: Integer;
params: TStringList;
begin
logger.Log(5, 'TLookupService.AddUser');
logger.Log(3, 'TLookupService.AddUser');
try
params := TStringList.Create;
params.StrictDelimiter := True;
......@@ -2146,7 +2158,7 @@ var
begin
try
logger.Log(5, 'TLookupService.AddItem');
logger.Log(3, 'TLookupService.AddItem');
result := TJSONObject.Create;
JSONData := TJSONObject.ParseJSONValue(itemInfo) as TJSONObject;
if JSONData = nil then
......@@ -2216,7 +2228,7 @@ var
SQL: string;
params: TStringList;
begin
logger.Log(5, 'TLookupService.DelUser');
logger.Log(3, 'TLookupService.DelUser');
SQL := 'select * from users where username = ' + QuotedStr(username.toLower);
ordersDB.UniQuery1.Close;
ordersDB.UniQuery1.SQL.Text := SQL;
......@@ -2250,7 +2262,7 @@ var
mode: string;
msg: string;
begin
logger.Log(5, 'TLookupService.AddWebOrder');
logger.Log(3, 'TLookupService.AddWebOrder');
DateFormat := TFormatSettings.Create;
DateFormat.ShortDateFormat := 'yyyy-mm-dd';
DateFormat.DateSeparator := '-';
......@@ -2349,6 +2361,7 @@ var
temp: string;
temp2: boolean;
begin
logger.Log(3, 'TLookupService.AddCuttingDieOrder');
DateFormat := TFormatSettings.Create;
DateFormat.ShortDateFormat := 'yyyy-mm-dd';
DateFormat.DateSeparator := '-';
......@@ -2443,6 +2456,7 @@ var
Field: TField;
RevisionID, rev_num, OrderIDInt: Integer;
begin
logger.Log(3, 'TLookupService.delOrder');
try
// Convert ORDER_ID to integer safely
OrderIDInt := StrToIntDef(OrderID, -1);
......@@ -2639,6 +2653,7 @@ var
I: integer;
SQL: string;
begin
logger.Log(3, 'TLookupService.GetQBCustomers');
Result := TJSONArray.Create;
iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'kgOrdersServer.ini');
restClient := TRESTClient.Create(nil);
......@@ -2782,6 +2797,7 @@ var
LastRefresh: TDateTime;
iniFile: TIniFile;
begin
logger.Log(3, 'TLookupService.GetQBItems');
iniFile := nil;
restClient := nil;
restRequest := nil;
......@@ -2992,6 +3008,7 @@ var
QB_LIST_ID: string;
unique: Boolean;
begin
logger.Log(3, 'TLookupService.ImportQBCustomer');
DateFormat := TFormatSettings.Create;
DateFormat.ShortDateFormat := 'yyyy-mm-dd';
DateFormat.DateSeparator := '-';
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment