External exception C000001D
Below is the routine that the dll executes
rptForm := TrptForm.Create(Application);
with rptForm do begin
Try
//set the envelope's dataset to AOP envelope query
dsDataSource.DataSet := Query1;
(dsDataSource.DataSet As
TQuery).ParamByName('Month_Begin_Param').AsDate := Month_Begin;
(dsDataSource.DataSet As
TQuery).ParamByName('Month_End_Param').AsDate := Month_End(Month_Begin);
(dsDataSource.DataSet As TQuery).Active := True;
tblTable1.Open;
tbltable2.Open;
SCREEN.CURSOR := crDefault;
ppReport1.Print;
Finally
(dsDataSource.DataSet As TQuery).Active := false;
Release;
SCREEN.CURSOR := crDefault;
end; {try}
end; //with
Anyone have an idea?