coutinho.amauri

como fazer pra aumentar o tamanho do fonte no menu na opção MENUITEM amauri

como fazer pra aumentar o tamanho do fonte no menu na opção MENUITEM amauri

E O SEGUINTE JA TENTEI E NÃO CONSEGUI COLOCAR O FOCO DE INICIO EM CIMA DO CODIGO DO CLIENTE E NÃO EM CIMA DO PRODUTO TODA VEZ QUE ENTRA NA TELA O FOCO TA EM CIMA DO PRODUTO ALGUEM PODE ME AJUDAR AI TEM O PEDAÇO DO FONTE ONDE ESTA ACONTECENDO ISTO * tipo do movimento REDEFINE SAY oSayMov PROMPT vIt10 ID 102 OF mDlg COLORS BrwText, BrwBack UPDATE * cliente REDEFINE SAY oSayCli PROMPT vIt02 ID 106 OF mDlg COLORS BrwText, BrwBack UPDATE REDEFINE SAY oSayTot PROMPT TRANS(nTCdes,"@E 99,999.99") ID 103 OF mDlg COLORS BrwText, BrwBack UPDATE oSayTot:SetFont(oFntGet) REDEFINE SAY oSayPgo PROMPT TRANS(nVlrTot1+nVlrTot2+nVlrTot3+nVlrTot4+nVlrTot5+nVlrTot6+nVlrTot7+nVlrTot8+nVlrTot9+nVlrTot0,"@E 99,999.99") ID 104 OF mDlg COLORS BrwText, BrwBack UPDATE oSayPgo:SetFont(oFntGet) REDEFINE SAY oSayTrc PROMPT TRANS(mTrc,"@E 99,999.99") ID 105 OF mDlg COLORS BrwText, BrwBack UPDATE oSayTrc:SetFont(oFntGet) REDEFINE BITMAP oBmpLogo ID 113 OF mDlg FILENAME ".\BITMAPS\LOGOIMPR.BMP" ADJUST * codigo do cliente REDEFINE GET oGetCli VAR cCodcl PICTURE "99999999" ID 111 OF mDlg oGetCli:bGotFocus := {||(cCodcl:=SPACE(08),mDlg:UpDate(),SETKEY( VK_F7 , {|| (VendClie(mDlg),Atualiza(mCdVenda, @mLista, @nTotPed, @nVrDin, @mTrc, oLbx, mDlg, mtipo) ) } ) ) } REDEFINE GET oGetCod VAR cCodPr PICTURE "99999999999999999999" ID 108 OF mDlg ; VALID EVAL({|lFnd| ( nCodPr:=VAL(cCodPr), lFnd:=.F.,; lFnd:=ChkCod(@nCodPr,@mLista,@oLbx,mDlg,@nTotPed,@nVrDin,@mTrc,mQtd,@mCdVenda,mtipo),; cCodPr:=SPACE(20) ), lFnd }) AMAURI

E O SEGUINTE JA TENTEI E NÃO CONSEGUI COLOCAR O FOCO DE INICIO EM CIMA DO CODIGO DO CLIENTE E NÃO EM CIMA DO PRODUTO TODA VEZ QUE ENTRA NA TELA O FOCO TA EM CIMA DO PRODUTO ALGUEM PODE ME AJUDAR AI TEM O PEDAÇO DO FONTE ONDE ESTA ACONTECENDO ISTO * tipo do movimento REDEFINE SAY oSayMov PROMPT vIt10 ID 102 OF mDlg COLORS BrwText, BrwBack UPDATE * cliente REDEFINE SAY oSayCli PROMPT vIt02 ID 106 OF mDlg COLORS BrwText, BrwBack UPDATE REDEFINE SAY oSayTot PROMPT TRANS(nTCdes,"@E 99,999.99") ID 103 OF mDlg COLORS BrwText, BrwBack UPDATE oSayTot:SetFont(oFntGet) REDEFINE SAY oSayPgo PROMPT TRANS(nVlrTot1+nVlrTot2+nVlrTot3+nVlrTot4+nVlrTot5+nVlrTot6+nVlrTot7+nVlrTot8+nVlrTot9+nVlrTot0,"@E 99,999.99") ID 104 OF mDlg COLORS BrwText, BrwBack UPDATE oSayPgo:SetFont(oFntGet) REDEFINE SAY oSayTrc PROMPT TRANS(mTrc,"@E 99,999.99") ID 105 OF mDlg COLORS BrwText, BrwBack UPDATE oSayTrc:SetFont(oFntGet) REDEFINE BITMAP oBmpLogo ID 113 OF mDlg FILENAME ".\BITMAPS\LOGOIMPR.BMP" ADJUST * codigo do cliente REDEFINE GET oGetCli VAR cCodcl PICTURE "99999999" ID 111 OF mDlg oGetCli:bGotFocus := {||(cCodcl:=SPACE(08),mDlg:UpDate(),SETKEY( VK_F7 , {|| (VendClie(mDlg),Atualiza(mCdVenda, @mLista, @nTotPed, @nVrDin, @mTrc, oLbx, mDlg, mtipo) ) } ) ) } REDEFINE GET oGetCod VAR cCodPr PICTURE "99999999999999999999" ID 108 OF mDlg ; VALID EVAL({|lFnd| ( nCodPr:=VAL(cCodPr), lFnd:=.F.,; lFnd:=ChkCod(@nCodPr,@mLista,@oLbx,mDlg,@nTotPed,@nVrDin,@mTrc,mQtd,@mCdVenda,mtipo),; cCodPr:=SPACE(20) ), lFnd }) AMAURI

