JUDSON Posted December 2, 2013 Report Share Posted December 2, 2013 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() Quote Link to comment Share on other sites More sharing options...
JUDSON Posted December 2, 2013 Author Report Share Posted December 2, 2013 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 2, 2013 Report Share Posted December 2, 2013 dbselectarea("temp") ; dbgotop() SET ORDER TO... wnota:=temp->nota SEEK WNOTA IF FOUND() // BLZ. ELSE ? [uE, CADE A NOTA? ] ? INDEXORD() RETURN NIL ENDIF Quote Link to comment Share on other sites More sharing options...
JUDSON Posted December 2, 2013 Author Report Share Posted December 2, 2013 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() Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.