aferra

bem não sei o que é, mais faz o seguinte, mandei para o seu email a que eu uso,e funciona blz, tente e qqc entre em contato. ABraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Paulo, Blz?! Obrigado pela resposta. Fiz o que vc me falou e continuou dando o mesmo problema, aí deu um repente e como podia colocar em outra parte da tela, deu certo parou pq coloquei outro get antes do "danado", sei que se colocar em primeiro da o erro mas por enquanto deixa assim precisava entregar para o cliente e foi embora, hehehe, amanhã dou mais algumas mexidas se conseguir resolver eu reporto para o forum Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Boa Noite! Valeu pela dica, eu uso somente o ordscope(), e fazendo o teste realmente acontece isso, porem, claro, depende de cada caso, e mexendo fiz um SORT entre as variaveis do codigo para saber qual é menor e deu certo colocando data+codigo, fica aqui mais uma 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 TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Segue abaixo os referentes problemas... @ 118,06 FOLDER oFld FONT oFnt1 OF oDlgCli PROMPT "&Endereço","&Observação","&Contatos","Tranporte / Pagamento" PIXEL SIZE 300,80; COLOR {,nRgb(250,0,0)},{; {nRgb(255,255,255),nRgb(192,192,192)},; {nRgb(255,255,255),nRgb(192,192,192)},; {nRgb(255,255,255),nRgb(192,192,192)},; {nRgb(255,255,255),nRgb(192,192,192)}}; ENABLECOLOR {nRgb(192,192,192),nRgb(255,255,255)} //esta é a linha que me da a dor de cabeça @ 00.5,01.0 GET oObjs[25] VAR oGets[25] PICTURE "9999" SIZE 16,8 VALID (lRetBus:=Visualiza(oGets[26],"Tra","nom",{"Cód.","Nome da Transportadora"},{"cod","nom"},{50,280},"Transportadora"),Seleciona(lRetBus,3)) OF oFld:aDialogs[4] Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

Estou usando uma folder e no 4º item tem uma validação em um get que abre uma janela de busca que e´stá iniciando junto com a folder e que só que ser acionada qdo for dado um ENTER, alguém tem idéia do que pode estar acontecendo? Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

Estou usando uma folder e no 4º item tem uma validação em um get que abre uma janela de busca que e´stá iniciando junto com a folder e que só que ser acionada qdo for dado um ENTER, alguém tem idéia do que pode estar acontecendo? Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

Estou usando uma folder e no 4º item tem uma validação em um get que abre uma janela de busca que e´stá iniciando junto com a folder e que só que ser acionada qdo for dado um ENTER, alguém tem idéia do que pode estar acontecendo? Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

Boa Tarde! mude o hbitmap para hbmpPal abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

tente isso, se é que eu entendi bem. Funcao para append blanc no bd *------------------- FUNCTION ADD_REC *------------------- PARAMETER Lretry PRIVATE Lforever,Lorder Lretry = IF(TYPE("Lretry") != "N",50,Lretry) Lforever = (Lretry == 0) Lorder = INDEXORD() SET ORDER TO 0 DO WHILE Lretry > 0 .OR. Lforever APPEND BLANK IF dbRlock() // trava o registro IF !NETERR() //verifica se não tem erro de rede EXIT ENDIF ELSE EXIT ENDIF @ 23,44 Say Space(35) IF Mens_Rede("Adicionando em " + DBF() + " ESC Cancela",1) == 27 EXIT ENDIF Lretry-- ENDDO SET ORDER TO Lorder IF NETERR() Mens_Rede("Falha ao Adicionar Registros !",2) Close_All() @ 23,44 SAY SPACE(35) RETURN .F. ENDIF RETURN .T. Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

olá no combobox acho que não, mas se vc estiver usando array´s sim o limite se não me engano é de 4096 itens abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

Olá se vc tirar o ws_tabstop aí é que não vai funcionar. eu tenho um sistema feito com dll e funciona normalmente com o ENTER isso acontece em qualquer computador? Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

na funcão TotBrowse() errado-> Ent->(dbSetOrder(0)) vc usa ordscope() se vc tira o indice ele não estabelece os registros que compõem a nota acho que é isso Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

Olá acho que com o 16 bits abre o arquivo diferente do 32 bits Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

DEFINE WINDOW oWSig FROM 100,100 TO 490,600 PIXEL TITLE "Seu Programa" ICON oIco1 MDI .... ..... ..... ACTIVATE WINDOW oWSig MAXIMIZED ON PAINT Fundo() RETURN(.T.) 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() DEFINE BITMAP oFONDOPANT FILENAME "SIG.BMP" PalBmpDraw(oWSig:oWNDCLIENT:GETDC(),oWSig:nBOTTOM-oFONDOPANT:nHEIGHT()-120,1,oFONDOPANT:hBmpPal,oFONDOPANT:nWIDTH(),oFONDOPANT:nHEIGHT(),8913094) oFONDOPANT:Destroy() DEFINE BITMAP oFONDOPANT FILENAME "CPI.BMP" PalBmpDraw(oWSig:oWNDCLIENT:GETDC(),oWSig:nBOTTOM-oFONDOPANT:nHEIGHT()-120,oWSig:nRIGHT-oFONDOPANT:nWIDTH(),oFONDOPANT:hBmpPal,oFONDOPANT:nWIDTH(),oFONDOPANT:nHEIGHT(),8913094) oFONDOPANT:Destroy() RETURN(NIL) Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

Para resolver rápido coloque os gets em CENTER, ou RIGHT que eles ficaram na cor que vc precisa. Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

Tente Colocar no active da windows, pois assim só começa a contar a partir do momento que ativar a janela Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com

sele inf2 inf2->(ordScope(0,inf2->inf2cp02+inf2->inf2cp03=="0000")) inf2->(ordScope(1,inf2->inf2cp02+inf2->inf2cp03=="0000")) inf2->(dbGoTop()) redefine COLUMN BROWSE oBrw OF oDlg ; id 101 ; ON DBLCLICK (I30Atuget(oDl30) ADD COLUMN TO BROWSE oBrw ; DATA Alltrim(inf2->inf2cp01) ; SIZE 60 NOBAR ; CENTER ; HEADER "Sistema" REDEFINE BUTTON ID 102 ACTION(I30Fecha(oDLg)) oBrw:Refresh() ACTIVATE DIALOG oDlg SELE Inf2 inf2->(ordScope(0,)) inf2->(ordScope(1,)) Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b MSN: ferracini_silva@hotmail.com

SET DELETE OFF CLOSE ALL CREATE \DADOS\CARTA_CO.NEW FROM D_ESTRU USE \DADOS\CARTA_CO.NEW APPEND FROM \DADOS\CARTA_CO.DBF CLOSE ALL RENAME \DADOS\CARTA_CO.DBF TO \DADOS\CARTA_CO.OLD RENAME \DADOS\CARTA_CO.NEW TO \DADOS\CARTA_CO.DBF CLOSE ALL Fazendo uns testes aqui no programa, funcionou blz, acho que teria que ser desta forma, indicando o caminho e o destino, fazendo direto do diretorio tb funcionou, espero ter ajudado ABraços Alessandro