Luiz Arruda (ICO)

O caso é outro... no primeiro button eu confirmo o lancamento e tenho que voltar ao get[1], até ai tudo bem, já tá feito, só que ao mesmo tempo eu tenho que parar ou não o foco no segundo botão que tá configurado no recurso para não receber o foco porque da primeira dialog de entrada... mas se não tiver jeito de habilitar o tabstop via codigo eu vou fazer um pog com um button transparente mostrando ele na abertura e sumindo com o antigo... valeu PS: o que estão falando rsrsrsrrsr!!! não podemos dar beijinho no ombro como amigos mais kkkkkkkkkkkkkkkkkkkkkkkkkkkk k k k k

Eu já uso o xSetfocus na dialog,, mas vou fazer testes obrigado pela dica beijinho no ombro

Bom Dia Gostaria de saber se é possivel habilitar "tabStop" que está desabilitado no recurso explico: tenho uma tela de entrada de dados onde o button "sair" é selecionado como "Não" no PellesC, e só uso ele quando clico para sair da tela, até ai tudo bem, só que para não ficar criando várias dialogs estou usando a mesma em outra ocasião que é chamada dependendo do codigo da conta digitada, só que nesta nova abertura preciso que o "Sair" receba o foco. É possível fazer isso via codigo ?? desde já obrigado..

Eu faço com um say/get transparente que peguei aqui no forum a muitos anos quando iniciei com xBrowse e até hoje funciona Local cPegaEmpresa:=Space(20) Redefine Say/get oSay VAR cPegaempresa ID 4001 OF oDlg PICTURE "@!" oSay:SetColor(CLR_LGREEN) // ********************************************************************************************* FUNCTION PSeek( c, _cPegaEmpresa, _oGet, _oBrw ) local nkey _cPesquisa := AllTrim( c ) DbSeek( Upper( c ) ) IF !Found() TONE(2000, 2) c := Substr(c, 1, Len( c ) - 1) DbSeek( Upper( c ), .t. ) RETURN(.F.) ENDIF _oGet:Varput© _oGet:Refresh() Return(.t.) Rápido e certeiro, veja o "P" na frente da palavra "Digite" e ao ir entrando com letras ele vai posicionando no nome Abraços..

Sei que está resolvido mas vai uma dica. EU sempre iniciava com " " tipo Assim obriga o usuário a selecionar uma opção e não entrar com informação errada, de tanto usar fica abitual e passa sem a gente perceber, e se for "vazio" um válid avisa que a opção é obrigatória .. :: LOCAL cTEXTCG := {" ","Selecione","Alameda","Avenida","Beco","Estrada","Praça","Rodovia","Rua","Travessa"} Abraços..

Fica muito legal mesmo, assim que tiver tempo vou tentar fazer isso Eu ainda uso assim hDC := GetPrintDC( GetActiveWindow() ) if hDC == 0 cImpressoras := prnGetname() MSGINFO("Impressão cancelada pelo usuário","..::Impressão") Return .f. ; endif Isso para jatos e Laser, para as portas LPT1 sempre vai direto, basta escolher a impressora. Já vou pensando nisso, as maquinas novas não estão imprimindo em um programa de comtabilidade MS-DOS 16 bits feito em FoxBase, nem com o emulador, e acho que já tá hora de converte-lo.

Resolvido com a dica do EDUARDO MOTTA Simples, e rápido valeu. Obrigado a todos que empenharam em ajudar... PS: o PrinterSet tb. funciona sem o #include "FiveWin" e eu não sabia

Para matricial ainda faço do Jeito que fazia no Clipper Set Printer to @Prow()+1,10 Say "bla bla bla" @Prow(),20 say " | valor1 | Valor2 |Total |" A diferença é que coloco o FileRaw pra direcionar para a impressora Imprime super rápido, sem frescuras e com os mesmo caracteres MS-DOS de antigamente.

Não Deu, não uso Tdos Obrigado..

