laurenti

Estou precisando de um HELP URGENTE !!!!!!!!! como posso usar Button usando um bmp dentro dele com a clausula ADJUST, ou exemplo de Bitmap e como colocar um tooltip nele ! Desde ja Agradeco !!!!!!!!!! Laurentino Rio/Montes Claros.MG MSN : laurentinomoc@hotmail.com

como maximizar a Dialog !!!!!!! desde ja agradeco!!!!!!!!!!!!!!! laurentinoarlos@gmail.com Rio/Montes Claros/MG

olha eu de novo ai !!!!!!!!!!! O problema agora e o seguinte ........... estou fazendo o relatorio pra impressora nao fiscal ela imprime o cupom certinho mas no final ela ejeta a pagina como se estivesse no formato A4 o que fazer pra mudar ? Desde ja agradeco !!!!!!!!! laurentinocarlos@gmail.com MSN laurentinomoc@hotmail.com Rio/Montes Claros/MG

citação:Para mapear: _nomeservi := alltrim(_nomeservi) //nome do servidor _pastservi := alltrim(_pastservi) //pasta do servidor _letramape := alltrim(_letramape) //letra a ser mapeada WNetAddCon("\\"+_nomeservi+"\"+_pastservi,,+_letramape+":") Para desmapear WNetCanCon("S:") valeu kleyton !!!!!!!! Muito Obrigado !!!!!!!!!!! ****************************** DLL32 FUNCTION WNetAddCon; ( lpszNetPath AS STRING, ; lpszPassword AS STRING, ; lpszLocalName AS STRING ) ; AS LONG PASCAL; FROM "WNetAddConnectionA" LIB "MPR" DLL32 FUNCTION WNetCanCon; ( lpName AS STRING, ; dwFlags AS LONG, ; fForce AS LONG ) ; AS LONG PASCAL; FROM "WNetCancelConnection2A" LIB "MPR" Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br id=quote>id=quote>

alguem que ja tenha homologado o seu sistema pode me dar dicas dos ajustes que tenho que fazer no meu frente de loja . laurentinocarlos@gamil.com Rio/Montes Claros MSN laurentinomoc@hotmail.com

como posso mapear o servidor da rede de dentro do meu sistema ? Obrigado a quem puder ajudar !!!!!!!!!!!! laurentinocarlos@gamil.com Rio/MOntes Claros

Estou programando um frente de loja, o meu teclado tem apenas 48 teclas para serem programadas preciso usar um comando como o prompt do clipper/Fox, alguem pode me ajudar ai ? se puder postar exemplos eu agradeco !!!!!!! laurentinocarlos@gmail.com Rio/Montes Claros/MG

citação:Rapaz... Basta colocar o & Comercial no CAPTION do Botão no WorkShop.exe Edite o Botão que você vai entender. Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE id=quote>id=quote>Rapa... mas eu nao posso utilizar o Alt vou programar um teclado reduzido tenho apenas 48 teclas esse e o problema.

citação:Ola Outra ideia REDEFINE BTNBMP RESOURCE "GRAVAR" ID 701 OF oDlg4 ; ACTION(Desliga(),oDlg4:End() ) * Function Desliga() Set Key VK_NUMPADO TO obrigado pessoal todos 2 funcionaram !!!!!!!!! Return (.t.) Yrece Osasco/SP id=quote>id=quote>

citação:Olá Laurentino, bom o button, já possui o acelerador "&", qual outro tipo vc gostaria de por ? @ 01,01 Button oBut Prompt "&Sair" Size 40,12 Pixel dando o Ctlr+S ou Alt+S, não estou bem certo agora ele executa o botão Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>vagner desde ja agradeco a sua atencao mas ainda estou descobrindo o FW, seria possivel me mandar um exemplo + detalhado ? obrigado !!!!!!!!!!

Desde ja obrigado !!!!!!!!!! pode deixar um exemplo rsrsrsrsrsr valeu !!!!!!!!!!!! laurentinocarlos@gmail.com Rio/Montes Claros/MG

