Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Macros created for v4.2a doesn't work properly in v5.0a

Status
Not open for further replies.

btom029

Technical User
Feb 14, 2003
1
US
The vba macros were done with CRYSTL32.OCX and the report with Crystal 8.5 but now that we've upgraded the macro sort of still works but I get a pop-up dialog box prompting to "Export All Pages" or "Page Range X to Y".

I started rewriting the macro using the CRAXDRT.DLL but the order confirmation that are emailed are blank.

Here's a snippet of my code if anyone can point out my problem...

Dim crxApp As New CRAXDRT.Application
Dim crxReport As New CRAXDRT.Report
Dim crxExportOptions As CRAXDRT.Export

Set OEOPT3 = OpenView("OE0480", "OE")
Set OEOPT3Fields = OEOPT3.Fields
OEOPT3.Read

SrtFrom = Val(Right(FirstInvNumberOTD, 6))
SrtTo = Val(OEOPT3Fields("INVBODYD"))
Set OEINV1 = OpenView("OE0420", "OE")
Set OEINV1FIELDS = OEINV1.Fields

Set crxApp = New CRAXDRT.Application
Set crxReport = New CRAXDRT.Report

Set crxReport = crxApp.OpenReport(AppDir & "\ORDRACKN.RPT")
crxReport.DiscardSavedData

For InvoiceNumberSelected = SrtFrom To SrtTo - 1
.
. Each confirmation is emailed out with our their PO# in
. the subject line and order information in the
. attachment exported as Rich Text Format
. However, the attachment is blank and does not contain
. any OEORDD information
.
Next InvoiceNumberSelected

Does anyone have a clue as what I'm doing wrong???
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top