Bom dia Pessoal Trocamos as maquinas aqui do escritorio e todas vieram com Win 7 64, até ai tudo bem, só que para imprimir em matricial tive que usar o PrintFileRaw em todos fonts porque ainda uso o velho e rápido padrão Clipper para matricial. O problema é que tenho que colocar o nome da impressora na linha assim PRINTFILERAW( "EPSON LX-300+ /II", "\caminho\MOSTRA13.PRN", "Relatório" ) O problema é que tem outras impressoras matriciais com nomes diferentes, tô tentando assim, porém sem resultados. hDC := GetPrintDC( GetActiveWindow() ) if hDC == 0 cImpressoras := prnGetname() MSGINFO("Impressão cancelada pelo usuário","..::Impressão") Return .f. endif Msginfo("&cImpressoras") Aqui não retorna a impressora selecionada com cImpressoras e não imprime nada Eu gostaria de algo assim cImpressoras := prnGetname() PRINTFILERAW( "&cImpressoras", "\caminho\arquivo.PRN", "Relatório" ) Tem Jeito ?? Desde já obrigado..

Você é gay assim o tempo todo, ou é especialmente para o dia de hoje ???

Opa .. o que poderia ser mudado ?? já que ai está todo o conteúdo do DBF e a parte superior de identificação eu cortei... aceito sugestões

Valeu esforço João Bosco... resolvi com a tPrinter IF D_C="D" c=-1 DEB=DEB+VALOR oPrn:Charsay(nlin,68,trans(valor,"999,999.99")) else oPrn:Charsay(nlin,83,trans(valor,"999,999.99")) c=1 CRE=CRE+VALOR endif

Não é no Fast não.. é na Report nativa do FW

Opa.. Quase isso João não to conseguindo é fazer a conta credito debito saldo 100,00 50,00 50,00

Boa Tarde Muito pouco sei usar o report, agora preciso de um relatorio simples , como faço uma condição IF para separar colunas ??? Exemplo O arquivo DBF tem os campos Data Historico D_c Valor Eu quero jogar o valor D em uma coluna e o C em outra + - assim COLUMN TITLE "DATA" DATA CAIXA->DATA COLUMN TITLE "HISTORICO" DATA CAIXA->HISTORICO If DC="D" Col=50 na coluna 50 sair impreso o valor do débito COLUMN TITLE " VALOR" DATA CAIXA->VALOR Else Col=75 Endif na coluna 75 sair impresso o valor do credito COLUMN TITLE " VALOR" DATA CAIXA->VALOR pra ficar assim Data Historico Debito Credito Saldo 01/01 Teste 1 10,00 10,00- 02/01 Teste 2 20,00 10,00 Obrigado...

Tentei editar como no antigo forum para colocar "RESOLVIDO" e não consegui, ainda tô apanhando do forum novo kkkkkkk Pois é Vagner, o seu exemplo deu um erro na compilação, e ao testar a dica do Daniel passou, e foi só sair pro abraço Obrigado a todos ..

Tomara que ele não seja Argentino ... rsrsrsr

Ufa!! agora sim Daniel.. LOCAL bBlock:={|| IF( MSGYESNO('Deseja excluir os dados ?','ATENÇÃO') , ; Acesso->(DbEval({||(Acesso->(RLock() ), Acesso->(DbDelete()), Acesso->(DbUnlock()) )})) , .T. ) } Desta Forma del certo... Obrigado... Abraços..

Bom dia Eduardo... isso foi a primeira coisa que eu fiz Abraços..

Bom dia Ou um if na própria valid, se o conteudo da variavel for nulo pula a verificação... Abraços..

Bom dia a todos... A dica que mais se aproximou e não deu erro na compilação foi esta, tudo funciona perfeitamente, só que não faz o que deveria fazer.... excluir os dados Obrigado..

Se podemos fazer com uma unica linha o que se faz com 20 é lucro não é bi ...

Nem passou na compilação, com o If mesmo com o endif depois...

Mesmo desta maneira no lugar do Msginfo() tenho que disparar pra função.... só com o msg funfa mas não executa o Dbdelete()