Marcos Gerene

hoje o ACBRGNRe já atende Rio de Janeiro e Espírito Santo? Até a minha ultima tentativa de utilizar só atendia PE... Aliás, você mesmo disse isto aqui: Estou com esta dificuldade (RJ) a algum tempo nos dois tópicos obtive resposta diferentes, estou um pouco confuso, pois pelo que vi do código ele foi todo desenvolvido para estrutura do PE.

Juliomar,o ACBrGNRe já atende o RJ e ES? Se sim, esta foi a melhor noticia do dia,rs. Consigo mudar em tempo de execução? Preciso usar PE, ES e RJ

Boa tarde, Estou tentando consumir o webservice do gnre do estado do Rio de Janeiro. Alimento os campos, mas na hora de enviar os dados recebo o seguinte retorno: Para ver o xml que estava sendo gerado no meu compoente Request (do tipo THTTPRio) coloquei o seguinte no BeforeExecute; procedure TFrmPrincipal.RequestBeforeExecute(const MethodName: string; SOAPRequest: TStream); var xml:TXMLDocument; begin try xml := TXMLDocument.Create(Self); xml.XML.Add( WideString(SOAPRequest) ); xml.SaveToFile('C:\temp\Request.xml'); finally xml.Free; end; end; Porém na linha que tentava pagar o SOAPRequest eu recebia AcessViolation porque o mesmo estava null. Estou tentando entrar em contato com o Sefaz do RJ para buscar apoio, mas ainda não obtive resposta. Em anexo está minha função que deveria gerar o GNRe e o webservice, alguém que consome pode me apontar aonde estou errando? PS: Sei que não se trata de um componente ACBR, justamente por isto estou postando em dúvidas sobre Delphi/Lazarus e como presumo que mais gente use o webservice do rj aqui para GNRe achei que seria viável questionar. funcao.txt GerarDocumentoArrecadacaoWS1.pas Obrigado desde já, Marcos Desculpem, faltou postar o "erro inicial".

Na verdade minha dúvida é sobre Lazarus (que ainda era novidade para mim), acabou que o problema foi direcionado ao Firebird, mas obrigado pela ajuda, você me respondeu prontamente, e esteve disposto a ajudar, obrigado mesmo. Fiz um teste aqui usando o Zeos com o Lazarus e setando tudo bonitinho, Character Set para NONE e marcando a opção AutoEncodeString e "por mágica" funcionou perfeitamente. Muito obrigado Daniel e Isaque, Abraços PS: A solução no meu caso foi migrar para o Zeos.

@Isaque Pinheiro e @Daniel Simoes Tentei no sql da Query usar um cast assim CAST( CAMPO AS VARCHAR(X) CHARACTER SET WIN1252) Continuou igual... Sei que o @Daniel Simoes usa Linux, sabe dizer se o Win1252 (por ser Microsoft) rodaria no Linux?

Não uso somente para o ACBr, acabei usando o Lazarus para mais coisas como relatórios, não gostei do ReportViewer e adaptei o FortesReport para meus relatórios também, e foi justamente nos relatórios que notei este problema.

Migrei minha base usando no restore -FIX_FSS_M e -FIX_FSS_D para WIN1252, UTF8 e ISO8859_1 e não obtive sucesso. Parâmetros usados no Backup -b -v -n Parâmetros usados no Restore -create -v -fis_fss_m -fix_fss_d Migrei errado?

Boa tarde Isaque, Obrigado pela resposta. 4 Perguntas: 1. mudo na base? 2. posso usar ISO8859_1 ao invés de WIN1252? 3. WIN1252 vai rodar em Linux? 4. Tem como mudar todas as tabelas de uma vez?

Bom dia, Tenho uma aplicação em C# (WinForms com VS 2015 Community) e uso o Firebird 2.5.5 para armazenamento no banco. Para poder usar o ACBr, criei um módulo em Lazarus (versão 1.4.4) com o qual troco XMLs de requisição e respostas. O problema é que em campos varchar no meu banco de dados, no VS2015 (C#) está ok e no Lazarus não. Exemplo: JOÃO -> Visual Studio JO?O -> Lazarus Uso no lazarus o TIBConnection para conexão (aquele nativo que tem o iconezinho do firebird). Meu banco Firebird está com o Character Set definido como NONE. Devo fazer alguma alteração na base? É possível "corrigir" de forma simples no Lazarus (tenho preferência de mexer na base somente em ultimos casos). Obrigado, Marcos Gerene

Boa noite a todos, Estou desenvolvendo uma aplicação em Lazarus para rodar em Windows, Linux e OSX (Apple PC). Os únicos componentes não-nativo que uso neste sistema são o FortesReporteCE (para o ACBr) e o ACBr (SAT, NFe, MDFe e SPED). Li em diversos tópicos que o pessoal roda com sucesso o ACBr no Linux, mas pesquisando sobre OSX achei somente este tópico abaixo que já é um pouco antigo (trunk1 ainda): Podem me informar como andam estas questões com a mudança para o Trunk2? Alguém hoje usa os componentes que listei em OSX? Obrigado, Marcos

