ActiveDelphi

[thaita]

Prezados,
Quando vou gravar os dados na tabela aparece a mensagem Field Value required. Estou usando o SQLite onde em um Datamodule tenho 1 FDQuery, 1 DatasetProvider e um
ClientDataset. para a tabela abaixo:
CREATE TABLE Pessoa (
Id INTEGER PRIMARY KEY AUTOINCREMENT
NOT NULL,
TipoCadastro VARCHAR (30),
Nome VARCHAR (50) NOT NULL,
DataNascReg DATE,
CPFCNPJ VARCHAR (1 NOT NULL,
Telefone VARCHAR (16) NOT NULL,
Cidade VARCHAR (40),
Bairro_Distrito VARCHAR (50),
Estado CHAR (2) DEFAULT MG,
Email VARCHAR (80),
Ativo CHAR (1),
DataInicio DATE,
DataFim DATE
);
Alguém pode me ajudar?????

[natanbh1]

Dê um duplo clique no seu FDQuery e Clientdataset e na lista de campos verifique se tem algum campo marcado a propriedade Required, se estiver desmarque e teste novamente.
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin

[thaita]

Blz. Eu não tinha incluido os Fields no FDQuery. A mensagem de erro não existe mais, porém os dados não estão sendo gravados na tabela. Segue meu procedimento abaixo na oportunidade informo que o comando post esta no formulário padrão.
procedure TPageCadastroPessoa.btnSalvarClick(Sender: TObject);
const
aTipoCadastro: TArray<String> = ['','Fornecedor', 'Parceiro Agrícola', 'Cliente'];
aAtivo: TArray<Char> = [' ', 'S', 'N'];
begin

if Trim(CbTipo.Text) = '' then
begin
cbTipo.SetFocus;
Application.MessageBox('O campo Tipo de cadastro não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
Abort;
end;

if Trim(edtNome.Text) = '' then
begin
edtNome.SetFocus;
Application.MessageBox('O campo Nome não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
Abort;
end;

if Trim(edtCpfCnpj.Text) = '' then
begin
edtCPFCNPJ.SetFocus;
Application.MessageBox('O campo CPF\CNPJ não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
Abort;
end;

if Trim(edtTelefone.Text) = '' then
begin
edtTelefone.SetFocus;
Application.MessageBox('O campo Nome não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
Abort;
end;


if (DMPessoas.cdsPessoas.State in [dsInsert]) then
DMPessoas.cdsPessoasTipoCadastro.AsString := aTipoCadastro[cbTipo.ItemIndex+1];
begin
ShowMessage('cbTipo.ItemIndex: ' + IntToStr(cbTipo.ItemIndex));
DMPessoas.cdsPessoasTipoCadastro.AsString := aTipoCadastro[cbTipo.ItemIndex + 1];
ShowMessage('TipoCadastro: ' + DMPessoas.cdsPessoasTipoCadastro.AsString);
end;
DMPessoas.cdsPessoasDataNascReg.AsDateTime := EdtDataNascReg.Date;
DMPessoas.cdsPessoasCpfCnpj.AsString := edtCpfCnpj.Text;
DMPessoas.cdsPessoasTelefone.AsString := edtTelefone.Text;
DMPessoas.cdsPessoasCidade.AsString := edtCidade.Text;
DMPessoas.cdsPessoasBairro_Distrito.AsString := edtBairro.Text;
DMPessoas.cdsPessoasEstado.AsString := edtEstado.Text;
DMPessoas.cdsPessoasEmail.AsString := edtEmail.Text;
DMPessoas.cdsPessoasAtivo.AsString := aAtivo[cbAtivo.ItemIndex+1];
DMPessoas.cdsPessoasDataInicio.AsDateTime := edtDataInicio.Date;
DMPessoas.cdsPessoasDataFim.AsDatetime := edtDataFim.Date;
inherited;

end;