como posso desativar esse setkey antes dele encerrar a dialog ? SetKey(VK_NUMPAD0,{|nKey| oDlg4:End(), }) REDEFINE BTNBMP RESOURCE "GRAVAR" ID 701 OF oDlg4 ; ACTION( oDlg4:End() ) Desde ja Agradeco !!!!!!!!!!! laurentinocarlos@gmail.com Rio/Montes Claros M.G

FALOU MESTRE KAPI !!!!!!!!!

ola pessoal to com o seguinte problema no get abaixo recebo o valor pago pelo cliente ai aciono a funcao calctroco ela calcula mas so mostra no proximo get se ele estiver .t. mas eu so quero mostra o valor do troco o que pode ser feito ? STATIC FUNCTION FECHADIN(re001,vcalc,EMPRESA) Local aget4[4],oFnt, oFnt2,idcor,oDlg4,lGravar Memvar Fechadin,valpg,troco lGravar := .T. part := troco := valpg := 0 if vcalc <= 0 return nil endif fechadin := 0 if fechadin > 0 return nil endif Fechadin += 1 DEFINE FONT oFnt NAME "Arial" SIZE 10,15 bold DEFINE FONT oFnt2 NAME "Arial" SIZE 10,30 bold DEFINE DIALOG oDlg4 RESOURCE "DINHEIRO" TITLE "PAGAMENTO EM DINHEIRO" REDEFINE SENSITIVE SAY ID 401 COLOR CLR_VERMELHO FONT oFnt REDEFINE SENSITIVE SAY ID 402 COLOR CLR_VERMELHO FONT oFnt REDEFINE SENSITIVE SAY ID 403 COLOR CLR_VERMELHO FONT oFnt REDEFINE GET aget4[1] VAR vcalc PICTURE "99999.99" ; ID 20 OF oDlg4 FONT oFnt2 UPDATE ; WHEN .F. ; COLOR CLR_BLACK, CLR_CREME REDEFINE GET aget4[2] VAR valpg PICTURE "99999.99" ; WHEN .T. ; ID 21 OF oDlg4 FONT oFnt2 UPDATE ; Valid Calctroco(vcalc,valpg,oDlg4,aGet4,.T.) ; COLOR CLR_BLACK, CLR_CREME // esse get que tem que receber o valor do troco mas fica travado se eu nao colocar o when .t. REDEFINE GET aget4[3] VAR troco PICTURE "99999.99" ; WHEN .f. ; ID 22 OF oDlg4 FONT oFnt2 UPDATE ; COLOR CLR_BLACK, CLR_CREME IF lGravar := .T. REDEFINE BTNBMP RESOURCE "INCLUIR_2" ID 701 OF oDlg4 ; ACTION( oDlg4:End() ) Endif REDEFINE BTNBMP RESOURCE "SAIR_2" ID 702 OF oDlg4 ; ACTION( oDlg4:End() ) ACTIVATE DIALOG oDlg4 //tirei o nowait return Nil STATIC FUNCTION Calctroco(vcalc,valpg,oDlg4,aget4) Memvar troco2,troco troco2:= troco := 0 Troco2 := (valpg - vcalc) Public troco := troco2 aget4[3]:refresh() return .t. Desde ja Agradeco !!!!!!!!!! laurentinocarlos@gmail.com Montes Claros/Rio Editado por - laurenti on 26/06/2005 23:54:34 Editado por - laurenti on 26/06/2005 23:58:25

quero substituir essa linha do on change para dentro do olbx3, quando dou o click com o mouse consigo trasferir o codigo do registro atual para o campo de pesquisa, mas nao consigo quando do o enter quem podera me salvar ??????????? Desde Ja Agradeco o HELP !!!!!!!! ON CHANGE ( vcodp:= ( produtos:cAlias)->CODIGO ) ; ON DBLCLICK ( odlg3:End() ) ; olbx3:bKeyDown:= { | nKey | Procura( nKey ,( Produtos:cAlias ),; oLbx3,EMPRESA, odlg3, aget3),; IF (nKey = VK_RETURN,oDlg3:End(), oLbx3:SetFocus()),oLbx3:Refresh(),; aget3[1]:refresh()} laurentinocarlos@gmail.com laurentinomoc@hotmail.com online 24hrs Rio/Montes Claros M.G

