aferra

Veja lá: aStructure:={} AADD(aStructure,{"DTEM","D",08,0}) AADD(aStructure,{"DCTO","C",06,0}) AADD(aStructure,{"CODF","C",05,0}) AADD(aStructure,{"VDUP","N",14,2}) AADD(aStructure,{"VTOT","N",14,2}) AADD(aStructure,{"DTPR","D",08,0}) AADD(aStructure,{"DIAS","N",12,0}) dbCreate("DADOS\ARQTCP.DBF",aStructure) USE DADOS\arqtcp ALIAS Tcp NEW EXCLUSIVE Cap->(dbGoTop()) while Cap->(!Eof()) IF Cap->dtprdtpg) TCp->(dbAppend()) TCp->(dbRLock()) TCp->dtem:=Cap->dtem TCp->dcto:=Cap->dcto TCp->codf:=Cap->codf TCp->vdup:=Cap->vdup TCp->vtot:=Cap->vtot TCp->dtpr:=Cap->dtpr TCp->dias:=(Cap->dtpr-DATE()) TCp->(dbUnLock()) END Cap->(dbSkip()) END Tcp->(dbGoTop()) oPrn:= TDosPrn():New( cFile ) oPrn:Say(1,1,Tcp->dtem) oPrn:Say(2,1,Tcp->dcto) END:() FERASE("DADOS\ARQTCP.DBF") FERASE("DADOS\ARQTCP.CDX") dbCloseAll() Qqc grite!!!!!!!!( desculpe pelo bordão Kapiaba, hahahahahaha ) Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

não é discordando do gabrieis, ok! Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

na minha opnião vc tem muitos while que ficam procurando e é por isso que demora tanto o relatório, pelo que avaliei faça um bd temporário e boa manda o bd tmp para imprimir e acabará seu problema Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

discordo, eu utilizo sem problema algum ctit:="000016" cpro:="Meu Produto " dbSeek(cTit+cpro) -> funciona dbSeek(cTit) -> funciona tb ordscope(0,cTit+cpro) -> funciona ordscope(1,cTit+cpro) -> funciona ordscope(0,cTit) -> funciona ordscope(1,cTit) -> funciona eu acho que deve ter algo errado na criação, como o Atenilto disse Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

opa! e aí Marcelo blz! olha sobre o assunto dos objs, aparentemente parou de dar os erros, vamos apreciar mais uns dias, obrigado Agora isso eu nunca, alias, nem sabia que dava, como pode ser feito isso... t+ Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

tudo depende de do que vc precisa, eu utilizo em certos relatórios bd temporário em outros somente scope(), outros apenas um seek e assim por diante, se ele está demorando pode ser que esteja fazendo algo errado ou o bd é grande, qqc post seu código para darmos uma olhada Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

olá,blz? olha depois de penar um pouco eu desisti e faço assim: ordscope(0,cGET1) ordscope(1,cGET1) while !eof() if (oDBbt)->DatAtr < aDads[1] .OR. (oDBbt)->DatAtr > aDads[2] skip ; loop end . . skip end ordscope(0,) ordscope(1,) é mais rápido e com menor dor de cabeça, sei pode ser feito, mas tem data que dá certo, outras datas que não dão, é um terror Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

bom eu tive o mesmo problema e passei a usar a shell, look: ShellExecute(GetActiveWindow(),'Open',ALLTRIM(vhttp),,,2) ShellExecute(GetActiveWindow(),'Open',"MAILTO:"+ALLTRIM(vemail),,,2) assim se encerra os problemas com compatibilidade Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Cara, agora lendo com calma estou tendo uma idéia meio louca, será que sua imagem não está com problemas????, pq em questão de programação está blz! testei e está ok, tente novamente com este q foi as coordenadas que eu coloquei pq com as suas não aparecia nada SayBitmap(0.5,0.5,4,2,"Logo.bmp",impcli1)id=red> Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

olá, eu utilizo o CDX e faço este tipo de indice e funciona blz! vc está criando/setando o indice corretamente? Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

post então a parte do programa para sabermos como vc está fazendo Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

