eajunior

ESTOU TENTANTO MONTAR UM DIALOG COM FOLDER, E QUE AS ORELHAS FIQUEM EM DUAS LINHAS (COMO O OUTLOOK EXPRESS-FERRAMENTAS-OPÇÕES), SERA QUE ALGUEM JA FEZ ISTO E PODE ME ENSINAR.

marllon, eu queria ter certeza, pois estava em duvida, mas aproveitando o ensejo quando devo usar o NOWAIT. Obrigado

MANDEI PARA O SEU EMAIL

QUANDO SE TEM UM DIALOG ABERTO E PEDE PARA ENCERRAR UTILIZANDO-SE DE BOTOES OU MESMO DO ´X´ DO LADO DIREITO DO DIALOG ELE EXECUTA TODOS OS COMANDOS QUE ESTÃO ABAIXO DO ACTIVATE DIALOG. EX. DEFINE DIALOG oScr RESOURCE ´CLiente´ FONT oWnd:oFont REDEFINE BTNBMP ID 1004 OF oScr RESOURCE ´Fim´ ACTION ( oScr:End() ) CANCEL comandos de say e get ACTIVATE DIALOG oScr CENTERED // ESTES COMANDOS SÃO EXECUTADOS NORMALMENTE APÓS O PEDIDO CA ENCERRAR O MODULO FileClose( ´Cliente´ ) DbSelectArea( cArea ) RETURN( NIL )

SIM, ESTA EM ORDEM.

NÃO SEI O QUE ACONTECE, CRIEU UM DIALOG COM 4 GETS E 1 FOLDER COM 2 ABAS. QUANDO DIGITO OS GETS DO DIALOG ELE VAI PARA O 1º GET DA 1 ABA DO FOLDER. QUANDO ELE VAI PARA A 2º ABA ELE VAI PARA OS BOTÕES DO DIALOG E NÃO PARA O 1º GET. ESTOU USANDO O comando: oFld:SetOption( 2 ) oGet17:SetFocus() mas alem de ir para o botão ele não faz a verificação se tudo foi digitado. como não sei se fui claro, segue um exemplo de parte do programa // final dos gets do dialog REDEFINE GET oGet VAR aGet[5] ID 1005 OF oScr PICTURE '@!' WHEN lEdita; VALID cValid03( aGet[5], 3 ) .AND. Cli_002c( oFld, 1, oGet07 ) // final do 1º folder REDEFINE GET oGet VAR aGet[33] ID 1033 OF oFld:aDialogs[1] PICTURE _PicTel3; WHEN lEdita VALID Cli_002c( oFld, 2, oGet14 ) // funcao de verificação se tudo foi difitado IF !CheckControls( oScr ) RETURN( False ) ELSE IF !CheckControls( oFld:aDialogs[1] ) RETURN( False ) ELSE IF !CheckControls( oFld:aDialogs[2] ) RETURN( False ) ENDIF ENDIF ENDIF *-------------------------------------------------------------------------- STATIC FUNCTION Cli_002c( oFld, nOrdem, xGet ) // funcao que manda para o Folder seguinte *-------------------------------------------------------------------------- IF lAppend oFld:SetOption( nOrdem ) xGet:SetFocus() ENDIF RETURN( True )

peguei em dicas o exemplo e funcionou legal obrigado pela ajuda

JOÃO E GILMER O Windows 2000 e nativo em 32 bits, e todos que rodam aplicação de 16 bits, tem que criar no icone do programa a configuração do Autoexec.Nt e Config.Nt, ( como no XP )em clipper ou programas mais antigos for windows eu costumo criar um autoexec.nt e config.nt para cada aplicativo.( ex. auto1.nt.... auto10.nt - config1.nt.....config2.nt ) chamando dentro do "config" e "autoexex" as funções ou comandos necessarias para cada aplicativo. Em tempo.. crio no raiz um diretorio para chamar os comandos copiados de outra maquina com win98, win95, ME. A configuração do windows 2000 e relativamente simples, mas varia de equipamento para equipamento ou de instalação para instalação. E dificil tentar ajudar sem conhecer todas as configuração instaladas. (não sei se e servidor, estação, ou se trabalha como ponto a ponto), se existe um outro servidor com o Advanced Server, se foram instalados os Service Pack do windows. Eu sei o seguinte, possuo para teste uma rede com o Win95, Win98, ME, 2000 e o XP, e até o momento nenhum deles apresentou problemas. O joão precisaria informar tambem se necessario o 2000 porque não substitui para o XP, pois os requisitos são quase os mesmos para hardware. O joão tem meu MSN, se ele quiser podemos ir fazendo as modificações on-line (sugeri isto por email), e ele ir passando os resultados, e se voce mais perto (ele e de Portugual) eu iria até ele e fazia e ensinava para ele esta configuração.

Uma única função para todos os tipos de DIALOGS do FW para confirmação, info, erro, etc O original baixado do dbwide e foi escrita por Andrade A. Daniel. E eu modifiquei para o retorno fosse exatamente igual ao das funções chamadas isoladamentes, além de incorporar função OemToAnsi(). Ela e muito interessente quando se utiliza um mensagens genericas no sistema, não precisando escrever varias vezes a mesma mensagem. Qualquer duvida avise.

FOI PARA SEU EMAIL, mas e so apagar esta linha e colocar .T. onde esta True e .F. onde esta False

