Commit ae040b08 by Mac Stephens

quick update to fix inQuickBooks missing fields

parent 35c58bb8
......@@ -1272,6 +1272,9 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
Connection = DMConnection.ApiConnection
Left = 1060
Top = 182
object XDataWebDataSet1inQuickBooks: TStringField
FieldName = 'inQuickBooks'
end
object XDataWebDataSet1ORDER_ID: TIntegerField
FieldName = 'ORDER_ID'
end
......
......@@ -199,6 +199,7 @@ type
btnAdd: TWebButton;
WebButton2: TWebButton;
lblFormState: TWebLabel;
XDataWebDataSet1inQuickBooks: TStringField;
procedure WebFormCreate(Sender: TObject);
[async] procedure getOrder(Order_ID: string);
[async] procedure getCustomer(customerID: string);
......
......@@ -1414,6 +1414,9 @@ object FOrderEntryWeb: TFOrderEntryWeb
Connection = DMConnection.ApiConnection
Left = 408
Top = 4
object XDataWebDataSet1inQuickBooks: TStringField
FieldName = 'inQuickBooks'
end
object XDataWebDataSet1ORDER_ID: TIntegerField
FieldName = 'ORDER_ID'
end
......
......@@ -203,6 +203,7 @@ type
btnAdd: TWebButton;
WebButton2: TWebButton;
lblFormState: TWebLabel;
XDataWebDataSet1inQuickBooks: TStringField;
procedure WebFormCreate(Sender: TObject);
[async] procedure getOrder(Order_ID: string);
[async] procedure getCustomer(customerID: string);
......
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