viol Posted April 7, 2010 Report Share Posted April 7, 2010 É MEU AMIGO KAPIABA, TAMO PERDIDO MESMO. O SITE NÃO FUNCIONA PESQUISA... OS EXEMPLOS. BABAUUUU... NÃO CONSEGUIMOS VER NADA... Viol Quote Link to comment Share on other sites More sharing options...
viol Posted April 7, 2010 Author Report Share Posted April 7, 2010 É MEU AMIGO KAPIABA, TAMO PERDIDO MESMO. O SITE NÃO FUNCIONA PESQUISA... OS EXEMPLOS. BABAUUUU... NÃO CONSEGUIMOS VER NADA... Viol Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 7, 2010 Report Share Posted April 7, 2010 Nem tão tanto assim faça a busca pelo forum lá perto do perfil(olha pra cima ) que tá fincionando a busca na pagina inicial é tá de férias.. Abraços.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2010 Report Share Posted April 8, 2010 Porque vcoe está perdido menino? Diz ahi a sua dúvida, pois por acá, temos LENDAS VIVAS do FIVEWIN para ayudarte! De rosas e receberás ROSAS!!! kkkkkkkkk João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
viol Posted April 8, 2010 Author Report Share Posted April 8, 2010 ENTÃO VAMOS LA MEU CARO COLEGA KAPIABA,(se ta feio na foto em)hahah. eu comprei os fontes do Ariston Santos.. e to tentando entender .. compilei so os fontes do clientes.prg da o seguinte erro. Called from: D:\VMSFT\dialog.prg => CREATEDLGERROR(528) Called from: D:\VMSFT\dialog.prg => TDIALOG:ACTIVATE(291) Called from: D:\VMSFT\clientes.prg => EDITCLI(307) como decifrar esse tipo de erro? ja conferi todos os IDs ... fontes abaixo. DEFINE DIALOG oCliDl RESOURCE "CLIENTE" TITLE If( lAppend, "Cadastro de clientes", "Alteração de clientes" ) REDEFINE FOLDER oFld ID 110 OF oCliDl ; PROMPTS "&Dados cadastrais", "&Dados do Avalista" ; DIALOGS "CLIENTE1", "CLIENTE2" msgstop("passou") REDEFINE BUTTON oBtn0 ID 54 OF oFld:aDialogs[1] ACTION MsgRun("Pesquisando. Aguarde...","Pesquisando. Aguarde...",{||CliGetFree(@oCod,oCliDl)}) WHEN lAppend REDEFINE GET oG01 VAR oCod PICTURE "99999999" ID 33 OF oFld:aDialogs[1] UPDATE VALID ChkCliCod(oCod,oCliDl) WHEN lAppend REDEFINE GET oG02 VAR oNome ID 34 OF oFld:aDialogs[1] VALID CadCliNome(lAppend, oNome) REDEFINE GET oG03 VAR oFant ID 35 OF oFld:aDialogs[1] REDEFINE GET oG04 VAR cERes ID 36 OF oFld:aDialogs[1] REDEFINE GET oI43 VAR c_Nro PICTURE "99999" ID 43 OF oFld:aDialogs[1] REDEFINE GET oG05 VAR oCida ID 37 OF oFld:aDialogs[1] REDEFINE GET oG06 VAR oUf ID 38 OF oFld:aDialogs[1] REDEFINE GET oG07 VAR oCep ID 41 OF oFld:aDialogs[1] REDEFINE GET oG08 VAR oPeri ID 39 OF oFld:aDialogs[1] REDEFINE GET oG09 VAR oBair ID 40 OF oFld:aDialogs[1] REDEFINE GET oFon VAR oFonr ID 42 OF oFld:aDialogs[1] REDEFINE GET oCt77 VAR cECom ID 77 OF oFld:aDialogs[1] REDEFINE COMBOBOX oPess VAR cPess ITEMS aSect ID 58 OF oFld:aDialogs[1] // VALID VerificaAltera(cPess,oG14,@oCpf) UPDATE REDEFINE BTNBMP oBt1 ID 69 OF oFld:aDialogs[1] FILE ".\BITMAPS\ABRIR.BMP" ; ACTION ( mAux:=CadSecoes("PESSOAS","Tipos de pessoas"), aSect := GetSecoes("PESSOAS", {"FÃSICA","JURÃDICA"}),; oPess:SetItems(aSect),; cPess:=mAux, oCliDl:Update() ) REDEFINE COMBOBOX oEciv VAR cEciv ITEMS {"solteiro","casado","diverciado","viuvo","outros"} ID 63 OF oFld:aDialogs[1] REDEFINE GET oPai VAR cPai ID 51 OF oFld:aDialogs[1] REDEFINE GET oMae VAR cMae ID 52 OF oFld:aDialogs[1] REDEFINE GET oG13 VAR oRg ID 47 OF oFld:aDialogs[1] VALID EVAL({|lOk|lOk := TestaIe( oRg, oUf, cPess ), IIF(!lOk,MsgYesNo("IE inválida. Deseja prosseguir assim mesmo?","IE inválida"),lOk)}) REDEFINE GET oG14 VAR oCpf PICTURE CpfCgcPic(cPess, NIL) ID 48 OF oFld:aDialogs[1] VALID CheckCpf(oCpf, lAppend) REDEFINE GET oG16 VAR oPrz PICTURE "99" ID 45 OF oFld:aDialogs[1] REDEFINE GET oAv01 VAR cAv01 ID 34 OF oFld:aDialogs[2] REDEFINE GET oAv02 VAR cAv02 ID 35 OF oFld:aDialogs[2] REDEFINE GET oAv03 VAR cAv03 ID 36 OF oFld:aDialogs[2] REDEFINE GET oAv04 VAR cAv04 ID 37 OF oFld:aDialogs[2] REDEFINE GET oAv05 VAR cAv05 ID 38 OF oFld:aDialogs[2] REDEFINE GET oAv06 VAR cAv06 ID 41 OF oFld:aDialogs[2] REDEFINE GET oAv07 VAR cAv07 ID 40 OF oFld:aDialogs[2] REDEFINE GET oAv08 VAR cAv08 ID 39 OF oFld:aDialogs[2] REDEFINE GET oAv09 VAR cAv09 ID 42 OF oFld:aDialogs[2] REDEFINE GET oAv10 VAR cAv10 ID 77 OF oFld:aDialogs[2] REDEFINE COMBOBOX oAv11 VAR cAv11 ITEMS {"solteiro","casado","diverciado","viuvo","outros"} ID 63 OF oFld:aDialogs[2] REDEFINE GET oAv12 VAR cAv12 ID 51 OF oFld:aDialogs[2] REDEFINE GET oAv13 VAR cAv13 ID 52 OF oFld:aDialogs[2] REDEFINE GET oAv14 VAR cAv14 ID 47 OF oFld:aDialogs[2] REDEFINE GET oAv15 VAR cAv15 ID 48 OF oFld:aDialogs[2] REDEFINE GET oG17 VAR oData ID 46 OF oCliDl REDEFINE GET oG59 VAR oDtn ID 59 OF oCliDl REDEFINE GET oG73 VAR dUltC ID 73 OF oCliDl WHEN .F. REDEFINE GET oRef VAR cEspo ID 43 OF oCliDl REDEFINE GET oRcid VAR cRCPF ID 53 OF oCliDl REDEFINE GET oRcep VAR cRcep ID 55 OF oCliDl REDEFINE GET oRper VAR cRper ID 56 OF oCliDl REDEFINE GET oRbai VAR cRbai ID 57 OF oCliDl REDEFINE GET oRtel VAR cRtel ID 44 OF oCliDl IF cEmpres = "BARBOSA" REDEFINE SAY oSay1 PROMPT "Rota:" ID 70 OF oCliDl REDEFINE SAY oSay2 PROMPT "Qtd. que compra:" ID 71 OF oCliDl REDEFINE GET oId60 VAR nSala PICTURE "99999999" ID 60 OF oCliDl VALID EVAL({||(nSaldo:=((nSala/100)*nBcrd),oCliDl:UpDate()),.T.}) REDEFINE GET oId61 VAR nBcrd PICTURE "99999999" ID 61 OF oCliDl VALID EVAL({||(nSaldo:=((nSala/100)*nBcrd),oCliDl:UpDate()),.T.}) ELSE REDEFINE GET oId60 VAR nSala PICTURE "@E 999,999.99" ID 60 OF oCliDl VALID EVAL({||(nSaldo:=((nSala/100)*nBcrd),oCliDl:UpDate()),.T.}) REDEFINE GET oId61 VAR nBcrd PICTURE "@E 999,999.99" ID 61 OF oCliDl VALID EVAL({||(nSaldo:=((nSala/100)*nBcrd),oCliDl:UpDate()),.T.}) ENDIF REDEFINE GET oId62 VAR nSaldo PICTURE "@E 999,999.99" ID 62 OF oCliDl UPDATE WHEN .F. REDEFINE BUTTON oCt74 ID 74 OF oCliDl ACTION MsgRun("Aguarde...","Aguarde...",{||CliChkSit(oCod, oNome)}) WHEN !lAppend REDEFINE GET oId65 VAR nVndr PICTURE "999" ID 65 OF oCliDl UPDATE // VALID SeekVndr(@nVndr, @cVndr, oCliDl) REDEFINE GET oId66 VAR cVndr ID 66 OF oCliDl UPDATE REDEFINE CHECKBOX oChk VAR lLock ID 49 OF oCliDl REDEFINE GET oI68 VAR cPque ID 68 OF oCliDl REDEFINE GET oI76 VAR cObse ID 76 OF oCliDl REDEFINE GET oI78 VAR cMail ID 78 OF oCliDl REDEFINE GET oI79 VAR cSite ID 79 OF oCliDl REDEFINE IMAGE oBmp ID 50 OF oCliDl FILENAME cFoto UPDATE ADJUST REDEFINE BUTTON oBtn1 ID 72 OF oCliDl ACTION CliGetPhoto(oCod, @cFoto, oBmp) oBtn1:SetText("Obter/Excluir foto") REDEFINE BUTTON oBtn2 ID 30 OF oCliDl ACTION ( IIF( !empty( oCod ) ,( lSave := .t. , oCliDl:End()), MsgAlert( "Código não informado","Atenção" ) ) ) REDEFINE BUTTON oBtn3 ID 31 OF oCliDl ACTION oCliDl:End() esta é a linha 307-->> ACTIVATE DIALOG oCliDl //CENTERED Viol Quote Link to comment Share on other sites More sharing options...
eevaldo Posted April 8, 2010 Report Share Posted April 8, 2010 Ola, Viol mostr o erro completo, ai estao so as chamadas nos programas a primeita linha da a mensagem de erro, assim nao da para ajudar muito Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Quote Link to comment Share on other sites More sharing options...
viol Posted April 8, 2010 Author Report Share Posted April 8, 2010 Application =========== Path and name: D:\VMSFT\SFT.EXE (32 bits) Size: 2,092,032 bytes Time from start: 0 hours 0 mins 6 secs Error occurred at: 08/04/2010, 14:46:57 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: CLIENTE Args: Stack Calls =========== Called from: D:\VMSFT\dialog.prg => CREATEDLGERROR(528) Called from: D:\VMSFT\dialog.prg => TDIALOG:ACTIVATE(291) Called from: D:\VMSFT\clientes.prg => EDITCLI(307) Called from: D:\VMSFT\clientes.prg => (b)CLIENT(109) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1411) Called from: .\source\classes\WINDOW.PRG => _FWH(3333) Called from: => SENDMESSAGE(0) Called from: D:\VMSFT\dialog.prg => TDIALOG:COMMAND(399) Called from: => TWINDOW:HANDLEEVENT(0) Called from: D:\VMSFT\dialog.prg => TDIALOG:HANDLEEVENT(882) Called from: => DIALOGBOXINDIRECT(0) Called from: D:\VMSFT\dialog.prg => TDIALOG:ACTIVATE(274) Called from: D:\VMSFT\clientes.prg => CLIENT(119) Called from: D:\VMSFT\SFT.PRG => CHGCTRL(260) Called from: D:\VMSFT\SFT.PRG => (b)PRINCIPAL(105) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(441) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(626) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1286) Called from: .\source\classes\WINDOW.PRG => _FWH(3333) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(952) Called from: D:\VMSFT\SFT.PRG => PRINCIPAL(144) System ====== CPU type: Intel® Core2 Duo CPU T6570 @ 2.10GHz 2100 Mhz Hardware memory: 2048 megs Viol Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 8, 2010 Report Share Posted April 8, 2010 Compile o RC e ou RES junto com seu projeto.. veja tb. se não tem recursos borland Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2010 Report Share Posted April 8, 2010 Error description: Error FiveWin/3 Cannot create Dialog Box: bonitao, voce incorporou o arquivo.res na compilacao? Ou Nao esta usando um recurso no dialogo e chamando outro no programa? Transforme o dialogo em .rc(texto) e poste aqui. é fácil, mas tem que dominar o maravilhoso WORKSHOP.EXE, agora se ele fez em PELLESC.EXE, fodió!! E outra coisa, se voce é programador, porque precisa comprar as bobagens de terceiros?? // retirado... João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 08/04/2010 15:50:05 Quote Link to comment Share on other sites More sharing options...
Luisão Posted April 8, 2010 Report Share Posted April 8, 2010 Aqui: id=code>id=code>Não seria id=code>id=code>? Luis Fernando Jr. (Luisão) "What we do in life echoes in eternity" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY E-Mail: juninho.luisao@gmail.com MSN: juninho_luisao@hotmail.com Quote Link to comment Share on other sites More sharing options...
FiveWinBr Posted April 8, 2010 Report Share Posted April 8, 2010 rsrs boa. Att. Lailton http://www.redstarsoft.com.br E-mail/MSN: lailton@redstarsoft.com.br xHarbour 1.2.1 | Fivewin 9.02 | Borland Bcc55 | MySQL/PostGreSQL | PHP | ASP | C++ Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2010 Report Share Posted April 8, 2010 citação:Aqui: id=code>id=code>Não seria id=code>id=code>? Luis Fernando Jr. (Luisão) "What we do in life echoes in eternity" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY E-Mail: juninho.luisao@gmail.com MSN: juninho_luisao@hotmail.com id=quote>id=quote>KKKKKKKKKKK De RECURSOS, vc. não entende...só de @..UI, UI!! kkk Voce está errado. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2010 Report Share Posted April 8, 2010 citação:Aqui: id=code>id=code>Não seria id=code>id=code>? Luis Fernando Jr. (Luisão) "What we do in life echoes in eternity" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY E-Mail: juninho.luisao@gmail.com MSN: juninho_luisao@hotmail.com id=quote>id=quote>Alias() Luisão acho-o um progrmador fantástico, mas tá na hora de se atualizar e vir para o mundo de gente grande!! Seja voce também um TOP OF LINE, dos RECURSOS. KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luisão Posted April 8, 2010 Report Share Posted April 8, 2010 citação:// retirado...id=quote>id=quote>O que foi retirado ? Então Kapi... não manjo nada de recursos, mas como sempre vejo os Redefines nos objetos, ACHEI que poderia ser isso! hauhauahuaha Instalei o Pelles e o Workshop na minha máquina e gostei mais do Pelles (não vai me xingar!!!), mas ainda não consegui um tempo bom pra fazer testes mais a fundo... --- Acho que aqui, devo ter no máximo 2 telas com recursos sendo compiladas com o sistema, quando cheguei na empresa já estava assim. E é mesmo, é DEFINE DIALOG e não REDEFINE =) Luis Fernando Jr. (Luisão) "What we do in life echoes in eternity" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY E-Mail: juninho.luisao@gmail.com MSN: juninho_luisao@hotmail.com Editado por - Luisão on 08/04/2010 16:15:13 Quote Link to comment Share on other sites More sharing options...
viol Posted April 8, 2010 Author Report Share Posted April 8, 2010 o bonitão estou usando .DLL não é nem .RC nem RES. ESTOU USANDO O PELLES, EU COMPREI FONTES DE OUTROS PRA VE SE APRENDO UAI. Viol Quote Link to comment Share on other sites More sharing options...
eevaldo Posted April 8, 2010 Report Share Posted April 8, 2010 O define dialog esta correto Com certesa é recursos, confira no pelles se existe essa tela clientes Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Editado por - eevaldo on 08/04/2010 16:21:31 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2010 Report Share Posted April 8, 2010 citação:o bonitão estou usando .DLL não é nem .RC nem RES. ESTOU USANDO O PELLES, EU COMPREI FONTES DE OUTROS PRA VE SE APRENDO UAI. Viol id=quote>id=quote>COMO VOCE FEZ A CHAMADA DA DLL NO MENU PRINCIPAL? MOSTRE AS CHAMADAS DAS .DLL, SEMPRE PREFIRA USAR .RES, COM UMA COPIA EM .RC. .DLL NÃO É LEGAL, E COM .RES, EVITA-SE FICAR TROCANDO A .DLL NO CLIENTE. FAÇA COMO E EVALDO VALOU, VEJA SE O RECURSO ESTA NA .DLL. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2010 Report Share Posted April 8, 2010 Luisão(essa vai me f...kkkk), geralmente, os usários de @..UI,UI, preferem o PELLESC.EXE, porque ele é BAIXO NÃVEL, como o @..UI, UI!! KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Usuário de PONTA, usam EDITORES tipo o BORLAND RESOURCES WORKSHOP - BRW. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
viol Posted April 8, 2010 Author Report Share Posted April 8, 2010 citação: citação:o bonitão estou usando .DLL não é nem .RC nem RES. ESTOU USANDO O PELLES, EU COMPREI FONTES DE OUTROS PRA VE SE APRENDO UAI. Viol id=quote>id=quote>COMO VOCE FEZ A CHAMADA DA DLL NO MENU PRINCIPAL? MOSTRE AS CHAMADAS DAS .DLL, SEMPRE PREFIRA USAR .RES, COM UMA COPIA EM .RC. .DLL NÃO É LEGAL, E COM .RES, EVITA-SE FICAR TROCANDO A .DLL NO CLIENTE. FAÇA COMO E EVALDO VALOU, VEJA SE O RECURSO ESTA NA .DLL. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>aqui a chamada da DLL hBorland:= LoadLibrary('.\dll32\BWCC32.DLL') BWCCRegister( GetResources( ) ) SET RESOURCES TO ".\DLL32\SISCOM32.DLL", ".\DLL32\PREV32.DLL" OLHA AI O .RC CLIENTE DIALOG FIXED IMPURE 79, 70, 486, 307 STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION CAPTION "Cadastro de cliente" FONT 8, "Helv" { CONTROL "", 110, "TFolder", WS_TABSTOP, 3, 0, 479, 131 CONTROL "", 67, "Button", BS_GROUPBOX, 3, 129, 480, 68 CONTROL "Cônjuge / Contato ou referência pessoal", -1, "Static", WS_GROUP, 8, 137, 149, 8 CONTROL "", 43, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 8, 148, 150, 12 CONTROL "CPF:", -1, "Static", WS_GROUP, 162, 138, 27, 8 CONTROL "", 53, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 162, 148, 60, 12 CONTROL "RG:", -1, "Static", WS_GROUP, 231, 138, 20, 8 CONTROL "", 55, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 228, 148, 60, 12 CONTROL "Endereço (da referência pessoal)", -1, "Static", WS_GROUP, 294, 138, 139, 8 CONTROL "", 56, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 294, 148, 182, 12 CONTROL "Bairro (referência)", -1, "Static", WS_GROUP, 7, 166, 64, 8 CONTROL "", 57, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 7, 176, 150, 12 CONTROL "Telefone (referência)", -1, "Static", WS_GROUP, 162, 165, 91, 9 CONTROL "", 44, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 161, 176, 127, 12 CONTROL "Salário", 70, "Static", SS_CENTER|WS_GROUP, 293, 165, 50, 9 CONTROL "", 60, "Edit", ES_CENTER|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 292, 176, 50, 12 CONTROL "Base crédito", 71, "Static", SS_CENTER|WS_GROUP, 344, 165, 45, 9 CONTROL "", 61, "Edit", ES_CENTER|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 344, 176, 45, 12 CONTROL "Limite crédito", -1, "Static", SS_CENTER|WS_GROUP, 391, 165, 50, 9 CONTROL "", 62, "Edit", ES_RIGHT|ES_AUTOHSCROLL|WS_BORDER, 391, 176, 50, 12 CONTROL "", 64, "Button", BS_GROUPBOX, 3, 195, 403, 109 CONTROL "Vendedor", -1, "Static", WS_GROUP, 10, 207, 57, 9 CONTROL "", 65, "Edit", ES_RIGHT|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 8, 217, 30, 12 CONTROL "", 66, "Edit", ES_AUTOHSCROLL|WS_BORDER, 41, 217, 100, 12 CONTROL "Suspender -> Motivo:", 49, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 145, 204, 79, 12 CONTROL "", 68, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 145, 217, 94, 12 CONTROL "Cadastro em:", -1, "Static", SS_CENTER|WS_GROUP, 256, 205, 45, 7 CONTROL "", 46, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 256, 216, 45, 12 CONTROL "Nascimento", -1, "Static", SS_CENTER|WS_GROUP, 306, 205, 42, 7 CONTROL "", 59, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 305, 216, 45, 12 CONTROL "Ult. compra:", -1, "Static", SS_CENTER|WS_GROUP, 354, 205, 42, 7 CONTROL "", 73, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 354, 216, 45, 12 CONTROL "Observações sobre o cliente", -1, "Static", WS_GROUP, 8, 237, 395, 8 CONTROL "", 76, "Edit", ES_MULTILINE|ES_AUTOVSCROLL|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 7, 247, 393, 24 CONTROL "E-mail", -1, "Static", WS_GROUP, 8, 276, 195, 8 CONTROL "", 78, "Edit", ES_MULTILINE|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 7, 286, 195, 12 CONTROL "Site", -1, "Static", WS_GROUP, 207, 276, 195, 8 CONTROL "", 79, "Edit", ES_MULTILINE|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 206, 286, 195, 12 CONTROL "TBitMap", 50, "TBitMap", 0x00800000, 412, 200, 70, 60 CONTROL "Obter &foto", 72, "Button", 0x00000000, 412, 261, 70, 12 CONTROL "&Ok", 30, "Button", WS_TABSTOP, 412, 275, 70, 14 CONTROL "Ca&ncelar", 31, "Button", WS_TABSTOP, 412, 290, 70, 14 CONTROL "Consultar", 74, "Button", 0x00000000, 442, 175, 35, 14 } CLIENTE1 DIALOG FIXED IMPURE 79, 70, 475, 107 STYLE WS_CHILD|DS_3DLOOK FONT 8, "Helv" { CONTROL "&Codigo", 54, "Button", 0x00000000, 4, 2, 40, 12 CONTROL "", 33, "Edit", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 4, 15, 40, 12 CONTROL "Nome / Razão social:", -1, "Static", WS_GROUP, 48, 5, 180, 9 CONTROL "", 34, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 47, 15, 182, 12 CONTROL "Local de Trabalho / Nome de Fantasia", -1, "Static", WS_GROUP, 233, 5, 167, 8 CONTROL "", 35, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 233, 15, 168, 12 CONTROL "Pessoa:", -1, "Static", WS_GROUP, 405, 6, 28, 8 CONTROL "", 58, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_DISABLENOSCROLL|WS_VSCROLL|WS_TABSTOP, 405, 15, 50, 129 CONTROL "&p", 69, "Button", BS_OWNERDRAW, 457, 14, 15, 15 CONTROL "End. Residencial: (Rua, Avenida)", -1, "Static", WS_GROUP, 4, 30, 121, 9 CONTROL "Nro.", -1, "Static", WS_GROUP, 129, 30, 25, 9 CONTROL "", 36, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 41, 122, 12 CONTROL "", 43, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 128, 41, 25, 12 CONTROL "Cidade:", -1, "Static", WS_GROUP, 158, 30, 28, 10 CONTROL "", 37, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 158, 41, 118, 12 CONTROL "UF", -1, "Static", WS_GROUP, 283, 30, 14, 10 CONTROL "", 38, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 280, 41, 21, 12 CONTROL "CEP:", -1, "Static", WS_GROUP, 306, 30, 18, 11 CONTROL "", 41, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 304, 41, 57, 12 CONTROL "Bairro:", -1, "Static", WS_GROUP, 364, 31, 57, 8 CONTROL "", 40, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 364, 41, 108, 12 CONTROL "PerÃmetro:", -1, "Static", WS_GROUP, 4, 56, 41, 8 CONTROL "", 39, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 66, 150, 12 CONTROL "Telefones:", -1, "Static", WS_GROUP, 158, 56, 38, 8 CONTROL "", 42, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 158, 66, 94, 12 CONTROL "Endereço comercial (Rua, nº)", -1, "Static", WS_GROUP, 256, 55, 110, 8 CONTROL "", 77, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 256, 66, 160, 12 CONTROL "Est. Civil", -1, "Static", WS_GROUP, 422, 56, 41, 8 CONTROL "", 63, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_DISABLENOSCROLL|WS_VSCROLL|WS_TABSTOP, 420, 65, 52, 73 CONTROL "Filiação - Pai:", -1, "Static", WS_GROUP, 3, 82, 60, 8 CONTROL "", 51, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 3, 92, 145, 12 CONTROL "Mãe:", -1, "Static", WS_GROUP, 152, 82, 60, 8 CONTROL "", 52, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 152, 92, 145, 12 CONTROL "RG ou I.Est:", -1, "Static", WS_GROUP, 301, 81, 52, 8 CONTROL "", 47, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 300, 92, 60, 12 CONTROL "CPF / CNPJ:", -1, "Static", WS_GROUP, 365, 81, 44, 8 CONTROL "", 48, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 364, 92, 80, 12 CONTROL "Prazo:", -1, "Static", SS_CENTER|WS_GROUP, 447, 81, 23, 8 CONTROL "", 45, "Edit", ES_CENTER|ES_MULTILINE|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 447, 92, 25, 12 } CLIENTE2 DIALOG FIXED IMPURE 79, 70, 475, 107 STYLE WS_CHILD|DS_3DLOOK FONT 8, "Helv" { CONTROL "Nome:", -1, "Static", WS_GROUP, 4, 5, 21, 9 CONTROL "", 34, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 15, 225, 12 CONTROL "Profissão", -1, "Static", WS_GROUP, 233, 5, 120, 8 CONTROL "", 35, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 233, 15, 238, 12 CONTROL "Endereço Residencial: (Rua e nº)", -1, "Static", WS_GROUP, 5, 30, 112, 9 CONTROL "", 36, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 41, 150, 12 CONTROL "Cidade:", -1, "Static", WS_GROUP, 158, 30, 28, 10 CONTROL "", 37, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 158, 41, 118, 12 CONTROL "UF", -1, "Static", WS_GROUP, 283, 30, 14, 10 CONTROL "", 38, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 280, 41, 21, 12 CONTROL "CEP:", -1, "Static", WS_GROUP, 306, 30, 18, 11 CONTROL "", 41, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 304, 41, 57, 12 CONTROL "Bairro:", -1, "Static", WS_GROUP, 364, 31, 57, 8 CONTROL "", 40, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 364, 41, 108, 12 CONTROL "PerÃmetro:", -1, "Static", WS_GROUP, 6, 56, 41, 8 CONTROL "", 39, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 66, 150, 12 CONTROL "Telefones:", -1, "Static", WS_GROUP, 158, 56, 38, 8 CONTROL "", 42, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 158, 66, 94, 12 CONTROL "Local de trabalho", -1, "Static", WS_GROUP, 256, 55, 110, 8 CONTROL "", 77, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 256, 66, 160, 12 CONTROL "Est. Civil", -1, "Static", WS_GROUP, 422, 56, 41, 8 CONTROL "", 63, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_DISABLENOSCROLL|WS_VSCROLL|WS_TABSTOP, 420, 65, 52, 73 CONTROL "Filiação - Pai:", -1, "Static", WS_GROUP, 3, 82, 60, 8 CONTROL "", 51, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 3, 92, 161, 12 CONTROL "Mãe:", -1, "Static", WS_GROUP, 168, 82, 60, 8 CONTROL "", 52, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 168, 92, 157, 12 CONTROL "RG", -1, "Static", WS_GROUP, 330, 81, 52, 8 CONTROL "", 47, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 329, 92, 60, 12 CONTROL "CPF", -1, "Static", WS_GROUP, 394, 81, 44, 8 CONTROL "", 48, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 393, 92, 80, 12 } Viol Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 8, 2010 Report Share Posted April 8, 2010 Viol.. qual a versão do seu FW ?? Inclua isto no PRG Set Resources to "Sua.DLL" e deixe a SUA.DLL na mesma pasta do SEU.EXE Abraços.. PS:Rapaz.. dexa dissu.. tem gente(nova) que aprendeu perguntando aqui no forum, e tem muita gente(véia) que pergunta até hoje(eu) .. é bem mais rápido aprender na prática do que tentar entender o raciocinio de outro programador vendo os codigo fontes dele.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2010 Report Share Posted April 8, 2010 citação:Viol.. qual a versão do seu FW ?? Inclua isto no PRG Set Resources to "Sua.DLL" e deixe a SUA.DLL na mesma pasta do SEU.EXE Abraços.. PS:Rapaz.. dexa dissu.. tem gente(nova) que aprendeu perguntando aqui no forum, e tem muita gente(véia) que pergunta até hoje(eu) .. é bem mais rápido aprender na prática do que tentar entender o raciocinio de outro programador vendo os codigo fontes dele.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> id=quote>id=quote>COMPLETANDO, COPIE A BWCC32.DLL DA PASTA DO SEU FWH.. PARA A PASTA DO SEU PROJETO. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.