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.

coloque isto na sua ownd ou seja na primeira janela. hdl:=loadlibrary("bwcc.dll") e no final da sua ownd freelibrary("bwcc.dll")

valeu karinh vc conhece mesmo do WS the best. (hahahahaha) era isto mesmo, tenho desenvolvido este projeto em horarios que nao condizem com qualquer cérebro humano, entre 20:00 e 03:00hs. realmente nao percebi este pequeno e significante detalhe. muito obrigado. veja só, as AREAS sao na verdade regioes de clientes entao irao repetir mesmo, nao uso RMK, tenho duvidas talvez, qqr dia irei me informar melhor.

inseri um twbrowse em uma tela, quando vou abrir a dita cuja vem o erro abaixo. PS se eu retirar o TWBROWSE o erro desaparece. TDIALOG:SETMSG (0) Unrecoverable error 667: Eval stack fault TDIALOG:SETMSG 0000 TLISTBOX:SETMSG 0000 (b)TCONTROL 0000 TLISTBOX:LOSTFOCUS 0000 TLISTBOX:KILLFOCUS 0000 TLISTBOX:HANDLEEVEN 0000 ENDDIALOG 0000 TDIALOG:END 0000 (b)ERRORDIALO 0000 TBUTTON:CLICK 0000 TBUTTON:HANDLEEVEN 0000 SENDMESSAG 0000 TDIALOG:COMMAND 0000 TDIALOG:HANDLEEVEN 0000 DIALOGBOXI 0000 TDIALOG:ACTIVATE 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CREATEDLGE 0000 TDIALOG:ACTIVATE 0000 ACHAR 0136 (b)CADCLI 0051 TBUTTON:CLICK 0000 TBUTTON:HANDLEEVEN 0000 SENDMESSAG 0000 TDIALOG:COMMAND 0000 TDIALOG:HANDLEEVEN 0000 DIALOGBOX 0000 TDIALOG:ACTIVATE 0000 CADCLI 0055 (b)MAIN 0023 TBTNBMP:CLICK 0000 TBTNBMP:LBUTTONUP 0000 TBTNBMP:HANDLEEVEN 0000 WINRUN 0000 TWINDOW:ACTIVATE 0000 MAIN 0040

valeu grande evandro, vou fazer um teste como voce disse e retorno neste tópico.

alguns bitmaps ficam cortados dentro do botao, defini o botao tamanho 70,65. o bmp exit aparece completo um outro como por exemplo database.bmp corta. alguem sabe me explicar o motivo ???

KARINH, ( ou karinha, hehehehe) desculpe minha falha e desejo muita saúde a você e sua filha. veja só, descobri que o arquivo rc estava corrompido, mas nunca entendo o motivo, então peguei um já exitente, limpei todos os itens, renomeei e aí funcionou, pelo menos até agora, pois irei colocar outras telas dentro deste rc, vamos ver como ele irá se comportar. muito obrigado mais uma vez, grande abraço.

meu arquivo de resources: docampo.rc telas internas : clientes fornecedor produtos estoque pedido sem explicação, quando vou testar dentro do próprio WS ou mesmo na minha aplicação a tela clientes, em qualquer campo que eu preencha parte ou todo e dou enter o cursor volta para o inicio do campo e só pula para o outro com o TAB. já fiz e refiz o arquivo WS para ver se não havia corrompido e nada, se abro um resource que tinha feito como teste isto não acontece.

vc poderia me enviar por favor ??? marciofilizola@ig.com.br

nao seria o SET MULTIPLE ON que está faltando no aplicativo ???

