filizola

galera, algum de vcs é o responsável pelo aplicativo usado por esta balança ?? preciso de ajuda.

galera, algum de vcs é o responsável pelo aplicativo usado por esta balança ?? preciso de ajuda.

Peraí, o cliente terá de pagar mensalidade pelo uso do CoreBuilder que por ventura "eu" tenha comprado ???!!! if "SIM" msg("O que é que eu vou falar lá em casa !!!") alert("SINISTRO, MUITO SINISTRO !!!") return(.f.) endif

estou tentando compilar um pequeno exemplo e me retorna esta mensagem, porém o programa funciona.

alguem pode me informar se existe um rdd para que eu possa testar sem que seja demo

de forma alguma Márcio, muito legal da sua parte exemplicar de forma simples todo um sisteminha em fw. parabéns. muito legal os bitmaps tipo xp. pena que estejam dentro de uma dll porque senão poderíamos usá-los separadamente

quando defino no ws um botao com tamanho bem maior que o padrao, e dentro do programa defino uma fonte maior, o botao aparece grande como o esperado porem a letra aparece pequena, e outra coisa, quando digito o primeiro campo e teclo enter nao pula para o segundo. SINISTRO NÃO ??? quem pode me ajudar. SEGUE PROGRMA: #include "fivewin.ch" function main() local odlg, oprod, opeso, olbx, obtn, fntarial, osay local vprod:=space(40), vpeso:=0.000 use cea402 index ceb402 hborland:=loadlibrary("bwcc.dll") set 3dlook on define font fntarial name "Arial" size 0,-45 define dialog odlg resource "emitir" redefine say osay id 201 of odlg font fntarial color "b/wn" redefine say osay id 202 of odlg font fntarial color "b/wn" redefine get oprod var vprod picture "@!" id 101 of odlg font fntarial; valid(temprod(vprod,olbx,odlg)) redefine get opeso var vpeso picture "@e 999.999" id 102 of odlg font fntarial redefine listbox olbx fields cea402->descric headers oemtoansi("Descri‡Æo"); id 103 of odlg on change(mudavar()) redefine button obtn id 107 of odlg font fntarial redefine button obtn id 108 of odlg action(limpa(oprod,odlg,opeso,vpeso)); font fntarial activate dialog odlg centered freelibrary() return nil *-------------------------------- function temprod(fprod,olbx,odlg) set filter to alltrim(fprod)$cea402->descric dbgotop() if bof() .and. eof() set filter to return(.f.) endif olbx:refresh() odlg:refresh() return(.t.) *----------------- function mudavar() msginfo("So Testando") return(.t.) *------------------------- function limpa(oprod,odlg,opeso,vpeso) set filter to vpeso:=0 opeso:refresh() oprod:setfocus() odlg:refresh() sysrefresh() return(.t.) E O ARQUIVO RC /**************************************************************************** emitir.rc produced by Borland Resource Workshop *****************************************************************************/ #define DIALOG_1 1 #define emitir emitir emitir DIALOG 6, 15, 432, 280 STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX CAPTION "Emissão de Etiquetas" FONT 8, "MS Sans Serif" { EDITTEXT 101, 144, 2, 230, 34, WS_BORDER | WS_GROUP | WS_TABSTOP EDITTEXT 102, 144, 43, 97, 34, WS_BORDER | WS_GROUP | WS_TABSTOP LISTBOX 103, 5, 83, 206, 48, LBS_STANDARD DEFPUSHBUTTON "&Imprimir", 107, 232, 145, 129, 50 PUSHBUTTON "&Voltar", 108, 235, 211, 123, 49 RTEXT "PRODUTO", 201, 5, 2, 131, 34 RTEXT "PESO", 202, 5, 43, 130, 34 GROUPBOX "Etiqueta", 104, 5, 138, 206, 133, BS_GROUPBOX }

meus sentimentos a familia do nosso amigo marcelo

eu tentei de todas as formas fazer a tal conexao com fw21 e nao consegui. daí desisti.

muito obrigado karinh, funcionou, mas como posso fazer para a fonte se tornar global, ou seja, para todo meu programa???

valeu rubens, fazendo da forma que vc disse funcionou perfeitamente, obrigado.

rubens tentei utilizar assim porem quando digito a primeira letra do get o program executa a funcao mas nao me retorna a letro digitada, aí tenho que digitá-la novamente.

karinh, vc pode me ajudar ?

olá amigos, quando inicio um dialog tenho quatro botoes: GRAVAR(no on init do dialog ele é BTNGRAVAR:DISABLE) EDITAR LISTAR SAIR o get pára no primeiro campo, quero que quando eu digitar o primeiro caracter uma funcao seja ativada para que possa fazer o seguinte, BTNGRAVAR:ENABLE(),BTNEDITAR:DISABLE(),BTNLISTAR:DISABLE()

amigos, estou utilizando RW, quando abro a dialog, as vezes a fonte é uma, outras vezes a fonte é outra, e eu nao definí nenhum tipo de fonte, alguem poderia me ajudar. vem uma fonte ASSIM e outra normal ps - se o ASSIM nao apareceu diferente é como se a fonte fosse uma maior por hora e outra menor por outra hora.