Bom dia, Não,só preencher o valor e boa...Na Elgin coloquei 50 para cortar aonde eu queria (meio centímetro abaixo do QRCode). []'s

Bom dia a todos, Existe alguma forma de pegar a data de um arquivo na web pela URL via Delphi? Ex:http://www.meuservidor.combr/arquivo_atualizacao.exe

@Daniel Simoes, Se puder corrigir, por favor suba as 2 units abaixo. Motivos: 1. Estava colocando o tamanho depois de calcular o tamanho total do cupom, no meu caso ate dava certo porque era exatamente o que eu usava, então passou desapercebido 2. Quando testei colocava uma linha no final, sem essa linha o panel "em branco" simplesmente não funcionava, testei agora sem a linha e não foi, voltei a linha e funcionou, então algo tem que ser colocado no panel para que ele não seja "ignorado". ACBrSATExtratoFortesFr.pas ACBrSATExtratoFortesFr.lfm Obrigado, abraços

Boa noite a todos, Fiz uma pequena alteração acrescentando uma propriedade "Espaço Final" com valor padrão 0 que determina o tamanho de um panel no bottom do rodapé da venda e do cancelamento do SAT. O objetivo é remover a necessidade atual do cliente avançar o papel manualmente para não cortar em cima do QrCode em impressoras como a Elgin i9. Segue units para commit. ACBrSATExtratoFortes.pas ACBrSATExtratoFortesFr.lfm ACBrSATExtratoFortesFr.pas Feliz Páscoa a todos. []'s Perdão galera, acabei subindo antes de testar, a propriedade é a Height (altura) e não Width (largura) como eu havia dito anteriormente, segue a unit corrigida: ACBrSATExtratoFortesFr.pas

Boa tarde @Juliomar Marchetti, Justamente por isso postei em Object Pascal - Delphi & Lazarus , minha dúvida é sobre o consumo do webservice, não tem relação alguma com o ACBrGNRe. []'s

