Erro Operator not applicable to this operand type Berlin 10.1
13/06/2022
0
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;
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
Curtir tópico
+ 0
Responder
Posts
13/06/2022
Emerson Nascimento
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;
Responder
13/06/2022
João
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)