não é para desanimar, mas, pq não tenta usar uma listbox, ou um browse, não seria melhor e com maiores recursos?? Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Marcelo, blz? bem winexec, eu uso normalmente no w98,xp,2000, se quiser pode passar para: ShellExecute(GetActiveWindow(),'Open',"MAILTO:"+ALLTRIM(vemail),,,2) o brush a sim este eu tive um problemão e tirei o brush e passei usar assim: DEFINE WINDOW oWSig FROM 0,0 TO 400,600 PIXEL TITLE "Titulo" MENU CriaMenu() ICON oIco1 MDIid=red> . . . ACTIVATE WINDOW oWSig MAXIMIZED ON PAINT Fundo() FUNCTION Fundo() DEFINE BITMAP oFONDOPANT FILENAME "LOGO.BMP" PalBmpDraw(oWSig:oWNDCLIENT:GETDC(),((oWSig:nBOTTOM-oWSig:nTOP)/2)-(oFONDOPANT:nHEIGHT()/2)-70,((oWSig:nRIGHT-oWSig:nLEFT)/2)-(oFONDOPANT:nWIDTH()/2),oFONDOPANT:hBmpPal,oFONDOPANT:nWIDTH(),oFONDOPANT:nHEIGHT(),8913094) oFONDOPANT:Destroy() RETURN(NIL) Não é o mais indicado mais resolveu, pela versão que eu utilizo Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

outra coisa tente trocar para: oWnd:oMsgBar:aItem[1]:hBmpPal1id=red>:= LoadBitmap( GetResources(),"BMP_BARMSG" ) Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Olá Luiz, Blz? Bem testei e deu certo desta forma oMsgItemSnh := TMsgItem():New( oWnd:oMsgBar, , 25, oFont,,, .t., { || Nilid=red> },,, "Meu Bmp" ) Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

ok, pq talvez possa ser a solução de um problema que tenho em um sistema, fico no aguardo da explicação OBRIGADÃO Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

agora estou intrigado, por qual razão estes arquivos se tornam necessários... é uma dúvida, não fica bravo não hein?! Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Olá rmarra!!! tente isso! SetResourcesEx( "Venda.dll" ) SetResourcesEx( "Receber.dll" ) SetResourcesEx( ) Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

olá Marcelo!! Tente isso: FUNCTION SayBitmap(nArriba,nIzq,nAncho,nAlto,xBitmap,oPrn) LOCAL xCor:={} LOCAL nPixWidth,nPixHeight xCor:=oPrn:Cmtr2Pix(nArriba,nIzq) nAncho:=nAncho/2.54 nAlto:=nAlto /2.54 nPixWidth:=INT(oPrn:nLogPixelY()*nAncho) nPixHeight:=INT(oPrn:nLogPixelX()*nAlto) oPrn:SayBitmap(xCor[1],xCor[2],xBitmap,nPixWidth,nPixHeight) RETURN(NIL) Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

é kapi, mas um para nosso time de @SAY @GET, heheheheheh Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

kd nosso amigo do !argh!,WS, Kapiaba, ele que tem conhecimento do assunto, vamos lá, mostre sua cara, dê sua opnião, ajude o rapaz!!!!! Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Fala meu amigo, blz? Obrigadão, por mais esta dica... Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

ólá Luciano! Tente isso: INDEX ON &(NomeIndice)id=red> TAG &(NomeTag)id=red> TO [re]&(NomeArquivo)id=red> EVAL{||oMeter:Set(RECNO())} EVERY 5 Vc precisa ter o ERVERY[/red], eu n~]ao utilizo ABraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

ops em tempo..... TRANS({||&cCampo5},if(left(&cCampo4,1)="U","@e 999,999,999","@e 999,999.999")id=red> Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Bom dia, Luiz! Acho que ficaria assim, look: ADD COLUMN TO BROWSE oBrw HEADER "Estoque"id=red> DATA TRANS({||&cCampo5},if(left(&cCampo4,1)="U", pict "@e 999,999,999", pict "@e 999,999.999")id=red> SIZE 80 É assim que utilizo, Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.