Theotokos
-
Posts
1,796 -
Joined
-
Last visited
-
Days Won
31
Posts posted by Theotokos
-
-
citação:
id=quote>id=quote>citação:
id=quote>id=quote>ok!
ALIAS SE PASSAR USAR OS .RES, COMO FAÇO ? TENHO O RES GERADO E COMO EU CHAMO NO PROGRAMA, OU SEJA, COMO FICA OS CAMANDOS -> "SET RESOURCES TO ..." "DEFINE DIALOG... RESOURCES"
OBGDO...
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
COM .RES, NAO TEM CHAMADA... NÃO PRECISAR ´SETAR´ OS RECURSOS, Jà QUE ELES ESTARÃO INCORPORADOS AO .EXE.
VEJA EM DICAS COMO INCORPORAR, EM 16 OU 32 BITS.
João Santos - São Paulo.
kmt_karinha@pop.com.br
kapiaba@brfree.com.br
Fone: (11) 3106-2832
FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe
Eu Coloquei o RES no programa EXE e tirei o como SET RESOURCE, mas continua o erro
===========
Path and name: D:\prg\otica\Grafico.EXE (32 bits)
Size: 2,480,128 bytes
Time from start: 0 hours 0 mins 54 secs
Error occurred at: 19/08/2008, 17:06:44
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: DLG_VENDA
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
ok!
ALIAS SE PASSAR USAR OS .RES, COMO FAÇO ? TENHO O RES GERADO E COMO EU CHAMO NO PROGRAMA, OU SEJA, COMO FICA OS CAMANDOS -> "SET RESOURCES TO ..." "DEFINE DIALOG... RESOURCES"
OBGDO...
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
Olá KAPIABA,
peguei esta Autola32.dll, e adicionei os .RC e gravei novamente a dll, tudo isso com o PellesC.
MAS INFELISMENTE NAO ADIANTOU... APARECE O MESMO ERRO...
ALIAS SE PASSAR USAR OS .RES, COMO FAÇO ? TENHO O RES GERADO E COMO EU CHAMO NO PROGRAMA, OU SEJA, COMO FICA OS CAMANDOS -> "SET RESOURCES TO ..." "DEFINE DIALOG... RESOURCES"
OBGDO...
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
Olá Pessoal, estou com o seguinte problema, estava utilizado a dll em 16b agora estou passando para 32b e então abrir a dll Screen32.dll no PellesC e add projetos RC, gravei. só que quando chamo no programa a tela (dialog) esta dando este erro
=========
Path and name: D:\prg\otica\Grafico.EXE (32 bits)
Size: 1,621,504 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 19/08/2008, 13:14:51
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: DLG_CLI
Alias nao mudei nada no programa, apenas troquei o nome da dll. que era screens.dll para screen32.dll
O que preciso fazer ?
Desde já meu obrigado!!!!
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
Editado por - theotokos on 20/08/2008 11:01:01
-
Olá Pessoal, estou com o seguinte problema, estava utilizado a dll em 16b agora estou passando para 32b e então abrir a dll Screen32.dll no PellesC e add projetos RC, gravei. só que quando chamo no programa a tela (dialog) esta dando este erro
=========
Path and name: D:\prg\otica\Grafico.EXE (32 bits)
Size: 1,621,504 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 19/08/2008, 13:14:51
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: DLG_CLI
Alias nao mudei nada no programa, apenas troquei o nome da dll. que era screens.dll para screen32.dll
O que preciso fazer ?
Desde já meu obrigado!!!!
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
Editado por - theotokos on 20/08/2008 11:01:01
-
Tentei de todas as maneiras, e todas elas acontece a mesma coisa, só funciona depois que passa pelo loop a segunda vez, ou seja, funciona... mostra o valor calculado tudo certinho, mas sempre na primeira vez que passo pelos gets, nao aparece, apesar do valor aparecer certo no array (ListBox).....
citação:
id=quote>id=quote>Não esta dando UPDATE nos GET´s.
Todos os Get´s estao como mesmo nome do obj.
Oliveira, Sérgio A.
PERSONAL Comp. e Sitemas.id=green>
FWH, xharbour, SqlLib, AdoRDD, xMate
TWBrowse(HC), vPrinter(VW).
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
Editado por - Theotokos on 23/06/2008 17:18:57
-
coloquei o refresh(), mas atualiza só (funciona) depois que passa pela segunda vez nos gets...
ESTRANHO, NÃO!!!!!!!!!!!!!1
REDEFINE GET oGet VAR nVrUnit PICTURE "@E 9,999.99" ID 107 Of oDlg
REDEFINE GET oGet VAR nVrTotal PICTURE "@E 9,999.99" ID 108 Of oDlg When {|| nVrTotal := nQtde * nVrUnit, oGet:Refresh(), oGet:Display(), .t. }
REDEFINE GET oGet VAR nAcrescimo PICTURE "@E 999.99" ID 109 Of oDlg Valid {|| nVrVenda := nVrTotal * ((nAcrescimo/100) +1), oGet:Refresh(), oGet:Display(),.t. }
REDEFINE GET oGet VAR nVrVenda PICTURE "@E 9,999.99" ID 110 Of oDlg Valid {|| AdVetor(oGet) }
citação:
id=quote>id=quote>ok´s
Quanto ao GET , experimenta dar um refresh() nele
tipo oGet:REfresh()
____________________________
Eder Xavier
Msn:eder_xavier_2@hotmail.com
Xharbour /fivewin 8.01 workshop /VSX
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
Editado por - Theotokos on 23/06/2008 17:09:47
Editado por - Theotokos on 23/06/2008 17:12:42
-
OK! Este acrescimo é uma Porcentagem em cima do Vr de Custo, para obter assim o Valor de Venda do Produto, sendo que esta porcentagem já esta previamente cadastrada, e assim que o usuario faz a entrada dos dados ela atualiza o preço de venda, no caso eu apresento ela nesta rotina, para que se o usuario quiser atualizar, o faça aqui....
Blz!!!!!!!!!!!
Só que eu meu problema é que faço o calculo mas não estou conseguindo mostrar na tela, ou seja, atualizar o Get.
POR ACASO VC SABE COMO FAÇO???
REDEFINE GET oGet VAR nVrTotal PICTURE "@E 9,999.99" ID 108 Of oDlg When {|| nVrTotal := nQtde * nVrUnit), oGet:Display(), .t. }
REDEFINE GET oGet VAR nAcrescimo PICTURE "@E 999.99" ID 109 Of oDlg Valid {|| nVrVenda := nVrTotal * ((nAcrescimo/100) +1), oGet:Display(),.t. }
REDEFINE GET oGet VAR nVrVenda PICTURE "@E 9,999.99" ID 110 Of oDlg Valid {|| AdVetor(oGet) }
citação:
id=quote>id=quote>boa tarde moçada !
brother Theotokos , no momento estou trabalhando exatamente no mesmo que voce e avaliando sua rotina notei qye tem um capo
nACRECIMO , que no caso deduzo que seja um frete , ou um imposto da base de calculos que não esteja somada junto com os produtos e talz , então lhe pergunto , não ficaria estranho daqui uns meses alguem tirar um relação de notas ficais e ter esse acressimo sem saber o que relamente ele significa , por gentileza poderia me esclarecer essa duvida
PS: Se algum dos amigos tbm quiserem comentar sobre o assunto , ficarei feliz em saber suas opniõe a respeito.
____________________________
Eder Xavier
Msn:eder_xavier_2@hotmail.com
Xharbour /fivewin 8.01 workshop /VSX
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
Editado por - Theotokos on 23/06/2008 16:59:04
Editado por - Theotokos on 23/06/2008 17:00:14
-
Obgdo LUIZ, funcionou...........
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
DEFINE FONT oFont NAME "Times News Roma" SIZE 18, 25 BOLD
Repeat
DEFINE DIALOG oDlg RESOURCE "DLG_ENTRADA"
REDEFINE SAY oSay PROMPT "Lançamento de Entrada de Nota Fiscal" ID 300 ;
OF oDlg FONT oFont
REDEFINE GET oGet VAR dData PICTURE "99/99/99" ID 101 Of oDlg
REDEFINE GET oGet VAR cNF PICTURE "@!X" ID 102 Of oDlg
REDEFINE GET oGet VAR nVrNF PICTURE "@E 9,999.99" ID 103 Of oDlg
REDEFINE DBCOMBO oCbm VAR cFornecedor UPDATE ID 104 OF oDlg ALIAS "BanForne";
ITEMFIELD "F_FORNECED" LISTFIELD "F_FORNECED"
*
REDEFINE GET oGet VAR cCodigo PICTURE "@!X" ID 105 Of oDlg
REDEFINE GET oGet VAR nQtde PICTURE "@E 9,999" ID 106 Of oDlg
REDEFINE GET oGet VAR nVrUnit PICTURE "@E 9,999.99" ID 107 Of oDlg
REDEFINE GET oGet VAR nVrTotal PICTURE "@E 9,999,99" ID 108 Of oDlg
REDEFINE GET oGet VAR nAcrescimo PICTURE "@E 999.99" ID 109 Of oDlg
REDEFINE GET oGet VAR nVrVenda PICTURE "@E 9,999.99" ID 110 Of oDlg
REDEFINE GET oGet VAR cDescricao PICTURE "@!X" ID 111 Of oDlg When .F.
REDEFINE SAY oSay PROMPT nTotalNF ID 301 Of oDlg FONT oFont
REDEFINE GET oGet VAR nEstAtual PICTURE "@E 9,999" ID 112 Of oDlg When .F.
REDEFINE GET oGet VAR dDtUltimaE PICTURE "99/99/99" ID 113 Of oDlg When .F.
REDEFINE LISTBOX oLbx ;
Fields aDados[oLbx] ,;
aDados[oLbx] ,;
aDados[oLbx] ,;
aDados[oLbx] ,;
aDados[oLbx] ;
ON DBLCLICK ( If(MsgNoYes("Excluir o Item","Exclusão"),(oLbx:Delete(),oLbx:Refresh()),.t.)) ;
Headers "Cód./Ref.","Descrição","Valor Unit","Valor Total","Quant." ;
ID 116 OF oDlg
oLbx:acolsizes := {150,400,100,100,100}
oLbx:SetArray(aDados)
oLbx:aJustify := {.f.,.f.,.f.,.f.,.f. }
oLbx:refresh()
oLbx:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,(lSai:=.t.,oDlg:End()), ) }
AADD(aDados, { cCodigo, cDescricao, Transform(nVrUnit,"@E 9,999.99"), ;
Transform(nVrTotal,"@E 9,999.99"), Transform(nQtde,"@E 9,999")})
ACTIVATE DIALOG oDlg CENTERED
Until lSair
A minha rotina é assim:
E que eu quero e que qdo voltar, volte no campo Codigo e Nao na DATA....
citação:
id=quote>id=quote>Bem, eu uso o Do While... em uma "DIALOG" e funciona normalmente.
Assim:
DO WHILE (.T.)
"DIALOG"....
if lSair
Exit
endif
ENDDO
ECM SISTEMAS
Marciano Queiroz
Teixeira de Freitas-Ba
marciano@bitfarma.com.br
FW 2.6 + xHarbour 0.99.4 | FW2.7 + xHarbour 0.99.51 | MySQL (SQLLIB)
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
Olá Pessoal,,,,
É o seguinte, montei uma tela de lanç. Entrada.
Data N.F. Fornecedor
Codigo Descrição Qtde Vr.Unit. Vr.Total
Depois embaixo uma ListBox para Armazenar os dados lançados antes de gravar....
O PROBLEMA É O SEGUINTE... COMO FAÇO PARA DEPOIS QUE O USUARIO PARA A DIGITAR O CODIGO , O SISTEMA FIQUE EM UM 'LOOP' ATÉ QUE ELE TERMINE DE LANÇAR TODAS AS MERCADORIAS DA NF ?
*********************************************
Tipo assim, antes no clipper puro, colocava um READ antes e outro READ no final e pronto.
]***********************************************
Aguardo!!!!!!!!! Obrigado
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
Olá Pessoal,,,,
É o seguinte, montei uma tela de lanç. Entrada.
Data N.F. Fornecedor
Codigo Descrição Qtde Vr.Unit. Vr.Total
Depois embaixo uma ListBox para Armazenar os dados lançados antes de gravar....
O PROBLEMA É O SEGUINTE... COMO FAÇO PARA DEPOIS QUE O USUARIO PARA A DIGITAR O CODIGO , O SISTEMA FIQUE EM UM 'LOOP' ATÉ QUE ELE TERMINE DE LANÇAR TODAS AS MERCADORIAS DA NF ?
*********************************************
Tipo assim, antes no clipper puro, colocava um READ antes e outro READ no final e pronto.
]***********************************************
Aguardo!!!!!!!!! Obrigado
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
Pessoal, Valeu já consegui resolver, o Ariston me ajudou, qdo disse que dll era 32 e nao 16 então troquei e deu certo...
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
citação:
id=quote>id=quote>Oi, amigo.
Se ainda não tiver resolvido, zip teus prgs (sem o executável) e mande para mim, junto com os resources, para eu tentar descobrir o erro e mandar de volta para você.
Ariston Santos
Fwh / xHarbour / Bcc55 / xDev / Workshop
Conheça o pacote fivewin: www.arsoft-ap.com.br
Ti enviei o email... Aguardo!!!!!!!!!!!
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
citação:
id=quote>id=quote>Ola
Possivelmente voce tem uma resource dentro da dialog que não corresponde a classes.
Exemplo -> ( Definiu TSBROWSE e utilizou a classe TWBROWSWE
Voce pode ter utilizado recursos exclusivos da BORLAND não ter referenciado no inicio do seu prg
Poste a sua dialog que não funciona e parte do seu prg que chama esta dialog
Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer.
Elias Abrão Júnior
Fone : (0**11) 9804-6348 Indaiatuba - SP
eajunior.fw@gmail.com
xHarbour 0.99.0 - Fivewin 2.5 e xMate
O Prg Principal é :
Set3DLook( .t. )
*
hDll_1 := LoadLib32("Bwcc32.dll")
*
SET RESOURCES TO "SCREENS.Dll", "Ctl3d.Dll", "WorkRes.Dll"
*
MsgSound( "inicia.wav", 1)
*
hBmp := ReadBitMaP("LETRAS\OptiGlass.bmp")
*
DEFINE WINDOW oWnd FROM 0, 0 TO 50, 150 TITLE "OptiGlass Distribuidora de produtos Oticos" MENU BuildMenu()
DEFINE MESSAGE BAR oMsg OF oWnd PROMPT "RL INFORMÃTICA - 99860695" CENTERED DATE KEYBOARD
DEFINE BUTTONBAR oBar 3D TOP OF oWnd
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT ( FillBlue() )
No Cadastro.prg eu faço isto :
Procedure EditCliente(nTp)
*
LOCAL oScr, oMsg, oCbx
nTp1 := nTp
*
DEFINE DIALOG oScr RESOURCE "DLG_CLI"
*
REDEFINE GET oGet VAR NumCliente ID 10 OF oScr WHEN .F.
REDEFINE GET oGet VAR dNome ID 11 OF oScr Valid (!Empty(dNome)) MESSAGE "O NOME EM QUE A EMPRESA É CONHECIDA"
REDEFINE GET oGet VAR DRazao ID 12 OF oScr Valid (!Empty(dRazao)) MESSAGE "O NOME EM QUE É REGISTRADO"
REDEFINE GET oGet VAR DCNPJ ID 13 OF oScr PICTURE "99.999.999/9999-99"
REDEFINE GET oGet VAR DInscEst ID 14 OF oScr
REDEFINE GET oGet VAR DContato ID 15 OF oScr
REDEFINE GET oGet VAR DEmail ID 16 OF oScr
REDEFINE GET oGet VAR DTelefone ID 17 OF oScr PICTURE "(99)9999-9999"
REDEFINE GET oGet VAR DCelular ID 18 OF oScr PICTURE "(99)9999-9999"
*
REDEFINE GET oGet VAR DEndereco ID 19 OF oScr
REDEFINE GET oGet VAR DBairro ID 20 OF oScr
REDEFINE GET oGet VAR DCidade ID 21 OF oScr
REDEFINE GET oGet VAR DCep ID 22 OF oScr PICTURE "99999-999"
*
REDEFINE COMBOBOX oCbx VAR DEstado PROMPTS {"Minas Gerais",;
"São Paulo","Rio de Janeiro"} UPDATE ID 23 OF oScr
*
REDEFINE GET oGet VAR DVrLimite ID 24 OF oScr PICTURE "@e 9,999.99"
REDEFINE GET oGet VAR dDtCad ID 30 OF oScr PICTURE "99/99/9999"
*
REDEFINE GET oGet VAR DCond1 ID 25 OF oScr PICTURE "99"
REDEFINE GET oGet VAR DCond2 ID 26 OF oScr PICTURE "99"
REDEFINE GET oGet VAR DCond3 ID 27 OF oScr PICTURE "99"
REDEFINE GET oGet VAR DCond4 ID 28 OF oScr PICTURE "99"
REDEFINE GET oGet VAR DDesconto ID 29 OF oScr PICTURE "@e 999.99"
*
REDEFINE GET oGet VAR DOBS MEMO ID 31 OF oScr
*
REDEFINE BUTTON ID 32 OF oScr ACTION ( If(GravaCliente(nTp1), oScr:End(),.t.) )
REDEFINE BUTTON ID 33 OF oScr ACTION (MsgAlert("Os Dados não foram Gravados","Cancelamento"), oScr:End())
*
ACTIVATE DIALOG oScr CENTERED
Return
**********************************************************
Só que não em uma só Dialog ou outra, é em todas elas dá o mesmo erro... e que abre sem erro quando abro o WorkShop
**********************************************************
Em Crito!!!!!!
Rone!!!!!!!
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
citação:
id=quote>id=quote>Seja Bem Vindo ao Forum ...
Ai vai + Uma dica
Salve como RC ou RES e compile junto com sua aplicação..
assim não vai precisar do "Set Resources to "
Tudo q tiver na sua DLL vai ser transferido para dentro do EXE.
Luiz Arruda - Corumbá/MS
FWH 2.4 - WS - xHB 09950 - xDev
ico.corumba@gmail.com
MSN: ico67@msn.com
A Informática Nasceu para resolver problemas que antes não existiamid=blue>
Editado por - ico on 14/06/2008 12:36:09
Como compilo o .RC .RES junto do exe ? e Depois como Uso dentro dos Fontes ? é normal, ou seja, dá mesma forma ? (DEFINE DIALOG ... RESOURCES "CONSULTA") algo assim...
Obgdo, pessoal...
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
citação:
id=quote>id=quote>Oi, amigo.
Espero que ja tenha resolvido. Se não, vai outra dica: Copie a WORKRES.DLL do Workshop para a pasta de sua aplicação e carregue ela junto com a sua dll, conforme comando abaixo:
SET RESOURCES TO "SUADLL.DLL", "WORKRES.Dll"
Já tive o mesmo problema antes e foi assim que eu resolvi.
Sucesso!
Ariston Santos
Fwh / xHarbour / Bcc55 / xDev / Workshop
Conheça o pacote fivewin: www.arsoft-ap.com.br
Ariston, infelismente não resolvi - e tmb tentei a sua dica, mas não deu certo...
Erro ocorre com todos as DIALOG's, e basta abrir o WorkShop e deixar certo, pronto! Dá certo!!!
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
citação:
id=quote>id=quote>Ola Theotokos, bem vindo ao forum!
No inÃcio do programa principal, por favor inclua:
Local hBorland:=LoadLibrary("BWCC.DLL")
Set Resources to "Suadll.Dll"
e no final do mesmo:
Set Resources to
FreeLibrary(hBorland)
Return Nil
EU Utilizo esta chamada já no programa principal, mas mesmo assim não adianta...
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
Amigos, como vê sou novo neste forum, e tmb na programação com fivewin.
O que acontece é isto, criei uma dll com workshop, mas esta dll só funciona, ou seja, abre no programa, quando o WorkShop esta aberto, se o fecho dá erro no programa
Error FiveWin/3 Cannot create Dialog Box:
Resource: DLG_CLI
O que eu faço, o que isto?
Desde já agradeço e louvo a DEUS por vc's, mestres no assunto....
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
-
Amigos, como vê sou novo neste forum, e tmb na programação com fivewin.
O que acontece é isto, criei uma dll com workshop, mas esta dll só funciona, ou seja, abre no programa, quando o WorkShop esta aberto, se o fecho dá erro no programa
Error FiveWin/3 Cannot create Dialog Box:
Resource: DLG_CLI
O que eu faço, o que isto?
Desde já agradeço e louvo a DEUS por vc's, mestres no assunto....
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos
DLL PellesC - Resolvido
in Programação
Posted
a incorporação foi feita pelo xDev
o Arquivo RES contem varios RC e dá o mesmo erro em todos, apenas o BMP que utilizo como fundo de tela funciona, as outras DIALOG (RC) dão erro
Application
===========
Path and name: D:\prg\xotica\Grafico.EXE (32 bits)
Size: 2,480,128 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 19/08/2008, 18:15:09
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: DLG_CON_LENTE
Stack Calls
===========
Called from: DIALOG.PRG => CREATEDLGERROR(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: CADASTRO.PRG => CAD_LENTES(536)
Called from: GRAFICO.PRG => (b)BUILDMENU(158)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: GRAFICO.PRG => MAIN(72)
Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos