Erro Operator not applicable to this operand type Berlin 10.1

CRUD - Delphi

13/06/2022

Olá a todos

Bom é estou produzindo uma tela de lançamento de item (ou movimento)

Tenho lá os edCod, edDescricao, edValor, edQtd, edTotal

No button salvar faço a verificação deles

>>
procedure TFLanItem.btSalvarClick(Sender: TObject);
begin

if edCod.Text='' '' then
begin
ShowMessage(''CÓDIGO DO PRODUTO NÃO INFORMADO'');
edCod.SetFocus;
Exit
end;

if edDescricao.Text='' '' then
begin
ShowMessage(''DESCRIÇÃO DO PRODUTO NÃO INFORMADO'');
edDescricao.SetFocus;
Exit
end;

if edQtd.Text='' '' then
begin
ShowMessage(''QUANTIDADE DO PRODUTO NÃO INFORMADO'');
edQtd.SetFocus;
Exit
end;

if edValor.Text='' '' then
begin
ShowMessage(''VALOR DO PRODUTO NÃO INFORMADO'');
edValor.SetFocus;
Exit
end;

if edTotal.Text='' '' then
begin
ShowMessage(''TOTAL DO PRODUTO NÃO INFORMADO'');
edTotal.SetFocus;
Exit
end;

Até aqui está tudo bem ele faz a verificação bonitinho

aí vem o gerador dele
if not dm.cItens.State=dsInsert then >> onde está dando o erro << Operator not applicable to this operand type
begin
dm.cItens.Append;
dm.qryGenIdItem.Close;
dm.qryGenIdItem.Open;
dm.cItensID_ITEM.AsInteger:=dm.qryGenIdItemID.AsInteger;
end;
João

João

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

13/06/2022

procedure TFLanItem.btSalvarClick(Sender: TObject);
begin
	if edCod.Text=' ' then
	begin
		ShowMessage('CÓDIGO DO PRODUTO NÃO INFORMADO');
		edCod.SetFocus;
		Exit
	end;

	if edDescricao.Text=' ' then
	begin
		ShowMessage('DESCRIÇÃO DO PRODUTO NÃO INFORMADO');
		edDescricao.SetFocus;
		Exit
	end;

	if edQtd.Text=' ' then
	begin
		ShowMessage('QUANTIDADE DO PRODUTO NÃO INFORMADO');
		edQtd.SetFocus;
		Exit
	end;

	if edValor.Text=' ' then
	begin
		ShowMessage('VALOR DO PRODUTO NÃO INFORMADO');
		edValor.SetFocus;
		Exit
	end;

	if edTotal.Text=' ' then
	begin
		ShowMessage('TOTAL DO PRODUTO NÃO INFORMADO');
		edTotal.SetFocus;
		Exit
	end;

	if not (dm.cItens.State in [dsInsert]) then
	begin
		dm.cItens.Append;
		dm.qryGenIdItem.Close;
		dm.qryGenIdItem.Open;
		dm.cItensID_ITEM.AsInteger:=dm.qryGenIdItemID.AsInteger;
	end;
end;
GOSTEI 0
João

João

13/06/2022

procedure TFLanItem.btSalvarClick(Sender: TObject);
begin
	if edCod.Text=' ' then
	begin
		ShowMessage('CÓDIGO DO PRODUTO NÃO INFORMADO');
		edCod.SetFocus;
		Exit
	end;

	if edDescricao.Text=' ' then
	begin
		ShowMessage('DESCRIÇÃO DO PRODUTO NÃO INFORMADO');
		edDescricao.SetFocus;
		Exit
	end;

	if edQtd.Text=' ' then
	begin
		ShowMessage('QUANTIDADE DO PRODUTO NÃO INFORMADO');
		edQtd.SetFocus;
		Exit
	end;

	if edValor.Text=' ' then
	begin
		ShowMessage('VALOR DO PRODUTO NÃO INFORMADO');
		edValor.SetFocus;
		Exit
	end;

	if edTotal.Text=' ' then
	begin
		ShowMessage('TOTAL DO PRODUTO NÃO INFORMADO');
		edTotal.SetFocus;
		Exit
	end;

	if not (dm.cItens.State in [dsInsert]) then
	begin
		dm.cItens.Append;
		dm.qryGenIdItem.Close;
		dm.qryGenIdItem.Open;
		dm.cItensID_ITEM.AsInteger:=dm.qryGenIdItemID.AsInteger;
	end;
end;


Opa Muito obrigado!! é que ainda sou novato neste mundo da programação tanto que estou fazendo um curso, muito obrigado
GOSTEI 0
POSTAR