fluna

Ou... crie uma variavel lok:=.f. na função que testa cpf, se for válido, lok:=.t. REDEFINE BUTTON ID 200 OF oDlgEmpreg ; MESSAGE "Cadastra paciente" ; ACTION ( SMCL201(.T.) ) WHEN lOk

A ideia é que o sistema não permita a inserção do código a partir do teclado, somente a partir da pistola!

teria como desligar o numlock e desabilita-lo para não ser reativado manualmente?

Galera, como desabilitar o teclado numérico sem desabilitar a pistola de leitura de código de barras? alguém pode dar uma mãozinha aê? Experimentei o codigo abaixo: For i=96 to 105 // 0..9 - ok SetKey( i, { || NIL } ) Next mas a pistola desabilita também. quero só o teclado numerico... alguma ajuda?

Ou trocar o driver da placa de video por um do XP, fiz isso e funcionou. alt-enter - tela cheia no windows7, que nem no xp.

Hum, seria interessante guardar os dbfs no googledrive, e acessar de lá pelo sistema... assim os dados seriam acessados de qualquer lugar

Tenho um. segunda feira vou estar em casa e posso te mandar um demo. é específico para esse fim. ( fw + dbf ) R$ 2500,00 com fontes

aOpcao := {'1-Opção 1','2-Opção 2', '3-Opção 3', '4-Opção 4'} @ 32, 120 COMBOBOX oTpSald VAR cTpSald ITEMS aTpSald valid tst() function tst() if cTpSald = '3-Opção 3' ? "esta opção não esta disponiverl!" return(.f.) endif return(.t.)

Isso tá parecendo coisa de quem vê o time perder e vai queimar ônibus ou quebrar lojas de quem não tem nada a ver com isso... 1 - Se Dilma venceu, foi vontade da MAIORIA. se não pode conviver com isso, mude de país 2 - Se vc acha que Dilma foi eleita por causa de bolsa família, então VOCÊ É O CULPADO DISSO, pela sua omissão quando deveria estar engajado em movimentos pela EDUCAÇÃO POLÍTICA E FILOSÓFICA dos "ignorantes", e em movimentos que ajudassem eles a saírem da miséria. assim, não precisariam correr atrás de "bolsa esmola". 3 - Se AÉCIO perdeu, é porquê foi ARROGANTE E AGRESSIVO O TEMPO TODO e NO MÍNIMO DESRESPEITOSO com alguém que foi presa e torturada para defender essa mesma democracia que permite que você fale o que quiser sem ser preso e torturado. 4 - JÁ PASSOU MEU JOVEM, ACEITE ISSO. e trabalhe para que nas próximas eleições, não haja ignorantes nem miseráveis para votar na Dilma. enquanto você se entocar na sua mansão, ignorando o sofrimento alheio, a miséria ao seu redor aumentará de tal forma que seus muros serão derrubados e seus bens saqueados; então, TRABALHE e AJUDE OS QUE ESTÃO EM BUSCA DE TRABALHO assim não precisarão de bolsa esmola, e nem você também - RECLAME MENOS, TRABALHE MAIS, FAÇA A SUA PARTE. 5 -MAIS UMA VEZ, ACEITE A DECISÃO DA MAIORIA. E LEMBRE-SE, NENHUMA AUTORIDADE É INSTITUIDA SEM A PERMISSÃO DE DEUS - CULPE DEUS ENTÃO POR ISSO.

Pessoal, preciso de ajuda para colocar um scroll nessa Dialog... quem se habilita? ***************************************** Function EditCell( ) ***************************************** * * USE CLIENTES // abrir qualquer arquivo que tenha mais de 30 campos para fazer um scroll automático... * * oGet := {} cGet := {} estr := DbStruct() For i=1 to Len(estr) estr[i,1] := Upper( Substr( estr[i,1], 1, 1 ) ) + Lower( Substr( estr[i,1], 2 ) ) End nMax := Len(estr) DEFINE DIALOG xDlg FROM 1,5 TO 44,100 TITLE Alias() nLin := 0.5 oGet := Array(nMax) For i=1 to nMax @ nLin,1 say estr[i,1] of xDlg nLin+=0.86 End nCtn:=0 nLin:=-0.5 For i=1 to nMax nLin+=1 nCtn++ cGet:=field(i) @ nLin,5 get oGet[i] var &cGet of xDlg End ACTIVATE DIALOG xDlg CENTERED return nil

