Como fazer se existi tal campo em uma tabela

Question

tenho um form de produto e nele tem um edit que eu coloco o ncm de tal produto....e nesse sistema tenho uma tabela com todos os ncm que importar...Queria saber como poderia fazer para na hora que eu d...

Gutierry Pereira · Answer

Bom dia,
Utilize o evento onExit do edit. Neste evento utilize uma query ou crie uma para fazer a consulta a sua tabela de NCM onde o NCM � igual ao do edit. Caso exista vc envia a mensagem para o usu�rio se n�o vc da uma mensagem desejada e retorna o foco para seu campo de NCM.

Espero ter ajudado.

Raimundo Pereira · Answer

EXEMPLO qryNCM.OPEN;IF qryNCM.locate(TBL_NCM_CAMPO_NCM,QRY_PRODUTO.FIELBYNAME(NCM).ASSTRING,[]) THENBEGINSHOWMESSAGE(OK); // AQUI VOC� SUA ROTINA PARA ATUALIZAR O CADASTRO DO PRODUTO PARA ALQ_ICMS DO CADASTRO DE NCMENDELSEBEGIN// AQUI VOC� SUA ROTINA PARA ATUALIZAR O CADASTRO DO PRODUTO PARA ALQ_ICMS PARA 0END;END;...

Alan · Answer

E como fazeria issso??...

Alan · Answer

E como fazeria isso Gutierrydsn?...

Jones Granatyr · Answer

No OnExit poderia fazer uma query semelhante a essa

with TFDQuery.Create(Self) do
try
Connection := cnnConexao; // coloca aqui o componente de conex�o
Open('select ncm from produtos where ncm = :ncm');
Params[0].AsString := ANcm; // essa vari�vel seria o que voc� quer comparar
if not is Empty then
ShowMessage('J� existe');
finally
Free;
end;

F�rum Como fazer se existi tal campo em uma tabela #573121