agora aparece este erro: Application =========== Path and name: C:\FW21\SAMPLES\TESTSQL.EXE Size: 794,176 bytes Max files handles permited: ( SetHandleCount() ) 20 Error ocurred at: 04/23/04, 16:49:24 Error description: Error Objects/6 No Exp. Method: TODBC:LDATEASSTR Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TODBC:LDATEASSTR(0) Called from TDBODBCDIR:NEW(114) Called from MAIN(25) System ====== CPU type: 486 Hardware memory: 66303 (64 megas) Free System resources: % 65 GDI resources: % 83 User resources: % 65 Windows and MsDos versions: 3.95, 7.10 Windows total applications running: 25 1 C:\WINDOWS\EXPLORER.EXE 2 C:\WINDOWS\SYSTEM\MSUTB.DLL 3 C:\WINDOWS\SYSTEM\BROWSEUI.DLL 4 C:\WINDOWS\SYSTEM\SHLWAPI.DLL 5 C:\WINDOWS\SYSTEM\COMCTL32.DLL 6 C:\WINDOWS\SYSTEM\USER.EXE 7 C:\ARQUIV~1\NORTON~1\NAVAPW32.DLL 8 C:\WINDOWS\SYSTEM\CTFMON.EXE 9 C:\WINDOWS\SYSTEM\WINOA386.MOD 10 C:\WINDOWS\SYSTEM\MSAWT.DLL 11 C:\WINDOWS\SYSTEM\DDHELP.EXE 12 C:\WINDOWS\SYSTEM\SENS.DLL 13 C:\WINDOWS\SYSTEM\RPCRT4.DLL 14 C:\WINDOWS\SYSTEM\OLE32.DLL 15 C:\MYSQL\BIN\WINMYS~1.EXE 16 C:\ARQUIV~1\SYGATE\SPF\SMC.EXE 17 C:\ARQUIV~1\ARQUIV~1\SYMANT~1\CCAPP.EXE 18 C:\WINDOWS\TASKMON.EXE 19 C:\WINDOWS\SYSTEM\SYSTRAY.EXE 20 C:\WINDOWS\PTSNOOP.EXE 21 C:\WINDOWS\SYSTEM\MSHTML.DLL 22 C:\WINDOWS\SYSTEM\URLMON.DLL 23 C:\ARQUIV~1\ARQUIV~1\SYSTEM\MOSEARCH\BIN\MOSEARCH.EXE 24 C:\WINDOWS\SYSTEM\DDEML.DLL 25 C:\WINDOWS\SYSTEM\TAPISRV.EXE 26 C:\ARQUIV~1\NORTON~1\NAVEVENT.DLL 27 C:\WINDOWS\SYSTEM\SSSENSOR.DLL 28 C:\WINDOWS\SYSTEM\MMSYSTEM.DLL 29 C:\ARQUIV~1\ARQUIV~1\SYMANT~1\CCEVTMGR.EXE 30 C:\WINDOWS\SYSTEM\MSTASK.EXE 31 C:\WINDOWS\SYSTEM\SPOOL32.EXE 32 C:\WINDOWS\SYSTEM\MSGSRV32.EXE 33 C:\WINDOWS\SYSTEM\WEBCHECK.DLL 34 C:\WINDOWS\SYSTEM\SHDOC401.DLL Variables in use ================ Procedure Type Value ========================== LOCKERRHAN Param 1: O Class: ERROR Param 2: B { || ... } CodeBlock (b)INITHANDL$ Param 1: O Class: ERROR TODBC:LDATEASSTR TDBODBCDIR:NEW Param 1: C "SELECT * FROM cea400" Param 2: O Class: TODBC Local 1: O Class: TDBODBCDIR Local 2: U Local 3: O Class: TDBODBCDIR MAIN Local 1: O Class: TODBC Local 2: U Local 3: A Len: 0 Local 4: U Local 5: A Len: 9 Local 6: C "myodbc3-test " Linked RDDs =========== DBF DBFNTX DataBases in use ================ Classes in use: =============== 1 TODBC 2 TDBODBCDIR 3 ERROR Memory Analysis =============== Static memory: data segment: 64k Initial size: 45472 bytes (SYMP=584, Stack=18500, Heap=8196) Clipper Stack: 19881 bytes 13 Static variables: 182 bytes Dynamic memory consume: Actual Value: 174144 bytes Highest Value: 288832 bytes