Resolvido assim: ***************************************** Function EditCell( ) ***************************************** * * USE CLIENTES // abrir qualquer arquivo que tenha mais de 30 campos para fazer um scroll automático... * * oGet := {} cGet := {} estr := DbStruct() For i=1 to Len(estr) estr[i,1] := Upper( Substr( estr[i,1], 1, 1 ) ) + Lower( Substr( estr[i,1], 2 ) ) End nMax := Len(estr) DEFINE DIALOG xDlg FROM 1,5 TO 44,100 TITLE Alias() nLin := 0.5 oGet := Array(nMax) For i=1 to nMax @ nLin,1 say estr[i,1] of xDlg nLin+=0.86 End nCtn:=0 nLin:=-0.5 For i=1 to nMax nLin+=1 nCtn++ cGet:=field(i) @ nLin,5 get oGet var &cGet of xDlg End ACTIVATE DIALOG xDlg CENTERED return nil Abrindo agora novo tópico para auxílio no scroll automático... valeu SAMBOMB!!!!

Error description: Error BASE/1132 Bound error: array access Args: [ 1] = A { ... } [ 2] = N 21 Ô treinzim complicado rssssss

Obrigado por edentar; não sei porquê raios os gets ficam vazios...

***************************************** estr:=dbstruct() For i=1 to len(estr) estr[i,1]:=upper(substr(estr[i,1],1,1))+lower(substr(estr[i,1],2)) cVar:=estr[i,1] estr[i,2]:=&cVar. Next nMax:=min( len(estr) , 20 ) DEFINE DIALOG xDlg FROM 1, 5 TO 40, 100 TITLE alias() nLin:=0.99 For i=1 to nMax @ nLin,1 say estr[i,1] of xDlg nLin+=0.86 Next For i=1 to nMax @ i,5 get estr[i,2] of xDlg Next ACTIVATE DIALOG xDlg CENTERED return nil

manda o pdf para fabioluna@ibest.com.br. sei como converter para dbf. xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Aê companheiro, Já me aproveitando seu espírito natalino (rsss), Manda também pro fabioluna@ibest.com.br... Obrigadaço. (ps: antes do fim do mundo tá?) xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

...Mas sem o trovão, não tem emoção rapá kkkkkk xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Ver preview em dicas xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

COLUMN TITLE "TIPO " DATA IIF( TP="R","FIXO","DIARISTA") xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

