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???
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???