Boa tarde a todos, Estou tentando consumir o webservice do Rio de Janeiro para emissão de Guias do GNRe mas venho tendo um pouco de dificuldade. O que estou fazendo: procedure TFrmPrincipal.GerarRJ; const url_rj:string='http://www1.fazenda.rj.gov.br/projetoGCTBradesco/br/gov/rj/sef/gct/webservice/GerarDocumentoArrecadacaoWS.jws?WSDL'; codigo_produto:integer=469; { 469 - Produtos alimentícios } var idx:integer; wsrjEmit:WSGnreRJ.Emitente; wsrjDocs:WSGnreRJ.ArrayOfDocumento; wsrjItens:WSGnreRJ.ArrayOfItemPagamento; wsrj:WSGnreRJ.GerarDocumentoArrecadacaoWS; wsrjRetorno:WSGnreRJ.ChamadaDadosWebServiceRefLote; begin try wsrjEmit := WSGnreRJ.Emitente.Create; wsrjEmit.CnpjEmitente := StrToInt64(getCNPJ(QryEmpresa.FieldByName('EMP_CNPJ').AsString)); wsrjEmit.Email := QryEmpresa.FieldByName('EMP_EMAIL').AsString; SetLength(wsrjDocs, 1); wsrjDocs[0] := WSGnreRJ.Documento.Create; wsrjDocs[0].DataPagamento := FormatDateTime('dd/mm/yyyy', IncDay(Date(),1)); wsrjDocs[0].TipoDocumento := 2; { 1. DARJ, 2. GNRE } wsrjDocs[0].TipoPagamento := 1; { 1. ICMS/FCP } try QryNotasFiscais.DisableControls; QryNotasFiscais.First; while not QryNotasFiscais.Eof do begin if ( QryNotasFiscais.FieldByName('VEN_SELECIONADO').AsInteger = 1 ) then begin idx :=Length(wsrjItens); SetLength(wsrjItens, idx+1); wsrjItens[idx] := WSGnreRJ.ItemPagamento.Create; wsrjItens[idx].CepContribuinte := StrToIntDef(SoNumeros(QryEmpresa.FieldByName('EMP_CEP').AsString),0); wsrjItens[idx].Cnpj := wsrjEmit.CnpjEmitente; wsrjItens[idx].CodigoProduto := codigo_produto; wsrjItens[idx].DataFatoGerador := FormatDateTime('dd/mm/yyyy', QryNotasFiscais.FieldByName('VEN_FATURAMENTO').AsDateTime); wsrjItens[idx].DataVencimento := wsrjDocs[0].DataPagamento; wsrjItens[idx].EnderecoContribuinte := TiraAcento(QryEmpresa.FieldByName('EMP_ENDERECO').AsString + ', ' + QryEmpresa.FieldByName('EMP_NUMERO').AsString); wsrjItens[idx].MunicipioContribuinte := TiraAcento(QryEmpresa.FieldByName('CID_DESCRICAO').AsString); wsrjItens[idx].UfContribuinte := TiraAcento(QryEmpresa.FieldByName('CID_UF').AsString); wsrjItens[idx].Natureza := 3; { 3. Diferencial de Alíquota } wsrjItens[idx].NaturezaQualificacao := 1; { 1. Normal } wsrjItens[idx].NomeRazaoSocial := TiraAcento(QryEmpresa.FieldByName('EMP_RAZAO').AsString); wsrjItens[idx].NotaFiscalCnpj := wsrjEmit.CnpjEmitente; wsrjItens[idx].NotaFiscalDataEmissao := wsrjItens[idx].DataFatoGerador; wsrjItens[idx].NotaFiscalNumero := QryNotasFiscais.FieldByName('VEN_NF').AsInteger; wsrjItens[idx].NotaFiscalSerie := QryNotasFiscais.FieldByName('VEN_SERIE').AsInteger; wsrjItens[idx].NotaFiscalTipo := 'NF-e'; { M - Manual, PD - Processamento de Dados, NF-e - Nota Fiscal Eletrônica } wsrjItens[idx].NumControleContribuinte := QryNotasFiscais.FieldByName('VEN_NF').AsString + QryNotasFiscais.FieldByName('VEN_SERIE').AsString; wsrjItens[idx].PeriodoReferenciaAno := StrToInt( Copy(wsrjItens[idx].DataFatoGerador,7,4) ); wsrjItens[idx].PeriodoReferenciaMes := StrToInt( Copy(wsrjItens[idx].DataFatoGerador,4,2) ); wsrjItens[idx].TipoId := 1; {1. CNPJ, 2. CPF, 3. Passaporte} wsrjItens[idx].ValorFECPPrincipal := QryNotasFiscais.FieldByName('VALOR_FCP').AsFloat; wsrjItens[idx].ValorICMSPrincipal := QryNotasFiscais.FieldByName('VALOR_DESTINATARIO').AsFloat; wsrjItens[idx].ValorTotal := wsrjItens[idx].ValorICMSPrincipal + wsrjItens[idx].ValorFECPPrincipal; end; QryNotasFiscais.Next; end; finally QryNotasFiscais.EnableControls; end; if (Length(wsrjItens) > 0) then begin wsrjDocs[0].ItensPagamentos := wsrjItens; Request.URL := url_rj; wsrj := Request as GerarDocumentoArrecadacaoWS; wsrj := GetGerarDocumentoArrecadacaoWS(true, '', Request); wsrjRetorno := wsrj.enviarDados(wsrjEmit, wsrjDocs); Memo1.Lines.Add('----------------'); Memo1.Lines.Add('IdSessao: '+wsrjRetorno.IdSessao); Memo1.Lines.Add('Cod. Retorno: ' + IntToStr( wsrjRetorno.Retorno.CodigoRetorno )); Memo1.Lines.Add('Msg. Retorno: ' + wsrjRetorno.Retorno.MensagemRetorno); end; finally wsrjEmit.Free; end; end; Unit do webservice: WSGnreRJ.pas O erro: Ocorre na linha: wsrjRetorno := wsrj.enviarDados(wsrjEmit, wsrjDocs); Tentei ver o que havia nesse XML no evento beforepost do meu objeto Request(THTTPRIO) dessa forma: procedure TFrmPrincipal.RequestBeforeExecute(const MethodName: string; SOAPRequest: TStream); var xml:TXMLDocument; begin try xml := TXMLDocument.Create(Self); xml.XML.Add( WideString(SOAPRequest) ); xml.SaveToFile('C:\temp\Request.xml'); finally xml.Free; end; end; Porém o parâmetro SOAPRequest vem vazio, como se a requisição fosse sem nenhum dado. ========================================================================= Meu ambiente: Windows 10 Delphi 2010 ========================================================================= Obrigado pela força galera, []'s

Boa tarde, Não entendi o que quis dizer... SP não tem webservice, mas RJ e ES tem, só não são atendidos por PE... eu quero mandar guias para o RJ e ES, a minha dúvida é se o componente atende ou se alguém pretende implementar para que eu possa ajudar. abraço

Boa tarde, O componente ACBrGNRe atende os estados de RJ e ES? Se não atende, alguém já fez a integração de outra forma? Existe alguém pensando em implementar RJ ou ES no ACBrGNRe para que eu possa colaborar? Obrigado, Marcos

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