Tenho este código abaixo e qdo vou gravar dá a mensagem de AccessViolation....
With UDM1 Do
Begin
with FDQRYMOVTOS Do
begin
//con := 'DataBase=ADRIMED SOC;UserName=postgres;Password=aws - 4uVrAPPNGMuJntf;Port=5433;DriverID=PG ';
Try
//FDConn.Open(con);
Close;
Sql.Clear;
Sql.Add('INSERT INTO MOVIMENTO (EMPRESA_ATENDTO,CNPJ,IE,RAZAO_SOCIAL,ENDERECO,BAIRRO,CIDADE,UF,CEP,'+
'CONTATO,EMAIL,SITE,TEL_FIXO,TEL_CELULAR,CREDENC_SN,ATIVADO_SN,DT_CAD,HR_CAD)');
Sql.Add('Values(:E_EMPRESA_ATENDTO,:E_CNPJ,:E_IE,:E_RAZAO_SOCIAL,:E_END,:E_BAIRRO,:E_CIDADE,:E_UF,:E_CEP,'+
':E_CONTATO,:E_EMAIL,:E_SITE,:E_TEL_FIXO,:E_TEL_CELULAR,:E_CREDENC_SN,:E_ATIVADO_SN,:E_DT_CAD,:E_HR_CAD)');
ParamByName('E_EMPRESA_ATENDTO').AsString := UPPERCASE(CADEMP_SELECEMPATDO.Text);
ParamByName('E_CNPJ').AsString := UPPERCASE(CADEMP_CNPJ.Text);
ParamByName('E_IE').AsString := UPPERCASE(CADEMP_IE.Text);
ParamByName('E_RAZAO_SOCIAL').AsString := ANSIUPPERCASE(CADEMP_RAZAOSOC.Text);
ParamByName('E_END').AsString := ANSIUPPERCASE(CADEMP_END.Text);
ParamByName('E_BAIRRO').AsString := ANSIUPPERCASE(CADEMP_BAIRRO.Text);
ParamByName('E_CIDADE').AsString := ANSIUPPERCASE(CADEMP_CIDADE.Text);
ParamByName('E_UF').AsString := UPPERCASE(CADEMP_UF.Text);
ParamByName('E_CEP').AsString := UPPERCASE(CADEMP_CEP.Text);
ParamByName('E_CONTATO').AsString := ANSIUPPERCASE(CADEMP_CONTATO.Text);
ParamByName('E_EMAIL').AsString := UPPERCASE(CADEMP_EMAIL.Text);
ParamByName('E_SITE').AsString := UPPERCASE(CADEMP_SITE.Text);
ParamByName('E_TEL_FIXO').AsString := UPPERCASE(CADEMP_TELFIXO.Text);
ParamByName('E_TEL_CELULAR').AsString := UPPERCASE(CADEMP_TELCEL.Text);
ParamByName('E_CREDENC_SN').AsString := UPPERCASE(CADEMP_SELECCREDENCSN.Text);
ParamByName('E_ATIVADO_SN').AsString := UPPERCASE(CADEMP_SELECATIVOSN.Text);
ParamByName('F_DT_CAD').AsDateTime := STRTODATE(Label12.Text);
ParamByName('F_HR_CAD').AsDateTime := STRTOTIME(Label14.Text);
EXECSQL;
Except
ShowMessage('[ CAD. EMPRESA - COD. 01 ] - ENTRAR EM CONTATO COM A MARQUES E FERREIRA !');
End;
end;
LimpaCampos;
CADEMP_CNPJ.SetFocus;