ZECA

citação:Olá Zeca... Tem exemplo em DICAS. Procure por PESQUISA INCREMENTAL. MAS EU RECOMENDO PARA PESQUISA, USAR UMA PESQUISA DO SERGIO(personal) PEÇA O LINK PARA ELE. MUITO MELHOR, E MAIS RÃPIDA. USA-SE O ON CHANGE EM UM GET, FICANDO EXTREMAMENTE RAPIDA A BUSCA. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: id=quote>id=quote>E aí SERJÃO ????!!!! Passaram a bola pra voce. Quanto a voce Joao Santos ouvi dizer que vc é o rei do WS. Qualquer hora te pego no pé com duvidas sobre o WS.(Nà o vai ficar sem chumbo) Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação: #Include "FiveWin.Ch" #Include "TCBrowse.Ch" #Define CLR_LGRAY RGB( 230, 230, 230 ) #Define CLR_LGREEN RGB( 190, 215, 190 ) #Define CLR_CHOCOLATE RGB( 238, 118, 33 ) #Define CLR_VERDEAGUA RGB( 0, 128, 128 ) //----------------------------------------------------------------------------// MemVar cPesq static oWnd //----------------------------------------------------------------------------// Function TCBPRODU( oDbf ) Local oBrw, nI, aTestData, uVar, oBtn, oFont, oFnt, oIco Local oWnd, oDlg, oBar, oMsg, oBrush, oBmpBrush Local cName := "Testando...", oSay Local nLinhaDialog := 5 // Linha Que Come‡a a Dialog Local nColunaDialog := 5 // Coluna Que Come‡a a Dialog Local nAlturaDialog := 390 // Altura da Dialog Local nLarguraDialog := 745 // Largura da Dialog Local nLinhaBrowse := 38 // Linha que Come‡a a Browse Local nColunaBrowse := 10 // Coluna que Come‡a a Browse Local cTitle := "Browse Para Pesquisa " + ; "Incremental dos Produtos!" // Para mostrar possiveis ¡ndices LOCAL acIndices := {} LOCAL cIndice := "" Public cPesq cPesq := "" IF NetUse( "TABPROD", .T. ) // Exclusive ‚ .F. Shared ‚ .T. OrdListAdd( "TABPROD", "CODIGO", "DESCRICAO" ) DATABASE oDbf oDbf:Load() oDbf:SetBuffer( .T. ) acIndices := GetIndices() cIndice := acIndices[ 3 ] ELSE MsgStop( "Banco de Dados Bloqueado", "Cuidado!" ) RETURN NIL ENDIF SET ORDER TO 2 DBGOTOP() // Define 'Tamanho'-(SIZE) da Fonte. DEFINE FONT oFnt NAME "Arial" SIZE 0,14 BOLD // DIALOG DEFINE FONT oFont NAME "Arial" SIZE 0,15 BOLD // LISTBOX DEFINE ICON OICO FILE ".\BRASIL__.BMP" // Um Öcone no Lado Esquerdo da Tela // Define Meu Brush na Dialog DEFINE BITMAP oBmpBrush FILE "MARMORE.BMP" DEFINE DIALOG oDlg FROM nLinhaDialog, nColunaDialog ; TO nAlturaDialog, nLarguraDialog OF oWnd ; TITLE cTitle ; PIXEL ; FONT oFnt ; STYLE DS_MODALFRAME ; ICON oIco // Este Comando, Desliga Aquela ? Chata da Dialog que Pede o Help. ODLG:LHELPICON := .F. @ nLinhaBrowse, nColunaBrowse COLUMN BROWSE oBrw OF oDlg ; SIZE 350, 135 ; ON LEFT DBLCLICK TabProd( oDbf ) ; MESSAGE "Digite Nome Para Fazer a Pesquisa" ; Alias ( oDbf:cAlias ) ; COLOR CLR_BLACK, CLR_HGRAY ; PIXEL // KeyBoard ENTER, Neste Caso, S¢ o Enter Aciona a Altera‡Æo... Legal oBrw:bKeyChar = { | nKey, nFlags | ; If( nKey # 13, ; ( oBrw:Refresh(), ; oBrw:SetFocus(), ; oBrw:DrawSelect() ), ; TabProd( oDbf ) ), oBrw, oSay } obrw:bKeyDown:={ | nKey, nFlags | Busca_Incremental2( nKey, ; ( oDbf:cAlias ),oBrw,oSay)} // wmp // Muito Bom!!! oBrw:nColOrder := 20 // 30 ‚ muita coisa... oBrw:cOrderType := "C" oBrw:cSeek := "" oBrw:nClrBackHead := CLR_LGREEN // Cor no fundo dos Headers - Cabe‡alhos oBrw:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos oBrw:aJustify := {.F., .F.} // Justifica os Cabe‡alhos Esq. .T. =Centro // Mostra os Nomes na Browse com as linhas e colunas oBrw:lLogicDrop := .t. // use crazy logic dropbox oBrw:lNoHScroll := .F. // Scroll Bar, NÆo usar .t., Pois Aborta, se se clica na Barra oBrw:nAdjColumn := 3 // expand this column to flush table right oBrw:nFreeze := 1 // This will freeze all & prevent horiz scrolling // Se Errar o Numero de Colunas, d Array Access /* Comments //WMP // Eliminado *oBrw:bLDblClick = { | nRow, nCol | EditCell( oBrw, nRow, nCol ) } *oBrw:lNoLiteBar := .T. // NÆo Liga o Cursor(barra azul) em cima do nome *oBrw:lNoGrayBar := .t. // get rid of that ugly gray bar on lost focus *oBrw:lMChange := .t. // set false to prevent Mouse colm resize/drag //WMP */ // Coluna dos Registros ADD COLUMN TO BROWSE oBrw ; // O Browse DATA Recno() ; // array element number SIZE 60 ; // Tamanho da Fonte/DimensÆo NOBAR ; // Sem barra luminosa(Cursor) CENTER ; // Centraliza COLOR CLR_BLACK, CLR_HGRAY ; // As Cores HEADER OemToAnsi( "Registro" ) // O Cabe‡alho... // Coluna dos C¢digos ADD COLUMN TO BROWSE oBrw ; DATA ( oDbf:cAlias )->Codigo ; HEADER OemToAnsi( "C¢digo " ) ; SIZE 100 ; COLOR CLR_BLACK, CLR_HRED ; CENTER ; NOBAR // Coluna Com as Descri‡Æo dos Produtos ADD TO BROWSE oBrw ; DATA PadR( Trim( ( oDbf:cAlias )->Descricao ), 26) ; HEADER OemToAnsi( "Descri‡Æo do Produto" ) ; COLOR CLR_BLACK, CLR_HCYAN ; EDIT MESSAGE "Nome do Produto no Banco de Dados" ; SIZE 400 PICTURE "@S50" // Coluna Com as Marcas dos Produtos ADD COLUMN TO oBrw ; DATA ( oDbf:cAlias )->Marca ; HEADER OemToAnsi( "Marca do Produto " ) ; COLOR CLR_BLACK, CLR_LGREEN ; SIZE 400 ; NOBAR @ 03.2, 1 BUTTON "&Saida" OF oDlg ; SIZE 30,12 ACTION oDlg:End() ; MESSAGE "Sair do Programa" ; PIXEL // Aqui, fa‡o um Scroll onde o usu rio vai girando os clientes na tela @ 17.2, 1 BUTTON "&Editar" OF oDlg ; SIZE 30,12 ; ACTION TabProd( oDbf ) ; MESSAGE "Editar os Produtos Para Modificar" ; PIXEL @ 0.2, 50 SAY "Digite Letras Iniciais Para Pesquisa " + ; "Incremental do Nome Com No " + ; "Maximo de 20 Digitos."+ CRLF + ; " Duplo Para Editar, Para Abortar, " + ; "Use BackSpace Para Apagar Letras." ; OF oDlg SIZE 260,15 ; FONT oFont ; PIXEL ; CENTER ; COLOR CLR_CHOCOLATE, CLR_YELLOW @ 20, 50 SAY "Digite Nome: " Size 100,08 OF oDlg ; PIXEL ; COLOR CLR_HBLUE, CLR_CHOCOLATE @ 20, 112 SAY oSay prompt cPesq Size 100,08 OF oDlg ; PIXEL ; COLOR CLR_HRED, CLR_VERDEAGUA ; CENTERED @ 20, 212 SAY OemToAnsi( " Suporta No M ximo 20 D¡gitos." ) ; OF oDlg SIZE 100,08 ; FONT oFont ; PIXEL ; CENTER ; COLOR CLR_RED, CLR_CHOCOLATE oBrw:bChange := {|| cPesq := "" , oSay:Refresh() } oBrw:ResetBarPos() // Que Pasa ??? Que Faz Esto?? oBrw:DrawSelect() // showit SET FONT OF oBrw TO oFont // ListBox SET FONT OF oDlg TO oFnt // Dialog ACTIVATE DIALOG oDlg CENTERED ; ON PAINT MEUBRUSH( oDlg, oBmpBrush ) DbCloseAll() EndDialog() ResAllFree() oFont:End() oFnt :End() return nil //----------------------------------------------------------------------------// Function Busca_Incremental2( nKey, Alias, oBrw, oSay, oLbx ) Local nOldPos := (Alias)->(Recno()) // Se Usuário Teclar , Aborta. If nKey = VK_ESCAPE oBrw:oWnd:End() Endif // Backspace Para Apagar Caracteres Digitados If nKey==VK_BACK If Len(cPesq) > 0 cPesq:=Left(cPesq,Len(cPesq)-1) Else Tone(500,1) Return(.F.) Endif Endif If (nKey>=32.and.nKey<=255).or. ; nKey=VK_BACK If nKey!=VK_BACK cPesq+=UPPER(Chr(nKey)) Endif If !(Alias)->(DbSeek(cPesq)) cPesq := Left(cPesq,Len(cPesq)-1) MsgStop( "Atenção: Esta Combinação de Letras" + CRLF + ; "Não Existe, Tente Outra." ) DbGoto(nOldPos) Tone(500,1) oBrw:Refresh() Return(.F.) Endif oBrw:Refresh() Endif If oSay!=Nil oSay:cTitle(cPesq) // Mostra o que foi digitado Endif Return(.t.) id=code>id=code>// FIM DO PROGRAMA João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Editado por - kapiaba on 27/06/2006 08:33:39 id=quote>id=quote>Bom dia KAPIABA !!! Voce poderia passar, por favor, por e-mail este pedaço de PRG para que eu possa tentar alterar para usar com TWBROWSE(da prá usar com TWB ?). Achei muito interessante Antecipadamente agradeço. (zeca_roque@hotmail.com) Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Olá Marcelo... http://fivetechsoft.com/forums/index.php Abraços id=quote>id=quote>Boa Tarde a Todos !!! Nesta mesma linha de pensamento, gostaria de saber como configurar meu computador para participar de GRUPO DE NOTICIAS. Antigamente, a configuração era automatica, porém com a instalacao de um ROUTER, nunca mais consegui reconfigurar meu computador para participar de GRUPO DE NOTICIAS. Alguém tem alguma idéia. segue abaixo os dados de meu ROUTER: ROTEADOR MODELO XRT-401D INTERNET BROADBAND ROUTER www.planet.com.tw Se alguém puder me dar uma dica, agradeceria muito. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:nao aguento mudar de uma versao para melhorar e deparar com tantos erros, primeiro adquiro o fw27. jan e marco - ja comeca os pepinos,, de arquivos table overflow ou alguma coisa parecida,,, cancelo quase todos os .CH ex. dll.ch do fivewin.ch, e etc, recebo a atualizacao do mes de abril e mes de maio e quando vou compilar a minha dor de cabeca comeca, nao aceita o SSay.prg, dbtnbmp.prg e tenho que voltar para o mes de Jan ou marco para funcionar, pois nao e todos os meus programas que passei para o xharbour, isso significa que nao e uma ferrari como a gente pensa e sonha, eu acho que teria que ser testado o fivewin antes de mandar as atualizacoes e indicando aonde pode acontecer os erros , iguais em algumas linguagens que conheco e que diz o que pode ser feito e o que nao pode, ja vou dizendo para os nervosinhos do forum nao criticar o que estou escrevendo e nem mudar de linguagem, so estou contribuindo no que estou passando,,, pois em outras situacoes eu fiz o maior rebu aqui, e ate me mandaram comer bosta e trocar de linguagem, mas se eu trocar de linguagem agora, terei que comecar do zero.., nao quero que aconteca de novo e peco que se ofendi alguem nestas observacoes me desculpa, e que o fivewin para e uma linguagem que nesse momento estou muito bem com ele, so que esses fatos aborrecem a gente, pois nao da tempo de ficar alterando todo o sistema e achar o que ocorre, pois se os desenvolvedores fizeram essa linguagem deviam verificar tambem os que fora lancado no passado e ja adequar nessa nova versao.... luis antonio ssp/MG id=quote>id=quote>Boa tarde LUIS ANTONIO !!! Ha algum tempo postei neste forum algo semelhante ao que voce está dizendo agora e "cairam de pau" em cima de mim. Como considero o FIVEWIN como uma LINGUAGEM DE PROGRAMAÇÃO volto a dizer que uma boa linguagem tem que ter uma documen tação abragente. O CLIPPER, por exemplo, é uma das mais populares graças as documentações que existem. O FIVEWIN carece desta documentação completa e abrangente. As melhores documentações são encontradas em ESPANHOL. Por incrivel que possa parecer o ESPANHOL é mais dificil de compreender que o INGLES. Numa frase em INGLES voce se entende duas ou tres palavras, deduz o restante da frase(porque voce já esta acostumado com o INGLES, haja visto que todos os programas são escritos em INGLES). Numa frase em ESPANHOL, as vezes por falta de entender uma palavra a frase fica truncada. Confesso que estou aguardando ansiosamente(até hoje) a PALAVRA OFICIAL sobre este assunto Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Olá a todos !!! Outro dia vi neste forum alguém se referindo a C5MENU. Gostaria de saber alguns detalhes sobre o C5MENU: 1. Funciona no FIVEWIN com CLIPPER 52e ? 2. É uma LIB FREE ? 3. Onde posso arrumar ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Olá a todos !!! Outro dia vi neste forum alguém se referindo a C5MENU. Gostaria de saber alguns detalhes sobre o C5MENU: 1. Funciona no FIVEWIN com CLIPPER 52e ? 2. É uma LIB FREE ? 3. Onde posso arrumar ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Olá a todos !!! Outro dia vi neste forum alguém se referindo a C5MENU. Gostaria de saber alguns detalhes sobre o C5MENU: 1. Funciona no FIVEWIN com CLIPPER 52e ? 2. É uma LIB FREE ? 3. Onde posso arrumar ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:FIZ A SEGUINTE ROTINA : // abertura do dbf wpath:="\\servidor\c\guardiao\" wdbf =wpath+"SIIMATE.DBF" sele 0 abre_arq(wdbf,.f.,10,"100","PROD") // funcao de abertura de dbfs function abre_arq ( w_arqu , w_flag , w_temp , w_narq , _apel ) local l_arqu:=w_arqu , l_flag:=w_flag , l_temp:=w_temp ,; l_narq:=w_narq , l_apel:=w_apel local l_cont do while .t. l_cont:=1 do while l_cont <= l_temp DbUseArea(.T.,,L_ARQU,L_APEL,!W_FLAG,.F.) IF NetErr() IF !MsgYesNo("Arquivo não disponivel ! Tenta novamente ?","Confirmação") RETURN(.F.) ENDIF ENDIF ++l_cont enddo enddo return(.f.) ********************** Essa rotina ja roda sem problema nos nossos sistema , mas quando passei a usar o \\ para direcionar os dbfs me da o erro de abertura: Error description: Error DBFNTX/1001.00 Open error: \\servidor\c\guardiao\SIIMATE.DBF Estou utilizando fwh , windows xp , alguem pode me ajudar ? id=quote>id=quote>Boa tarde !!! Pelo que eu entendi voce está tendo problemas para abrir os arquivos NTX e não os DBFs. Voce deve fazer para os NTXs a mesma coisa que voce faz para os DBFs, isto é, indicar o PATH para os arquivos NTXs. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Bom Dia a Todos! Estou tentando compilar um programa e está dando este erro, já não sei o que fazer, ele começou a dar este erro qdo foi colocado uma matriz p/ preencher um combobox Fatal C3049 String space exhausted AADD(ACODATI,OEMTOANSI("01 - AGRICULTURA, PECUµRIA E SERVI€OS RELACIONADOS ")) AADD(ACODATI,OEMTOANSI("011 - PRODU€ÇO DE LAVOURAS TEMPORµRIAS ")) A linha possui um total de colunas de 140, será que isso pode ser a causa do erro? POR FAVOR PRECISO DE AJUDA, OBRIGADA!!! Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55 id=quote>id=quote>Bom Dia LUCIANE!!! Comigo acontece isso quando estou montando o programa no DOS e logo em seguida mando COMPILAR. Para solucionar este problema eu acabo de digitar o programa e antes de COMPILAR, volto ao WINDOWS para que o mesmo retome o controle da memoria. Depois é só COMPILAR. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Se TOM JOBIM usasse computador a sua musica seria assim: É pau É vírus É o fim do programa É um erro fatal O começo do drama É o turbo Pascal Diz que falta um login Não me mostra onde é E já trava no fim É dois, é três, é um 486 É comando ilegal Essa merda bloqueia É um erro e trava É um disco mordido HD estragado Ai meu Deus tô f*** São as barras de espaço Exibindo um borrão É a promessa de vídeo Escondendo um trojan É o computador Me fazendo de otário Não compila o programa Salva só o comentário. É ping, é pong O meu micro me chuta O scan não retira O vírus filho da p**** O Windows não entra E nem volta pro DOS Não funciona o reset Me detona a voz É abort, é retry Disco mal formatado PCTools não resolve Norton trava o teclado É impressora sem tinta Engolindo o papel Meu trabalho de dias Foi cuspido pro céu... Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Se TOM JOBIM usasse computador a sua musica seria assim: É pau É vírus É o fim do programa É um erro fatal O começo do drama É o turbo Pascal Diz que falta um login Não me mostra onde é E já trava no fim É dois, é três, é um 486 É comando ilegal Essa merda bloqueia É um erro e trava É um disco mordido HD estragado Ai meu Deus tô f*** São as barras de espaço Exibindo um borrão É a promessa de vídeo Escondendo um trojan É o computador Me fazendo de otário Não compila o programa Salva só o comentário. É ping, é pong O meu micro me chuta O scan não retira O vírus filho da p**** O Windows não entra E nem volta pro DOS Não funciona o reset Me detona a voz É abort, é retry Disco mal formatado PCTools não resolve Norton trava o teclado É impressora sem tinta Engolindo o papel Meu trabalho de dias Foi cuspido pro céu... Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Se TOM JOBIM usasse computador a sua musica seria assim: É pau É vírus É o fim do programa É um erro fatal O começo do drama É o turbo Pascal Diz que falta um login Não me mostra onde é E já trava no fim É dois, é três, é um 486 É comando ilegal Essa merda bloqueia É um erro e trava É um disco mordido HD estragado Ai meu Deus tô f*** São as barras de espaço Exibindo um borrão É a promessa de vídeo Escondendo um trojan É o computador Me fazendo de otário Não compila o programa Salva só o comentário. É ping, é pong O meu micro me chuta O scan não retira O vírus filho da p**** O Windows não entra E nem volta pro DOS Não funciona o reset Me detona a voz É abort, é retry Disco mal formatado PCTools não resolve Norton trava o teclado É impressora sem tinta Engolindo o papel Meu trabalho de dias Foi cuspido pro céu... Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação: citação:Vc. conseguiu usa-la ? Tá dando um montão de erro ao compilar Abraços.. LUIZ ARRUDA - Corumba-MS - iko67@ibest.com.br FW 2.4 - CLP 5.3 - WS - Windows XP id=quote>id=quote>Consegui sim Luiz, estou fazendo algumas alterações pra funcionar com a txtprev e buscar as impressoras de rede instaladas, acho que até a semana que vem disponibilizo em dicas ok. Abraços. Beto Msn: betovsp@hotmail.com Skype: betovsp Alternativo: betovsp@pontobinfo.com (16)9148-1515 CL53B + FW2.0d + @ SAY/GET + BLINKER 7 Ribeirão Preto/SP id=quote>id=quote>Bom dia BETO !!! Cade o TXTPREV que vc ia postar. Estou aguardando com certa ansiedade. Caso queira, mande para meu e-mail. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Ale SB e amigos. boa tarde Aproveitando a deixa, ja' que nao passa nada util na TV nos Domigos, eu nao tenho TV Paga, e a unica coisa que esta passando neste momento e' o jogo do Corinthians......(que nao faz gol de jeito nenhum as 41 minutos do segundo tempo...) - Deus, para a felicidade do homem, inventou a Fe' e o Amor. O Diabo, muito invejoso, fez o homem confundir a religiao com a fe' e o amor com o casamento. (Machado de Asis) - Errar e' humano. Colocar a culpa em alguem e' estrategico. - Errar e' humano. Persistir no erro e' Americano. Acertar o alvo e' mulcumamo. (Diario de Mogi) - O homem que diz que todas as mulheres dao em cima dele, deve morar em um porao de motel. (Diario de Mogi) FWAbracos id=quote>id=quote>Nao confunda MODEm com MODEss o SLOT é diferente Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Zeca, Além do que o Kapiaba te pediu, mostre o SET CLIPPER= ..... (do AutoExec) e verifique como está a memória convencional. Olhei no manual do Clipper e ele faz essas referências (entre outras) como possibilidade de causa desse erro (4412) id=quote>id=quote>Boa Tarde PAULO !!! Segue meu lnk: # Disable incremental linking, for the best memory usage BLINKER INCREMENTAL OFF # Burn in Clipper environment variables BLINKER EXECUTABLE CLIPPER F:200;SWAPPATHC:\TEMP;TEMPPATHC:\TEMP BLINKER PROCEDURE DEPTH 50 BLINKER OVERLAY OPSIZE 50 OUTPUT NEWMENU.EXE PACKDATA PACKCODE NOBEL BEGIN FI NEWMENU FI SIXNSX FI ...... LIB VL2_52,SIX3,NEWMENU,EXTEND,PSCRIPT ENDAREA @CL520MIN.LNK LIB RELOGIO READONLY Eis meu SET CLIPPER (diretamente do MSCONFIG) SET CLIPPER=F:250 //DYNF:8 //SWAPK:65535 //TEMPPATH:"C:\TEMP" //SWAPPATH:"C:\TEMP" Parece que o problema diz respeito a otimização de Memória. Em tempo: O meu WINDOWS é o ME Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Peço ajuda aos amigos com relação a mensagem abaixo, que aparece quando vou compilar meu sistema: FATAL C3032 Can't create intermediate file Error RMAKE/R2001 Exit 1 'C:\CLIP53\BIN\CLIPPER LISTNF.PRG /m' Como faria para corrigir este erro ? Obrigado desde já, Zima id=quote>id=quote>Bom dia ZIMA!!! 1. Verifique se por acaso vc não apagou o diretorio TEMP dentro do WINDOWS (C:\WINDOWS\TEMP) 2 Não sei qual sua versão do Windows, mas voce deve cliente em AMBIENTE(MS CONFIG) uma variavel chamada CLIPPER como segue abaixo: SET CLIPPER=F:250 //DYNF:8 //SWAPK:65535 //TEMPPATH:"C:\TEMP" //SWAPPATH:"C:\TEMP" SET INCLUDE=c:\clipp52e\include;C:\FW23\INCLUDE Obs: Vc deve respeitar o espaco entre os // Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Bom Dia a Todos !!! Quanto mais rezo mais as SOBRANCELHAS aparecem. De repente, sem mais nem menos me aparece o erro INTERNAL ERROR 4412 Este erro apareceu durante a indexacao de um arquivo com mais ou menos 70000 registros. Pelo que assuntei na internet este erro não pelo RDD usado (eu uso NSX), porque algumas pessoas que usam CDX também tiveram este problema. A pergunta é a seguinte: QUE BICHO É ESTE ? COMO RESOLVER TAL PROBLEMA ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Bom Dia a Todos !!! Quanto mais rezo mais as SOBRANCELHAS aparecem. De repente, sem mais nem menos me aparece o erro INTERNAL ERROR 4412 Este erro apareceu durante a indexacao de um arquivo com mais ou menos 70000 registros. Pelo que assuntei na internet este erro não pelo RDD usado (eu uso NSX), porque algumas pessoas que usam CDX também tiveram este problema. A pergunta é a seguinte: QUE BICHO É ESTE ? COMO RESOLVER TAL PROBLEMA ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Bom Dia a Todos !!! Quanto mais rezo mais as SOBRANCELHAS aparecem. De repente, sem mais nem menos me aparece o erro INTERNAL ERROR 4412 Este erro apareceu durante a indexacao de um arquivo com mais ou menos 70000 registros. Pelo que assuntei na internet este erro não pelo RDD usado (eu uso NSX), porque algumas pessoas que usam CDX também tiveram este problema. A pergunta é a seguinte: QUE BICHO É ESTE ? COMO RESOLVER TAL PROBLEMA ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Boa Noite !!! Como fazer com que, numa tela, os botoes(que ficam do lado direito) sejam os primeiros a serem acionados. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 id=quote>id=quote>Boa Noite a Todos !!! Depois de muitas tentativas, acabei resolvendo com o seguinte comando: ACTIVATE DIALOG oDlg CENTERED ON INIT oDlg:lHelpIcon:=.F. ; ON PAINT ( oDlg:Setfocus(),SetaButtons('1101111',aButtons),oBtnInc:SetFocus(), oDlg:Update() ) Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Noite !!! Como fazer com que, numa tela, os botoes(que ficam do lado direito) sejam os primeiros a serem acionados. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Noite !!! Como fazer com que, numa tela, os botoes(que ficam do lado direito) sejam os primeiros a serem acionados. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Noite !!! Como fazer com que, numa tela, os botoes(que ficam do lado direito) sejam os primeiros a serem acionados. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde a Todos !!! Examinando o programa de transferencia de arquivos feito pelo VAGNER WIRTS(FTPWIRTS ou FTPTODOS) descobri uma função que eu sabia que existia no FW, inclusive já perguntei sobre ela neste FORUM, mas, como não sabia o nome, não consegui ter acesso a ela. Pois bem, a tal função chama-se cGETDIR32(). O que eu quero é ter acesso ao programa exemplo dela (DLG32.PRG)para eu saber exatamente como funciona. Alguem tem este exemplo ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde a Todos !!! Examinando o programa de transferencia de arquivos feito pelo VAGNER WIRTS(FTPWIRTS ou FTPTODOS) descobri uma função que eu sabia que existia no FW, inclusive já perguntei sobre ela neste FORUM, mas, como não sabia o nome, não consegui ter acesso a ela. Pois bem, a tal função chama-se cGETDIR32(). O que eu quero é ter acesso ao programa exemplo dela (DLG32.PRG)para eu saber exatamente como funciona. Alguem tem este exemplo ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02