Jump to content
Fivewin Brasil

TOTALMENTE PERDIDO

viol

By viol
in Programação

 Share

Recommended Posts

kapiaba Enthusiast

kapiaba

Posted
Posted

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

intidi.jpg?rnd=0.11765248559762154

Link to comment
Share on other sites
viol Newbie

viol

Posted
  • Author
Posted

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

Link to comment
Share on other sites
viol Newbie

viol

Posted
  • Author
Posted

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

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

intidi.jpg?rnd=0.11765248559762154

Editado por - kapiaba on 08/04/2010 15:50:05

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

intidi.jpg?rnd=0.11765248559762154

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

intidi.jpg?rnd=0.11765248559762154

Link to comment
Share on other sites
Luisão Newbie

Luisão

Posted
Posted

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

Link to comment
Share on other sites
eevaldo Newbie

eevaldo

Posted
Posted

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

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

intidi.jpg?rnd=0.11765248559762154

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

intidi.jpg?rnd=0.11765248559762154

Link to comment
Share on other sites
viol Newbie

viol

Posted
  • Author
Posted

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

intidi.jpg?rnd=0.11765248559762154

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

Link to comment
Share on other sites
Luiz Arruda (ICO) Newbie

Luiz Arruda (ICO)

Posted
Posted

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) icon_smile_big.gif.. é 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>

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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) icon_smile_big.gif.. é 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

intidi.jpg?rnd=0.11765248559762154

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...