obrigado marllon pela correção, pensei uma coisa e escrevi outra. eu tambem utilizo campos memos em clipper somente em casos muitos especiais, no FW não tentei ainda, utilizei apenas o READMEMO em um texto grande no que escrevi para teste. Mas de qualquer maneira, obrigado por me corrigir e muito bom saber que no forum, mesmo que um usuário não tenha interesse no assunto, esta sempre observando e tentando ajudar.

coloque no icone do programa compatibilidade com o WIN98 ou ME, se não resolver verifique as configurações do video. no meu caso resolveu a primeira opção.

Bom dia, sergio voce não e bicão, muito pelo contrário. Acontece que um tenho um campo onde o usuario informa se e pessoa fisica, juridica ou outros. em cima disto em crio as validações do CPF/CNPJ (esta funcionando legal em fw), mas não consigo alterar as pictures do campo a ser digitado. no clipper isto era extremamente simples mas no fivewin não consigo. No clipper cria as variaveis como STATIC que acho que o padrao do FW. ( nao utilizo variaveis PRIVATE ) so LOCAL e STATIC. JA li a programa TGet.Prg, mas não consegui encontrar nada que dessa uma luz, apenas que eles tratam a picture como cPicture, ja tentei inclusive o Update(), mas não resolve sera que ninguem usa estes parametros no FW. Quando a validar o campo pela string digitada seria uma alternativa, mas meus clientes, estão acostumados com digitar dados com as pictures informadas. Exemplo em clipper: @ 10,20 GET mTipo PICTURE ´!´ VALID Funcao1() mais campos @ 15,20 GET mCgc PICTURE _Pic VALID Funcao2() READ FUNCTION Funcao1() IF LEFT( mtipo, 1 ) = ´J´ mCgc := SPACE(14) _Pic := ´@R 99.999.999/9999=99´ ELSEIF left( mTipo,1 ) = ´F´ mCgc := SPACE(11) _Pic := ´@R 999.999.999-99´ ELSE mCgc := SPACE(14) _Pic := ´@!´ ENDIF RETURN( True ) function fUNCAO2() ROTINAS PARA CHECAR O CGC/CPF/OUTROS

MARLLON, COLOQUEI MAS DEU ERRO 8, NÃO CONSEGUI RESOLVER. VOCE NÃO TEM UM EXEMPLO PARA PASSAR PARA O MEU EMAIL

Marllon, obrigado pela dica, mas pergunto para voce, eu tenho um campo para o usuario informar se e fisica ou juridica posso validar este campo utilizando simplismente desta forma, ou preciso fazer mais alguma modificação. e como utilizo o mesmo programa para incluir, alterar e apresentar a ficha do cliente. o que fazer para apresentar a picture certa. Obrigado.

DUVIDA CRUEL....,ja que o readvar do clipper não funciona qual e o comando ou função que substitui o BUFFER do getsys do clipper.

o campo memo possui 64k por registro. quando ele esta vazio possui 0k, mas ao digitar um caracter e assume 64k. na minha modesta opinião existem mais desvantagens do que vantagens. concordo o Sr Jorge, ele e problema, avalie se não seria melhor usar campos caracter em vez de memo.

montei um dialog no WS, referente ao cadastro de cliente e fornecedores e gostaria de saber se TENHO COMO ALTERAR O PICTURE DE UM GET ATRAVES DO UPDATE. EX: STATIC _Picture FUNCTION Main() _Picture := ´@R 99.999.999/9999-83´ REDEFINE GET _VAR1 ID 101 OF oScr VALID Xfunc() REFEFINE GER _Var2 ID 102 OF oScr PICTURE _Picture UPDATE STATIC FUNCTION xFuncao IF Var1 = ´F´; cPicture := ´@R 999.999.999-9´ ELSE ; cPicture := ´@R 99.999.999/9999-99´ ENDIF oScr:UpDate() RETURN( True ) Obrigado

Marllon, em cima do seu exemplo, fiz uma outra experiencia que deu certo, eu defini os os botões no WORSHOP como PUSH BUTTON e não deixei nenhum DEFAULT. parece que funciona, mas vou usar o que mandou para mim.

Tenho um banco de dados com varios registro, e quero apresentar em um listbox, apenas os que satifazem um determinada condição, sem usar o set filter. alguem pode me ajudar ou indicar o sample que faz isto. Obrigado

tambem testei e da como usuario não autenticado.......

funcionou, obrigado lhe devo esta....

GILMER, DESCULPE O MEU PALPITE E SEI QUE NÃO TENHO NADA COM ISTO, MAS SERA QUE NÃO PODERIA CRIAR NO SITE DO FORUM MODO DE IMPRESSÃO DE UM DETERMINADO TOPICO, ASSIM EVITARIAMOS DE GASTAR MUITAS FOLHAS INUTILMENTE.( imprimo todos os topicos que necessito ) Obrigado.

COMO FAZER PARA DESABILITAR A TECLA ENTER DE UM DIALOG PARA GETS CRIADO NO WORKSHOP, JA RENUMEREI OS CAMPOS, HABILITEI TABSTOP EM TODOS OS CAMPOS (CONFORME ORIENTAÇÃO DO GILMER) EM TELAS COM 2 OU 3 GETS TUDO OK, PASSOU DISTO E SO DAE O ENTER QUE ELE SAI DA TELA. O QUE MAIS POSSO FAZER.

até que enfim, consegui te ajudar e sempre ao contrario.