Marcos Gerene

Bom dia Isaque, Perdi um dia e meio pesquisando e infelizmente suas dicas também não funcionaram bem pra mim então tive que fazer uma gambiarra... if OpenDialog1.Execute then with SP_DESENVOLVIMENTO_ANEXOS do begin Close; ParamByName('DSA_CODIGO').AsInteger := 0; ParamByName('DES_CODIGO').AsInteger := Self.Tag; ParamByName('FUN_CODIGO').AsInteger := CodFuncionario; ParamByName('DSA_NOME').AsString := DSA_NOME.Text; ParamByName('DSA_ARQUIVO').Value := Null; ParamByName('DSA_EXTENSAO').AsString := Extensao(OpenDialog1.Files.Strings[0]); ExecProc; end; GravarBlob('DESENVOLVIMENTO_ANEXOS', 'DSA_ARQUIVO', OpenDialog1.Files.Strings[0], 'WHERE DSA_CODIGO = '+SP_DESENVOLVIMENTO_ANEXOS.ParamByName('CODIGO').AsString); procedure GravarBlob(Tabela,Campo, arquivo, condicao :string); var zConexao:TZConnection; zQuery:TZQuery; zparametros : TIniFile; begin try zparametros := TIniFile.Create(ExtractFilePath(Application.ExeName)+'caminhoZeos.ini'); zConexao := TZConnection.Create(Application); zConexao.HostName := zParametros.ReadString('CONEXAO', 'IP', '127.0.0.1'); zConexao.Port := StrToIntDef(zParametros.ReadString('CONEXAO', 'PORTA', '3050'), 0); zConexao.Database := zParametros.ReadString('CONEXAO', 'DataBase', 'C:\Bancos\Simbolus\BANCO.FDB'); zConexao.Protocol := zParametros.ReadString('CONEXAO', 'Protocol', 'firebird-2.5'); zConexao.User := zParametros.ReadString('USUARIO', 'USER', 'SYSDBA'); zConexao.Password := zParametros.ReadString('USUARIO', 'PASSWORD', 'masterkey'); zConexao.Connect; try zQuery := TZQuery.Create(Application); zQuery.Connection := zConexao; zQuery.SQL.Add('UPDATE ' + Tabela+' SET ' + Campo + ' = :VALOR'); zQuery.SQL.Add(condicao); zQuery.ParamByName('VALOR').LoadFromFile(arquivo, ftBlob); zQuery.ExecSQL; finally zQuery.Free; end; finally if ZConexao.Connected then ZConexao.Disconnect; ZConexao.Free; zparametros.Free; end; Simplesmente gravo o que já gravava com o IBX mas o Blob com o Zeos e funcionou perfeitamente. Ainda aceito dicas para não ter que fazer dessa forma,rs abraço

Boa tarde, Estou com um problema a alguns dias com um código que funcionava normalmente no Delphi 7. with SP_DESENVOLVIMENTO_ANEXOS do begin Close; ParamByName('DSA_CODIGO').AsInteger := 0; ParamByName('DES_CODIGO').AsInteger := SP_DESENVOLVIMENTO.Tag; ParamByName('FUN_CODIGO').AsInteger := CodFuncionario; ParamByName('DSA_NOME').AsString := DSA_NOME.Text; ParamByName('DSA_ARQUIVO').LoadFromFile(OpenDialog1.Files.Strings[0], ftBlob); ParamByName('DSA_EXTENSAO').AsString := Extensao(OpenDialog1.Files.Strings[0]); ExecProc; end; O sistema até grava informações no blob mas ao tentar exportar o arquivo é como se o mesmo estivesse corrompido ou algo do genero. Se tento extrair do banco pelo .exe gerado pelo Delphi 2010 um arquivo que foi "gravado" com o exe Delphi 7 funciona normalmente, logo acredito que o problema não seja na extração e sim no gravar. De qualquer forma segue o código para extrair: var f2 : TFileStream; FileStream:TStream; try f2 := TFileStream.Create('C:\TEMP\TEMP.'+QryAnexos.FieldByName('DSA_EXTENSAO').AsString, fmCreate or fmOpenWrite); FileStream:=QryAnexos.CreateBlobStream(QryAnexos.Fieldbyname('DSA_ARQUIVO'),bmRead); f2.CopyFrom(FileStream, 0); finally FileStream.Free; f2.free; end; Alguém passou por isso ou pode dar alguma dica?

Bom dia, A URL do webservice para Dois Córregos (SimplISS) mudou. Produção: http://wsdoiscorregos.simplissweb.com.br/nfseservice.svc Homologação: http://wshomologacao.simplissweb.com.br/nfseservice.svc []'s