por acaso alguem tem este sistema por ai Amauri

por acaso alguem tem este sistema por ai Amauri

clipper 5.3 fw 2.4 amauri

alguem por acaso sabe como fazer para ler um arquivo com o nome de 15 caracteres no fivewin grato Amauri

alguem por acaso sabe como fazer para ler um arquivo com o nome de 15 caracteres no fivewin grato Amauri

meu e-mail coutinho.amauri@gmail.com obrigado

alguem sabe onde posso baixar o xharbour versao 0.99.30

alguem sabe onde posso baixar o xharbour versao 0.99.30

Estou a procura de um profissional que esteja desempregado para trabalhar em Niteroi(RJ). Qualificação: Conhecimentos de Clipper 5.2 ou 5.3 Conhecimentos de FiveWin Conhecimentos de xharbour Favor mencionar no curriculum, alem dos conhecimentos para o cargo, também o último salário, bem como o salário pretendido. Caso alguém tenha interesse favor encaminhar um curriculum para o meu e-mail, mencionando no assunto do e-mail: (Curriculum Clipper+FiveWin) amauri@cyclonet.com.br Obrigado pela atenção de todos. Amauri.

Estou a procura de um profissional que esteja desempregado para trabalhar em Niteroi(RJ). Qualificação: Conhecimentos de Clipper 5.2 ou 5.3 Conhecimentos de FiveWin Conhecimentos de xharbour Favor mencionar no curriculum, alem dos conhecimentos para o cargo, também o último salário, bem como o salário pretendido. Caso alguém tenha interesse favor encaminhar um curriculum para o meu e-mail, mencionando no assunto do e-mail: (Curriculum Clipper+FiveWin) amauri@cyclonet.com.br Obrigado pela atenção de todos. Amauri.

pelo que eu analisei , é o seguinte tenho um programa principal chamado PO.PRG dentro dele existe uma função chamada TWINDOW , compilo legal na hora de linkar o erro Error: Unresolved external '_HB_FUN_TWINDOW' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\PO.OBJ to entendendo o seguinte que ele não achou a funçao twindow no po.obj amauri clip 5.3 // xhb099.50 // fwh2.6 // xdev 0.58

ele não ta reconhecendo o obj que ele acabou de gerar

e ai ninguem se habilita kd a ajuda ?

Bom Dia Amigos é o seguinte to usando a five com clipper e to migrando para xharbour 099.50 usando o xdev compila tudo bem , mas qdo vai linkar da uns erros. que sao o seguinte Executando: ILINK32 @B32.BC Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_TWINDOW' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\PO.OBJ Error: Unresolved external '_HB_FUN_SHELLEXECUTE' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\PO.OBJ Error: Unresolved external '_HB_FUN_TFONT' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\CALEND.OBJ Error: Unresolved external '_HB_FUN_TDIALOG' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\CALEND.OBJ Error: Unresolved external '_HB_FUN_NOR' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\CALEND.OBJ alguem se habilita Amauri

Bom Dia Amigos é o seguinte to usando a five com clipper e to migrando para xharbour 099.50 usando o xdev compila tudo bem , mas qdo vai linkar da uns erros. que sao o seguinte Executando: ILINK32 @B32.BC Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_TWINDOW' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\PO.OBJ Error: Unresolved external '_HB_FUN_SHELLEXECUTE' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\PO.OBJ Error: Unresolved external '_HB_FUN_TFONT' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\CALEND.OBJ Error: Unresolved external '_HB_FUN_TDIALOG' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\CALEND.OBJ Error: Unresolved external '_HB_FUN_NOR' referenced from C:\SISTEMAS FIVEWIN\PERSONAL\CALEND.OBJ alguem se habilita Amauri

ninguem ?????

ALGUEM POR ACASO TEM ALGUMA FUNÇÃO QUE GUARDE AS TECLAS QUE ESTÃO DEFINIDAS TIPO SETKEY VK_F2( CALCULO() ) E DEPOIS RESTAURA-LAS POIS TENHO QUE FAZER UMA CHAMADA DE UMA OUTRA TELA QUE VAI USAR A MESMA TECLA SO QUE CHAMANDO UMA FUNCAO DIFERENTE.

