JUDSON

Alguem pode me ajudar na seguinte situacao: Encontrei um dbf de um cliente e, ao tentar abri-lo de no fox/dbase dei de cara com esta mensagem. Como faço para que este arquivo abrir fox/dbase , sei que tem algo haver com as primeiras posições do arquivo, mas nao sei como trocar . Se alguem poder me ajudar , desde ja agradeço . Judson Rosa .

ALGUEM SABE COMO DESSABILITAR A TECLA ESC , JA TENTEI IGUAL AO CLIPPER E NAO DEU CERTO . Alguem pode me dar essa diga ??????

KAPIABA , UTILIZO WIN98 E FWH .

Kapiaba, O scanner esta conectado a COM2 , antes de testar no FWH , eu testei no HYPERTERMINAL e le normalmente o codigo .

Evandro , vai o meu e-mail : judsonrc@ig.com.br interliginformatica@yahoo.com.br Desde ja lhe agradeço, abraços.

Kapiaba , nao deu certo , 1o. que da erro se nao definir o cbuffer, obrigado pela tentativa.

Postei anteriormente duvida sobre LEITURA DA SERIAL, usei os commandos que me passaram , mas nao esta dando certo , nao mostra o conteudo ( codigo de barra ), onde estou errando ? segue a rotina : ************************** function leitor_serial() *********************** local cDcb, nBytes, cbuffer local nComm := OpenComm( "COM2" , 1024, 128 ) local nError cbuffer:=SPACE(20) msgalert("Inicio da Leitura"+STRNCOMM,10),"Porta: "+strncomm,10)) if ! BuildCommDcb( "COM2:9600,n,8,1", @cDcb ) nError = GetCommError( nComm ) MsgInfo( "BuildCommDcb Error: " + Str( nError ) ) endif if ! SetCommState( cDcb ) nError = GetCommError( nComm ) MsgInfo( "SetCommState Error: " + Str( nError ) ) endif Readcomm(ncomm , @cbuffer ) msgalert(cdcb,"LEITURA-0") msgalert(cbuffer,"LEITURA-1") if ! CloseComm( nComm ) nError = GetCommError( nComm ) MsgInfo( "CloseComm Error: " + Str( nError ) ) endif return(.t.) **************** No aguardo Judson Rosa

Desenvolvo aplicações comerciais em FWH , agora o meu cliente comprou um Leitor Otico Serial , e preciso alterar o sistema para ler a serial do micro . Sera que alguem teria uma solução ou algum para me passar. Desde ja agradeço . Judson Rosa

PORQUE , TODA VEZ QUE USO O FWH OU FWC E VOU AO DOS NO MODO TELA INTEIRA OU QUANDO VOU DESLIGAR O MICRO , ELE TRAVA ? CPU : ATLHOM XP 2.2 , 2.4 , DUROM 1.8 , AMD K6-2(500) DESDE JA OBRIGADO

COMO FAÇO PARA DEBUGAR UTILIZANDO O FWH ? DESDE JA OBRIGADO JUDSON ROSA

EXISTE ALGUM COMANDO NO FWH QUE FAÇA O MAPEAMENTO IGUAL AO EXEMPLO: !NET USE X: \\SERVIDOR\C E ALGUM COMANDO QUE COPIA ARQUIVOS PARA OUTRA UNIDADE ? DESDE JA AGRADEÇO. JUDSON ROSA

ESTOU CRIANDO UM INSTALDOR DE PROGRAMA EM FWH E UTILIZO O COMANDO LZCOPYFILE PARA COPIAR OS ARQUIVOS EU ENCONTREI ESTE COMANDO NO ..\SAMPLES\INSTALL.PRG. MAS NA HORA DE LINKAR APARECE O ERRO EXTERNAL LZCOPYFILE , ESTE ERRO OCORRE ATE NA HORA DE LINKAR O EXEMPLO ..\SAMPLES\INSTALL.PRG VEJA MEU .BAT set fwdir=c:\fw23 set hdir=c:\harbour set bcdir=c:\borland\bcc55 %hdir%\bin\harbour instalg /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour inst10 /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour inst20 /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour siilib1 /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour siinet /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour corget /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour trsay /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour SSAY /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour txtprev /n /i%fwdir%\include;%hdir%\include %2 %3 %hdir%\bin\harbour tdosprn /n /i%fwdir%\include;%hdir%\include %2 %3 %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include instalg.c %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include inst10.c %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include inst20.c %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include siilib1.c %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include siinet.c %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include corget.c %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include trsay.c %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include SSAY.C %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include txtprev.c %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include tdosprn.c IF EXIST sii.rc %bcdir%\bin\brc32 -v -r sii.rc sii.res echo %bcdir%\lib\c0w32.obj + > b32.bc echo instalg.obj + >> b32.bc echo inst10.obj + >> b32.bc echo inst20.obj + >> b32.bc echo siilib1.obj + >> b32.bc echo siinet.obj + >> b32.bc echo corget.obj + >> b32.bc echo trsay.obj + >> b32.bc echo ssay.obj + >> b32.bc echo txtprev.obj + >> b32.bc echo tdosprn.obj, + >> b32.bc echo instalg.exe, + >> b32.bc echo sii.map, + >> b32.bc echo %fwdir%\lib\FiveH.lib + >> b32.bc echo %fwdir%\lib\FiveHC.lib + >> b32.bc echo %hdir%\lib\rtl.lib + >> b32.bc echo %hdir%\lib\vm.lib + >> b32.bc echo %hdir%\lib\gtwin.lib + >> b32.bc echo %hdir%\lib\lang.lib + >> b32.bc echo %hdir%\lib\macro.lib + >> b32.bc echo %hdir%\lib\rdd.lib + >> b32.bc echo %hdir%\lib\dbfntx.lib + >> b32.bc echo %hdir%\lib\dbfcdx.lib + >> b32.bc echo %hdir%\lib\debug.lib + >> b32.bc echo %hdir%\lib\common.lib + >> b32.bc echo %hdir%\lib\pp.lib + >> b32.bc echo %fwdir%\lib\ace32.lib + >> b32.bc echo %fwdir%\lib\rddads.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib, >> b32.bc IF EXIST sii.res echo sii.res >> b32.bc %bcdir%\bin\ilink32 -r -aa -Tpe -s @b32.bc > ln.tmp IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built instalg.exe GOTO EXIT ECHO :LINKERROR GOTO EXIT :EXIT ALGUEM PODE ME AJUDAR . OBRIGADO. JUDSON ROSA

