Theotokos

citação:Resource: DLG_VENDA Transforme este recursos em .rc e poste aqui para ver-mos. Como voce fez a incorporacao do arquivo.res?? 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 id=quote>id=quote>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

citação: citação: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 id=quote>id=quote>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 id=quote>id=quote>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: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). id=quote>id=quote>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: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 id=quote>id=quote>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: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 id=quote>id=quote>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: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) id=quote>id=quote>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: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 id=quote>id=quote>Ti enviei o email... Aguardo!!!!!!!!!!! Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos

citação: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 id=quote>id=quote>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: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 id=quote>id=quote>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: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 id=quote>id=quote>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: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 id=quote>id=quote>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