na hora de inserir

[Wilke1 0]

ola pessoal eo seguinte no meu cadastro cliente eu tenho uma opção de cadastrar as referência dos clientes. ate aqui ok só que eu quero forçar o usuario cadastrar no minimo 3 referencia eu to fazendo assim, mas na hora de confirmar a mensagem que eu coloquei não sai de jeito nenhumou se voces tiverem uma forma melhor eu agradeço ajuda de vocesif Qryrefpessoais.RecordCount < 3 then begin showmessage('Mínimo Para Cadastro, 2 Referência Pessoais e 1 Comercial'); EXIT; END ELSE Qryrefpessoais.Refresh; fmprincipal.database1.startTransaction; try QRYREFPESSOAIS.ApplyUpdates; Fmprincipal.Database1.commit; except FMPrincipal.Database1.Rollback; RAISE; end; QRYREFPESSOAIS.commitUpdates;

[marcio.theis 3]

Veja se o bloco de comando esta correto:

 

if Qryrefpessoais.RecordCount < 3 then 	begin	showmessage('Mínimo Para Cadastro, 2 Referência Pessoais e 1 Comercial');	EXIT;	ENDELSE	begin	Qryrefpessoais.Refresh;	fmprincipal.database1.startTransaction;	try		QRYREFPESSOAIS.ApplyUpdates;		Fmprincipal.Database1.commit;	except		FMPrincipal.Database1.Rollback;		RAISE;		end;	QRYREFPESSOAIS.commitUpdates;	end;

[Wilke1 0]

Veja se o bloco de comando esta correto:

IF (QRYREFPESSOAIS.STATE = DSINSERT) THEN  BEGIN	 QRYREFPESSOAIS.FIELDBYNAME('CD_PESSOA').ASINTEGER := QRYPESSOA1.FIELDBYNAME  ('CD_PESSOA').ASINTEGER;	 QRYREFPESSOAIS.FIELDBYNAME('CD_REF_PESSOAIS').ASINTEGER := QRYINCREREFPESSOAIS.FIELDBYNAME('ID_VALUE').ASINTEGER;  END;				if Qryrefpessoais.RecordCount < 3 then 	begin	showmessage('Mínimo Para Cadastro, 2 Referência Pessoais e 1 Comercial');	EXIT;	ENDELSE	begin	Qryrefpessoais.Refresh;	fmprincipal.database1.startTransaction;	try		QRYREFPESSOAIS.ApplyUpdates;		Fmprincipal.Database1.commit;	except		FMPrincipal.Database1.Rollback;		RAISE;		end;	QRYREFPESSOAIS.commitUpdates;	end;

[marcio.theis 3]

O problema contiua ?

[Wilke1 0]

O problema contiua ?

sim marcio

[Wilke1 0]

O problema contiua ?

sim marcio

MARCIO MAS QUANDO EU CLICO NO DBGRID, AI ELE PERMITE SALVARQUAL SERIA A OPÇÃO DA PROPRIEDADE DO DBGRID ,PARA SE CLICADO INTERNAMENTE?