UTILIZO O FWH , DBF COM NTX , ATE AI TUDO BEM . MAS EM ALGUNS MOMENTO QUANDO RETORNO AO MEU SISTEMA , NA ABERTURA DOS DBFS OCORRE ESTE ERRO ( OPEN ERROR ) , É CLARO QUE NAO PASSO DAI. PARA RESOLVER ESTE PROBLEMA TENHO QUE ENTRAR NO FOX , ABRIR ESTE DBF E FECHA ( NAO ADIANTA DELETAR OS INDICES ) , SO ASSIM CONSIGO ENTRAR NO SISTEMA NOVAMENTE. ALGUEM JA PASSO POR ISSO , OU ALGUEM PODE ME AJUDAR . DESDE JA AGRADECO . JUDSON ROSA.

o e-mail eu recebi mas deu erro ao abri o arquivo zipado. me mande outro. obrigado

o e-mail eu recebi mas deu erro ao abri o arquivo zipado. me mande outro. obrigado

estou te enviando a linha. static osay01_ wdescpro:="" // objeto REDEFINE SAY osay01_ var wdescpro id 110 update of odlg3 color vcores[3] font vfonts[2] dbselectarea("orca") wrecp:=recn() ; wdescpro:=wdescpgt:="" ; wcdve:="" ; whora:="" set filter to dbgotop() do while !eof() if wpar2 = nota if empty(wdescpro) wdescpro:=wdescpro + "CODIGO PRODUTO QUANT" + CRLF wdescpro:=wdescpro + REPL("-",75) + CRLF endif wcdve=right(cdve,3) dbselectarea("mate") ; dbseek(orca->cdpr) wdescpro:=wdescpro+cdpr+chr(VK_TAB)+left(des2,18)+chr(VK_TAB)+str(orca->quan,6,2)+; chr(VK_TAB) + CRLF whora:=substr(cripto(orca->logs),26,8) dbselectarea("orca") ; dbskip() else dbskip() endif enddo osay01_:refresh()

me mande pelo e-mail luis2luis2@yahoo.com.br

não deu certo,o que estou querendo é na vertical. não estou usando @ mas,sim objeto. Editado por - JUDSON on 26/01/2005 15:49:57

Eu utilizo o MFOX, no windows 98, mas quando o windows é XP ele não abri, vcs tem algum sofware parecido com MFOX que abri no XP.

Preenchi um say com algun dados e os mesmos nao aparecem por completo , existe alguma forma de rolar os dados tipo scroll na vertical , ou exite algum outro comando que eu possa usar ?

ESTOU CRIANDO UM INSTALDOR DE PROGRAMA EM FWH , E UTILIZO O COMANDO LZCOPYFILE PARA COPIAR OS ARQUIVOS , MAS NA HORA DE LINKAR APARECE O ERRO EXTERNAL LZCOPYFILE , JA VERIFIQUEI E NAO TENHO ESTE PRG. ALGUEM PODE ME AJUDAR . OBRIGADO. JUDSON ROSA

Gostaria de saber como limpar o buffer do teclado e colocar uma tecla no buffer do teclado , os commandos: clear typeahead , keyboard não funcionam , utilizo o FWH Para fazer a leitura da key estou usando o GetASyncKey() Obrigado , desde ja agradeço Judson Rosa

Estou em fase de homologacao e procuro uma funcao para desabilitar e abilitar o teclado durante determinada impressao INCLUSIVE O ALT F4.

Tenho dois programas: 1) RETAGUARDA - em clipper 5.2 - indice .NTX 2) FRENTE DE LOJA - em FW - indice .NTX Quando e envio dados para o frente de loja ocorre este erro. Se alguem poder me dar alguma dica. Obrigado Judson Rosa judsonrc@ig.com.br