Pesquisar na Comunidade

Bom Dia pessoal do Forum! Estou no processo do meu tcc e empaquei numa parte... É um Software para Granjas e estou na parte de cadastro, tenho alguns botões de novo, excluir, incluir e editar! Alguns campos para preencher e depois de preenchido quando for clicar no botão incluir é para incluir no DBGrid! Só que quando clico no Incluir ele dá um erro! Project tcc.exe raised exception class EConvertError with message ''' is not a valid integer value'. Process stopped. Use Step or Run to Continue. Após isso, quando clico no botão ok, uma linha azul vai para o dpr e marca a linha do Application.Run No banco de dados está as seguintes informações desse cadastro de Lotes: CODLOTES - INTEGER LOTE - NCHAR(80) LINHAGEM - NCHAR(20) NUMERO - INTEGER DATAALOJA - DATE INICIOSEM - DATE SEXO - CHAR(10) TOTALFEM - INTEGER PRECOFEM - INTEGER TOTALMAC - INTEGER PRECOMACH - INTEGER TIPORACAO - NCHAR(20) Vou postar também o código que está dentro do botão incluir: var sSql : String; begin sSql := 'INSERT INTO LOTES' + ' (CODLOTES, LOTE, LINHAGEM, NUMERO, DATAALOJAMENTO, INICIOSEMANA,SEXO, TOTALFEMEA, PRECOFEMEA, TOTALMACHO, PRECOMACHO, TIPORACAO)' + 'VALUES (:CODLOTES, :LOTE, :LINHAGEM, :NUMERO, :DATAALOJAMENTO, :INICIOSEMANA, :SEXO, :TOTALFEMEA, :PRECOFEMEA, :TOTALMACHO, :PRECOMACHO, :TIPORACAO) '; with ADOQueryL do begin Close; //Fecha a conexão Sql.Clear; //Limpa a query Sql.Add(sSql); Parameters.ParamByName('CODLOTES').Value := StrToInt(L_CODIGO.Text); Parameters.ParamByName('LOTE').Value := quotedstr(L_LOTE.Text); Parameters.ParamByName('LINHAGEM').Value := quotedstr(L_LINHAGEM.Text); Parameters.ParamByName('NUMERO').Value := StrToInt(L_NUMERO.Text); Parameters.ParamByName('DATAALOJAMENTO').Value := quotedstr(L_DATAALOJ.Text); Parameters.ParamByName('INICIOSEMANA').Value := quotedstr(L_INICIOSEM.Text); Parameters.ParamByName('SEXO').Value := quotedstr(L_SEXO.Text); Parameters.ParamByName('TOTALFEMEA').Value := L_TOTALFEMEA.Value; Parameters.ParamByName('PRECOFEMEA').Value := L_PRECOFEMEA.Value; Parameters.ParamByName('TOTALMACHO').Value := L_TOTALMACHO.Value; Parameters.ParamByName('PRECOMACHO').Value := L_PRECOMACHO.Value; Parameters.ParamByName('TIPORACAO').Value := quotedstr(L_TIPORACAO.Text); acaoNovo.enabled := True; acaoEditar.Enabled := True; acaoIncluir.Enabled := false; acaoExcluir.Enabled := True; try ExecSQL; except On E:Exception do begin ShowMessage('Erro na atualização da base de dados. Erro: ' + E.Message); end; end;//try except end; //with ADOQueryL end; Espero que possam me ajudar de alguma forma :/ Já não sei mais onde recorrer! E falta apenas 1 mes para a entrega x.x Obrigada.

Pessoal boa noite, A um tempo atrás eu estava com problema com os retorno de cep do acbr, bom falaram que estava na NT que o CEP tinha que ser int e tal, OK! Mas agora estou com outro problema no bloco Emit.EnderEmit.CEP o mesmo é integer também, que beleza, a NT também fala que tem que ser Int, mas como vou informar o CEP exemplo (04530001), ok está na NT, mas o CEP existe, sem o 0 no inicio a sefaz nega a nota, falando que o CEP está incorreto? Como devo proceder? Completar com 1 mesmo e deixa rolar ? Usar o CEP da cidade, mas tem cidade que também inicia com 0 CEP é de São Paulo 04530-001 - Vila Nova Conceição, São Paulo - SP