Jump to content
Fórum Script Brasil

valtino

Membros
  • Content Count

    22
  • Joined

  • Last visited

Community Reputation

0 Neutro

About valtino

Contatos

  1. Jhonas Muito obrigado pelas dicas, revisei todo o codigo e tabelas, tirando aqueles varios edit, post que fazemos quando estamos desenvolvendo eu tudo certo o erro encerrou. Vou fazer o mesmo nos outros codigos, uma limpeza. Aguardo a sua opinião sobre o Delphi X3 Obrigado. Abraços. experimente executar esse codigo sozinho em outra aplicação, e veja o resultado se for o mesmo, refaça a sua tabela abraço
  2. Passo o Valor sim. O erro continua. Somente nesta tabela. tente assim: QItenOrdemServer.Active := false; QItenOrdemServer.SQL.Clear; QItenOrdemServer.SQL.Add('Select * From ORDSERVMOV '); QItenOrdemServer.SQL.Add('Where ID_ORDEMSERVICO = :Cod '); QItenOrdemServer.SQL.Add('order by ID_MVTOORSV desc '); QItenOrdemServer.Parameters.ParamByName('Cod').Value:= QOrdemServicoID_ORDEM.AsInteger; QItenOrdemServer.Active := true; veja se esta passando o valor para o Cod abraço
  3. Jhonas Esta dando erro para baixar deve ser a minha rede aqui. Outra coisa tive verificando passo a passo para saber aonde exatamente ocorre a exceção e ela ocorre na verdade não é no componente twwDBComBox e sim ao abrir a TADQuery:QItenOrdemServer codigo: QItenOrdemServer.Close; QItenOrdemServer.Parameters.ParamByName('Cod').Value:= QOrdemServicoID_ORDEM.AsInteger; QItenOrdemServer.Open; não sei ainda o motivo, mas uso esta TADOQuery em outros lugares do sistema e por isto que se torna importante para mim ter a atualização do Delphi 7, para evitar erros futuros em outro parte do sistema
  4. Jhonas verifiquei os link as maioria remete para o embargadero, você não poderia me enviar esta atualização para o emails. [email protected] Fico Grato.
  5. Existe outra lugar para obter a atualização do delphi 7, pois o meu não é registrado por isto não vou conseguir atualização pela embarcadero.
  6. Começa aqui quando EU abro a ABA de Cadastro que abre as tabelas (ADO) e a tela de inclusao: procedure TFCadLanc_Servico.TSCadShow(Sender: TObject); begin QItenSoma.Close; QItenSoma.Parameters.ParamByName('Cod').Value:= QOrdemServicoID_ORDEM.AsInteger; QItenSoma.Open; QItenOrdemServer.Close; QItenOrdemServer.Parameters.ParamByName('Cod').Value:= QOrdemServicoID_ORDEM.AsInteger; QItenOrdemServer.Open; TOrdemServico.Close; TOrdemServico.Parameters.ParamByName('Cod').Value:= QOrdemServicoID_ORDEM.AsInteger; TOrdemServico.Open; TOrdemServico.Edit; end; Codigo da ADOTab
  7. Estou usando delphi + Sql Server + ADO e esta aparecendo esta mensagem de erro abaixo quando vai de um TwwDBLookupCombo: Erro:Access violation at address 4034E073 in module 'dbrtl70.bpl'. Read of address 0000000000. já mudei toda esta aplicação de DBE para ADO e agora isto, so acontece nas TwwDBLookupCombo. Grato. Valtino.
  8. Bom Dia Estou com um projeto usando DBE e comecou a aparecer a mensagem de "Temporary table resource limit" a meses, então ressolvi criar algumas View, uso sql server 2000 com Delphi 7 - mas como sabe view não pode ser atualizadas e desta forma ficaria muito dificil continuar com as view e com o DBE, hoje no projeto do cliente estou usando nestas view apenas 5% das tabelas sendo os ultimos registros para o sistema funcionar. Diante tomei a decisão de usar ADO depois de alguns pesquisas e tal, estou mudando todo o projeto na mão TQuery para ADOQuery uma por uma, mudando a linha de codigo, poi
  9. Bom Dia a Todos Estou com este erro, a baixo, todo vez que o cliente incluir um registro e vai abrir outro formulario que faz parte da geração de xml, quando o mesmo pede a geração do XML aparece esta mensagem, então o cliente tem que sair da aplicação e entrar novamente. FIco grato se alguém já passou por isto é sabe a solução. Utilizado Delphi 7 com Banco de Dados SQL Server 2000 ERRO Couldn't perform the edit because another user changed the record valtino. [email protected]
  10. Obrigado, conseguiu ressolver, foi feito a abertura da Table desta forma: SELECT TOP 30 PERCENT * FROM MOVNOTFISCAL where MVNF_ORCCONHEC = 'Terceiro' AND LOG_NRCONHECIMENTO = 'REDESP' AND ID_STBL =:Cod Usando este codigo em uma View. Grato.
  11. Bom Dia a Todos Estou utilizando Banco de Dados SQL SERVER 2000 com Delphi 7, usando para fazer a conexão com banco de dados BDE e o uso de TTABLE para fazer uso das tabelas. Acontece que de uns dias pra cá começou a aparecer a seguinte mensagem quando o usuario abre o formulario que alimenta a grid. Uso este codigo para na Query: Select * From MOVNOTFISCAL where MVNF_ORCCONHEC = 'Terceiro' AND LOG_NRCONHECIMENTO = 'REDESP' AND ID_STBL =:Cod e o erro: Temporary table resource limit. Como devo proceder para ressolver este erro, pois uso table em toda a aplicação, não sei se tem outro
  12. Uso Windows XP, mas já testei em Windows 2003 server, fiz a modificação acima do JJones e nada, isto esta de bronca. Quando ao Codigo me envia o seu emails que te passo completo. ok. Grato
  13. Boa Noite Quando uso o OpenDialog para inserir os Anexos, o sistema envia sem dar erro algum, mas nestas NFe Processada em Lote não posso informar manual pois ficaria muito lento para o usuario, pois isto que tenho que informar os Anexo via codigo(automatico). Teria um meio de fazer a programação do OpenDialog via codigo sem a interação do Usuario, isto é antes de anexar os arquivos no emails, inserir estes arquivos automaticamente no OpenDialog e usar o codigo abaixo para inserir os anexos buscando no vetor que foi incrementado pelo OpenDialog. Desta Forma acredito que ressolveria o proble
  14. O arquivo esta na pasta e foi diminui o tamanho do nome do arquivo mas o erro continua. Depurei o codigo e percebi que o erro ocorre na hora que vai enviar: if IdSMTP1.Connected then IdSMTP1.Send(IdMessage1); Nesta linha e não no momento de inserção do arquivo .PDF // adiciona anexos do email a ser enviado IdMessage1.MessageParts.Clear; TIdAttachment.Create(IdMessage1.MessageParts, TFileName(cArquivo_XML)); TIdAttachment.Create(IdMessage1.MessageParts, TFileName(cArquivo_PDF)); Fico no Aguardo da Ajuda. Grato
×
×
  • Create New...