souza2090
Novato
Registrado: Quinta-Feira, 5 de Abril de 2018
Mensagens: 2
|
 Enviada: Sex Abr 06, 2018 11:14 am Assunto: Erro de access violation inassesible value |
 |
|
| Código: |
procedure TSqlNcm.InsertNcm;
VAR
SeqCtrlNcmUf : String;
SQLInsertNcm: TStringList;
sqlNextivalNcm : string;
CONEXAOfIREDAC : TDMCONEXAOFIREDAC;
begin
SQLInsertNcm := TStringList.Create;
//aqui esta cria a lista para ser o codigo de insert
SQLInsertNcm.add('INSERT INTO CTRLNCMUF CTRL');
SQLInsertNcm.add('(SEQCTRLNCMUF, NCM, NCMDESCRICAO, MVAAJUSTADA4,');
SQLInsertNcm.add(' MVAAJUSTADA7, MVAAJUSTADA12, MVAAJUSTADA17,');
SQLInsertNcm.add(' MVAAJUSTADA18, ALIQUOTAINTERNA, MVAORIGINAL)');
SQLInsertNcm.add(' VALUES (SEQCTRLNCMUF.NEXTVAL, :NEWNCM, :NEWNCMDESCRICAO, :NEWMVAAJUSTADA4,');
SQLInsertNcm.add(' :NEWMVAAJUSTADA7, :NEWMVAAJUSTADA12, :NEWMVAAJUSTADA17,');
SQLInsertNcm.add(' :NEWMVAAJUSTADA18, :NEWALIQUOTAINTERNA, :NEWMVAORIGINAL)');
//Aqui cria a string seqncm
SeqCtrlNcmUf :='SEQCTRLNCMUF.NEXTVAL';
// Aqui cria o data module
CONEXAOfIREDAC := TDMCONEXAOFIREDAC.Create(CONEXAOfIREDAC);
// Aqui vamos utilisar o fdqueryNCm para pegar o nextival
with CONEXAOfIREDAC.FDQueryNcm do
begin
sql.Clear;
sql.AddStrings(SQLInsertNcm);
end;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWNCM').AsString := FormPrinc.vNcmFormcadastro;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWNCMDESCRICAO').AsString := FormPrinc.vNcmDescricaoFormcadastro;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWMVAAJUSTADA4').AsString := FormPrinc.vMvaAjustada4Formcadastro;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWMVAAJUSTADA7').AsString := FormPrinc.vMvaAjustada7Formcadastro;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWMVAAJUSTADA12').AsString := FormPrinc.vMvaAjustada12Formcadastro;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWMVAAJUSTADA17').AsString := FormPrinc.vMvaAjustada17Formcadastro;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWMVAAJUSTADA18').AsString := FormPrinc.vMvaAjustada18Formcadastro;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWALIQUOTAINTERNA').AsString := FormPrinc.vAliquotaInternaFormcadastro;
CONEXAOfIREDAC.FDQueryNcm.ParamByName('NEWMVAORIGINAL').AsString := FormPrinc.vMvaOriginalFormcadastro;
CONEXAOfIREDAC.FDQueryNcm.ExecSQL(); // procedimento que executaa query
END;
|
No estante que tento acessar o fdQuery da acess violation alguma ajuda . |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
