Skip to content

K
KGOrders
Commit 4a70910b by Cameron Hayes
Options

finished converting web plate to be similar to cutting die

parent 2d9baac6
Showing with 1063 additions and 920 deletions
kgOrdersClient/View.OrderEntryCorrugated.dfm
...@@ -236,7 +236,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated ...@@ -236,7 +236,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
DataSource = wdsOrder DataSource = wdsOrder
end end
object edtJobName: TWebDBEdit object edtJobName: TWebDBEdit
Left = 26 Left = 24
Top = 523 Top = 523
Width = 200 Width = 200
Height = 22 Height = 22
...@@ -1060,7 +1060,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated ...@@ -1060,7 +1060,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
end end
object dtpArtDue: TWebDBDateTimePicker object dtpArtDue: TWebDBDateTimePicker
Left = 24 Left = 24
Top = 600 Top = 582
Width = 170 Width = 170
Height = 22 Height = 22
ElementID = 'dtpartdue' ElementID = 'dtpartdue'
...@@ -1271,7 +1271,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated ...@@ -1271,7 +1271,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
end end
object edtQBItemDescription: TWebEdit object edtQBItemDescription: TWebEdit
Left = 26 Left = 24
Top = 551 Top = 551
Width = 121 Width = 121
Height = 22 Height = 22
......
kgOrdersClient/View.OrderEntryCorrugated.html
...@@ -21,15 +21,15 @@ ...@@ -21,15 +21,15 @@
<button id="btndelete" class="btn btn-danger btn-sm">Delete</button> <button id="btndelete" class="btn btn-danger btn-sm">Delete</button>
</li> </li>
<li class="nav-item pe-2"> <li class="nav-item pe-2">
<button id="btnpdf" class="btn btn-primary btn-sm">PDF</button>
</li>
<li class="nav-item pe-2">
<button id="btnconfirm" class="btn btn-success btn-sm">Save</button> <button id="btnconfirm" class="btn btn-success btn-sm">Save</button>
</li> </li>
<li class="nav-item pe-2"> <li class="nav-item pe-2">
<button id="btncancel" class="btn btn-danger btn-sm">Cancel</button> <button id="btncancel" class="btn btn-danger btn-sm">Cancel</button>
</li> </li>
<li class="nav-item pe-2"> <li class="nav-item pe-2">
<button id="btnpdf" class="btn btn-primary btn-sm">PDF</button>
</li>
<li class="nav-item pe-2">
<button id="btnsendtoqb" class="btn btn-primary btn-sm">Send To QB</button> <button id="btnsendtoqb" class="btn btn-primary btn-sm">Send To QB</button>
</li> </li>
<li class="nav-item"> <li class="nav-item">
......
kgOrdersClient/View.OrderEntryCorrugated.pas
...@@ -811,8 +811,10 @@ begin ...@@ -811,8 +811,10 @@ begin
xdwdsQBItem.SetJsonData(items['data']); xdwdsQBItem.SetJsonData(items['data']);
xdwdsQBITEM.Open; xdwdsQBITEM.Open;
xdwdsQBItem.Locate('name', wdbcbQuickbooksItem.Text , []);
wdbcbQuickbooksItem.Text := xdwdsQBItem.FieldByName('name').AsString;
edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString + edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString +
' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString; ' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString;
except except
on E: EXDataClientRequestException do on E: EXDataClientRequestException do
Utils.ShowErrorModal(E.ErrorResult.ErrorMessage); Utils.ShowErrorModal(E.ErrorResult.ErrorMessage);
...@@ -976,6 +978,8 @@ end; ...@@ -976,6 +978,8 @@ end;
procedure TFOrderEntryCorrugated.wdbcbQuickbooksItemChange(Sender: TObject); procedure TFOrderEntryCorrugated.wdbcbQuickbooksItemChange(Sender: TObject);
begin begin
xdwdsQBItem.Locate('name', wdbcbQuickbooksItem.Text , []);
wdbcbQuickbooksItem.Text := xdwdsQBItem.FieldByName('name').AsString;
edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString + edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString +
' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString; ' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString;
end; end;
......
kgOrdersClient/View.OrderEntryCuttingDie.dfm
...@@ -210,21 +210,6 @@ object FOrderEntryCuttingDie: TFOrderEntryCuttingDie ...@@ -210,21 +210,6 @@ object FOrderEntryCuttingDie: TFOrderEntryCuttingDie
DataField = 'NAME' DataField = 'NAME'
DataSource = wdsOrder DataSource = wdsOrder
end end
object wcbQBItem: TWebDBComboBox
Left = 26
Top = 487
Width = 145
Height = 23
ElementID = 'wcbqbitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnChange = wcbQBItemChange
ItemIndex = -1
DataField = 'staff_fields_quickbooks_item'
DataSource = wdsOrder
ListField = 'name'
ListSource = wdsQBItem
end
object btnPDF: TWebButton object btnPDF: TWebButton
Left = 742 Left = 742
Top = 417 Top = 417
...@@ -406,6 +391,21 @@ object FOrderEntryCuttingDie: TFOrderEntryCuttingDie ...@@ -406,6 +391,21 @@ object FOrderEntryCuttingDie: TFOrderEntryCuttingDie
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
end end
object wcbQBItem: TWebDBComboBox
Left = 26
Top = 491
Width = 145
Height = 23
ElementID = 'wcbqbitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnChange = wcbQBItemChange
ItemIndex = -1
DataField = 'staff_fields_quickbooks_item'
DataSource = wdsOrder
ListField = 'name'
ListSource = wdsQBItem
end
object wdsOrder: TWebDataSource object wdsOrder: TWebDataSource
AutoEdit = False AutoEdit = False
DataSet = xdwdsOrder DataSet = xdwdsOrder
......
kgOrdersClient/View.OrderEntryCuttingDie.html
...@@ -66,7 +66,7 @@ ...@@ -66,7 +66,7 @@
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">QB Order Number:</label> <label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">QB Order Number:</label>
<input id="edtqbordernum"type="text" class="form-control" style="width: 150px" required/> <input id="edtqbordernum"type="text" class="form-control" style="width: 150px"/>
</div> </div>
</div> </div>
<h4 class="custom-h4 mt-3">Staff Fields</h4> <h4 class="custom-h4 mt-3">Staff Fields</h4>
......
kgOrdersClient/View.OrderEntryCuttingDie.pas
...@@ -53,7 +53,6 @@ type ...@@ -53,7 +53,6 @@ type
wdsQBItem: TWebDataSource; wdsQBItem: TWebDataSource;
xdwdsQBItem: TXDataWebDataSet; xdwdsQBItem: TXDataWebDataSet;
xdwdsQBItemname: TStringField; xdwdsQBItemname: TStringField;
wcbQBItem: TWebDBComboBox;
btnPDF: TWebButton; btnPDF: TWebButton;
btnDelete: TWebButton; btnDelete: TWebButton;
btnClose: TWebButton; btnClose: TWebButton;
...@@ -79,6 +78,7 @@ type ...@@ -79,6 +78,7 @@ type
xdwdsOrderQB_LIST_ID: TStringField; xdwdsOrderQB_LIST_ID: TStringField;
xdwdsQBItemdescription: TStringField; xdwdsQBItemdescription: TStringField;
edtQBItemDescription: TWebEdit; edtQBItemDescription: TWebEdit;
wcbQBItem: TWebDBComboBox;
procedure btnSaveClick(Sender: TObject); procedure btnSaveClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject); procedure btnCancelClick(Sender: TObject);
procedure WebFormCreate(Sender: TObject); procedure WebFormCreate(Sender: TObject);
...@@ -275,101 +275,6 @@ begin ...@@ -275,101 +275,6 @@ begin
); );
end; end;
function TFOrderEntryCuttingDie.VerifyOrder: Boolean;
var
input: TJSHTMLInputElement;
begin
result := true;
input := TJSHTMLInputElement(document.getElementById('edtcompanyname'));
if edtCompanyName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtjobname'));
if edtJobName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtaccountcompanyname'));
if edtCompanyAccountName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtinvoiceto'));
if edtInvoiceTo.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('wcbshipto'));
if wdbcbShipTo.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('dtporderdate'));
if dtpOrderDate.Date = 0 then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtprice'));
if edtPrice.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtquantity'));
if edtQuantity.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('wcbqbitem'));
if wcbQBItem.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
end;
procedure TFOrderEntryCuttingDie.btnSaveClick(Sender: TObject); procedure TFOrderEntryCuttingDie.btnSaveClick(Sender: TObject);
// Converts all the information on the page into a JSON to then send to the server // Converts all the information on the page into a JSON to then send to the server
begin begin
...@@ -515,7 +420,6 @@ begin ...@@ -515,7 +420,6 @@ begin
xdwdsOrder.SetJsonData(jsObj); xdwdsOrder.SetJsonData(jsObj);
xdwdsOrder.Open; xdwdsOrder.Open;
//edtOrderNum.Text := xdwdsOrder.FieldByName('ORDER_ID').AsString;
mode := 'EDIT'; mode := 'EDIT';
ShowToast(String(jsObj.Properties['status'])); ShowToast(String(jsObj.Properties['status']));
except except
...@@ -641,8 +545,10 @@ begin ...@@ -641,8 +545,10 @@ begin
xdwdsQBItem.SetJsonData(items['data']); xdwdsQBItem.SetJsonData(items['data']);
xdwdsQBITEM.Open; xdwdsQBITEM.Open;
xdwdsQBItem.Locate('name', wcbQBItem.Text , []);
wcbQBItem.Text := xdwdsQBItem.FieldByName('name').AsString;
edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString + edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString +
' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString; ' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString;
except except
on E: EXDataClientRequestException do on E: EXDataClientRequestException do
...@@ -702,6 +608,7 @@ end; ...@@ -702,6 +608,7 @@ end;
procedure TFOrderEntryCuttingDie.EditMode; procedure TFOrderEntryCuttingDie.EditMode;
begin begin
xdwdsOrder.Edit; xdwdsOrder.Edit;
xdwdsQBItem.Edit;
FViewMain.change := true; FViewMain.change := true;
btnCopy.Enabled := false; btnCopy.Enabled := false;
btnPDF.Enabled := false; btnPDF.Enabled := false;
...@@ -745,10 +652,106 @@ end; ...@@ -745,10 +652,106 @@ end;
procedure TFOrderEntryCuttingDie.wcbQBItemChange(Sender: TObject); procedure TFOrderEntryCuttingDie.wcbQBItemChange(Sender: TObject);
begin begin
xdwdsQBItem.Locate('name', wcbQBItem.Text , []);
wcbQBItem.Text := xdwdsQBItem.FieldByName('name').AsString;
edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString + edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString +
' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString; ' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString;
end; end;
function TFOrderEntryCuttingDie.VerifyOrder: Boolean;
var
input: TJSHTMLInputElement;
begin
result := true;
input := TJSHTMLInputElement(document.getElementById('edtcompanyname'));
if edtCompanyName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtjobname'));
if edtJobName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtaccountcompanyname'));
if edtCompanyAccountName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtinvoiceto'));
if edtInvoiceTo.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('wcbshipto'));
if wdbcbShipTo.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('dtporderdate'));
if dtpOrderDate.Date = 0 then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtprice'));
if edtPrice.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtquantity'));
if edtQuantity.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('wcbqbitem'));
if wcbQBItem.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
end;
function TFOrderEntryCuttingDie.VerifyQBOrder: Boolean; function TFOrderEntryCuttingDie.VerifyQBOrder: Boolean;
var var
msg, SQL: string; msg, SQL: string;
......
kgOrdersClient/View.OrderEntryWeb.dfm
...@@ -136,7 +136,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -136,7 +136,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
WidthStyle = ssAuto WidthStyle = ssAuto
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'NAME' DataField = 'NAME'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtCompanyAccountName: TWebDBEdit object edtCompanyAccountName: TWebDBEdit
Left = 24 Left = 24
...@@ -151,97 +151,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -151,97 +151,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'SHORT_NAME' DataField = 'SHORT_NAME'
DataSource = WebDataSource1 DataSource = wdsOrder
end
object edtInQuickBooks: TWebDBEdit
Left = 26
Top = 148
Width = 121
Height = 23
TabStop = False
AutoSize = True
ChildOrder = 79
ElementID = 'edtinquickbooks'
HeightPercent = 100.000000000000000000
ShowFocus = False
WidthPercent = 100.000000000000000000
DataField = 'inQuickBooks'
DataSource = WebDataSource1
end
object dtpOrderDate: TWebDateTimePicker
Left = 24
Top = 215
Width = 170
Height = 22
ElementID = 'dtporderdate'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpProofDate: TWebDateTimePicker
Left = 22
Top = 250
Width = 170
Height = 22
ElementID = 'dtpproofdate'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpShipDate: TWebDateTimePicker
Left = 22
Top = 282
Width = 170
Height = 22
ElementID = 'dtpshipdate'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpArtDue: TWebDateTimePicker
Left = 24
Top = 544
Width = 170
Height = 22
ElementID = 'dtpartdue'
BorderStyle = bsSingle
ChildOrder = 17
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpPlateDue: TWebDateTimePicker
Left = 24
Top = 568
Width = 170
Height = 22
ElementID = 'dtpplatedue'
BorderStyle = bsSingle
ChildOrder = 17
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end end
object edtShipVia: TWebDBEdit object edtShipVia: TWebDBEdit
Left = 24 Left = 24
...@@ -256,7 +166,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -256,7 +166,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via' DataField = 'staff_fields_ship_via'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtQuantity: TWebDBEdit object edtQuantity: TWebDBEdit
Left = 24 Left = 24
...@@ -271,7 +181,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -271,7 +181,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'staff_fields_quantity' DataField = 'staff_fields_quantity'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtPrice: TWebDBEdit object edtPrice: TWebDBEdit
Left = 26 Left = 26
...@@ -285,7 +195,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -285,7 +195,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'staff_fields_price' DataField = 'staff_fields_price'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtInvoiceTo: TWebDBEdit object edtInvoiceTo: TWebDBEdit
Left = 26 Left = 26
...@@ -300,7 +210,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -300,7 +210,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'staff_fields_invoice_to' DataField = 'staff_fields_invoice_to'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtPONumber: TWebDBEdit object edtPONumber: TWebDBEdit
Left = 26 Left = 26
...@@ -315,7 +225,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -315,7 +225,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'staff_fields_po_number' DataField = 'staff_fields_po_number'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtJobName: TWebDBEdit object edtJobName: TWebDBEdit
Left = 30 Left = 30
...@@ -329,10 +239,11 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -329,10 +239,11 @@ object FOrderEntryWeb: TFOrderEntryWeb
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
OnExit = edtJobNameExit
DataField = 'staff_fields_job_name' DataField = 'staff_fields_job_name'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object WebDBComboBox1: TWebDBComboBox object wdbcbShipTo: TWebDBComboBox
Left = 26 Left = 26
Top = 429 Top = 429
Width = 145 Width = 145
...@@ -344,7 +255,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -344,7 +255,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
ItemIndex = -1 ItemIndex = -1
DataField = 'staff_fields_ship_to' DataField = 'staff_fields_ship_to'
DataSource = WebDataSource1 DataSource = wdsOrder
ListField = 'ADDRESS' ListField = 'ADDRESS'
ListSource = wdsShipTo ListSource = wdsShipTo
end end
...@@ -361,7 +272,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -361,7 +272,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_b_w_or_co' DataField = 'supplied_by_customer_b_w_or_co'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtPlates: TWebDBEdit object edtPlates: TWebDBEdit
Left = 276 Left = 276
...@@ -376,7 +287,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -376,7 +287,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_plates' DataField = 'supplied_by_customer_plates'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtDimensionalLayout: TWebDBEdit object edtDimensionalLayout: TWebDBEdit
Left = 276 Left = 276
...@@ -391,7 +302,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -391,7 +302,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_dimension' DataField = 'supplied_by_customer_dimension'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtSample: TWebDBEdit object edtSample: TWebDBEdit
Left = 276 Left = 276
...@@ -406,7 +317,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -406,7 +317,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_sample' DataField = 'supplied_by_customer_sample'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtOther: TWebDBEdit object edtOther: TWebDBEdit
Left = 276 Left = 276
...@@ -421,7 +332,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -421,7 +332,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_other' DataField = 'supplied_by_customer_other'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtEmail: TWebDBEdit object edtEmail: TWebDBEdit
Left = 276 Left = 276
...@@ -436,7 +347,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -436,7 +347,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_e_mail' DataField = 'supplied_by_customer_e_mail'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtTotalInchesUsed: TWebDBEdit object edtTotalInchesUsed: TWebDBEdit
Left = 276 Left = 276
...@@ -451,7 +362,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -451,7 +362,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_total_inc' DataField = 'supplied_by_customer_total_inc'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtFTP: TWebDBEdit object edtFTP: TWebDBEdit
Left = 276 Left = 276
...@@ -466,7 +377,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -466,7 +377,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_ftp' DataField = 'supplied_by_customer_ftp'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtSheetsUsed: TWebDBEdit object edtSheetsUsed: TWebDBEdit
Left = 276 Left = 276
...@@ -481,7 +392,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -481,7 +392,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_sheets_us' DataField = 'supplied_by_customer_sheets_us'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtInitials: TWebDBEdit object edtInitials: TWebDBEdit
Left = 276 Left = 276
...@@ -496,7 +407,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -496,7 +407,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'supplied_by_customer_initials' DataField = 'supplied_by_customer_initials'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object cbPDF: TWebDBCheckBox object cbPDF: TWebDBCheckBox
Left = 444 Left = 444
...@@ -512,7 +423,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -512,7 +423,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofing_pdf' DataField = 'proofing_pdf'
DataSource = WebDataSource1 DataSource = wdsOrder
ValueChecked = 'T' ValueChecked = 'T'
end end
object edtPDFTo: TWebDBEdit object edtPDFTo: TWebDBEdit
...@@ -528,52 +439,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -528,52 +439,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofing_pdf_to' DataField = 'proofing_pdf_to'
DataSource = WebDataSource1 DataSource = wdsOrder
end
object dtpPDFDate1: TWebDateTimePicker
Left = 444
Top = 157
Width = 170
Height = 22
ElementID = 'dtppdfdate1'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpPDFDate3: TWebDateTimePicker
Left = 444
Top = 206
Width = 170
Height = 22
ElementID = 'dtppdfdate3'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpPDFDate2: TWebDateTimePicker
Left = 444
Top = 181
Width = 170
Height = 22
ElementID = 'dtppdfdate2'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end end
object cbInkJet: TWebDBCheckBox object cbInkJet: TWebDBCheckBox
Left = 444 Left = 444
...@@ -589,7 +455,9 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -589,7 +455,9 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofing_full_size_ink_jet_for' DataField = 'proofing_full_size_ink_jet_for'
DataSource = WebDataSource1 DataSource = wdsOrder
ValueChecked = 'T'
ValueUnChecked = 'F'
end end
object edtInkJetTo2: TWebDBEdit object edtInkJetTo2: TWebDBEdit
Left = 444 Left = 444
...@@ -604,7 +472,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -604,7 +472,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofing_ink_jet_to_2' DataField = 'proofing_ink_jet_to_2'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtInkJetTo1: TWebDBEdit object edtInkJetTo1: TWebDBEdit
Left = 444 Left = 444
...@@ -619,52 +487,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -619,52 +487,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofing_ink_jet_to' DataField = 'proofing_ink_jet_to'
DataSource = WebDataSource1 DataSource = wdsOrder
end
object dtpInkJetDate1: TWebDateTimePicker
Left = 444
Top = 329
Width = 170
Height = 22
ElementID = 'dtpinkjetdate1'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpInkJetDate3: TWebDateTimePicker
Left = 444
Top = 378
Width = 170
Height = 22
ElementID = 'dtpinkjetdate3'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpInkJetDate2: TWebDateTimePicker
Left = 444
Top = 353
Width = 170
Height = 22
ElementID = 'dtpinkjetdate2'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end end
object edtColorContrastTo: TWebDBEdit object edtColorContrastTo: TWebDBEdit
Left = 444 Left = 444
...@@ -679,37 +502,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -679,37 +502,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofing_color_contrac_to' DataField = 'proofing_color_contrac_to'
DataSource = WebDataSource1 DataSource = wdsOrder
end
object dtpColorContractDate1: TWebDateTimePicker
Left = 444
Top = 464
Width = 170
Height = 22
ElementID = 'dtpcolorcontrastdate1'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end
object dtpColorContractDate2: TWebDateTimePicker
Left = 444
Top = 488
Width = 170
Height = 22
ElementID = 'dtpcolorcontrastdate2'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end end
object edtDigitalColorTo: TWebDBEdit object edtDigitalColorTo: TWebDBEdit
Left = 444 Left = 444
...@@ -724,7 +517,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -724,7 +517,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofing_digital_color_to' DataField = 'proofing_digital_color_to'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtDigitalColorKey: TWebDBEdit object edtDigitalColorKey: TWebDBEdit
Left = 444 Left = 444
...@@ -739,22 +532,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -739,22 +532,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofing_digital_color_key' DataField = 'proofing_digital_color_key'
DataSource = WebDataSource1 DataSource = wdsOrder
end
object dtpDigitalColorDate: TWebDateTimePicker
Left = 444
Top = 578
Width = 170
Height = 22
ElementID = 'dtpdigitalcolordate'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45638.529943136570000000
Role = ''
ShowFocus = False
TabStop = False
Text = ''
end end
object edtAniloxInfo: TWebDBEdit object edtAniloxInfo: TWebDBEdit
Left = 634 Left = 634
...@@ -769,7 +547,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -769,7 +547,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'quantity_and_colors_anilox_info' DataField = 'quantity_and_colors_anilox_info'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtPressName: TWebDBEdit object edtPressName: TWebDBEdit
Left = 634 Left = 634
...@@ -784,7 +562,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -784,7 +562,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'quantity_and_colors_press_name' DataField = 'quantity_and_colors_press_name'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object WebButton1: TWebButton object WebButton1: TWebButton
Left = 634 Left = 634
...@@ -812,7 +590,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -812,7 +590,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plate_marks_microdots' DataField = 'plate_marks_microdots'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtMicrodotsComments: TWebDBEdit object edtMicrodotsComments: TWebDBEdit
Left = 634 Left = 634
...@@ -827,7 +605,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -827,7 +605,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plate_marks_microdots_comments' DataField = 'plate_marks_microdots_comments'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtCrosshairsComments: TWebDBEdit object edtCrosshairsComments: TWebDBEdit
Left = 634 Left = 634
...@@ -842,7 +620,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -842,7 +620,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plate_marks_crosshairs_comments' DataField = 'plate_marks_crosshairs_comments'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtCrosshairs: TWebDBEdit object edtCrosshairs: TWebDBEdit
Left = 634 Left = 634
...@@ -857,7 +635,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -857,7 +635,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plate_marks_crosshairs' DataField = 'plate_marks_crosshairs'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtColorBarsComments: TWebDBEdit object edtColorBarsComments: TWebDBEdit
Left = 634 Left = 634
...@@ -872,7 +650,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -872,7 +650,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plate_marks_color_bars_comments' DataField = 'plate_marks_color_bars_comments'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtColorBars: TWebDBEdit object edtColorBars: TWebDBEdit
Left = 634 Left = 634
...@@ -887,7 +665,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -887,7 +665,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plate_marks_color_bars' DataField = 'plate_marks_color_bars'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtPlateOther: TWebDBEdit object edtPlateOther: TWebDBEdit
Left = 634 Left = 634
...@@ -902,7 +680,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -902,7 +680,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plate_marks_other' DataField = 'plate_marks_other'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtPlateOtherComments: TWebDBEdit object edtPlateOtherComments: TWebDBEdit
Left = 634 Left = 634
...@@ -917,7 +695,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -917,7 +695,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plate_marks_other_comments' DataField = 'plate_marks_other_comments'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtAround: TWebDBEdit object edtAround: TWebDBEdit
Left = 782 Left = 782
...@@ -932,7 +710,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -932,7 +710,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_around' DataField = 'layout_around'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtAccross: TWebDBEdit object edtAccross: TWebDBEdit
Left = 782 Left = 782
...@@ -947,7 +725,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -947,7 +725,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_accross' DataField = 'layout_accross'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtReversePrint: TWebDBEdit object edtReversePrint: TWebDBEdit
Left = 782 Left = 782
...@@ -962,7 +740,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -962,7 +740,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_reverse_print' DataField = 'layout_reverse_print'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtSurfacePrint: TWebDBEdit object edtSurfacePrint: TWebDBEdit
Left = 782 Left = 782
...@@ -977,7 +755,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -977,7 +755,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_surface_print' DataField = 'layout_surface_print'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtCutoffDimension: TWebDBEdit object edtCutoffDimension: TWebDBEdit
Left = 782 Left = 782
...@@ -992,7 +770,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -992,7 +770,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_cutoff_dimension' DataField = 'layout_cutoff_dimension'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtCylinderRepeat: TWebDBEdit object edtCylinderRepeat: TWebDBEdit
Left = 782 Left = 782
...@@ -1007,7 +785,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1007,7 +785,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_cylinder_repeat' DataField = 'layout_cylinder_repeat'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtPitch: TWebDBEdit object edtPitch: TWebDBEdit
Left = 782 Left = 782
...@@ -1022,7 +800,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1022,7 +800,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_pitch' DataField = 'layout_pitch'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtBleed: TWebDBEdit object edtBleed: TWebDBEdit
Left = 782 Left = 782
...@@ -1037,7 +815,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1037,7 +815,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_bleed' DataField = 'layout_bleed'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtTeeth: TWebDBEdit object edtTeeth: TWebDBEdit
Left = 782 Left = 782
...@@ -1052,7 +830,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1052,7 +830,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_teeth' DataField = 'layout_teeth'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtCutback: TWebDBEdit object edtCutback: TWebDBEdit
Left = 782 Left = 782
...@@ -1067,7 +845,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1067,7 +845,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_cutback' DataField = 'layout_cutback'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtMinimumTrapDim: TWebDBEdit object edtMinimumTrapDim: TWebDBEdit
Left = 782 Left = 782
...@@ -1082,7 +860,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1082,7 +860,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_minimum_trap_dim' DataField = 'layout_minimum_trap_dim'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtMaximumTrapDim: TWebDBEdit object edtMaximumTrapDim: TWebDBEdit
Left = 782 Left = 782
...@@ -1097,7 +875,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1097,7 +875,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'layout_maximum_trap_dim' DataField = 'layout_maximum_trap_dim'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtSize: TWebDBEdit object edtSize: TWebDBEdit
Left = 782 Left = 782
...@@ -1112,7 +890,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1112,7 +890,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'upc_size' DataField = 'upc_size'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtBarWidthReduction: TWebDBEdit object edtBarWidthReduction: TWebDBEdit
Left = 782 Left = 782
...@@ -1127,7 +905,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1127,7 +905,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'upc_bar_width_reduction' DataField = 'upc_bar_width_reduction'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtDistortionAmount: TWebDBEdit object edtDistortionAmount: TWebDBEdit
Left = 782 Left = 782
...@@ -1142,7 +920,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1142,7 +920,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'upc_distortion_amount' DataField = 'upc_distortion_amount'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtDistortionPercent: TWebDBEdit object edtDistortionPercent: TWebDBEdit
Left = 782 Left = 782
...@@ -1157,7 +935,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1157,7 +935,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'upc_distortion_percent' DataField = 'upc_distortion_percent'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object edtJobNumber: TWebDBEdit object edtJobNumber: TWebDBEdit
Left = 634 Left = 634
...@@ -1172,7 +950,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1172,7 +950,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plates_job_number' DataField = 'plates_job_number'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object Comments: TWebDBEdit object Comments: TWebDBEdit
Left = 276 Left = 276
...@@ -1187,7 +965,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1187,7 +965,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ShowFocus = False ShowFocus = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'general_comments' DataField = 'general_comments'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object btnSave: TWebButton object btnSave: TWebButton
Left = 649 Left = 649
...@@ -1228,22 +1006,6 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1228,22 +1006,6 @@ object FOrderEntryWeb: TFOrderEntryWeb
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
OnClick = btnCancelClick OnClick = btnCancelClick
end end
object wcbQBItem: TWebDBComboBox
Left = 26
Top = 515
Width = 145
Height = 23
ElementID = 'wcbqbitem'
HeightPercent = 100.000000000000000000
ShowFocus = False
TabStop = False
WidthPercent = 100.000000000000000000
ItemIndex = -1
DataField = 'staff_fields_quickbooks_item'
DataSource = WebDataSource1
ListField = 'name'
ListSource = wdsQBItem
end
object WebDBComboBox2: TWebDBComboBox object WebDBComboBox2: TWebDBComboBox
Left = 631 Left = 631
Top = 487 Top = 487
...@@ -1259,7 +1021,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1259,7 +1021,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
'PhotoPolymer' 'PhotoPolymer'
'Rubber') 'Rubber')
DataField = 'plates_plate_material' DataField = 'plates_plate_material'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object WebDBComboBox3: TWebDBComboBox object WebDBComboBox3: TWebDBComboBox
Left = 631 Left = 631
...@@ -1279,7 +1041,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1279,7 +1041,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
'.067' '.067'
'.045') '.045')
DataField = 'plates_thickness' DataField = 'plates_thickness'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object wcbPrint: TWebDBComboBox object wcbPrint: TWebDBComboBox
Left = 621 Left = 621
...@@ -1296,7 +1058,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1296,7 +1058,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
'Portrait' 'Portrait'
'Landscape') 'Landscape')
DataField = 'print_orientation_print_orient' DataField = 'print_orientation_print_orient'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object WebDBComboBox4: TWebDBComboBox object WebDBComboBox4: TWebDBComboBox
Left = 444 Left = 444
...@@ -1313,7 +1075,7 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1313,7 +1075,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
'Cromapro Ink Jet' 'Cromapro Ink Jet'
'Kodak Approval') 'Kodak Approval')
DataField = 'proofing_color_contract' DataField = 'proofing_color_contract'
DataSource = WebDataSource1 DataSource = wdsOrder
end end
object btnCopy: TWebButton object btnCopy: TWebButton
Left = 751 Left = 751
...@@ -1354,19 +1116,6 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1354,19 +1116,6 @@ object FOrderEntryWeb: TFOrderEntryWeb
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
OnClick = btnCloseClick OnClick = btnCloseClick
end end
object edtOrderNum: TWebEdit
Left = 126
Top = 194
Width = 121
Height = 22
TabStop = False
ChildOrder = 81
ElementID = 'edtordernum'
Enabled = False
HeightPercent = 100.000000000000000000
ShowFocus = False
WidthPercent = 100.000000000000000000
end
object btnEdit: TWebButton object btnEdit: TWebButton
Left = 1165 Left = 1165
Top = 560 Top = 560
...@@ -1406,276 +1155,556 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1406,276 +1155,556 @@ object FOrderEntryWeb: TFOrderEntryWeb
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
OnClick = WebButton2Click OnClick = WebButton2Click
end end
object dtpOrderDate: TWebDBDateTimePicker
Left = 26
Top = 215
Width = 170
Height = 22
ElementID = 'dtporderdate'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'staff_fields_order_date'
DataSource = wdsOrder
end
object dtpProofDate: TWebDBDateTimePicker
Left = 26
Top = 249
Width = 170
Height = 22
ElementID = 'dtpproofdate'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'staff_fields_proof_date'
DataSource = wdsOrder
end
object dtpShipDate: TWebDBDateTimePicker
Left = 26
Top = 281
Width = 170
Height = 22
ElementID = 'dtpshipdate'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'staff_fields_ship_date'
DataSource = wdsOrder
end
object dtpPlateDue: TWebDBDateTimePicker
Left = 26
Top = 578
Width = 170
Height = 22
ElementID = 'dtpplatedue'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'staff_fields_plate_due'
DataSource = wdsOrder
end
object dtpPDFDate3: TWebDBDateTimePicker
Left = 436
Top = 207
Width = 170
Height = 22
ElementID = 'dtpartdue'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'staff_fields_art_due'
DataSource = wdsOrder
end
object dtpPDFDate2: TWebDBDateTimePicker
Left = 436
Top = 183
Width = 170
Height = 22
ElementID = 'dtppdfdate2'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'proofing_pdf_date_2'
DataSource = wdsOrder
end
object dtpPDFDate1: TWebDBDateTimePicker
Left = 436
Top = 155
Width = 170
Height = 22
ElementID = 'dtppdfdate1'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'proofing_pdf_date_1'
DataSource = wdsOrder
end
object dtpInkJetDate3: TWebDBDateTimePicker
Left = 438
Top = 380
Width = 170
Height = 22
ElementID = 'dtpinkjetdate3'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'proofing_ink_jet_date_3'
DataSource = wdsOrder
end
object dtpInkJetDate2: TWebDBDateTimePicker
Left = 438
Top = 352
Width = 170
Height = 22
ElementID = 'dtpinkjetdate2'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'proofing_ink_jet_date_2'
DataSource = wdsOrder
end
object dtpInkJetDate1: TWebDBDateTimePicker
Left = 440
Top = 324
Width = 170
Height = 22
ElementID = 'dtpinkjetdate1'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'proofing_ink_jet_date_1'
DataSource = wdsOrder
end
object dtpColorContractDate2: TWebDBDateTimePicker
Left = 440
Top = 492
Width = 170
Height = 22
ElementID = 'dtpcolorcontrastdate2'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'proofing_color_contrac_date_2'
DataSource = wdsOrder
end
object dtpColorContractDate1: TWebDBDateTimePicker
Left = 438
Top = 464
Width = 170
Height = 22
ElementID = 'dtpcolorcontrastdate1'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'proofing_color_contrac_date_1'
DataSource = wdsOrder
end
object dtpDigitalColorDate: TWebDBDateTimePicker
Left = 440
Top = 574
Width = 170
Height = 22
ElementID = 'dtpdigitalcolordate'
BorderStyle = bsSingle
ChildOrder = 95
Color = clWhite
Date = 45867.392311898150000000
Role = ''
Text = ''
DataField = 'proofing_digital_color_date_1'
DataSource = wdsOrder
end
object edtQBOrderNum: TWebDBEdit
Left = 153
Top = 151
Width = 121
Height = 23
AutoCompletion = acNope
AutoSize = True
ChildOrder = 79
ElementID = 'edtqbordernum'
Enabled = False
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'QB_ORDER_NUM'
DataSource = wdsOrder
end
object wdbcbINQB: TWebDBCheckBox
Left = 28
Top = 151
Width = 113
Height = 22
Caption = 'In Quickbooks?'
ChildOrder = 29
ElementID = 'wdbcbinqb'
Enabled = False
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'IN_QB'
DataSource = wdsOrder
ValueChecked = 'T'
ValueUnChecked = 'F'
end
object edtQBItemDescription: TWebEdit
Left = 28
Top = 550
Width = 121
Height = 22
ChildOrder = 31
ElementID = 'edtitemdescription'
Enabled = False
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtOrderNum: TWebDBEdit
Left = 103
Top = 185
Width = 121
Height = 22
ChildOrder = 30
ElementID = 'edtordernum'
Enabled = False
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'ORDER_ID'
DataSource = wdsOrder
end
object wcbQBItem: TWebDBComboBox
Left = 26
Top = 521
Width = 145
Height = 23
ElementID = 'wcbqbitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnChange = wcbQBItemChange
ItemIndex = -1
DataField = 'staff_fields_quickbooks_item'
DataSource = wdsOrder
ListField = 'name'
ListSource = wdsQBItem
end
object btnQB: TWebButton
Left = 930
Top = 520
Width = 96
Height = 25
Caption = 'Send To QB'
ChildOrder = 30
ElementID = 'btnsendtoqb'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnQBClick
end
object XDataWebClient1: TXDataWebClient object XDataWebClient1: TXDataWebClient
Connection = DMConnection.ApiConnection Connection = DMConnection.ApiConnection
Left = 160 Left = 160
Top = 18 Top = 18
end end
object XDataWebDataSet1: TXDataWebDataSet object xdwdsOrder: TXDataWebDataSet
Connection = DMConnection.ApiConnection Connection = DMConnection.ApiConnection
Left = 434 Left = 434
Top = 4 Top = 4
object XDataWebDataSet1ORDER_ID: TIntegerField object xdwdsOrderORDER_ID: TIntegerField
FieldName = 'ORDER_ID' FieldName = 'ORDER_ID'
end end
object XDataWebDataSet1COMPANY_ID: TIntegerField object xdwdsOrderCOMPANY_ID: TIntegerField
FieldName = 'COMPANY_ID' FieldName = 'COMPANY_ID'
end end
object XDataWebDataSet1USER_ID: TIntegerField object xdwdsOrderUSER_ID: TIntegerField
FieldName = 'USER_ID' FieldName = 'USER_ID'
end end
object XDataWebDataSet1ORDER_DATE: TDateField object xdwdsOrderORDER_DATE: TDateField
FieldName = 'ORDER_DATE' FieldName = 'ORDER_DATE'
end end
object XDataWebDataSet1NAME: TStringField object xdwdsOrderNAME: TStringField
FieldName = 'NAME' FieldName = 'NAME'
end end
object XDataWebDataSet1SHORT_NAME: TStringField object xdwdsOrderSHORT_NAME: TStringField
FieldName = 'SHORT_NAME' FieldName = 'SHORT_NAME'
end end
object XDataWebDataSet1staff_fields_ship_via: TStringField object xdwdsOrderstaff_fields_ship_via: TStringField
FieldName = 'staff_fields_ship_via' FieldName = 'staff_fields_ship_via'
end end
object XDataWebDataSet1staff_fields_price: TStringField object xdwdsOrderstaff_fields_price: TStringField
FieldName = 'staff_fields_price' FieldName = 'staff_fields_price'
end end
object XDataWebDataSet1staff_fields_invoice_to: TStringField object xdwdsOrderstaff_fields_invoice_to: TStringField
FieldName = 'staff_fields_invoice_to' FieldName = 'staff_fields_invoice_to'
end end
object XDataWebDataSet1staff_fields_invoice_attention: TStringField object xdwdsOrderstaff_fields_invoice_attention: TStringField
FieldName = 'staff_fields_invoice_attention' FieldName = 'staff_fields_invoice_attention'
end end
object XDataWebDataSet1staff_fields_ship_to: TStringField object xdwdsOrderstaff_fields_ship_to: TStringField
FieldName = 'staff_fields_ship_to' FieldName = 'staff_fields_ship_to'
end end
object XDataWebDataSet1staff_fields_ship_attention: TStringField object xdwdsOrderstaff_fields_ship_attention: TStringField
FieldName = 'staff_fields_ship_attention' FieldName = 'staff_fields_ship_attention'
end end
object XDataWebDataSet1staff_fields_po_number: TStringField object xdwdsOrderstaff_fields_po_number: TStringField
FieldName = 'staff_fields_po_number' FieldName = 'staff_fields_po_number'
end end
object XDataWebDataSet1staff_fields_job_name: TStringField object xdwdsOrderstaff_fields_job_name: TStringField
FieldName = 'staff_fields_job_name' FieldName = 'staff_fields_job_name'
end end
object XDataWebDataSet1staff_fields_quickbooks_item: TStringField object xdwdsOrderstaff_fields_quickbooks_item: TStringField
FieldName = 'staff_fields_quickbooks_item' FieldName = 'staff_fields_quickbooks_item'
end end
object XDataWebDataSet1staff_fields_quantity: TStringField object xdwdsOrderstaff_fields_quantity: TStringField
FieldName = 'staff_fields_quantity' FieldName = 'staff_fields_quantity'
end end
object XDataWebDataSet1staff_fields_art_location: TStringField object xdwdsOrderstaff_fields_art_location: TStringField
FieldName = 'staff_fields_art_location' FieldName = 'staff_fields_art_location'
end end
object XDataWebDataSet1staff_fields_order_date: TStringField object xdwdsOrderstaff_fields_order_date: TStringField
FieldName = 'staff_fields_order_date' FieldName = 'staff_fields_order_date'
end end
object XDataWebDataSet1staff_fields_proof_date: TStringField object xdwdsOrderstaff_fields_proof_date: TStringField
FieldName = 'staff_fields_proof_date' FieldName = 'staff_fields_proof_date'
end end
object XDataWebDataSet1staff_fields_ship_date: TStringField object xdwdsOrderstaff_fields_ship_date: TStringField
FieldName = 'staff_fields_ship_date' FieldName = 'staff_fields_ship_date'
end end
object XDataWebDataSet1staff_fields_art_due: TStringField object xdwdsOrderstaff_fields_art_due: TStringField
FieldName = 'staff_fields_art_due' FieldName = 'staff_fields_art_due'
end end
object XDataWebDataSet1staff_fields_plate_due: TStringField object xdwdsOrderstaff_fields_plate_due: TStringField
FieldName = 'staff_fields_plate_due' FieldName = 'staff_fields_plate_due'
end end
object XDataWebDataSet1ADDRESS_LIST: TStringField object xdwdsOrderADDRESS_LIST: TStringField
FieldName = 'ADDRESS_LIST' FieldName = 'ADDRESS_LIST'
end end
object XDataWebDataSet1plates_job_number: TStringField object xdwdsOrderplates_job_number: TStringField
FieldName = 'plates_job_number' FieldName = 'plates_job_number'
end end
object XDataWebDataSet1supplied_by_customer_plates: TStringField object xdwdsOrdersupplied_by_customer_plates: TStringField
FieldName = 'supplied_by_customer_plates' FieldName = 'supplied_by_customer_plates'
end end
object XDataWebDataSet1supplied_by_customer_sample: TStringField object xdwdsOrdersupplied_by_customer_sample: TStringField
FieldName = 'supplied_by_customer_sample' FieldName = 'supplied_by_customer_sample'
end end
object XDataWebDataSet1supplied_by_customer_dimension: TStringField object xdwdsOrdersupplied_by_customer_dimension: TStringField
FieldName = 'supplied_by_customer_dimension' FieldName = 'supplied_by_customer_dimension'
end end
object XDataWebDataSet1supplied_by_customer_other: TStringField object xdwdsOrdersupplied_by_customer_other: TStringField
FieldName = 'supplied_by_customer_other' FieldName = 'supplied_by_customer_other'
end end
object XDataWebDataSet1supplied_by_customer_disk: TStringField object xdwdsOrdersupplied_by_customer_disk: TStringField
FieldName = 'supplied_by_customer_disk' FieldName = 'supplied_by_customer_disk'
end end
object XDataWebDataSet1supplied_by_customer_e_mail: TStringField object xdwdsOrdersupplied_by_customer_e_mail: TStringField
FieldName = 'supplied_by_customer_e_mail' FieldName = 'supplied_by_customer_e_mail'
end end
object XDataWebDataSet1supplied_by_customer_ftp: TStringField object xdwdsOrdersupplied_by_customer_ftp: TStringField
FieldName = 'supplied_by_customer_ftp' FieldName = 'supplied_by_customer_ftp'
end end
object XDataWebDataSet1plates_plate_material: TStringField object xdwdsOrderplates_plate_material: TStringField
FieldName = 'plates_plate_material' FieldName = 'plates_plate_material'
end end
object XDataWebDataSet1plates_thickness: TStringField object xdwdsOrderplates_thickness: TStringField
FieldName = 'plates_thickness' FieldName = 'plates_thickness'
end end
object XDataWebDataSet1supplied_by_customer_total_inc: TStringField object xdwdsOrdersupplied_by_customer_total_inc: TStringField
FieldName = 'supplied_by_customer_total_inc' FieldName = 'supplied_by_customer_total_inc'
end end
object XDataWebDataSet1supplied_by_customer_sheets_us: TStringField object xdwdsOrdersupplied_by_customer_sheets_us: TStringField
FieldName = 'supplied_by_customer_sheets_us' FieldName = 'supplied_by_customer_sheets_us'
end end
object XDataWebDataSet1supplied_by_customer_initials: TStringField object xdwdsOrdersupplied_by_customer_initials: TStringField
FieldName = 'supplied_by_customer_initials' FieldName = 'supplied_by_customer_initials'
end end
object XDataWebDataSet1proofing_pdf_to: TStringField object xdwdsOrderproofing_pdf_to: TStringField
FieldName = 'proofing_pdf_to' FieldName = 'proofing_pdf_to'
end end
object XDataWebDataSet1proofing_pdf_date_1: TStringField object xdwdsOrderproofing_pdf_date_1: TStringField
FieldName = 'proofing_pdf_date_1' FieldName = 'proofing_pdf_date_1'
end end
object XDataWebDataSet1proofing_pdf_date_2: TStringField object xdwdsOrderproofing_pdf_date_2: TStringField
FieldName = 'proofing_pdf_date_2' FieldName = 'proofing_pdf_date_2'
end end
object XDataWebDataSet1proofing_pdf_date_3: TStringField object xdwdsOrderproofing_pdf_date_3: TStringField
FieldName = 'proofing_pdf_date_3' FieldName = 'proofing_pdf_date_3'
end end
object XDataWebDataSet1proofing_ink_jet_to: TStringField object xdwdsOrderproofing_ink_jet_to: TStringField
FieldName = 'proofing_ink_jet_to' FieldName = 'proofing_ink_jet_to'
end end
object XDataWebDataSet1proofing_ink_jet_to_2: TStringField object xdwdsOrderproofing_ink_jet_to_2: TStringField
FieldName = 'proofing_ink_jet_to_2' FieldName = 'proofing_ink_jet_to_2'
end end
object XDataWebDataSet1proofing_ink_jet_date_1: TStringField object xdwdsOrderproofing_ink_jet_date_1: TStringField
FieldName = 'proofing_ink_jet_date_1' FieldName = 'proofing_ink_jet_date_1'
Size = 0 Size = 0
end end
object XDataWebDataSet1proofing_ink_jet_date_2: TStringField object xdwdsOrderproofing_ink_jet_date_2: TStringField
FieldName = 'proofing_ink_jet_date_2' FieldName = 'proofing_ink_jet_date_2'
end end
object XDataWebDataSet1proofing_ink_jet_date_3: TStringField object xdwdsOrderproofing_ink_jet_date_3: TStringField
FieldName = 'proofing_ink_jet_date_3' FieldName = 'proofing_ink_jet_date_3'
end end
object XDataWebDataSet1proofing_color_contract: TStringField object xdwdsOrderproofing_color_contract: TStringField
FieldName = 'proofing_color_contract' FieldName = 'proofing_color_contract'
end end
object XDataWebDataSet1proofing_color_contrac_to: TStringField object xdwdsOrderproofing_color_contrac_to: TStringField
FieldName = 'proofing_color_contrac_to' FieldName = 'proofing_color_contrac_to'
end end
object XDataWebDataSet1proofing_color_contrac_date_1: TStringField object xdwdsOrderproofing_color_contrac_date_1: TStringField
FieldName = 'proofing_color_contrac_date_1' FieldName = 'proofing_color_contrac_date_1'
end end
object XDataWebDataSet1proofing_color_contrac_date_2: TStringField object xdwdsOrderproofing_color_contrac_date_2: TStringField
FieldName = 'proofing_color_contrac_date_2' FieldName = 'proofing_color_contrac_date_2'
end end
object XDataWebDataSet1proofing_digital_color_key: TStringField object xdwdsOrderproofing_digital_color_key: TStringField
FieldName = 'proofing_digital_color_key' FieldName = 'proofing_digital_color_key'
end end
object XDataWebDataSet1proofing_digital_color_to: TStringField object xdwdsOrderproofing_digital_color_to: TStringField
FieldName = 'proofing_digital_color_to' FieldName = 'proofing_digital_color_to'
end end
object XDataWebDataSet1proofing_digital_color_date_1: TStringField object xdwdsOrderproofing_digital_color_date_1: TStringField
FieldName = 'proofing_digital_color_date_1' FieldName = 'proofing_digital_color_date_1'
Size = 0 Size = 0
end end
object XDataWebDataSet1quantity_and_colors_press_name: TStringField object xdwdsOrderquantity_and_colors_press_name: TStringField
FieldName = 'quantity_and_colors_press_name' FieldName = 'quantity_and_colors_press_name'
end end
object XDataWebDataSet1quantity_and_colors_anilox_info: TStringField object xdwdsOrderquantity_and_colors_anilox_info: TStringField
FieldName = 'quantity_and_colors_anilox_info' FieldName = 'quantity_and_colors_anilox_info'
end end
object XDataWebDataSet1plate_marks_microdots_comments: TStringField object xdwdsOrderplate_marks_microdots_comments: TStringField
FieldName = 'plate_marks_microdots_comments' FieldName = 'plate_marks_microdots_comments'
end end
object XDataWebDataSet1plate_marks_microdots: TStringField object xdwdsOrderplate_marks_microdots: TStringField
FieldName = 'plate_marks_microdots' FieldName = 'plate_marks_microdots'
end end
object XDataWebDataSet1plate_marks_crosshairs: TStringField object xdwdsOrderplate_marks_crosshairs: TStringField
FieldName = 'plate_marks_crosshairs' FieldName = 'plate_marks_crosshairs'
end end
object XDataWebDataSet1plate_marks_crosshairs_comments: TStringField object xdwdsOrderplate_marks_crosshairs_comments: TStringField
FieldName = 'plate_marks_crosshairs_comments' FieldName = 'plate_marks_crosshairs_comments'
end end
object XDataWebDataSet1plate_marks_color_bars: TStringField object xdwdsOrderplate_marks_color_bars: TStringField
FieldName = 'plate_marks_color_bars' FieldName = 'plate_marks_color_bars'
end end
object XDataWebDataSet1plate_marks_color_bars_comments: TStringField object xdwdsOrderplate_marks_color_bars_comments: TStringField
FieldName = 'plate_marks_color_bars_comments' FieldName = 'plate_marks_color_bars_comments'
end end
object XDataWebDataSet1plate_marks_other: TStringField object xdwdsOrderplate_marks_other: TStringField
FieldName = 'plate_marks_other' FieldName = 'plate_marks_other'
end end
object XDataWebDataSet1plate_marks_other_comments: TStringField object xdwdsOrderplate_marks_other_comments: TStringField
FieldName = 'plate_marks_other_comments' FieldName = 'plate_marks_other_comments'
end end
object XDataWebDataSet1print_orientation_print_orient: TStringField object xdwdsOrderprint_orientation_print_orient: TStringField
FieldName = 'print_orientation_print_orient' FieldName = 'print_orientation_print_orient'
end end
object XDataWebDataSet1layout_around: TStringField object xdwdsOrderlayout_around: TStringField
FieldName = 'layout_around' FieldName = 'layout_around'
end end
object XDataWebDataSet1layout_accross: TStringField object xdwdsOrderlayout_accross: TStringField
FieldName = 'layout_accross' FieldName = 'layout_accross'
end end
object XDataWebDataSet1layout_surface_print: TStringField object xdwdsOrderlayout_surface_print: TStringField
FieldName = 'layout_surface_print' FieldName = 'layout_surface_print'
end end
object XDataWebDataSet1layout_reverse_print: TStringField object xdwdsOrderlayout_reverse_print: TStringField
FieldName = 'layout_reverse_print' FieldName = 'layout_reverse_print'
end end
object XDataWebDataSet1layout_cylinder_repeat: TStringField object xdwdsOrderlayout_cylinder_repeat: TStringField
FieldName = 'layout_cylinder_repeat' FieldName = 'layout_cylinder_repeat'
end end
object XDataWebDataSet1layout_cutoff_dimension: TStringField object xdwdsOrderlayout_cutoff_dimension: TStringField
FieldName = 'layout_cutoff_dimension' FieldName = 'layout_cutoff_dimension'
end end
object XDataWebDataSet1layout_pitch: TStringField object xdwdsOrderlayout_pitch: TStringField
FieldName = 'layout_pitch' FieldName = 'layout_pitch'
end end
object XDataWebDataSet1layout_teeth: TStringField object xdwdsOrderlayout_teeth: TStringField
FieldName = 'layout_teeth' FieldName = 'layout_teeth'
end end
object XDataWebDataSet1layout_bleed: TStringField object xdwdsOrderlayout_bleed: TStringField
FieldName = 'layout_bleed' FieldName = 'layout_bleed'
end end
object XDataWebDataSet1layout_minimum_trap_dim: TStringField object xdwdsOrderlayout_minimum_trap_dim: TStringField
FieldName = 'layout_minimum_trap_dim' FieldName = 'layout_minimum_trap_dim'
end end
object XDataWebDataSet1layout_maximum_trap_dim: TStringField object xdwdsOrderlayout_maximum_trap_dim: TStringField
FieldName = 'layout_maximum_trap_dim' FieldName = 'layout_maximum_trap_dim'
end end
object XDataWebDataSet1upc_size: TStringField object xdwdsOrderupc_size: TStringField
FieldName = 'upc_size' FieldName = 'upc_size'
end end
object XDataWebDataSet1upc_bar_width_reduction: TStringField object xdwdsOrderupc_bar_width_reduction: TStringField
FieldName = 'upc_bar_width_reduction' FieldName = 'upc_bar_width_reduction'
end end
object XDataWebDataSet1general_comments: TStringField object xdwdsOrdergeneral_comments: TStringField
FieldName = 'general_comments' FieldName = 'general_comments'
end end
object XDataWebDataSet1upc_distortion_percent: TStringField object xdwdsOrderupc_distortion_percent: TStringField
FieldName = 'upc_distortion_percent' FieldName = 'upc_distortion_percent'
end end
object XDataWebDataSet1upc_distortion_amount: TStringField object xdwdsOrderupc_distortion_amount: TStringField
FieldName = 'upc_distortion_amount' FieldName = 'upc_distortion_amount'
end end
object XDataWebDataSet1layout_cutback: TStringField object xdwdsOrderlayout_cutback: TStringField
FieldName = 'layout_cutback' FieldName = 'layout_cutback'
end end
object XDataWebDataSet1proofing_full_size_ink_jet_for: TBooleanField object xdwdsOrderquantity_and_colors_qty_colors: TStringField
FieldName = 'quantity_and_colors_qty_colors'
end
object xdwdsOrdersupplied_by_customer_b_w_or_co: TStringField
FieldName = 'supplied_by_customer_b_w_or_co'
end
object xdwdsOrderproofing_full_size_ink_jet_for: TStringField
FieldName = 'proofing_full_size_ink_jet_for' FieldName = 'proofing_full_size_ink_jet_for'
end end
object XDataWebDataSet1proofing_pdf: TBooleanField object xdwdsOrderproofing_pdf: TStringField
FieldName = 'proofing_pdf' FieldName = 'proofing_pdf'
end end
object XDataWebDataSet1quantity_and_colors_qty_colors: TStringField object xdwdsOrderIN_QB: TStringField
FieldName = 'quantity_and_colors_qty_colors' FieldName = 'IN_QB'
end end
object XDataWebDataSet1supplied_by_customer_b_w_or_co: TStringField object xdwdsOrderQB_ORDER_NUM: TStringField
FieldName = 'supplied_by_customer_b_w_or_co' FieldName = 'QB_ORDER_NUM'
end
object XDataWebDataSet1InQuickbooks: TStringField
FieldName = 'InQuickbooks'
end end
end end
object WebDataSource1: TWebDataSource object wdsOrder: TWebDataSource
AutoEdit = False AutoEdit = False
DataSet = XDataWebDataSet1 DataSet = xdwdsOrder
Left = 398 Left = 398
Top = 56 Top = 56
end end
...@@ -1702,6 +1731,15 @@ object FOrderEntryWeb: TFOrderEntryWeb ...@@ -1702,6 +1731,15 @@ object FOrderEntryWeb: TFOrderEntryWeb
object xdwdsQBItemname: TStringField object xdwdsQBItemname: TStringField
FieldName = 'name' FieldName = 'name'
end end
object xdwdsQBItemQB_ID: TStringField
FieldName = 'QB_ID'
end
object xdwdsQBItemdescription: TStringField
FieldName = 'description'
end
object xdwdsQBItemID: TStringField
FieldName = 'ID'
end
end end
object tmrReturn: TWebTimer object tmrReturn: TWebTimer
Enabled = False Enabled = False
......
kgOrdersClient/View.OrderEntryWeb.html
...@@ -21,14 +21,17 @@ ...@@ -21,14 +21,17 @@
<button id="btndelete" class="btn btn-danger btn-sm">Delete</button> <button id="btndelete" class="btn btn-danger btn-sm">Delete</button>
</li> </li>
<li class="nav-item pe-2"> <li class="nav-item pe-2">
<button id="btnpdf" class="btn btn-primary btn-sm">PDF</button>
</li>
<li class="nav-item pe-2">
<button id="btnconfirm" class="btn btn-success btn-sm">Save</button> <button id="btnconfirm" class="btn btn-success btn-sm">Save</button>
</li> </li>
<li class="nav-item pe-2"> <li class="nav-item pe-2">
<button id="btncancel" class="btn btn-danger btn-sm">Cancel</button> <button id="btncancel" class="btn btn-danger btn-sm">Cancel</button>
</li> </li>
<li class="nav-item pe-2">
<button id="btnpdf" class="btn btn-primary btn-sm">PDF</button>
</li>
<li class="nav-item pe-2">
<button id="btnsendtoqb" class="btn btn-primary btn-sm">Send To QB</button>
</li>
<li class="nav-item"> <li class="nav-item">
<button id="btnclose" class="btn btn-primary btn-sm">Close</button> <button id="btnclose" class="btn btn-primary btn-sm">Close</button>
</li> </li>
...@@ -54,9 +57,13 @@ ...@@ -54,9 +57,13 @@
Please Provide a Customer ID. Please Provide a Customer ID.
</div> </div>
</div> </div>
<div class="col-auto d-flex flex-column">
<label for="wdbcbinqb" class="form-label mt-2" style="font-weight: 700; font-size: 15px;">In QB?:</label>
<input id="wdbcbinqb" type="checkbox" class="form-check-input mt-1">
</div>
<div class="col-auto"> <div class="col-auto">
<label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">In Quickbooks?:</label> <label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">QB Order Number:</label>
<input id="edtinquickbooks"type="text" class="form-control" style="width: 150px"/> <input id="edtqbordernum"type="text" class="form-control" style="width: 150px"/>
</div> </div>
</div> </div>
<h4 class="custom-h4 mt-3">Staff Fields</h4> <h4 class="custom-h4 mt-3">Staff Fields</h4>
...@@ -86,12 +93,18 @@ ...@@ -86,12 +93,18 @@
<input id="edtshipvia" type="text" class="form-control"/> <input id="edtshipvia" type="text" class="form-control"/>
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Quantity:</label> <label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Quantity:</label>
<input id="edtquantity" class="form-control input-sm" style="width: 100px"/> <input id="edtquantity" class="form-control input-sm" style="width: 100px" type="number" min="1" required/>
<div class="invalid-feedback" style="font-size: 15px;" required>
Please Provide a Quantity.
</div>
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Price:</label> <label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Price:</label>
<input id="edtprice" class="form-control input-sm" style="width: 100px" type="number" min="0"/> <input id="edtprice" class="form-control input-sm" style="width: 100px" type="number" min="1" required/>
<div class="invalid-feedback" style="font-size: 15px;">
Please Provide a Price.
</div>
</div> </div>
<div> <div>
<label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Invoice To:</label> <label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Invoice To:</label>
...@@ -115,12 +128,26 @@ ...@@ -115,12 +128,26 @@
<input id="edtponumber" class="form-control input-sm" width='50%'/> <input id="edtponumber" class="form-control input-sm" width='50%'/>
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Job Name:</label> <label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">QB Item:</label>
<input id="edtjobname" class="form-control input-sm" style="width: 300px"/> <select id="wcbqbitem" class='form-select' required></select>
<div class="invalid-feedback" style="font-size: 15px;">
Please Provide a QB Item.
</div>
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">QuickBooks Item:</label> <label for="wdbe_first_name" style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Job Name:</label>
<select id="wcbqbitem" class='form-select'></select> <input id="edtjobname" class="form-control input-sm" style="width: 600px"/>
<div class="invalid-feedback" style="font-size: 15px;">
Please Provide a Job Name.
</div>
</div>
<div class="row">
<div class="col-12">
<label for="edtitemdescription" class="form-label mt-2" style="font-weight: 700; font-size: 15px;">
Item Description:
</label>
<input id="edtitemdescription" class="form-control" style="width: 100%;" />
</div>
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Art Due:</label> <label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Art Due:</label>
...@@ -231,11 +258,11 @@ ...@@ -231,11 +258,11 @@
<input id="edtcolorcontrastto" class="form-control input-sm" width='50%'/> <input id="edtcolorcontrastto" class="form-control input-sm" width='50%'/>
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Color Contrast Date 1:</label> <label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Color Contract Date 1:</label>
<input class="form-control input-sm" id="dtpcolorcontrastdate1" type="date"> <input class="form-control input-sm" id="dtpcolorcontrastdate1" type="date">
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Color Contrast Date 2:</label> <label style="font-weight: 700; font-size: 15px;" class="form-label mt-2">Color Contract Date 2:</label>
<input class="form-control input-sm" id="dtpcolorcontrastdate2" type="date"> <input class="form-control input-sm" id="dtpcolorcontrastdate2" type="date">
</div> </div>
<div class="col-auto"> <div class="col-auto">
......
kgOrdersClient/View.OrderEntryWeb.pas
...@@ -14,46 +14,40 @@ type ...@@ -14,46 +14,40 @@ type
WebLabel2: TWebLabel; WebLabel2: TWebLabel;
edtCompanyName: TWebDBEdit; edtCompanyName: TWebDBEdit;
edtCompanyAccountName: TWebDBEdit; edtCompanyAccountName: TWebDBEdit;
edtInQuickBooks: TWebDBEdit;
XDataWebClient1: TXDataWebClient; XDataWebClient1: TXDataWebClient;
XDataWebDataSet1: TXDataWebDataSet; xdwdsOrder: TXDataWebDataSet;
XDataWebDataSet1ORDER_ID: TIntegerField; xdwdsOrderORDER_ID: TIntegerField;
XDataWebDataSet1COMPANY_ID: TIntegerField; xdwdsOrderCOMPANY_ID: TIntegerField;
XDataWebDataSet1USER_ID: TIntegerField; xdwdsOrderUSER_ID: TIntegerField;
XDataWebDataSet1ORDER_DATE: TDateField; xdwdsOrderORDER_DATE: TDateField;
XDataWebDataSet1NAME: TStringField; xdwdsOrderNAME: TStringField;
XDataWebDataSet1SHORT_NAME: TStringField; xdwdsOrderSHORT_NAME: TStringField;
XDataWebDataSet1staff_fields_ship_via: TStringField; xdwdsOrderstaff_fields_ship_via: TStringField;
XDataWebDataSet1staff_fields_price: TStringField; xdwdsOrderstaff_fields_price: TStringField;
XDataWebDataSet1staff_fields_invoice_to: TStringField; xdwdsOrderstaff_fields_invoice_to: TStringField;
XDataWebDataSet1staff_fields_invoice_attention: TStringField; xdwdsOrderstaff_fields_invoice_attention: TStringField;
XDataWebDataSet1staff_fields_ship_to: TStringField; xdwdsOrderstaff_fields_ship_to: TStringField;
XDataWebDataSet1staff_fields_ship_attention: TStringField; xdwdsOrderstaff_fields_ship_attention: TStringField;
XDataWebDataSet1staff_fields_po_number: TStringField; xdwdsOrderstaff_fields_po_number: TStringField;
XDataWebDataSet1staff_fields_job_name: TStringField; xdwdsOrderstaff_fields_job_name: TStringField;
XDataWebDataSet1staff_fields_quickbooks_item: TStringField; xdwdsOrderstaff_fields_quickbooks_item: TStringField;
XDataWebDataSet1staff_fields_quantity: TStringField; xdwdsOrderstaff_fields_quantity: TStringField;
XDataWebDataSet1staff_fields_art_location: TStringField; xdwdsOrderstaff_fields_art_location: TStringField;
XDataWebDataSet1staff_fields_order_date: TStringField; xdwdsOrderstaff_fields_order_date: TStringField;
XDataWebDataSet1staff_fields_proof_date: TStringField; xdwdsOrderstaff_fields_proof_date: TStringField;
XDataWebDataSet1staff_fields_ship_date: TStringField; xdwdsOrderstaff_fields_ship_date: TStringField;
XDataWebDataSet1staff_fields_art_due: TStringField; xdwdsOrderstaff_fields_art_due: TStringField;
XDataWebDataSet1staff_fields_plate_due: TStringField; xdwdsOrderstaff_fields_plate_due: TStringField;
XDataWebDataSet1ADDRESS_LIST: TStringField; xdwdsOrderADDRESS_LIST: TStringField;
WebDataSource1: TWebDataSource; wdsOrder: TWebDataSource;
WebLabel1: TWebLabel; WebLabel1: TWebLabel;
dtpOrderDate: TWebDateTimePicker;
dtpProofDate: TWebDateTimePicker;
dtpShipDate: TWebDateTimePicker;
dtpArtDue: TWebDateTimePicker;
dtpPlateDue: TWebDateTimePicker;
edtShipVia: TWebDBEdit; edtShipVia: TWebDBEdit;
edtQuantity: TWebDBEdit; edtQuantity: TWebDBEdit;
edtPrice: TWebDBEdit; edtPrice: TWebDBEdit;
edtInvoiceTo: TWebDBEdit; edtInvoiceTo: TWebDBEdit;
edtPONumber: TWebDBEdit; edtPONumber: TWebDBEdit;
edtJobName: TWebDBEdit; edtJobName: TWebDBEdit;
WebDBComboBox1: TWebDBComboBox; wdbcbShipTo: TWebDBComboBox;
wdsShipTo: TWebDataSource; wdsShipTo: TWebDataSource;
xdwdsShipTo: TXDataWebDataSet; xdwdsShipTo: TXDataWebDataSet;
xdwdsShipToADDRESS: TStringField; xdwdsShipToADDRESS: TStringField;
...@@ -71,21 +65,12 @@ type ...@@ -71,21 +65,12 @@ type
WebLabel4: TWebLabel; WebLabel4: TWebLabel;
cbPDF: TWebDBCheckBox; cbPDF: TWebDBCheckBox;
edtPDFTo: TWebDBEdit; edtPDFTo: TWebDBEdit;
dtpPDFDate1: TWebDateTimePicker;
dtpPDFDate3: TWebDateTimePicker;
dtpPDFDate2: TWebDateTimePicker;
cbInkJet: TWebDBCheckBox; cbInkJet: TWebDBCheckBox;
edtInkJetTo2: TWebDBEdit; edtInkJetTo2: TWebDBEdit;
edtInkJetTo1: TWebDBEdit; edtInkJetTo1: TWebDBEdit;
dtpInkJetDate1: TWebDateTimePicker;
dtpInkJetDate3: TWebDateTimePicker;
dtpInkJetDate2: TWebDateTimePicker;
edtColorContrastTo: TWebDBEdit; edtColorContrastTo: TWebDBEdit;
dtpColorContractDate1: TWebDateTimePicker;
dtpColorContractDate2: TWebDateTimePicker;
edtDigitalColorTo: TWebDBEdit; edtDigitalColorTo: TWebDBEdit;
edtDigitalColorKey: TWebDBEdit; edtDigitalColorKey: TWebDBEdit;
dtpDigitalColorDate: TWebDateTimePicker;
WebLabel5: TWebLabel; WebLabel5: TWebLabel;
edtAniloxInfo: TWebDBEdit; edtAniloxInfo: TWebDBEdit;
edtPressName: TWebDBEdit; edtPressName: TWebDBEdit;
...@@ -125,68 +110,65 @@ type ...@@ -125,68 +110,65 @@ type
btnSave: TWebButton; btnSave: TWebButton;
btnPDF: TWebButton; btnPDF: TWebButton;
btnCancel: TWebButton; btnCancel: TWebButton;
XDataWebDataSet1plates_job_number: TStringField; xdwdsOrderplates_job_number: TStringField;
XDataWebDataSet1supplied_by_customer_plates: TStringField; xdwdsOrdersupplied_by_customer_plates: TStringField;
XDataWebDataSet1supplied_by_customer_sample: TStringField; xdwdsOrdersupplied_by_customer_sample: TStringField;
XDataWebDataSet1supplied_by_customer_dimension: TStringField; xdwdsOrdersupplied_by_customer_dimension: TStringField;
XDataWebDataSet1supplied_by_customer_other: TStringField; xdwdsOrdersupplied_by_customer_other: TStringField;
XDataWebDataSet1supplied_by_customer_disk: TStringField; xdwdsOrdersupplied_by_customer_disk: TStringField;
XDataWebDataSet1supplied_by_customer_e_mail: TStringField; xdwdsOrdersupplied_by_customer_e_mail: TStringField;
XDataWebDataSet1supplied_by_customer_ftp: TStringField; xdwdsOrdersupplied_by_customer_ftp: TStringField;
XDataWebDataSet1plates_plate_material: TStringField; xdwdsOrderplates_plate_material: TStringField;
XDataWebDataSet1plates_thickness: TStringField; xdwdsOrderplates_thickness: TStringField;
XDataWebDataSet1supplied_by_customer_total_inc: TStringField; xdwdsOrdersupplied_by_customer_total_inc: TStringField;
XDataWebDataSet1supplied_by_customer_sheets_us: TStringField; xdwdsOrdersupplied_by_customer_sheets_us: TStringField;
XDataWebDataSet1supplied_by_customer_initials: TStringField; xdwdsOrdersupplied_by_customer_initials: TStringField;
XDataWebDataSet1proofing_pdf_to: TStringField; xdwdsOrderproofing_pdf_to: TStringField;
XDataWebDataSet1proofing_pdf_date_1: TStringField; xdwdsOrderproofing_pdf_date_1: TStringField;
XDataWebDataSet1proofing_pdf_date_2: TStringField; xdwdsOrderproofing_pdf_date_2: TStringField;
XDataWebDataSet1proofing_pdf_date_3: TStringField; xdwdsOrderproofing_pdf_date_3: TStringField;
XDataWebDataSet1proofing_ink_jet_to: TStringField; xdwdsOrderproofing_ink_jet_to: TStringField;
XDataWebDataSet1proofing_ink_jet_to_2: TStringField; xdwdsOrderproofing_ink_jet_to_2: TStringField;
XDataWebDataSet1proofing_ink_jet_date_1: TStringField; xdwdsOrderproofing_ink_jet_date_1: TStringField;
XDataWebDataSet1proofing_ink_jet_date_2: TStringField; xdwdsOrderproofing_ink_jet_date_2: TStringField;
XDataWebDataSet1proofing_ink_jet_date_3: TStringField; xdwdsOrderproofing_ink_jet_date_3: TStringField;
XDataWebDataSet1proofing_color_contract: TStringField; xdwdsOrderproofing_color_contract: TStringField;
XDataWebDataSet1proofing_color_contrac_to: TStringField; xdwdsOrderproofing_color_contrac_to: TStringField;
XDataWebDataSet1proofing_color_contrac_date_1: TStringField; xdwdsOrderproofing_color_contrac_date_1: TStringField;
XDataWebDataSet1proofing_color_contrac_date_2: TStringField; xdwdsOrderproofing_color_contrac_date_2: TStringField;
XDataWebDataSet1proofing_digital_color_key: TStringField; xdwdsOrderproofing_digital_color_key: TStringField;
XDataWebDataSet1proofing_digital_color_to: TStringField; xdwdsOrderproofing_digital_color_to: TStringField;
XDataWebDataSet1proofing_digital_color_date_1: TStringField; xdwdsOrderproofing_digital_color_date_1: TStringField;
XDataWebDataSet1quantity_and_colors_press_name: TStringField; xdwdsOrderquantity_and_colors_press_name: TStringField;
XDataWebDataSet1quantity_and_colors_anilox_info: TStringField; xdwdsOrderquantity_and_colors_anilox_info: TStringField;
XDataWebDataSet1plate_marks_microdots_comments: TStringField; xdwdsOrderplate_marks_microdots_comments: TStringField;
XDataWebDataSet1plate_marks_microdots: TStringField; xdwdsOrderplate_marks_microdots: TStringField;
XDataWebDataSet1plate_marks_crosshairs: TStringField; xdwdsOrderplate_marks_crosshairs: TStringField;
XDataWebDataSet1plate_marks_crosshairs_comments: TStringField; xdwdsOrderplate_marks_crosshairs_comments: TStringField;
XDataWebDataSet1plate_marks_color_bars: TStringField; xdwdsOrderplate_marks_color_bars: TStringField;
XDataWebDataSet1plate_marks_color_bars_comments: TStringField; xdwdsOrderplate_marks_color_bars_comments: TStringField;
XDataWebDataSet1plate_marks_other: TStringField; xdwdsOrderplate_marks_other: TStringField;
XDataWebDataSet1plate_marks_other_comments: TStringField; xdwdsOrderplate_marks_other_comments: TStringField;
XDataWebDataSet1print_orientation_print_orient: TStringField; xdwdsOrderprint_orientation_print_orient: TStringField;
XDataWebDataSet1layout_around: TStringField; xdwdsOrderlayout_around: TStringField;
XDataWebDataSet1layout_accross: TStringField; xdwdsOrderlayout_accross: TStringField;
XDataWebDataSet1layout_surface_print: TStringField; xdwdsOrderlayout_surface_print: TStringField;
XDataWebDataSet1layout_reverse_print: TStringField; xdwdsOrderlayout_reverse_print: TStringField;
XDataWebDataSet1layout_cylinder_repeat: TStringField; xdwdsOrderlayout_cylinder_repeat: TStringField;
XDataWebDataSet1layout_cutoff_dimension: TStringField; xdwdsOrderlayout_cutoff_dimension: TStringField;
XDataWebDataSet1layout_pitch: TStringField; xdwdsOrderlayout_pitch: TStringField;
XDataWebDataSet1layout_teeth: TStringField; xdwdsOrderlayout_teeth: TStringField;
XDataWebDataSet1layout_bleed: TStringField; xdwdsOrderlayout_bleed: TStringField;
XDataWebDataSet1layout_minimum_trap_dim: TStringField; xdwdsOrderlayout_minimum_trap_dim: TStringField;
XDataWebDataSet1layout_maximum_trap_dim: TStringField; xdwdsOrderlayout_maximum_trap_dim: TStringField;
XDataWebDataSet1upc_size: TStringField; xdwdsOrderupc_size: TStringField;
XDataWebDataSet1upc_bar_width_reduction: TStringField; xdwdsOrderupc_bar_width_reduction: TStringField;
XDataWebDataSet1general_comments: TStringField; xdwdsOrdergeneral_comments: TStringField;
XDataWebDataSet1upc_distortion_percent: TStringField; xdwdsOrderupc_distortion_percent: TStringField;
XDataWebDataSet1upc_distortion_amount: TStringField; xdwdsOrderupc_distortion_amount: TStringField;
XDataWebDataSet1layout_cutback: TStringField; xdwdsOrderlayout_cutback: TStringField;
XDataWebDataSet1proofing_full_size_ink_jet_for: TBooleanField; xdwdsOrderquantity_and_colors_qty_colors: TStringField;
XDataWebDataSet1proofing_pdf: TBooleanField; xdwdsOrdersupplied_by_customer_b_w_or_co: TStringField;
XDataWebDataSet1quantity_and_colors_qty_colors: TStringField;
XDataWebDataSet1supplied_by_customer_b_w_or_co: TStringField;
wcbQBItem: TWebDBComboBox;
wdsQBItem: TWebDataSource; wdsQBItem: TWebDataSource;
xdwdsQBItem: TXDataWebDataSet; xdwdsQBItem: TXDataWebDataSet;
xdwdsQBItemname: TStringField; xdwdsQBItemname: TStringField;
...@@ -197,24 +179,47 @@ type ...@@ -197,24 +179,47 @@ type
btnCopy: TWebButton; btnCopy: TWebButton;
btnDelete: TWebButton; btnDelete: TWebButton;
btnClose: TWebButton; btnClose: TWebButton;
edtOrderNum: TWebEdit;
tmrReturn: TWebTimer; tmrReturn: TWebTimer;
btnEdit: TWebButton; btnEdit: TWebButton;
btnAdd: TWebButton; btnAdd: TWebButton;
WebButton2: TWebButton; WebButton2: TWebButton;
lblFormState: TWebLabel; lblFormState: TWebLabel;
XDataWebDataSet1InQuickbooks: TStringField; dtpOrderDate: TWebDBDateTimePicker;
dtpProofDate: TWebDBDateTimePicker;
dtpShipDate: TWebDBDateTimePicker;
dtpPlateDue: TWebDBDateTimePicker;
dtpPDFDate3: TWebDBDateTimePicker;
dtpPDFDate2: TWebDBDateTimePicker;
dtpPDFDate1: TWebDBDateTimePicker;
dtpInkJetDate3: TWebDBDateTimePicker;
dtpInkJetDate2: TWebDBDateTimePicker;
dtpInkJetDate1: TWebDBDateTimePicker;
dtpColorContractDate2: TWebDBDateTimePicker;
dtpColorContractDate1: TWebDBDateTimePicker;
dtpDigitalColorDate: TWebDBDateTimePicker;
xdwdsOrderproofing_full_size_ink_jet_for: TStringField;
xdwdsOrderproofing_pdf: TStringField;
edtQBOrderNum: TWebDBEdit;
wdbcbINQB: TWebDBCheckBox;
xdwdsOrderIN_QB: TStringField;
xdwdsOrderQB_ORDER_NUM: TStringField;
edtQBItemDescription: TWebEdit;
xdwdsQBItemQB_ID: TStringField;
xdwdsQBItemdescription: TStringField;
edtOrderNum: TWebDBEdit;
wcbQBItem: TWebDBComboBox;
xdwdsQBItemID: TStringField;
btnQB: TWebButton;
procedure WebFormCreate(Sender: TObject); procedure WebFormCreate(Sender: TObject);
[async] procedure getOrder(Order_ID: string); [async] procedure getOrder(Order_ID: string);
[async] procedure getCustomer(customerID: string); [async] procedure SetNewOrderInfo(customerID: string);
procedure WebButton1Click(Sender: TObject); procedure WebButton1Click(Sender: TObject);
procedure addColorRow(num, Color, LPI, Size: string); procedure addColorRow(num, Color, LPI, Size: string);
procedure btnSaveClick(Sender: TObject); procedure btnSaveClick(Sender: TObject);
[async] procedure AddWebOrder(orderJSON: TJSONObject); [async] procedure SendWebOrder();
procedure btnCancelClick(Sender: TObject); procedure btnCancelClick(Sender: TObject);
procedure btnPDFClick(Sender: TObject); procedure btnPDFClick(Sender: TObject);
[async] procedure GenerateReportPDF; [async] procedure GenerateReportPDF;
procedure SendOrderToServer;
procedure btnCopyClick(Sender: TObject); procedure btnCopyClick(Sender: TObject);
procedure btnCloseClick(Sender: TObject); procedure btnCloseClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject); procedure btnDeleteClick(Sender: TObject);
...@@ -228,6 +233,11 @@ type ...@@ -228,6 +233,11 @@ type
procedure WebButton2Click(Sender: TObject); procedure WebButton2Click(Sender: TObject);
procedure ShowAddAddressForm(); procedure ShowAddAddressForm();
[async] procedure SendAddressToServer(AddressJSON: TJSONObject); [async] procedure SendAddressToServer(AddressJSON: TJSONObject);
procedure wcbQBItemChange(Sender: TObject);
procedure edtJobNameExit(Sender: TObject);
procedure btnQBClick(Sender: TObject);
function VerifyQBOrder: Boolean;
[async] procedure AddEstimate(orderID: string);
private private
FModalAction: string; FModalAction: string;
FAgencyCode: string; FAgencyCode: string;
...@@ -237,6 +247,7 @@ type ...@@ -237,6 +247,7 @@ type
customerID: string; customerID: string;
mode: string; mode: string;
notification: string; notification: string;
customer_qb_id: string;
procedure RemoveColorRow(Sender: TObject); procedure RemoveColorRow(Sender: TObject);
[async] procedure InitializeForm; [async] procedure InitializeForm;
//FJSONProc1: TJSONProc1; //FJSONProc1: TJSONProc1;
...@@ -279,7 +290,7 @@ end; ...@@ -279,7 +290,7 @@ end;
begin begin
if mode = 'ADD' then if mode = 'ADD' then
begin begin
await(getCustomer(customerID)); await(SetNewOrderInfo(customerID));
EditMode; EditMode;
end end
else else
...@@ -365,84 +376,15 @@ procedure TFOrderEntryWeb.btnSaveClick(Sender: TObject); ...@@ -365,84 +376,15 @@ procedure TFOrderEntryWeb.btnSaveClick(Sender: TObject);
begin begin
if VerifyOrder() then if VerifyOrder() then
begin begin
sendOrderToServer(); sendWebOrder();
ViewMode(); ViewMode();
end; end;
window.scrollTo(0, 0); window.scrollTo(0, 0);
end; end;
function TFOrderEntryWeb.VerifyOrder: Boolean;
var
input: TJSHTMLInputElement;
begin
result := true;
input := TJSHTMLInputElement(document.getElementById('edtcompanyname'));
if edtCompanyName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtaccountcompanyname'));
if edtCompanyAccountName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtinvoiceto'));
if edtInvoiceTo.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('wcbshipto'));
if WebDBComboBox1.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('dtporderdate'));
if dtpOrderDate.Date = 0 then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
end;
procedure TFOrderEntryWeb.btnCopyClick(Sender: TObject); procedure TFOrderEntryWeb.btnCopyClick(Sender: TObject);
begin begin
mode := 'ADD'; mode := 'ADD';
dtpOrderDate.Date := 0;
dtpProofDate.Date := 0;
dtpArtDue.Date := 0;
dtpPlateDue.Date := 0;
dtpShipDate.Date := 0;
dtpPDFDate1.Date := 0;
dtpPDFDate2.Date := 0;
dtpPDFDate3.Date := 0;
dtpInkJetDate1.Date := 0;
dtpInkJetDate2.Date := 0;
dtpInkJetDate3.Date := 0;
dtpColorContractDate1.Date := 0;
dtpColorContractDate2.Date := 0;
dtpDigitalColorDate.Date := 0;
edtOrderNum.Text := ''; edtOrderNum.Text := '';
EditMode(); EditMode();
ShowToast('Success: Order Successfully Copied'); ShowToast('Success: Order Successfully Copied');
...@@ -481,8 +423,76 @@ begin ...@@ -481,8 +423,76 @@ begin
Response := await(XDataWebClient1.RawInvokeAsync('ILookupService.DelOrder', [OrderID, 'web', JS.toString(AuthService.TokenPayload.Properties['user_id'])])); Response := await(XDataWebClient1.RawInvokeAsync('ILookupService.DelOrder', [OrderID, 'web', JS.toString(AuthService.TokenPayload.Properties['user_id'])]));
end; end;
procedure TFOrderEntryWeb.SendOrderToServer(); procedure TFOrderEntryWeb.btnPDFClick(Sender: TObject);
// Converts all the information on the page into a JSON to then send to the server begin
GenerateReportPDF;
end;
procedure TFOrderEntryWeb.btnQBClick(Sender: TObject);
begin
if JS.toString(AuthService.TokenPayload.Properties['user_qb_id']) <> '' then
begin
if ( VerifyQBOrder() )then
begin
if wdbcbINQB.Checked = false then
begin
Utils.ShowSpinner('spinner');
addEstimate(xdwdsOrder.FieldByName('ORDER_ID').AsString);
end
else
ShowToast('Failure:Cannot submit orders already in QuickBooks', 'failure');
end;
end
else
ShowToast('Failure:User not authorized to add to QuickBooks', 'failure');
end;
procedure TFOrderEntryWeb.AddEstimate(orderID: string);
var
Response: TXDataClientResponse;
notification: TJSObject;
msg: string;
begin
try
Response := await(XDataWebClient1.RawInvokeAsync('ILookupService.AddEstimate',
[orderID]));
notification := TJSObject(Response.Result);
msg := string(notification['status']);
Utils.HideSpinner('spinner');
getOrder(orderID);
ShowToast(msg);
except
on E: EXDataClientRequestException do
Utils.ShowErrorModal(E.ErrorResult.ErrorMessage);
end;
end;
procedure TFOrderEntryWeb.GenerateReportPDF;
// sends the search to the server which then sends back a pdf of the results
var
xdcResponse: TXDataClientResponse;
searchOptions, pdfURL: string;
jsObject: TJSObject;
begin
try
// Call the server method to generate the PDF
xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GenerateOrderWebPDF', [orderID]));
jsObject := JS.TJSObject(xdcResponse.Result);
pdfURL := JS.toString(jsObject.Properties['value']);
// Open the PDF in a new browser tab without needing a different form
// This method is much faster too, even for large datasets
window.open(pdfURL, '_blank');
except
on E: EXDataClientRequestException do
Utils.ShowErrorModal(E.ErrorResult.ErrorMessage);
end;
end;
procedure TFOrderEntryWeb.SendWebOrder();
// sends the order JSON object to the server
var var
colorList: TJSONArray; colorList: TJSONArray;
container: TJSElement; container: TJSElement;
...@@ -495,8 +505,9 @@ var ...@@ -495,8 +505,9 @@ var
header, value, info: string; header, value, info: string;
Field: TField; Field: TField;
Response: TXDataClientResponse; Response: TXDataClientResponse;
jsObj: TJSObject;
begin begin
orderJSON := TJSONObject.Create; orderJSON := TJSONObject.Create;
colorList := TJSONArray.Create; colorList := TJSONArray.Create;
container := document.getElementById('additionalFields'); container := document.getElementById('additionalFields');
colorCollection := container.children; colorCollection := container.children;
...@@ -514,31 +525,16 @@ begin ...@@ -514,31 +525,16 @@ begin
end; end;
colorListJSON := TJSONObject.Create; colorListJSON := TJSONObject.Create;
colorListJSON.AddPair('items', colorList); colorListJSON.AddPair('items', colorList);
XDataWebDataSet1.Edit; xdwdsOrder.Edit;
XDataWebDataSet1quantity_and_colors_qty_colors.Value := colorListJSON.ToString; xdwdsOrderquantity_and_colors_qty_colors.Value := colorListJSON.ToString;
xdwdsOrderUSER_ID.AsString := JS.toString(AuthService.TokenPayload.Properties['user_id']);
//Convert all dates to strings because I was having less issues with that data type.
XDataWebDataSet1staff_fields_proof_date.Value := DateTimeToStr(dtpProofDate.Date); xdwdsOrder.Post;
XDataWebDataSet1staff_fields_ship_date.Value := DateTimeToStr(dtpShipDate.Date); xdwdsOrder.First;
XDataWebDataSet1staff_fields_art_due.Value := DateTimeToStr(dtpArtDue.Date); while not xdwdsOrder.Eof do
XDataWebDataSet1staff_fields_plate_due.Value := DateTimeToStr(dtpPlateDue.Date);
XDataWebDataSet1staff_fields_order_date.Value := DateTimeToStr(dtpOrderDate.Date);
XDataWebDataSet1proofing_pdf_date_1.Value := DateTimeToStr(dtpPDFDate1.Date);
XDataWebDataSet1proofing_pdf_date_2.Value := DateTimeToStr(dtpPDFDate2.Date);
XDataWebDataSet1proofing_pdf_date_3.Value := DateTimeToStr(dtpPDFDate3.Date);
XDataWebDataSet1proofing_ink_jet_date_1.Value := DateTimeToStr(dtpInkJetDate1.Date);
XDataWebDataSet1proofing_ink_jet_date_2.Value := DateTimeToStr(dtpInkJetDate2.Date);
XDataWebDataSet1proofing_ink_jet_date_3.Value := DateTimeToStr(dtpInkJetDate3.Date);
XDataWebDataSet1proofing_color_contrac_date_1.Value := DateTimeToStr(dtpColorContractDate1.Date);
XDataWebDataSet1proofing_color_contrac_date_2.Value := DateTimeToStr(dtpColorContractDate2.Date);
XDataWebDataSet1proofing_digital_color_date_1.Value := DateTimeToStr(dtpDigitalColorDate.Date);
XDataWebDataSet1.Post;
XDataWebDataSet1.First;
while not XDataWebDataSet1.Eof do
begin begin
for Field in XDataWebDataSet1.Fields do for Field in xdwdsOrder.Fields do
begin begin
if Field is TStringField then if Field is TStringField then
begin begin
...@@ -553,66 +549,29 @@ begin ...@@ -553,66 +549,29 @@ begin
orderJSON.AddPair(Field.FieldName, 'T') orderJSON.AddPair(Field.FieldName, 'T')
else else
orderJSON.AddPair(Field.FieldName, ''); orderJSON.AddPair(Field.FieldName, '');
end; end
else if Field is TIntegerField then
orderJSON.AddPair(Field.FieldName, Field.AsInteger);
end; end;
XDataWebDataSet1.Next; xdwdsOrder.Next;
end; end;
orderJSON.AddPair('COMPANY_ID', customerID);
orderJSON.AddPair('USER_ID', JS.toString(AuthService.TokenPayload.Properties['user_id']));
orderJSON.AddPair('mode', mode); orderJSON.AddPair('mode', mode);
console.log(orderJSON);
if mode = 'EDIT' then
begin
orderJSON.AddPair('ORDER_ID', orderID);
info := 'Success:Order Successfully Edited';
end
else
info := 'Success:Order Successfully Added';
AddWebOrder(orderJSON);
ShowToast(info);
end;
procedure TFOrderEntryWeb.btnPDFClick(Sender: TObject); console.log(orderJSON);
begin
GenerateReportPDF;
end;
procedure TFOrderEntryWeb.GenerateReportPDF;
// sends the search to the server which then sends back a pdf of the results
var
xdcResponse: TXDataClientResponse;
searchOptions, pdfURL: string;
jsObject: TJSObject;
begin
try try
// Call the server method to generate the PDF Response := await(XDataWebClient1.RawInvokeAsync('ILookupService.AddWebOrder', [orderJSON.ToString]));
xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GenerateOrderWebPDF', [orderID]));
jsObject := JS.TJSObject(xdcResponse.Result);
pdfURL := JS.toString(jsObject.Properties['value']);
// Open the PDF in a new browser tab without needing a different form jsObj := JS.TJSObject(Response.Result);
// This method is much faster too, even for large datasets
window.open(pdfURL, '_blank');
except
on E: EXDataClientRequestException do
Utils.ShowErrorModal(E.ErrorResult.ErrorMessage);
end;
end;
console.log(jsObj);
xdwdsOrder.Close;
xdwdsOrder.SetJsonData(jsObj);
xdwdsOrder.Open;
procedure TFOrderEntryWeb.AddWebOrder(orderJSON: TJSONObject);
// sends the order JSON object to the server
var
Response: TXDataClientResponse;
jsObj: TJSObject;
begin
try
Response := await(XDataWebClient1.RawInvokeAsync('ILookupService.AddWebOrder', [orderJSON.ToString]));
jsObj := JS.TJSObject(Response.Result);
if mode = 'ADD' then
OrderID := String(jsObj.Properties['OrderID']);
edtOrderNum.Text := OrderID;
mode := 'EDIT'; mode := 'EDIT';
ShowToast(String(jsObj.Properties['status']));
except except
on E: EXDataClientRequestException do on E: EXDataClientRequestException do
Utils.ShowErrorModal(E.ErrorResult.ErrorMessage); Utils.ShowErrorModal(E.ErrorResult.ErrorMessage);
...@@ -794,13 +753,13 @@ begin ...@@ -794,13 +753,13 @@ begin
[Order_ID])); [Order_ID]));
order := TJSObject(xdcResponse.Result); order := TJSObject(xdcResponse.Result);
data := TJSArray(order['data']); data := TJSArray(order['data']);
XDataWebDataSet1.Close; xdwdsOrder.Close;
XDataWebDataSet1.SetJsonData(order); xdwdsOrder.SetJsonData(order);
XDataWebDataSet1.Open; xdwdsOrder.Open;
if XDataWebDataSet1quantity_and_colors_qty_colors.Value <> '' then if xdwdsOrderquantity_and_colors_qty_colors.Value <> '' then
begin begin
colorObject := TJSObject(TJSJSON.parse(XDataWebDataSet1quantity_and_colors_qty_colors.Value)); colorObject := TJSObject(TJSJSON.parse(xdwdsOrderquantity_and_colors_qty_colors.Value));
colorList := TJSArray(colorObject['items']); colorList := TJSArray(colorObject['items']);
for I := 0 to colorList.length -1 do for I := 0 to colorList.length -1 do
begin begin
...@@ -809,82 +768,28 @@ begin ...@@ -809,82 +768,28 @@ begin
end; end;
end; end;
// Dates need to be manually set
if not (XDataWebDataSet1staff_fields_order_date.AsString = '') then
dtpOrderDate.Date := StrToDateTime(XDataWebDataSet1staff_fields_order_date.Value)
else
dtpOrderDate.Date := 0;
if not (XDataWebDataSet1staff_fields_proof_date.AsString = '') then
dtpProofDate.Date := StrToDateTime(XDataWebDataSet1staff_fields_proof_date.AsString)
else
dtpProofDate.Date := 0;
if not (XDataWebDataSet1staff_fields_ship_date.AsString = '') then
dtpShipDate.Date := StrToDateTime(XDataWebDataSet1staff_fields_ship_date.AsString)
else
dtpShipDate.Date := 0;
if not (XDataWebDataSet1staff_fields_art_due.AsString = '') then
dtpArtDue.Date := StrToDateTime(XDataWebDataSet1staff_fields_art_due.AsString)
else
dtpArtDue.Date := 0;
if not (XDataWebDataSet1staff_fields_plate_due.AsString = '') then
dtpPlateDue.Date := StrToDateTime(XDataWebDataSet1staff_fields_plate_due.AsString)
else
dtpPlateDue.Date := 0;
if not (XDataWebDataSet1proofing_pdf_date_1.AsString = '') then
dtpPDFDate1.Date := StrToDateTime(XDataWebDataSet1proofing_pdf_date_1.Value)
else
dtpPDFDate1.Date := 0;
if not (XDataWebDataSet1proofing_pdf_date_2.AsString = '') then
dtpPDFDate2.Date := StrToDateTime(XDataWebDataSet1proofing_pdf_date_2.Value)
else
dtpPDFDate2.Date := 0;
if not (XDataWebDataSet1proofing_pdf_date_3.AsString = '') then
dtpPDFDate3.Date := StrToDateTime(XDataWebDataSet1proofing_pdf_date_3.Value)
else
dtpPDFDate3.Date := 0;
if not (XDataWebDataSet1proofing_ink_jet_date_1.AsString = '') then
dtpInkJetDate1.Date := StrToDateTime(XDataWebDataSet1proofing_ink_jet_date_1.Value)
else
dtpInkJetDate1.Date := 0;
if not (XDataWebDataSet1proofing_ink_jet_date_2.AsString = '') then
dtpInkJetDate2.Date := StrToDateTime(XDataWebDataSet1proofing_ink_jet_date_2.Value)
else
dtpInkJetDate2.Date := 0;
if not (XDataWebDataSet1proofing_ink_jet_date_3.AsString = '') then
dtpInkJetDate3.Date := StrToDateTime(XDataWebDataSet1proofing_ink_jet_date_3.Value)
else
dtpInkJetDate3.Date := 0;
if not (XDataWebDataSet1proofing_color_contrac_date_1.AsString = '') then
dtpColorContractDate1.Date := StrToDateTime(XDataWebDataSet1proofing_color_contrac_date_1.Value)
else
dtpColorContractDate1.Date := 0;
if not (XDataWebDataSet1proofing_color_contrac_date_2.AsString = '') then
dtpColorContractDate2.Date := StrToDateTime(XDataWebDataSet1proofing_color_contrac_date_2.Value)
else
dtpColorContractDate2.Date := 0;
if not (XDataWebDataSet1proofing_digital_color_date_1.AsString = '') then
dtpDigitalColorDate.Date := StrToDateTime(XDataWebDataSet1proofing_digital_color_date_1.Value)
else
dtpDigitalColorDate.Date := 0;
xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetCustomer', xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetCustomer',
[XDataWebDataSet1.FieldByName('COMPANY_ID').AsString])); [xdwdsOrder.FieldByName('COMPANY_ID').AsString]));
customer := TJSObject(xdcResponse.Result); customer := TJSObject(xdcResponse.Result);
customer_qb_id := string(customer['QB_LIST_ID']);
xdwdsShipTo.Close; xdwdsShipTo.Close;
xdwdsShipTo.SetJSONData(customer['SHIPPING_ADDRESS_LIST']); xdwdsShipTo.SetJSONData(customer['SHIPPING_ADDRESS_LIST']);
xdwdsShipTo.Open; xdwdsShipTo.Open;
xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetItems', xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetItems',
[])); []));
items := TJSObject(xdcResponse.Result); items := TJSObject(xdcResponse.Result);
console.log(items);
xdwdsQBItem.Close; xdwdsQBItem.Close;
xdwdsQBItem.SetJsonData(items['data']); xdwdsQBItem.SetJsonData(items['data']);
xdwdsQBITEM.Open; xdwdsQBITEM.Open;
xdwdsQBItem.Locate('name', wcbQBItem.Text , []);
wcbQBItem.Text := xdwdsQBItem.FieldByName('name').AsString;
edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString +
' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString;
except except
on E: EXDataClientRequestException do on E: EXDataClientRequestException do
Utils.ShowErrorModal(E.ErrorResult.ErrorMessage); Utils.ShowErrorModal(E.ErrorResult.ErrorMessage);
...@@ -894,7 +799,7 @@ end; ...@@ -894,7 +799,7 @@ end;
procedure TFOrderEntryWeb.getCustomer(customerID: string); procedure TFOrderEntryWeb.SetNewOrderInfo(customerID: string);
// gets a customer from the database then loads the appropiate fields // gets a customer from the database then loads the appropiate fields
var var
xdcResponse: TXDataClientResponse; xdcResponse: TXDataClientResponse;
...@@ -905,11 +810,17 @@ begin ...@@ -905,11 +810,17 @@ begin
xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetCustomer', xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetCustomer',
[customerID])); [customerID]));
customer := TJSObject(xdcResponse.Result); customer := TJSObject(xdcResponse.Result);
XDataWebDataSet1.Close; customer_qb_id := string(customer['QB_LIST_ID']);
XDataWebDataSet1.SetJsonData(customer);
XDataWebDataSet1.Open;
xdwdsOrder.Close;
xdwdsOrder.Open;
xdwdsOrder.Append;
xdwdsOrder.FieldByName('NAME').AsString := string(customer['NAME']);
xdwdsOrder.FieldByName('SHORT_NAME').AsString := string(customer['SHORT_NAME']);
xdwdsOrder.FieldByName('staff_fields_invoice_to').AsString := string(customer['staff_fields_invoice_to']);
xdwdsOrder.FieldByName('COMPANY_ID').AsString := customerID;
xdwdsOrder.Post;
xdwdsShipTo.Close; xdwdsShipTo.Close;
xdwdsShipTo.SetJSONData(customer['SHIPPING_ADDRESS_LIST']); xdwdsShipTo.SetJSONData(customer['SHIPPING_ADDRESS_LIST']);
...@@ -922,21 +833,6 @@ begin ...@@ -922,21 +833,6 @@ begin
xdwdsQBItem.SetJsonData(items['data']); xdwdsQBItem.SetJsonData(items['data']);
xdwdsQBITEM.Open; xdwdsQBITEM.Open;
dtpOrderDate.Date := 0;
dtpProofDate.Date := 0;
dtpArtDue.Date := 0;
dtpPlateDue.Date := 0;
dtpShipDate.Date := 0;
dtpPDFDate1.Date := 0;
dtpPDFDate2.Date := 0;
dtpPDFDate3.Date := 0;
dtpInkJetDate1.Date := 0;
dtpInkJetDate2.Date := 0;
dtpInkJetDate3.Date := 0;
dtpColorContractDate1.Date := 0;
dtpColorContractDate2.Date := 0;
dtpDigitalColorDate.Date := 0;
end; end;
procedure TFOrderEntryWeb.tmrReturnTimer(Sender: TObject); procedure TFOrderEntryWeb.tmrReturnTimer(Sender: TObject);
...@@ -948,7 +844,7 @@ end; ...@@ -948,7 +844,7 @@ end;
procedure TFOrderEntryWeb.EditMode; procedure TFOrderEntryWeb.EditMode;
begin begin
XDataWebDataSet1.Edit; xdwdsOrder.Edit;
FViewMain.change := true; FViewMain.change := true;
btnCopy.Enabled := false; btnCopy.Enabled := false;
...@@ -968,6 +864,12 @@ begin ...@@ -968,6 +864,12 @@ begin
lblFormState.ElementHandle.classList.add('text-success'); lblFormState.ElementHandle.classList.add('text-success');
end; end;
procedure TFOrderEntryWeb.edtJobNameExit(Sender: TObject);
begin
edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString +
' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString;
end;
procedure TFOrderEntryWeb.ViewMode; procedure TFOrderEntryWeb.ViewMode;
begin begin
btnPDF.Enabled := true; btnPDF.Enabled := true;
...@@ -989,4 +891,187 @@ begin ...@@ -989,4 +891,187 @@ begin
end; end;
procedure TFOrderEntryWeb.wcbQBItemChange(Sender: TObject);
begin
xdwdsQBItem.Locate('name', wcbQBItem.Text , []);
wcbQBItem.Text := xdwdsQBItem.FieldByName('name').AsString;
edtQBItemDescription.text := xdwdsQBItem.FieldByName('description').AsString +
' - ' + xdwdsOrder.FieldByName('staff_fields_job_name').AsString;
end;
function TFOrderEntryWeb.VerifyOrder: Boolean;
var
input: TJSHTMLInputElement;
begin
result := true;
input := TJSHTMLInputElement(document.getElementById('edtcompanyname'));
if edtCompanyName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtjobname'));
if edtJobName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtaccountcompanyname'));
if edtCompanyAccountName.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtinvoiceto'));
if edtInvoiceTo.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('wcbshipto'));
if wdbcbShipTo.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('dtporderdate'));
if dtpOrderDate.Date = 0 then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtprice'));
if edtPrice.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('edtquantity'));
if edtQuantity.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
input := TJSHTMLInputElement(document.getElementById('wcbqbitem'));
if wcbQBItem.Text = '' then
begin
input.classList.add('is-invalid');
result := false;
end
else
input.classList.remove('is-invalid');
end;
function TFOrderEntryWeb.VerifyQBOrder: Boolean;
var
msg, SQL: string;
begin
Result := True;
msg := 'To add an order to QuickBooks, the following must be present:' + sLineBreak;
if edtCompanyName.Text = '' then
begin
msg := msg + '- Company Name cannot be empty' + sLineBreak;
Result := False;
end;
if edtCompanyAccountName.Text = '' then
begin
msg := msg + '- Company ID cannot be empty' + sLineBreak;
Result := False;
end;
if edtInvoiceTo.Text = '' then
begin
msg := msg + '- Invoice To cannot be empty' + sLineBreak;
Result := False;
end;
if wdbcbShipTo.Text = '' then
begin
msg := msg + '- Ship To cannot be empty' + sLineBreak;
Result := False;
end;
if dtpOrderDate.Date = 0 then
begin
msg := msg + '- Order Date cannot be empty' + sLineBreak;
Result := False;
end;
if edtPrice.Text = '' then
begin
msg := msg + '- Price cannot be empty' + sLineBreak;
Result := False;
end;
if edtQuantity.Text = '' then
begin
msg := msg + '- Quantity cannot be empty' + sLineBreak;
Result := False;
end;
if wcbQBItem.Text = '' then
begin
msg := msg + '- Item cannot be empty' + sLineBreak;
Result := False;
end;
if edtJobName.Text = '' then
begin
msg := msg + '- Job Name Cannot be empty' + sLineBreak;
Result := False;
end;
xdwdsQBItem.Locate('name', xdwdsOrder.FieldByName('staff_fields_quickbooks_item').AsString, []);
if xdwdsQBItem.FieldByName('QB_ID').AsString = '' then
begin
msg := msg + '- Item Must be Linked to QuickBooks' + sLineBreak;
Result := False;
end;
if customer_qb_id = '' then
begin
msg := msg + '- Customer Must be Linked to QuickBooks' + sLineBreak;
Result := False;
end;
if not result then
asm
alert(msg);
end;
end;
end. end.
\ No newline at end of file
kgOrdersClient/webKGOrders.dproj
...@@ -101,7 +101,7 @@ ...@@ -101,7 +101,7 @@
<TMSWebSingleInstance>1</TMSWebSingleInstance> <TMSWebSingleInstance>1</TMSWebSingleInstance>
<TMSUseJSDebugger>2</TMSUseJSDebugger> <TMSUseJSDebugger>2</TMSUseJSDebugger>
<VerInfo_Release>5</VerInfo_Release> <VerInfo_Release>5</VerInfo_Release>
<TMSWebBrowser>3</TMSWebBrowser> <TMSWebBrowser>1</TMSWebBrowser>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''"> <PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
......
kgOrdersServer/Source/Lookup.Service.pas
...@@ -241,12 +241,12 @@ type ...@@ -241,12 +241,12 @@ type
TWebOrder = class TWebOrder = class
Public Public
//Company //Company
ORDER_ID: integer;
COMPANY_ID: integer; COMPANY_ID: integer;
NAME: string; NAME: string;
SHORT_NAME: string; SHORT_NAME: string;
inQuickBooks: string; IN_QB: string;
ADDRESS_LIST: TList<TAddressItem>; QB_ORDER_NUM: string;
ITEMS: TItemList;
// Staff Fields: // Staff Fields:
staff_fields_order_date: string; staff_fields_order_date: string;
...@@ -279,12 +279,12 @@ type ...@@ -279,12 +279,12 @@ type
supplied_by_customer_initials: string; supplied_by_customer_initials: string;
// Proofing // Proofing
proofing_pdf: boolean; proofing_pdf: string;
proofing_pdf_to: string; proofing_pdf_to: string;
proofing_pdf_date_1: string; proofing_pdf_date_1: string;
proofing_pdf_date_2: string; proofing_pdf_date_2: string;
proofing_pdf_date_3: string; proofing_pdf_date_3: string;
proofing_full_size_ink_jet_for: boolean; proofing_full_size_ink_jet_for: string;
proofing_ink_jet_to: string; proofing_ink_jet_to: string;
proofing_ink_jet_to_2: string; proofing_ink_jet_to_2: string;
proofing_ink_jet_date_1: string; proofing_ink_jet_date_1: string;
......
kgOrdersServer/Source/Lookup.ServiceImpl.pas
...@@ -1330,16 +1330,18 @@ var ...@@ -1330,16 +1330,18 @@ var
begin begin
try try
orderID := orderInfo; orderID := orderInfo;
SQL := 'select * from web_plate_orders o JOIN customers c ON c.CUSTOMER_ID = o.COMPANY_ID where ORDER_ID = ' + quotedStr(orderID); 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);
doQuery(ordersDB.UniQuery1, SQL); doQuery(ordersDB.UniQuery1, SQL);
result := TWebOrder.Create; result := TWebOrder.Create;
// Company // Company
result.ORDER_ID := ordersDB.UniQuery1.FieldByName('ORDER_ID').AsInteger;
result.COMPANY_ID := ordersDB.UniQuery1.FieldByName('COMPANY_ID').AsInteger; result.COMPANY_ID := ordersDB.UniQuery1.FieldByName('COMPANY_ID').AsInteger;
result.NAME := ordersDB.UniQuery1.FieldByName('NAME').AsString; result.NAME := ordersDB.UniQuery1.FieldByName('NAME').AsString;
result.SHORT_NAME := ordersDB.UniQuery1.FieldByName('SHORT_NAME').AsString; result.SHORT_NAME := ordersDB.UniQuery1.FieldByName('SHORT_NAME').AsString;
result.inQuickBooks := '?'; result.IN_QB := ordersDB.UniQuery1.FieldByName('IN_QB').AsString;
result.QB_ORDER_NUM := ordersDB.UniQuery1.FieldByName('QB_ORDER_NUM').AsString;
// Staff Fields // Staff Fields
result.staff_fields_order_date := ordersDB.UniQuery1.FieldByName('staff_fields_order_date').AsString; result.staff_fields_order_date := ordersDB.UniQuery1.FieldByName('staff_fields_order_date').AsString;
...@@ -1371,12 +1373,12 @@ begin ...@@ -1371,12 +1373,12 @@ begin
result.supplied_by_customer_initials := ordersDB.UniQuery1.FieldByName('supplied_by_customer_initials').AsString; result.supplied_by_customer_initials := ordersDB.UniQuery1.FieldByName('supplied_by_customer_initials').AsString;
// Proofing // Proofing
result.proofing_pdf := ordersDB.UniQuery1.FieldByName('proofing_pdf').AsBoolean; result.proofing_pdf := ordersDB.UniQuery1.FieldByName('proofing_pdf').AsString;
result.proofing_pdf_to := ordersDB.UniQuery1.FieldByName('proofing_pdf_to').AsString; result.proofing_pdf_to := ordersDB.UniQuery1.FieldByName('proofing_pdf_to').AsString;
result.proofing_pdf_date_1 := ordersDB.UniQuery1.FieldByName('proofing_pdf_date_1').AsString; result.proofing_pdf_date_1 := ordersDB.UniQuery1.FieldByName('proofing_pdf_date_1').AsString;
result.proofing_pdf_date_2 := ordersDB.UniQuery1.FieldByName('proofing_pdf_date_2').AsString; result.proofing_pdf_date_2 := ordersDB.UniQuery1.FieldByName('proofing_pdf_date_2').AsString;
result.proofing_pdf_date_3 := ordersDB.UniQuery1.FieldByName('proofing_pdf_date_3').AsString; result.proofing_pdf_date_3 := ordersDB.UniQuery1.FieldByName('proofing_pdf_date_3').AsString;
result.proofing_full_size_ink_jet_for := ordersDB.UniQuery1.FieldByName('proofing_full_size_ink_jet_for').AsBoolean; result.proofing_full_size_ink_jet_for := ordersDB.UniQuery1.FieldByName('proofing_full_size_ink_jet_for').AsString;
result.proofing_ink_jet_to := ordersDB.UniQuery1.FieldByName('proofing_ink_jet_to').AsString; result.proofing_ink_jet_to := ordersDB.UniQuery1.FieldByName('proofing_ink_jet_to').AsString;
result.proofing_ink_jet_to_2 := ordersDB.UniQuery1.FieldByName('proofing_ink_jet_to').AsString; result.proofing_ink_jet_to_2 := ordersDB.UniQuery1.FieldByName('proofing_ink_jet_to').AsString;
result.proofing_ink_jet_date_1 := ordersDB.UniQuery1.FieldByName('proofing_ink_jet_date_1').AsString; result.proofing_ink_jet_date_1 := ordersDB.UniQuery1.FieldByName('proofing_ink_jet_date_1').AsString;
...@@ -1436,24 +1438,6 @@ begin ...@@ -1436,24 +1438,6 @@ begin
result.general_comments := ordersDB.UniQuery1.FieldByName('general_comments').AsString; result.general_comments := ordersDB.UniQuery1.FieldByName('general_comments').AsString;
ordersDB.UniQuery1.Close; ordersDB.UniQuery1.Close;
SQL := 'SELECT s.ship_block FROM customers c JOIN customers_ship s ON c.CUSTOMER_ID = s.customer_id WHERE c.CUSTOMER_ID = ' + IntToStr(result.COMPANY_ID);
doQuery(ordersDB.UniQuery1, SQL);
result.ADDRESS_LIST := TList<TAddressItem>.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add( result.ADDRESS_LIST );
while not ordersDB.UniQuery1.Eof do
begin
ADDRESS := TAddressItem.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add( ADDRESS );
ADDRESS.ADDRESS := ordersDB.UniQuery1.FieldByName('ship_block').AsString;
result.ADDRESS_LIST.Add(ADDRESS);
ordersDB.UniQuery1.Next;
end;
ordersDB.UniQuery1.Close;
result.ITEMS := GetItems('');
except except
on E: Exception do on E: Exception do
begin begin
...@@ -2332,8 +2316,9 @@ begin ...@@ -2332,8 +2316,9 @@ begin
else else
msg := 'Success: Order Successfully Edited'; msg := 'Success: Order Successfully Edited';
Result := TJSONObject.Create.AddPair('status', msg); Result := JSONData;
Result.AddPair('OrderID', ORDER_ID); Result.AddPair('status', msg);
Result.AddPair('ORDER_ID', ORDER_ID);
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result); TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result);
except except
on E: Exception do on E: Exception do
......
kgOrdersServer/kgOrdersServer.ini
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
MemoLogLevel=3 MemoLogLevel=3
FileLogLevel=5 FileLogLevel=5
webClientVersion=0.9.7 webClientVersion=0.9.7
LogFileNum=940 LogFileNum=946
[Database] [Database]
Server=192.168.159.155 Server=192.168.159.155
...@@ -17,8 +17,8 @@ Password=emsys01 ...@@ -17,8 +17,8 @@ Password=emsys01
CompanyID=9341454272655710 CompanyID=9341454272655710
ClientID=ABgO14uvjh8XqLud7spQ8lkb98AUpcdA7HbyMJfCAtl65sQ5yy ClientID=ABgO14uvjh8XqLud7spQ8lkb98AUpcdA7HbyMJfCAtl65sQ5yy
ClientSecret=bQ06TRemHeAGFzVHRaTUvUoBU9jpU9itK6MOMgqN ClientSecret=bQ06TRemHeAGFzVHRaTUvUoBU9jpU9itK6MOMgqN
RefreshToken=RT1-75-H0-17621978856h99eylecajhs2sw9gvm RefreshToken=RT1-222-H0-17626191874vkaap374wzbpuk0lnvh
AccessToken=eyJhbGciOiJkaXIiLCJlbmMiOiJBMTI4Q0JDLUhTMjU2IiwieC5vcmciOiJIMCJ9..bxX38cX1EtQoXIcJyc1aXQ.PAkiydy6yOM54Qzsyu7V2ztL6yuSg0SWBUuAPHAuMHboDIfDJleOAvINtZtBKNPNwsicE9kn9myqRSuIrMBNIMrONueVYFn5mQk1tSGL21rsQ0PYtYITMtOaE3xwqmjAk_MGDFq7NVbI51MQOvdUe1UwPXEX7GnRUf9W_XrIWksMujZh7n2dmbLyppee5VCC-FNWt3fqhxNQpA3zrQLXXrgK9MNei1A3jgnYhVscNUiIBJm2JBqK1YMbXwQ1MoP_YPJPvw7k8nyPRzY3KO90Egr25M9l-lI3C4oIKvaTs64uLCXxINX_9yI4CDbJWnreA6PrubvWfuJralTCvvWsTnEPGBABu2A1ArrpnaSiGr_XgxQAHE9gHAU2YA4tb20RoAY5CPxpH-DhpoxqkyOvdQJzWXVcxlChXQmN1yzKJALJGRNZfnp4DD2CtLN202YHMY9EOTMw6PkcKCC8PD8T-hg22uT6fLOf8pAGq-svy58.rgWZyjDgeaMfm98j_xsfWw AccessToken=eyJhbGciOiJkaXIiLCJlbmMiOiJBMTI4Q0JDLUhTMjU2IiwieC5vcmciOiJIMCJ9..0QjLsnLwqTISwro5qh9UsA.-GEQx2lb0_vw3h01Bx77UYf8bzTxuk4QH17BYInZMEm3lTzv5eovx96_AfoVwZdVwrDBQOT2j5aDOWml4-B_Hi3fIHZn95JrPHcx24cP7DXznGWQhW5TNs8mi3Ac5ygFTD8rm6JKWJ_IctpH1rBKfQQAtiBK-AtUoZ6kZK2R9yY_bn8qE-ocUC_G8pXy7l3qkGuQSaLSgxNVdCy3k0ElRE5FiDyakxY4Zye9ha2Z9DIzlDDWVe2N3oA6AN8dXV3oLPtUu0o4ZusoXRUet9Ghroazg0JRf3IfN9oAsUhIojiSDAQ_7XGsctBg1o7ms2YokPL4UIPHEIPfeJq6snS7YR-8UzSQngFCKJhscXmkokvUCLAB2r-xJArDwjJiv-NBaVntVSRhPG3_tjrwekJG3uVWKZeD3w_IwZJduGga1U-rYquswWLWDa04AXYx48eQxy1anNP0R2QMyrJZcNqQx_ivefEA-Z9JmWsDawDWXH4.XI7T7R4DQGJ9vWzyHn7KxQ
LastRefresh=7/25/2025 3:42:20 PM LastRefresh=7/30/2025 12:28:34 PM
--RefreshToken=RT1-10-H0-1760618473k44t73jittvqlr4wynn6 --RefreshToken=RT1-10-H0-1760618473k44t73jittvqlr4wynn6
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