"sei que sou um chupim danado mas e assim mesmo que nao perguntar nao se informa" a duvida agora e como troco o DBLCLICK(funcao()) pelo ENTER pois e frente de supermercado e nao tem mouse ? desde ja agradeco !!!!!!!!!! carlos laurentino Rio/Montes Claros MG laurentinocarlos@gmail.com

obrigado amigo marcelo ja consegui fazer um busca suei mas consegui so foram 2 dias kkkkk valeu a atencao. a duvida agora e como troco o DBLCLICK(funcao()) pelo ENTER pois e frente de supermercado e nao tem mouse ? desde ja agradeco !!!!!!!!!!

Desde ja agradeco quem puder me dar esse help !!!!! Estou precisando de criar uma funcao de busca pela descricao do produto ou nome do cliente, de modo que ao digitar no campo de procura va mostrando os itens parecidos ,ja peguei alguns exemplos no "dicas" mas ainda nao consegui grandes coisas pois ainda estou novato no FW. as que estao la sao complexas pro meu conhecimento de FW Obrigado !!!!!!!!!!!! laurentinocarlos@gmail.com mcaautomacao@oi.com.br Editado por - laurenti on 22/06/2005 23:34:11

Quem pode me dar maiores detalhes soBre a homologacao Estou precisando com urgencia !!!!!!! Desde ja Agradeco !!!!!!!!!!!!! laurentinocarlos@gmail.com RIO/Montes Claros

Ola pessoal estou iniciando agora no FW ja passei por basic,II,III,dbaseII,III,VI,fox/pro,cobol,pickbasic e outros mais hoje programo em VB/Delphi,PHP mas nao largo do meu clipper de jeito nenhum quanto ao banco de dados a ser usado depende muito do seu cliente voce tem que ter opcao de oferecer isso, tenho supermercados de grande porte e clinicas medicas que tem um volume de dados grande e que esta rodando com o meu clipper53 com ate 22 maquinas em uso nunca tive problemas de indices nem perda de dados e nao me exige muita assitencia ao cliente e o que nos SQLS da vida nao acontece, so uso SQL quando realmente e necessario. Para quem ainda esta usando o clipper puro vai uma dica use o EXOSPACE PARA LINKAR O SEU OBJ E DEPOIS USE O OPTEDIT.EXE PARA FAZER O EXECUTAVEL RECONHECER ACIMA DOS 640 KB DO DOS. AI VOCE NAO VAI TER PROBLEMAS COM NTX OU TAMANHO DO DBF. mcaautomacao@oi.com.br Carlos de Almeida Laurentino

Eu tenho e que te agradecer pela dica, sou de montes claros mg mas moro no rio esses dias enviei uma copia de seguranca por email depois de 17 horas de viagem cheguei em montes claros e ai kd o email ? kkkkkkkk cheguei primeiro do que ele, ja voltei e ele ta viajando ate hoje kkkkk valeu pela dica.... Carlos de Almeida Laurentino Rio de Janeiro/Montes Claros M.G laurentinocarlos@gmail.com Programador Basic,Dbase II,III,Clipper...,Vb,Delphi,PhP por motivo de DinDin, e clipper a 20 anos por opcao e afeicao "agradeco ao velho clipper por tudo que consegui ate hoje" e agora arranhando o FIVEWIN CONTO COM A COLABORACAO DE TODOS NESSA NOVA EXPERIENCIA. VOU PERTUBAR MUITO A TODOS !!!!!!!!! OBRIGADO !!!!!! KAPIABA OBRIGADO PELA FORCA E A PACIENCIA

Como faco pra forca um click com o botao esquerdo do mouse sem ter que usar o mouse ? pois e um terminal de venda e nao tem mouse ! em clipper usaria o KEYBOARD CHR(VALOR DA TECLA DO MOUSE)

Como faco pra forca um click do botao esquerdo do mouse e assim ativar a listbox ? quem poder me ajuda muito obrigado