Browsing UPCHKD 2

[Bluejay07]

Hello,

I'm trying to browse UPCHKD although after I hit the .fetch it just goes to the end with area. I can get the query to work in SQL.

What am I missing?

   Dim UPCHKD As AccpacCOMAPI.AccpacView
   Dim UPCHKH As AccpacCOMAPI.AccpacView

   cNIBDBLINK.OpenView "UP0048", UPCHKH
   cNIBDBLINK.OpenView "UP0049", UPCHKD
   UPCHKH.Compose Array(UPCHKD, Nothing, Nothing, Nothing, Nothing)
   UPCHKD.Compose Array(UPCHKH, Nothing, Nothing)
   With UPCHKD
      .Browse "(PEREND >= '" & Format(pzeDate.Text, "yyyymmdd") & "') and (PEREND <= '" & Format(pzeEndDate.Text, "yyyymmdd") & "') and (EARNDED = 'NIB')", True
            
       Do While .Fetch

If at first you don't succeed, then sky diving wasn't meant for you!

 

[Jay Converse]

If you .Compose views, then you need to .Browse the header first. Or don't .Compose in the first place.

 

[Bluejay07]

Hi Tuba,

Thanks.
I originally had it with just the details and it still have the same result.
That's when I added the header and the compositions.



If at first you don't succeed, then sky diving wasn't meant for you!

 

[Jay Converse]

Then I don't know why it's not working. FYI, I've been programming Accpac US Payroll macros since '99, even before the COMAPI, so Occam's razor says you're missing something simple.

 

[Jay Converse]

Like starting with a .Cancel if you're in an outer loop.

 

[ettienne]

.Fetch is forward browsing only, so if the record you seek is before the current record then you are not going to get a result.
.Cancel clears the record and starts at the beginning of the pile.

Sage 300 Certified Consultant

 

[Bluejay07]

Thanks for the replies.
I've used similar code before, that's why I'm confused why it's not working.
It's supposed to be a simple routine and there is no other code.

I think I had also tried a .cancel although I can try again.

Thanks.



If at first you don't succeed, then sky diving wasn't meant for you!

 

[ettienne]

PEREND is not text: PEREND >= [highlight #FCE94F]'[/highlight]" & Format(pzeDate.Text, "yyyymmdd") & "[highlight #FCE94F]'[/highlight])
Try PEREND >= " & Format(pzeDate.Text, "yyyymmdd") & ")

Sage 300 Certified Consultant

 

[DjangMan]

And if you're just pulling a list of records regardless of the cheque that the transaction was on then consider using CS0120 instead of searching transaction by transaction.

 

[Bluejay07]

Hi DjangMan,

I've used CS0120 in the past although I want to figure out what is wrong with the use of the views.

I went back to basics and it still doesn't work.
Here is the code:

Dim UPCHKD As AccpacCOMAPI.AccpacView

On Error GoTo ERR_Handler
   
cNIBDBLINK.OpenView "UP0049", UPCHKD
With UPCHKD
   .Cancel
   .Browse "EARNDED='NIB'", True
   Do While .Fetch
      ...
   Loop
End With

SQL shows almost 600 records but my .fetch never works.


If at first you don't succeed, then sky diving wasn't meant for you!

 

[ettienne]

.Browse "EARNDED=""NIB""", True

Sage 300 Certified Consultant

 

[Jay Converse]

Or .Browse "EARNDED=NIB", True

 

[Bluejay07]

Thank you for all replies.
It appears the single quotes were my problem for both the dates and the earnings code.

Thank you.

If at first you don't succeed, then sky diving wasn't meant for you!