Boa tarde a todos, Tentando emitir uma NFSe hoje para Dois Córregos em ambiente de homologação recebi a seguinte mensagem Mudei para produção e tentei novamente, porém continua o problema (muda somente o caminho do webservice). Achei que o webservice estivesse fora então testei no sistema que roda aqui internamente que ainda está no Trunk1 (tenho somente o executável rodando, a tempos não atualizo) e funcionou perfeitamente. Meus fontes estão atualizados, arquivos .ini na pasta atualizados e schemas também, alguém pode me indicar aonde estou errando? []'s Perdão, testei novamente no Trunk1 e deu o mesmo erro, simplesmente está fora o servidor mas a aplicação minh anteriormente não mostrava erro desse tipo ao consultar, somente tentando transmitir.

Boa tarde @Juliomar Marchetti , Você tem razão, eu voltei a minha revisão para o dia 10/02 por causa do problema da NFe que relatei em outro post e notei que continuava desta forma então propus a correção. Pode descartar, obrigado, []'s

Boa tarde, Uso o ACBrTEFD com VSPague a algum tempo, e sempre tive que comentar a linha da unit do VSPague que acrescentava o valor 1 de ajuste para o Premmia para conseguir vender com 2 ou mais cartões (estourava o valor a pagar). Sem este valor da certo, com ele tenho este problema. Estou migrando meus fontes para o Delphi 2010, então peguei o ACBr "puro" e fui testar e lembrei desse erro, resolvi propor uma alteração. Criei um parâmetro "CieloPremia" com valor default True no Create do componente seto para True novamente (para garantir que não vai afetar quem usa este ajuste) e somente mando o ajuste se o este novo parâmetro estiver com valor true, logo no meu caso, seto-o para false e funciona. Não sei se somente eu tenho este problema, então busquei "corrigir" sem que afete ouros usuários. Segue a unit para análise e commit. ACBrTEFDVeSPague.pas []'s

Este mesmo sistema é usado em vários clientes com A1 e A3, na verdade sempre usei a capicom, o que teria que mudar para usar openssl? Houve alguma alteração nos ultimos 15 dias que exija alguma mudança no meu software (com o ACBr e 10/02 funciona, como disse anterioemente)? Provavelmente meu cliente não vai liberar para testar lá,ficou um bom tempo parado e acumulou serviço... para piorar, e problema só acontece lá e somente com o ACBr atualizado... Infelizmente só vou conseguir testar algo na próxima atualização...

O cliente usa certificado A1. As DLLs da capicom estão registradas. []'s

@Juliomar Marchetti o @mleonardo trabalha comigo, o problema mais detalhado está aqui:

Bom dia a todos, Ontem atualizei um cliente e ele me reportou o seguinte erro: Voltei minha versão do sistema e funcionou corretamente. Hoje pela manhã fiz vários testes na minha máquina e não consegui simular o erro. Atualizei novamente para fazer alguns testes no cliente. Obtive o mesmo erro, então fechei a aplicação, reabri e então tentei consultar a nota. A consulta só funciona na primeira tentativa, se tento consultar novamente tenho este mesmo erro (só mudando a URL para consulta). Reverti minha pasta do Delphi para o dia 10/02/2016 (que era a data do último executável "sadio" meu no cliente) e atualizei novamente com o meu sistema atualizado mas o ACBr na versão 11105 de 10/02/2016. Fazendo isto funcionou perfeitamente. Infelizmente não consegui simular o erro, a única coisa que consigo dizer é que ocorre após a versão 11105. Ambiente do Cliente: Windows Server Enterprise 2008 SP1 32bits Acesso via Terminal Service Ambiente de desenvolvimento: Delphi 7 Windows 7 SP1 e Windows 10 (compilei nos dois SOs). []'s

Bom dia, Hoje a empresa em que trabalho tem de 15~20 fontes para migrar, alguns com mais de 10 anos de vida, todos com componente de acesso ao banco diretamente no form... A curto prazo é inviável mudar o componente de acesso ao banco, e sinceramente, acho melhor refazer o sistema do que fazer esse tipo de "mudança". Hoje só estamos migrando graças ao ACBr (ao qual agradeço esse "empurrão", pois se não usariamos o Delphi 7 até 2050) e estamos migrando para o 2010 pois foi o que achamos mais próximo do que já existia. Mesmo assim estou tendo que reescrever a integração com boletos (removendo um componente antigo e utilizando o ACBrBoleto) e mais alguns detalhes. A longo prazo, com os sistemas mais arcaicos caindo (estamos tentando agrupar mais clientes em um número menor de sistemas) e somente com os sistemas relativamente mais novos (hoje os mais novos tem em torno de 5 anos) pode até ser que aceitem uma mudança mais radical, mas neste caso eu já migraria novamente para uma versão mais nova do Delphi (o 2010 foi só um "paleativo"). De qualquer forma agradeço a dica. PS: hoje consegui garimpar na internet o RxLib compatível com Delphi 2010, se alguém precisar me manda mensagem pois não coube para postar no forúm. []'s

Boa tarde, Comecei a migrar o Delphi 7 para o 2010 a alguns dias. Após fazer meus fontes compilarem acabei "tropeçando" em um problema nos componentes do Interbase (que uso para conectar ao Firebird). Ao tentar executar uma procedure ou uma Query recebia o seguinte erro: UNSUPPORTED FEATURE fazendo algo semelhante ao que o cara deste post faz: http://www.devmedia.com.br/forum/delphi-2010-storedprocedure-unsupported-feature/376747 Fazendo uma busca rápida no Bing achei este post http://www.activedelphi.com.br/forum/viewtopic.php?t=44097 que ajudou bastante, porém ainda faltaram alguns detalhes para meu sistema funcionar. Fiz algumas alterações nos arquivos IBStoredProc, IBQuery e IBCustomDataSet da pasta C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\source\Win32\IBX, entre elas "mudei" a forma de aparecer o erro que tanto me atormentou falando em qual unit e qual o formato que não foi encontrado. Segue minhas units caso alguém esteja passando pelo mesmo problema IBCustomDataSet.pas IBQuery.pas IBStoredProc.pas []'s

Boa tarde a todos, O Delphi 2010 tem o Teechart como padrão. []'s

Obrigado, abraços

Obrigado Juliomar, Sabe me responder se o Fast tem essa ferramenta embutida?

Boa tarde, Estou fazendo alguns testes para tentar migrar os sistemas aqui da empresa do Delphi 7 para o Delphi 2010. Gostaria de saber se existe e se alguém pode indicar algum componente para gráficos em relatórios. Se possível, tenho total preferência pelo FortesReport. []'s

Boa tarde, Obrigado pela ajuda, vou tentar fazer algo em relação a isso []'s

Bom dia a todos, Estou tentando emitir o GNRe em homologação, porém recebi a mensagem abaixo: Fiz um teste com o certificado (tipo A1) na NFe e deu certo. Cadastrei a empresa do meu cliente na homologação do web-service a uns dias já... Alguém pode me dar um luz? PS: O componente do GNRe está operacional? Não achei essa informação de forma precisa... []'s

Acabou de salvar minha pele, formatei e não ia novamente...

Bom dia a todos, Estou tentando pretendendo a guia do DIFAL diretamente pelo sistema, gostaria de saber se todos os estados são contemplados pelo componente (os 24 de PE, RJ, ES e SP). *Caso seja atendido SP: No caso de SP até então eu não encontrei nenhum tipo de integração, neste caso a guia é gerada diretamente pelo componente sem transmitir? Obrigado, Marcos Gerene

Obrigado Ítalo, abraço

Boa tarde, Sobre este tópico: Até chegar em ExtrairNotasRetorno em ACBrNFSeWebServices o protocolo aparece lá de forma perfeita, porém o mesmo é "apagado" na linha aonde coloquei o IF no .pas que estou subindo. Segue em anexo para análise e commit. ACBrNFSeWebServices.pas PS: testei no Ginfes e no SimplISS []

Boa tarde @walter faria, Pegue o protocolo assim: ACBrNFSe1.WebServices.ConsSitLoteRPS.Protocolo

Boa tarde Ítalo, Deu certo sim, Abraço

Boa tarde, Antigamente, no trunk1 para verificar se determinada nota estava cancelada na consulta eu fazia isto: if (NFSe.NotasFiscais.Items[0].NFSe.Status = srCancelado) then begin // se entrar aqui está cancelado end; Porém hoje não consigo mais usar isto. Notei que existe uma propriedade que, se não for nova, eu não conhecia ainda que é a propriedade Cancelada do tipo TSimNao. Fiz um rápido testes e o código abaixo funciona perfeitamente: if (NFSe.NotasFiscais.Items[0].NFSe.Cancelada = snSim) then begin //Se entrar aqui está cancelado end; Fiz uma rápida correção a fim de sincronizar as duas propriedades, seguem as units para avaliação e posterior commit. ACBrNFSeWebServices.pas pnfsLerListaNFSe.pas pnfsNFSeR.pas []'s