REPORT COM ERRO

[JUDSON]

Pessoal uso essa rotina a muito tempo com o report nunca tive nenhum problema , mas de um tempo para ca num certo cliente que usa windows 7 passou a dar o seguinte problema:

o relatório e de impressão de uma nota avulsa de venda de produto , não é toda vez , mas de vez em quando o mesmo não imprime todos os produtos , imprime um e não imprime os outros , e como se ele não obedece-se o while do relatório , não da para entender porque isso não acontece toda vez segue rotina:

dbselectarea("temp") ; dbgotop()

wnota:=temp->nota

REPORT oReport ;

HEADER alltrim(cripto(defa->empr))+" "+alltrim(cripto(defa->fone))," ","NOTA DE ENTREGA - No. "+wnota, if(wtran="T","( TRANSFERENCIA )",""),upper(alltrim(temp->adic)) CENTER ;

TITLE "FANTASIA......: " + wcdcl + "-" + clie->FANT,;

"RAZÃO SOCIAL..: " + clie->noma ,;

"ENDERECO......: " + alltrim(clie->enda)+" NUMERO: "+clie->nume + " BAIRRO: " + clie->baia ,;

"CIDADE........: " + cida->desc + " ESTADO: " + clie->esta + " CEP: "+transform(clie->cepa,"@r 99.999-999"),;

wcnpjcpf,;

"PESSOA/CONTATO: " +clie->cota ,;

"TELEFONE......: " +transform(clie->fona,"@r (99)9999-9999/9999-9999")+" FAX: "+transform(clie->tfax,"@r (99)9999-9999"),;

" " LEFT ;

CAPTION "EMISSÃO DA NOTA DE ENTREGA - No.: "+ wnota ;

FONT oFon1, oFon2, oFon3

COLUMN TITLE "Item" DATA temp->nreg FONT 3

COLUMN TITLE "UN" DATA temp->Unid FONT 3

COLUMN TITLE "CODIGO" DATA temp->cdpr FONT 3

COLUMN TITLE "DESCRIÇÃO" DATA temp->des1 FONT 3

COLUMN TITLE "QUANTID" DATA temp->quan FONT 3 PICTURE "99999.99" RIGHT

COLUMN TITLE "UNITARIO" DATA temp->vuni FONT 3 PICTURE wmasc2

COLUMN TITLE "%DESCTO" DATA temp->perc FONT 3 PICTURE "999.99"

COLUMN TITLE "TOTAL" DATA temp->vpro FONT 3 PICTURE "@E 999,999.99" TOTAL

GROUP ON temp->nota

END REPORT

oReport:bSkip := {|| TEMP->(DbSkip()) } // este eu coloquei ontem mais continua o mesmo erro

oReport:Stabilize()

ACTIVATE REPORT oReport WHILE wnota = temp->nota .and. !eof();

ON STARTPAGE oReport:SayBitmap(.1,.1,w_dbfPath + "bmp\"+alltrim(defa->logo),0.70,0.70);

ON STARTGROUP oReport:NewLine()

[JUDSON]

aparentemente um relatório simples , pensei que podia ser índice desse dbf , então fiz o seguinte passei a gerar um dbf temporário ( temp-> ) toda vez que quero imprimir uma nota gera o dbf temporário , então vi que nesse temporário consta todos os itens da nota e mesmo assim só imprime um item e em outra nota imprime tudo , então não é índice. não consigo visualizar este erro.

[kapiaba]

dbselectarea("temp") ; dbgotop()

SET ORDER TO...

wnota:=temp->nota

SEEK WNOTA

IF FOUND()

// BLZ.

ELSE

? [uE, CADE A NOTA? ]

? INDEXORD()

RETURN NIL

ENDIF

[JUDSON]

ola kapiaba coloquei o índice nesse dbf como você sugeriu , mas acho que isso não vai adiantar porque antes de gerar esse temporário eu já trabalhava no dbf principal com índice , mas vou testar novamente com índice, amanha posto aqui :

dbselectarea("temp") ; dbgotop()

Index on nota Tag TMP01 TO ( cArqCdx )

dbsetindex( cArqCdx )

dbgotop()