PC Toledo

Enviado: **04 Nov 2014 12:58**

Olá,Sou novata no clipper e estou tendo dificuldade com a criação de uma janela

//---------------------------------------------------------------------------//
METHOD CadProcesso() CLASS CadEmpresa  
	
	DEFINE ICON oIcon RESOURCE "#8003"

	DEFINE DIALOG ::oDlgProcesso RESOURCE "#1092" OF ::oChld ICON oIcon;
   TITLE "Cadastro de Processos" 
   
   REDEFINE SAY ID 4060 OF ::oDlgProcesso
   REDEFINE SAY ID 4001 OF ::oDlgProcesso
   REDEFINE SAY ID 4004 OF ::oDlgProcesso
   REDEFINE SAY ID 4006 OF ::oDlgProcesso
   REDEFINE SAY ID 4010 OF ::oDlgProcesso
   REDEFINE SAY ID 4054 OF ::oDlgProcesso
   REDEFINE SAY ID 4012 OF ::oDlgProcesso
   REDEFINE SAY ID 4014 OF ::oDlgProcesso
   
   REDEFINE RADIO ::gProcesso VAR ::cProcesso ID 4058,4059 OF ::oDlgProcesso
   REDEFINE GET ::gNumProc VAR ::cNumProc  ID 4061 OF ::oDlgProcesso	
   REDEFINE COMBOBOX ::gDecisao VAR ::cDecisao ID 4002 OF ::oDlgProcesso;
	         ITEMS { 	"01 - Liminar em Mandado de Segurança" ,;
							"02 - Depósito Judicial do Montante Integral" ,;
							"03 - Depósito Administrativo do Montante Integral",;
							"04 - Antecipação de Tutela" ,;
							"05 - Liminar em Medida Cautelar",;
							"08 - Decisão Não Transitada em Julgado com Efeito Suspensivo",;
							"09 - Contestação Administrativa FAP",;
							"10 - Definitiva (Transitada em Julgado)" }	
	REDEFINE GET ::gDtDecisao VAR ::cDtDecisao  ID 4005 OF ::oDlgProcesso
	REDEFINE RADIO ::gIndicativo VAR ::cIndicativo  ID 4007,4009 OF ::oDlgProcesso
	REDEFINE GET ::gUfSecao VAR ::cUfSecao  ID 4011 OF ::oDlgProcesso	
	REDEFINE GET ::gCodMunicp VAR ::cCodMunicp  ID 4055 OF ::oDlgProcesso	
	REDEFINE BUTTONBMP bcodcid2 ID 4067 OF ::oDlgProcesso BITMAP "#7002";
		ACTION (JSCodCid():New(::oDlgProcesso, ::gCodMunicp), ::gIdVara:setFocus()) CANCEL
	REDEFINE GET ::gIdVara VAR ::cIdVara  ID 4013 OF ::oDlgProcesso
   REDEFINE COMBOBOX ::gAutor VAR ::cAutor ID 4015 OF ::oDlgProcesso;
	         ITEMS { "1 - Contribuinte",;
	                 "2 - Outra Entidade" }
	
	
	REDEFINE BUTTON ::bSalvar2 ID IDOK OF ::oDlgProcesso //ACTION ::salvarIsencao()
	REDEFINE BUTTON ::bCancelar2 ID IDCANCEL OF ::oDlgProcesso ACTION ::oDlgProcesso:End() CANCEL
		ACTIVATE DIALOG ::oDlgProcesso CENTERED
    	::oDlgProcesso:End()
	
RETURN nil

e o meu erro: Error description: Error FiveWin/1 Non defined Id: No: 1

Como posso resolver isso?

Enviado: **04 Nov 2014 13:17**

Olá, qual é a linha que ocorre issto?

RESOURCE "#1092" procure dar nomes aos dialogos e objetos evite isto "#xxxx"

O problema está no seu arquivo de recursos.

abs.

Enviado: **04 Nov 2014 18:33**

Amiguinha,

Diga-nos também qual o editor de recursos voce está usando, Borland Workshop, Pelles, ou outro. Quando se usa um deles voce deve usar o compilador de recursos compatível.

Enviado: **05 Nov 2014 10:33**

A linha q ta dando erro é na parte de ativar a Dlg

ACTIVATE DIALOG ::oDlgProcesso CENTERED
::oDlgProcesso:End()

Estou usando o Pelles

Enviado: **05 Nov 2014 11:00**

Pessoal,ja consegui resolver, era a Id do campo que estava errada.
Obrigada pela ajuda