...Eu vou mais longe, arrume um investidor e uma equipe. não tente fazer isso sozinho porque não dá. um produto dessa invergadura tem muito futuro, mas não é para uma pessoa só. o tempo e a quantidade de detalhes a serem tratados inviabilizam um único programador, chega um momento que o produto não está pronto, o tempo se apresenta como uma adaga próximo ao pescoço e a grana para se manter acaba; o produto é realmente bom, chega a ser revolucionário, mas tem o dilema: se vc se dedica a ele, não tem como se manter, se o coloca como secundário, corre o risco de chegar ao mercado já defunto. Caminho: INVESTIDOR + EQUIPE com você no comando (obviamente). Boa sorte amigo, eu mesmo espero por uma versão madura, funcional, sem muitos bugs. xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Use SOMENTE rc, com xharbour, fwh 6.02 (0800) e nunca deu pau... meu .bat: rem ------------------------------- rem Meu Cx.Bat rem ------------------------------- rem @Echo Off Cls :Config_do_ambiente if not exist t:\fwh.bat call c:\tools\monta.bat call t:\Fwh.bat :Limpeza_do_ambiente @If Exist *.Exe Del *.Exe @If Exist *.Bak Del *.Bak @If Exist *.Obj Del *.Obj @If Exist *.Log Del *.Log @If Exist *.C Del *.C :Compilacao_dos_modulos_PRG cls %hdir%\bin\harbour WCARTORIO /m/n/a if errorlevel 1 goto erro %hdir%\bin\harbour WCART-LIB /m/n/a if errorlevel 1 goto erro :Compilacao_dos_modulos_C cls %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include WCARTORIO.C %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include WCART-LIB.C :Compila resources cls brc32 -R WCARTORIO.rc if errorlevel 1 goto erro :Linka_modulo_c cls %bcdir%\bin\bcc32 -M -c -O2 -eWCARTORIO.exe -I%hdir%\include WCARTORIO.c :Gera_script_de_linkedicao_das_bibliotecas cls Echo %FwhDir%\lib\c0w32.obj + >WCARTORIO.lnk Echo WCARTORIO + +>>WCARTORIO.lnk Echo WCART-LIB,+ +>>WCARTORIO.lnk Echo WCARTORIO.EXE, +>>WCARTORIO.lnk Echo WCARTORIO.MAP, +>>WCARTORIO.lnk Echo %FwhDir%\lib\FiveHX.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\FiveHC.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\Cactivex.lib+>>WCARTORIO.lnk Echo %FwhDir%\lib\Ace32.Lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\RddAds.Lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\rtl.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\vm.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\gtwin.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\lang.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\macro.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\rdd.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\dbfntx.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\dbfcdx.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\debug.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\common.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\pp.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\ct.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\DBFFPT.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\HBSIX.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\PCREPOS.lib +>>WCARTORIO.lnk ECHO %FwhDir%\lib\psapi.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\cw32.lib +>>WCARTORIO.lnk Echo %FwhDir%\lib\import32.lib,>>WCARTORIO.lnk Echo WCARTORIO.res >>WCARTORIO.lnk :linkagem_das_bibliotecas %bcdir%\bin\ilink32 -Gn -aa -Tpe -s @WCARTORIO.Lnk if errorlevel 1 goto erro :Upgrading move WCARTORIO.exe .. cd .. WCARTORIO.exe cd fontes goto exit :Erro pause :Exit if exist *.c del *.c if exist *.obj del *.obj if exist *.rws del *.rws if exist *.map del *.map if exist *.tds del *.tds if exist *.res del *.res if exist *.lnk del *.lnk na primeira linha do .rc, coloco: #include referenciando os bitmaps dentro do rc: res01 BITMAP "img/res01.bmp" uso o workshop para cria-los. xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Galera, preciso sair de uma enrrascada... qualquer ajuda será bem vinda. Preciso ler um dbf, com cdx (ou ntx), que contem o nome, e os dados da pessoa além do valor. via php, pesquisar o nome da pessoa no dbf e gerar um pdf on line com o débito dela... alguem poderia dar uma ajudinha? obrigado antecipadamente... xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Galera, preciso sair de uma enrrascada... qualquer ajuda será bem vinda. Preciso ler um dbf, com cdx (ou ntx), que contem o nome, e os dados da pessoa além do valor. via php, pesquisar o nome da pessoa no dbf e gerar um pdf on line com o débito dela... alguem poderia dar uma ajudinha? obrigado antecipadamente... xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Já tive muitos problemas com esse negócio de código e vários cadastrando ao mesmo tempo, resolvi atribuindo a cada estação um código único(estação 1=1, estação2 = 2, etc) e incorporando no código (cliente, fornecedor,produto,etc) ex: 10001,10002,10003 ou 20001,20002 etc. o primeiro digito é da estação, o resto sequencial. não há como repetir, e de quebra sabe-se quem cadastrou. se a estação desistir de cadastrar, o código não se perde. e vai por aí. xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor