Marcos Gerene

Boa noite a todos, Acho que encontrei o que eu queria aqui: http://www.fazenda.sp.gov.br/sat/sistema_retaguarda/Guia_SH_v1.0.1-B-AD.pdf Página 2, ítem 2.1.e Basicamente deve-se cadastrar o contribuinte como software house porém marcar "uso próprio" para que não seja validado o CNAE. []'s

Boa tarde a todos, Busquei hoje uma informação, até encontrei alguns resultados mas nada que ficasse claro para mim. No caso de empresas com área de T.I. própria, como fica o SAT (assinatura)? Deve-se colocar o Cnpj do emitente como da software house também? Alguém já fez esse processo e pode me explicar com mais detalhes? Obrigado, []'s

Mudou a URL do servidor, mas não encontrei nenhum aviso seja no site de Dois Córregos ou do SimplISS, mas de qualquer forma já fiz outro post com o novo URL, muito obrigado pela atençào

Eu já conhecia o trabalho do Daniel a algum tempo, sabia que ele usava Lazarus, mas Zeos é novidade pra mim, na verdade saber o que o Zeos é OpenSource foi uma satisfatória "descoberta". Muito obrigado pela ajuda, abraços

Boa tarde Cleber, Era exatamente esta a reposta que eu buscava. Abraço

Bom dia Juliomar, Obrigado pela dica, mas estou tentando fugir de usar ferramentas proprietárias, aprendi isso sofrendo nessa migração, tudo que usei que era comunitário deu mais certo, alias só isto quase deu certo rsrs Pensei no Zeus por dois motivos: acho que uma posterior migracão para a liberdade (Lazarus) a longo prazo seria bem facilitada e pela portabilidade (conexão em diversos bancos de dados). Bom dia Adilson, obrigado pela colaboração

Bom dia a todos, Uso o Zeos a algum tempo quando tenho que conectar a outro banco de dados em processos como importação ou leitura de banco de dados externos para outros fins. Agora com a migração da versão atual do Delphi (7 para 2010) acabei esbarrando num problema com o IBX (componente que uso hoje) e campos Blob e achei no Zeos uma solução paleativa para aquele erro específico. Resolvi pesquisar um pouco a mais sobre o Zeos e vi que o mesmo é OpenSource e está disponível para Delphi, Kylix, Lazarus e C++ Builder e encontrei na esmagadora maioria relatos bons do uso da ferramenta. Gostaria de saber se alguém usa aqui na comunidade e se usa qual a experiência com a ferramenta, principalmente na questão de estabilidade e performance, estou cogitando usar a ferramenta a longo prazo, pois acho que não sofreria mais com a mudança de tecnologia futuramente. Agradeço a atenção, abraços

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