conpete Posted June 12, 2005 Report Share Posted June 12, 2005 Companheiros.... To com seginte pino: Tenho uma função tal (P. Exp. CADCLI) . com o programa rodando e do menu principal, entro na dita cuja,chamo as sub rotina e tudo bem,. Porem,quando volto ao menu principal e quero retornar a função “CADCLI†ocorre o seguinte erro: error ocurred at: 12/06/2005, 08:51:10 Error description: Error FiveWin/2 Duplicated Id: No: 102 Onde estou errando???? Mangueira Clipper53b/Blinker7/Fweval/MED 3.01/WorkShop 4.5 mangueira@ig.com.br Manaus - Amazonas Visite Manaus-Am Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted June 12, 2005 Report Share Posted June 12, 2005 Alguma das sua telas no WS esta com o mesmo ID 102 acho que deve ser isso, verifique os números. Geraldo Barbosa da Silva Clipper 5.3 FiveWin WS lucgera@terra.com.br Quote Link to comment Share on other sites More sharing options...
conpete Posted June 12, 2005 Author Report Share Posted June 12, 2005 Já Verifiquei todas as telas e não existe ID em duplicidade... O curioso é que, quando mudo a numeração do ID no WS e na função, a mensagem de erro vem da seguinte forma (dentro das mesmas condições acima): Error ocurred at: 12/06/2005, 10:14:58 Error description: Error FiveWin/1 Non defined Id: No: 102 Mangueira Clipper53b/Blinker7/Fweval/MED 3.01/WorkShop 4.5 mangueira@ig.com.br Manaus - Amazonas Visite Manaus-Am Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted June 12, 2005 Report Share Posted June 12, 2005 Paulo verifique no error.log que aparece a linha do prg, então você deve estar referindo no seu prg algum Id 102 que não existe no WS??? Error ocurred at: 12/06/2005, 10:14:58 Error description: Error FiveWin/1 Non defined Id: No: 102 Geraldo Barbosa da Silva Clipper 5.3 FiveWin WS lucgera@terra.com.br Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted June 12, 2005 Report Share Posted June 12, 2005 Desculpe confusão de nomes????????????? Se você conseguir resolver informe. Geraldo Barbosa da Silva Clipper 5.3 FiveWin WS lucgera@terra.com.br Quote Link to comment Share on other sites More sharing options...
conpete Posted June 12, 2005 Author Report Share Posted June 12, 2005 Geraldo A linha do erro é exatamente a que ativa o dialogo ACTIVATE DIALOG ODLGl center Só de raiva, eliminei todas as referencias a ID 102 mas o problema persiste. Estranho não? Mangueira Clipper53b/Blinker7/Fweval/MED 3.01/WorkShop 4.5 mangueira@ig.com.br Manaus - Amazonas Visite Manaus-Am Quote Link to comment Share on other sites More sharing options...
Jackita Posted June 12, 2005 Report Share Posted June 12, 2005 Verifique se existe algum objeto que vc redefine sem passar o numero do ID. Qdo criamos um recurso sem passar o ID, a fw cria um automaticamente (getnewid(), eu acho). Esse id pode conflitar. Vc pode passar o codigo pra gente olhar? Jackeline Quote Link to comment Share on other sites More sharing options...
conpete Posted June 12, 2005 Author Report Share Posted June 12, 2005 Ola Jackeline #include "FiveWin.ch" #include "btnget.ch" ************* FUNCTION Lancamentos() local odlgl, olbx LOCAL nOrdem :=1 LOCAL cOrdem := { OemToAnsi("data e Documento"),; OemToAnsi("Data e Conta"),; OemToAnsi("Documento e Data"),; OemToAnsi("Conta e Data")} uso(1) uso(2) uso(3) dPesData=date() cPesDoc=space(10) SET SOFTSEEK ON SET ORDER TO 1 GO TOP SEEK SUBSTR(DTOC(DATE()),7,4)+SUBSTR(DTOC(DATE()),4,2)+SUBSTR(DTOC(DATE()),1,2) DEFINE DIALOG oDLGl RESOURCE "Tela_lanca" TITLE "Lançamentos - "+cEmpresa @ 2.2, 0 LISTBOX oLbx ; FIELDS dtoc(cadlan->data),cadlan->documento,cadlan->conta,formatamoe(cadlan->valor/100),cadlan->tipo,cadlan->historico,cadlan->referencia ; HEADERS "Data", "Documento","Conta","valor","tipo","Histórico","Referencia" ; SIZE 304, 190 ; ON LEFT DBLCLICK(cadlanca(0),oLbx:Refresh(),oLbx:SetFocus()); OF oDlgl DEFINE FONT O_F_GET NAME "ARIAL" SIZE 07,18 BOLD REDEFINE COMBOBOX nOrden ITEMS cOrden ID 202 OF oDlgl ON CHANGE Orden_Lanca(nOrden,oLbx) REDEFINE GET oPesDoc var cPesDoc ID 2006 OF oDlgl PICTURE "@!" FONT O_F_GET COLOR CLR_HRED, CLR_HCYAN Update REDEFINE GET oPesData var dPesData ID 203 OF oDlgl PICTURE "@!K" FONT O_F_GET COLOR CLR_HRED, CLR_HCYAN Update REDEFINE BTNBMP RESOURCE "BMP_INCLUIR" ID 205 OF oDlgl ; TOOLTIP "Incluir Novo Registro"; ACTION (cadlanca(1),; oLbx:Refresh(),oLbx:SetFocus()) NOBORDER REDEFINE BTNBMP RESOURCE "BMP_ALTERAR" ID 206 OF oDlgl ; TOOLTIP "Editar / Alterar Registro"; ACTION (CadLanca(1),; oLbx:Refresh(),oLbx:SetFocus() ) NOBORDER REDEFINE BTNBMP RESOURCE "BMP_DEL" ID 207 OF oDlgl ; TOOLTIP "Excluir Registro"; ACTION (CadLanca(1),; oLbx:Refresh(),oLbx:SetFocus() ) NOBORDER REDEFINE BTNBMP RESOURCE "BMP_PRINTER" ID 108 OF oDlgl ; TOOLTIP "Relatorio "+ CRLF+PrnGetName(); ACTION ( Rep_0002() ) NOBORDER REDEFINE BTNBMP RESOURCE "BMP_LUPA" ID 112 OF oDlgl ; TOOLTIP "Pesquisar"; ACTION (ProcLan(cPesDoc),oLbx:setfocus()) NOBORDER REDEFINE BTNBMP RESOURCE "BMP_SAIR1" ID 211 OF oDlgl ; TOOLTIP "Fechar / Sair"; ACTION oDlg:End() NOBORDER oPesDoc:cToolTip:=" Digite o NUMERO DO DOCUMETO e ou a DATA e tecle ENTER " ACTIVATE DIALOG ODLGl center close databases RETURN NIL Mangueira Clipper53b/Blinker7/Fweval/MED 3.01/WorkShop 4.5 mangueira@ig.com.br Manaus - Amazonas Visite Manaus-Am Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted June 12, 2005 Report Share Posted June 12, 2005 Continua dando erro ID 102 mas se você diz que tirou, então o erro esta em outra rotina que você chama desta aqui. Geraldo Barbosa da Silva Clipper 5.3 FiveWin WS lucgera@terra.com.br Quote Link to comment Share on other sites More sharing options...
vagner Posted June 13, 2005 Report Share Posted June 13, 2005 Olá Mangueira, Vc Está usando o @ em uma tela Resource, isso não pode , vc pode usar ou resource ou @ Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
Kleyton Posted June 13, 2005 Report Share Posted June 13, 2005 Apague todos os arquivos OBJ´s e mande compilar... Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
conpete Posted June 13, 2005 Author Report Share Posted June 13, 2005 Turma......... Bem na cara e dois dias perdidos. Obrigado a todos Mangueira Clipper53b/Blinker7/Fweval/MED 3.01/WorkShop 4.5 mangueira@ig.com.br Manaus - Amazonas Visite Manaus-Am 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.