ALGUEM POR ACASO TEM ALGUMA FUNÇÃO QUE GUARDE AS TECLAS QUE ESTÃO DEFINIDAS TIPO SETKEY VK_F2( CALCULO() ) E DEPOIS RESTAURA-LAS POIS TENHO QUE FAZER UMA CHAMADA DE UMA OUTRA TELA QUE VAI USAR A MESMA TECLA SO QUE CHAMANDO UMA FUNCAO DIFERENTE.

vou tentar por aqui obrigado

olha o codigo STATIC FUNCTION FillCrd(aList) local oPrn, xStep, yStep, oFont, nL, cNome,cPai, cMae, cDtnasc, cNacio , cLeito @0,0 IMAGE oImage SIZE 10, 10 printer oPrn to cPrintr name "Carteiras" preview oPrn:SetPage( 9 ) // -> A4 = 210mm x 297mm define font oFont name 'Arial' size 0, -9 of oPrn bold define font oFon2 name 'Arial Narrow' size 0, -7 of oPrn define font oFon3 name 'Arial Black' size 0,-13 of oPrn define font oFon4 name 'Arial Black' size 0,-18 of oPrn italic DEFINE PEN oPen COLOR CLR_BLACK WIDTH (oFont:nHeight/10) xStep:=oPrn:nVertRes()/65 yStep:=oPrn:nHorzRes()/90 oPrn:StartPage() nL := 12 nStep := (yStep/2) CLIENTE->( DBGOTOP() ) WHILE ! CLIENTE->(EOF()) IF CLIENTE->IDCARD = .T. oCodi := CLIENTE->CODCLI cNome := CLIENTE->NOME IdCardInfo(oCodi, @cDtnasc, @cPai, @cMae, @cNacio,@cLeito) cFoto := ".\FOTOS\"+STRZERO(oCodi,8)+".JPG" IF ! FILE(cFoto) cFoto := ".\FOTOS\SEMFOTO.JPG" ENDIF cImg := ".\BITMAPS\IDCARD.JPG" IF ! FILE(cImg) cImg := ".\BITMAPS\IDCARD.BMP" ENDIF IF FILE(cImg) oImage:LoadBMP(cImg) oPrn:SayImage((nL-10)*xStep, yStep*5, oImage, yStep*39, yStep*25) SysRefresh() ENDIF IF FILE(cFoto) oImage:LoadBMP(cFoto) oPrn:SayImage((nL-9.8)*xStep, yStep*6.0, oImage, 7.5*yStep, 9*yStep) SysRefresh() ENDIF IF FILE(".\bitmaps\LOGOIMPR.BMP") oPrn:SayBitmap((nL-9.8)*xStep, yStep*14,".\bitmaps\LOGOIMPR.BMP", 28*yStep, 8*yStep) ENDIF oPrn:say(xStep*((nL-11)+07.0), yStep*07, ALLTRIM(cNome) , oFont) oPrn:say(xStep*((nL-11)+09.0), yStep*07, "LEITO -> " + STRZERO(cLeito,5), oFont) oPrn:say(xStep*((nL-11)+09.0), yStep*28, "DT NASC.-> " + dtoc(cDtnasc) , oFont) oPrn:say(xStep*((nL-11)+10.0), yStep*20, "CLIENTE PREFERENCIAL" , oFon4, , , ,2) oPrn:say(xStep*((nL-11)+12.0), yStep*06, "SR HOSPEDE. TENHA UMA BOA ESTADIA" , oFon2) oPrn:say(xStep*((nL-11)+12.8), yStep*06, "NOSSO LEMA SERVIR BEM PARA SERVIR SEMPRE" , oFon2) oPrn:say(xStep*((nL-11)+12.2), yStep*23,STRZERO(oCodi,8), oFont) cBar := STRZERO(CLIENTE->CODCLI,8) IF LEN(ALLTRIM(STR(CLIENTE->CODCLI))) <= 4 cBar := STRZERO(CLIENTE->CODCLI,4) ENDIF CODE3_9(xStep*((nL-11)+12.2), yStep*29.5, cBar, oPrn,,,,0.035, 0.6) nL+=14 if (nL*xStep) >= oPrn:nVertRes() oPrn:endpage() oPrn:StartPage() nL := 12 endif ENDIF CLIENTE->( DBSKIP(1) ) END oPrn:endpage() oPrn:Rebuild() oPrn:ResetDC() oPrn:Preview() release font oFont, oFon2 CLIENTE->( DBGOTOP() ) oImage:End() SysRefresh() RETURN NIL

será que alguem ja passou por isto usando a impressora generic / text only a impressao fica 100 % mas qdo uso uma outra impressora que esta instalada na minha maquina local , a impressao fica desalinhada, toda torta. uso o TDOSPRN CLIPPER 5.3 BLINKER 7.0 FW 2.4