This is a strange one. If I try to email a report as a RFT file using
the "EMAIL ON" option using 9.1 the program locks up. Change the code a
little bit sho that its sending a PDF it goes right out. Run the same
code in 7.5 and it works with no problem at all. This issue has been
reported to Razzak and he is working on it to see if there is a issue on
his side. I dont know what else to check on my end.
1) I have gone though my code and it all seems to be ok
2) Checked our exchange server to see if there is setting somewhere I
need to tweek. (dont see anything)
3) Check the virus scanner to see if it blocking it some how (no)
Below is the code
SET VAR vOutPut TEXT = 'Screen'
SET VAR vFormType INTEGER = 2
SET VAR vYesNo TEXT = 'YES'
SET VAR vRows INTEGER = NULL
SET VAR vLineItemNumber INTEGER = NULL
SET VAR vMenuID INTEGER = NULL
SET VAR vDetailGroup TEXT = 'MIP'
SET VAR vItemToShow TEXT = NULL
SET VAR vItemDescription TEXT = NULL
SET VAR vUnitPrice CURRENCY = 0
SET VAR vQuantity REAL = 0
SET VAR vExtendedPrice CURRENCY = 0
SET VAR vLQtyRight REAL = 0
SET VAR vLQtyLeft REAL = 0
SET VAR vLineItemPrice CURRENCY = 0
SET VAR vLineItemNotes TEXT = NULL
SET VAR vReturn TEXT = (CHAR(013))
SET VAR vCounter INTEGER = NULL
SET VAR vEMailBody TEXT = NULL
SET VAR rvFileName TEXT = NULL
SET VAR vFullName TEXT = NULL
SET VAR vEMailAddress2 TEXT = NULL
SET VAR rvTitle TEXT = NULL
-- This shows a review for the Misc Section
SELECT (COUNT(EstimateID)) +
INTO +
vRows INDICATOR ivRows +
FROM +
EstimateLNMisc +
WHERE +
EstimateID = .vEstimateID AND +
EstimateVersion = .vEstimateVersion AND +
LIMIT = 1
IF vRows = 0 THEN
PAUSE 2 USING 'No rows to be quoted!' +
OPTION THEMENAME &vThemes
GOTO Done
ENDIF
-- Create Temporary Table to Hold Information
RUN tEstReportDtl.TAB
-- Get data from EstimateLNHardware
SET ERROR MESSAGE 705 OFF
DROP CURSOR c1
SET ERROR MESSAGE 705 ON
DECLARE c1 CURSOR +
FOR SELECT +
LineItemNumber, +
MenuID, +
CatID, +
MiscSalesDesc, +
LineItemNotes, +
UnitPrice, +
Quantity +
FROM +
EstimateLNMisc +
ORDER BY +
LineItemNumber +
WHERE +
EstimateID = .vEstimateID AND +
EstimateVersion = .vEstimateVersion AND +
UnitPrice IS NULL +
OR +
EstimateID = .vEstimateID AND +
EstimateVersion = .vEstimateVersion AND +
UnitPrice = 0
OPEN c1
FETCH c1 INTO +
vLineItemNumber INDICATOR ivLineItemNumber, +
vMenuID INDICATOR ivMenuID, +
vItemToShow INDICATOR ivItemToShow, +
vItemDescription INDICATOR ivItemDesc, +
vLineItemNotes INDICATOR ivLineItemNotes, +
vUnitPrice INDICATOR ivUnitPrice, +
vQuantity INDICATOR ivQuantity
WHILE SQLCODE <> 100 THEN
INSERT INTO tEstimateReportDtl +
(EstimateID, +
EstimateVersion, +
LineItemNumber, +
MenuID, +
DetailGroup, +
ItemToShow, +
ItemDescription, +
LineItemNotes, +
Quantity) +
VALUES +
(.vEstimateID, +
.vEstimateVersion, +
.vLineItemNumber, +
.vMenuID, +
.vDetailGroup, +
.vItemToShow, +
.vItemDescription, +
.vLineItemNotes, +
.vQuantity)
SET VAR vItemToShow = NULL
SET VAR vItemDescription = NULL
SET VAR vUnitPrice = 0
SET VAR vQuantity = 0
SET VAR vExtendedPrice = 0
SET VAR vLineItemPrice = 0
SET VAR vLineItemNotes = NULL
FETCH c1 INTO +
vLineItemNumber INDICATOR ivLineItemNumber, +
vMenuID INDICATOR ivMenuID, +
vItemToShow INDICATOR ivItemToShow, +
vItemDescription INDICATOR ivItemDesc, +
vLineItemNotes INDICATOR ivLineItemNotes, +
vUnitPrice INDICATOR ivUnitPrice, +
vQuantity INDICATOR ivQuantity
ENDWHILE
SET ERROR MESSAGE 705 OFF
DROP CURSOR c1
SET ERROR MESSAGE 705 ON
SELECT COUNT(*) INTO vRows INDICATOR ivRows FROM tEstimateReportDtl
IF vRows = 0 THEN
PAUSE 2 USING 'No rows to be quoted!' +
OPTION THEMENAME &vThemes
GOTO DONE
ENDIF
SELECT CustID,CustName,DateWanted +
INTO +
vCustID INDICATOR ivCustID, +
vCustName INDICATOR ivCustName, +
vDateWanted INDICATOR ivDateWanted +
FROM EstimateHeader +
WHERE +
EstimateID = .vEstimateID AND +
EstimateVersion = .vEstimateVersion
SET VAR rvTitle = (.vCustID & (CTXT(.vEstimateID)) + '-' +
(CTXT(.vEstimateVersion)) )
SET VAR rvFileName = ('c:\temp\' + .rvTitle + '.RTF')
SET VAR vConfiguration TEXT = 'Special Order Item[s]'
SELECT SalesRepID +
INTO vCustSalesRepID INDICATOR ivCustSalesRepID +
FROM Customer +
WHERE CustID = .vCustID
SET VAR vDateWantedTxt TEXT = ('Date Wanted:' + (CTXT(.vDateWanted)) )
SELECT SalesRepFName,SalesRepLName,EMailAddress +
INTO +
vSalesRepFName2 INDICATOR ivSalesRepFName2, +
vSalesRepLName2 INDICATOR ivSalesRepLName2, +
vEMailAddress2 INDICATOR ivEMailAddress2 +
FROM SalesReps +
WHERE SalesRepID = .vCustSalesRepID
SET VAR vFullName = (.vSalesRepFName2 & .vSalesRepLName2)
SET VAR rvTitle = ('Quote:' & .vCustName & (CTXT(.vEstimateID)) + '-' +
(CTXT(.vEstimateVersion)) )
PAUSE 2 USING 'Make sure your connected and then press "OK"' +
OPTION THEMENAME &vThemes
PRINT QuoteSheet2 +
OPTION RTF +
|FILENAME &rvFileName +
|SHOW_CANCEL_DIALOG OFF +
|BACKGROUND_FILE NONE +
|BACKGROUND_TYPE CENTER +
|INCLUDE_LINES ON +
|INCLUDE_SHAPES ON +
|INCLUDE_RICHTEXT ON +
|INCLUDE_IMAGES ON +
|IMAGE_FORMAT JPG +
|JPEG_QUALITY 100 +
|IMAGE_DPI -1 +
|PIXELFORMAT 32 +
|GRAPHIC_DATA_IN_BINARY ON +
|OPTIMIZATION POSITIONAL_ACCURACY +
|OPEN Off +
|EMAIL ON +
|EMAIL_HOST 192.168.0.000 +
|EMAIL_AUTHENTICATION ON +
|EMAIL_USERID kladsfklasdhfklasdfkjl+
|EMAIL_PASSWORD afdjfkljasdlkfjsdl;kfj +
|EMAIL_TO_LIST [email protected]+
|EMAIL_FROM_NAME &vFullName +
|EMAIL_FROM_ADDRESS &vEMailAddress2 +
|EMAIL_SUBJECT &rvTitle +
|EMAIL_BODY Your message here!!! +
|EMAIL_DELETE_AFTER_SEND ON +
|EMAIL_SHOW_DIALOG ON
INSERT INTO EmailSentLog +
(EstimateID,EstimateVersion,MailDateTime,MailMessage) +
VALUES +
(.vEstimateID,.vEstimateVersion,.#NOW,'Quote Sent')
LABEL Done
CLS
RETURN
Victor Timmons
Tiz's Door Sales, Inc
Visit us at www.tizdoors.com <http://www.tizdoors.com/>
P Please consider the environment before printing this e-mail
