adilsonpazzini

Pelo que vi , na hora de efetuar o NotaUtil.ShutDownXmlSec , pela segunda vez , pois a primeira é feito pelo primeiro Componente a ser destruido , se fosse criado uma variavel que controle isso , sabe se o primeiro ja foi feito pra nao fazer a segunda vez , isso em algum lugar onde ambos os componentes enxerguem ... Desde ja agradeço Adilson Pazzini .

Vi q se deixa um so . nao dá o erro .... mais como que daria pra contornar esse problema ? Desde ja agradeço Adilson

To sim ...

Boa pessoal , estou iniciando a utilização do AcbrNFSe pra Lazarus , ao carregar o componente , da tudo certo ,. no caso qndo o EXE é iniciado , mais qndo fecho o EXE . da erro - External SIGSEGV , rotina abaixo , na linha do NotaUtil.ShutDownXmlSec; , olhando os fontes , vi que pra nfe tem a mesma rotina so que la nao ta dando problema , alguem poderia me ajudar e resolver esse problema . destructor TACBrNFSe.Destroy; begin FConfiguracoes.Free; FNotasFiscais.Free; FWebServices.Free; {$IFDEF ACBrNFSeOpenSSL} NotaUtil.ShutDownXmlSec; {$ENDIF} inherited destroy; end; Desde ja agradeço . Adilson Pazzini .

O CNPJ do certificado é o mesmo que esta sendo informado no XML da nfse ?

Vou pegar um exemplo que utilizo pra pegar a NFe e jogar pra dentro do banco e funciona normal . procedure GRAVA_XML_BANCO(aQCAD:TQuery;aID_NFS:Integer;aNFE:TACBRNFe); var aXML_ARQ : TStringStream; begin try aXML_ARQ := TStringStream.Create(''); //===> Rotina Incluida para Ver se campo nNF esta vazio ou não... if aNFE.Notasfiscais.Items[0].NFe.Ide.nNF = 0 then if trim(aNFE.Notasfiscais.Items[0].XML) <> '' then begin aXML_ARQ.WriteString(trim(aNFE.Notasfiscais.Items[0].XML)); aNFE.NotasFiscais.clear; aNFE.Notasfiscais.LoadFromStream(aXML_ARQ); end; aNFE.NotasFiscais.Items[0].SaveToStream(aXML_ARQ); if aNFE.Notasfiscais.Items[0].NFe.Ide.nNF <> 0 then begin aQCAD.Close; aQCAD.SQL.CLEAR; aQCAD.SQL.ADD('UPDATE OR INSERT INTO FATNFSXML (ID_NFS,XMLNFE,DATA) VALUES (:ID_NFS,:XMLNFE,:DATA) MATCHING (ID_NFS)'); aQCAD.ParamByName('ID_NFS').asinteger := aID_NFS; aQCAD.ParamByName('XMLNFE').LoadFromStream(aXML_ARQ,ftBlob); aQCAD.ParamByName('DATA').AsDateTime := now; aQCAD.EXECSQL; end; finally FreeAndNil(aXML_ARQ); end; end;

Ref Inutilizacao da pra ver no site da NFe mesmo . la vc consegue consultar Inutilizacoes por CNPJ e Ano

Ate olhando parece ja estar configurado ... pra esta cidade .. vamos ver se algume ja utilizar pra ver se ta OK ...

Alem do pcnConversao . vc deve adcionalo tambem dentro da propria unit do ACBrProvedorAbaco.pas Incluindo aqui tambem a cidade e os dados ref a ela ... function TProvedorAbaco.GetConfigURL(ACodCidade: Integer): TConfigURL; var ConfigURL: TConfigURL; begin case ACodCidade of 3201209: begin // Cachoeiro De Itapemirim/ES ConfigURL.HomNomeCidade := 'cachoeiro'; ConfigURL.ProNomeCidade := 'cachoeiro'; end; 4304606: begin // Canoas/RS ConfigURL.HomNomeCidade := 'canoas'; ConfigURL.ProNomeCidade := 'canoas'; end; 5107040: begin // Primavera do Leste/MT ConfigURL.HomNomeCidade := 'primavera'; ConfigURL.ProNomeCidade := 'primavera'; end; 5107602: begin // Rondonopolis/MT ConfigURL.HomNomeCidade := 'roo'; ConfigURL.ProNomeCidade := 'roo'; end; end; ConfigURL.HomRecepcaoLoteRPS := 'http://www.e-nfs.com.br/'+ ConfigURL.HomNomeCidade +'_homologa/servlet/arecepcionarloterps?wsdl'; ConfigURL.HomConsultaLoteRPS := 'http://www.e-nfs.com.br/'+ ConfigURL.HomNomeCidade +'_homologa/servlet/aconsultarloterps?wsdl'; ConfigURL.HomConsultaNFSeRPS := 'http://www.e-nfs.com.br/'+ ConfigURL.HomNomeCidade +'_homologa/servlet/aconsultarnfseporrps?wsdl'; ConfigURL.HomConsultaSitLoteRPS := 'http://www.e-nfs.com.br/'+ ConfigURL.HomNomeCidade +'_homologa/servlet/aconsultarsituacaoloterps?wsdl'; ConfigURL.HomConsultaNFSe := 'http://www.e-nfs.com.br/'+ ConfigURL.HomNomeCidade +'_homologa/servlet/aconsultarnfse?wsdl'; ConfigURL.HomCancelaNFSe := 'http://www.e-nfs.com.br/'+ ConfigURL.HomNomeCidade +'_homologa/servlet/acancelarnfse?wsdl'; ConfigURL.ProRecepcaoLoteRPS := 'https://www.e-nfs.com.br/e-nfs_'+ ConfigURL.ProNomeCidade +'/servlet/arecepcionarloterps?wsdl'; ConfigURL.ProConsultaLoteRPS := 'https://www.e-nfs.com.br/e-nfs_'+ ConfigURL.ProNomeCidade +'/servlet/aconsultarloterps?wsdl'; ConfigURL.ProConsultaNFSeRPS := 'https://www.e-nfs.com.br/e-nfs_'+ ConfigURL.ProNomeCidade +'/servlet/aconsultarnfseporrps?wsdl'; ConfigURL.ProConsultaSitLoteRPS := 'https://www.e-nfs.com.br/e-nfs_'+ ConfigURL.ProNomeCidade +'/servlet/aconsultarsituacaoloterps?wsdl'; ConfigURL.ProConsultaNFSe := 'https://www.e-nfs.com.br/e-nfs_'+ ConfigURL.ProNomeCidade +'/servlet/aconsultarnfse?wsdl'; ConfigURL.ProCancelaNFSe := 'https://www.e-nfs.com.br/e-nfs_'+ ConfigURL.ProNomeCidade +'/servlet/acancelarnfse?wsdl'; Result := ConfigURL; end;

Esqueci de te pergunta , qndo vc ta enviando vc ta anexando varios RPS e enviando uma unica vez . no caso um unico lote , ou ta fazendo um loop pra enviar um a um

Seguinte . Joel , tava vendo os fontes que vc faz as alteracoes , estao um pouco atrasado , talvez ate seja isso que ta demorando pra atualizar a biblioteca trunk , outra coisa , ref ao Quick Report , tem um arquivo na pasta NFSe que mostra passo a passo como fazer pra tirar esse erro . Segue abaixo o conteudo do arquivo Property_Does Not Exist.txt , pelo menos aqui pra mim deu certo ... apesar de acabar desenvolvendo um proprio DANFE por que alguns provedores nao retornam todos os dados no xml da nfse... Foi utilizado a versão 5.02 do Quick Report (Delphi 7) para fazer o DANFSE. Quando se utiliza uma versão diferente podem aparecer erro do tipo Property ... dos not exist, ou seja não existe a propriedade ... Para resolver você tem que seguir a risca os passos abaixo: Primeiro passo: ======================================================================== Utilizando o Delphi abra o fonte: ACBrNFSeDANFSeQR que encontra-se na pasta ...\Fontes\ACBrNFSe Se aparecer uma tela informando que a propriedade não existe, clique em ignorar todas. Abra também o fonte: ACBrNFSeDANFSeQRRetrato que encontra-se na mesma pasta. Clique em ignorar todas se aparecer a tela informado que a propriedade não existe. ======================================================================== Segundo Passo: ======================================================================== Selecione o objeto QRNFSe que encontra-se no form: frmDANFSeQR. Altere o valor das propriedades Left e Top para um valor entre 0 e 10, desde que seja diferente do atual. Exemplo: Se os valores atuais é 2 (dois) tanto par Left quanto para Top altere para 3 (tres). Inclua uma linha em branco no código onde não vai interferir em nada, por exemplo entre interface e uses. ======================================================================== Terceiro Passo: ======================================================================== Selecione o objeto QRNFSe que encontra-se no form: frmDANFSeQRRetrato. Altere o valor das propriedades Left e Top para um valor entre 0 e 10, desde que seja diferente do atual. Exemplo: Se os valores atuais é 2 (dois) tanto par Left quanto para Top altere para 3 (tres). Inclua uma linha em branco no código onde não vai interferir em nada, por exemplo entre interface e uses. ======================================================================== Pronto agora, clique na opção em Save All e depois Close All. Abra a aplicação que utiliza o componente e compile utilizando a opção Build. Isso deve resolver o problema.

Velho , tenta fazer o seguinte , tenta criar o ACBRNFse dinamicamente , na hora de enviar e carregar o xml , ai apos o envio da um free nele ... testa assim so pra ver ... pois qndo utilizava GINFES , tinha muito problema de envio em sequencia , da impressao que tem algum memoryleak , de algum processo que nao é derrubado ai da o erro acess memory . tenta assim pra ver se da... hj utilizo assim. tanto pra nfse como pra nfe .. funciona lega l. compNFSe :TACBrNFSe; begin while notas.eof do begin compNFSe := TACBrNFSe.Create(nil); try // faz a transmissao por RPS no .um a um finally FreeAndNil(compNFSe); end; notas.next; end;

Eu na verdade , faço o envio uma por vez . tipo na hoa que meu cliente gera a fatura do serviço . ele ja faz o envio na mesma hora , fazendo o envio um a um , nao faço por lote , ref a try except , nunca tive um problema assim. , o que da pra fazer se vc quizer postar como vc ta fazendo . pra v se da pra te ajudar ... E ref a modo sincrono , entendo que se vc envia , ele tem que te responder ... Adilson Pazzini

Pra mim eles pediram tambem , so enviar o rps pra eles . Seguinte . se vc entrar no site deles . vc tambem tem uma forma de enviar o rps la e inclusive ja ve o retorno por la mesmo . Aqui pra mim . ja ta tudo certo , vc conseguiu enviar pelo demo mesmo ou pela sua aplicação ? ...Ele ja te liberaram tambem no homologacao ?

Pelo que vi é travado no proprio Webserver , seria interessante enviar um email pra eles , perguntado sobre isso , pois nao consegui mesmo informar valor , aliquota de iss pro provedor 4r

Hj comecei fazer testes pra Cidade de Itapetininga , pelo que vi , ele cria um arquivo com o mesmo codigo do protocolo , um com a solicitacao da situação e outro com o retorno , se ta OK ou se nao ta.se tiver com erro , ele parece nao continuar ...

Eu tava utilizando o Danfe pra Fortes Reports , pois o Quick da diferença no meu delphi , mais ainda sim . tambem acabei desenvolvendo um DANFE proprio mesmo . pegando as informações do banco de dados , fiz isso porque o retorno do xml que vem da 4R , não vem a Razao Social do prestador , isso no retorno , entao . fora q se vc fizer a consulta da NFSEporRPS , o retorno do xml , é muito imcompleto , vem so algumas informacoes , mais como o Envio e sincrono . ate agora nao tive que fazer nenhuma NFSEporRPS... ai por isso . acabei desenvolvendo meu Proprio DANFE . Adilson

Entao o Italo . acabou de enviar a correcao , so atualizar o componente novamente que com certeza vai dar certo . Uma diferença que vi ref a producao e homologacao , é que no modo de homologacao ele tava aceitando que fosse informado aliquota do ISS , Base do ISS e valor do ISS , ja pra parte de producao tive que enviar esses campos zerados. isso no meu caso . nao sei no seu . mais qualquer coisa tai a dica . Adilson Pazzini .

Italo , fiz mais algumas alteracoes . pra poder pegar os dados da empresa no retorno do xml , incluir la o procedimento [procedure NFSe_Provedor4R;] e tambem tentei fazer aquele mesmo esquema que vc fez ref a leitura do xml na funcao TNFSeR.LerXml que redireciona pra Funcao TNFSeR.LerRPS mais nao ta dando certo . deixei ai . pra vc analisar e me ajudar . se possivel ... Com a alteracao , fica agora funcionando o cancelamento pra 4rsistemas . Desde ja agradeço .. Adilson PAZZINI . pnfsNFSeR.pas

Osmar nao é nao .. vc deve enviar um email pra To: canal@4rsistemas.com.br Cc: setor.tributos@4rsistemas.com.br Solicitando abertura pra testes no Webserver pra homologacao e producao . se nao me engano vc deve ainda pra que seja aberto pra producao . alguns rps no modo homologacao . vc deve enviar todos os dados da empresa como CNPJ , IM , ENDEREÇO COMPLETO , DADOS DO RESPONSAVEL PELOS TESTES . COM CPF E NOME COM ENDEREÇO TAMBEM . aqui fiz isso e eles me liberaram .. Adilson Pazzini

Não sei se seria nescessario fazer uma função onde reconheça o Provedor pela Cidade .. como esta funcao aqui .. //By Lutzem Massao Aihara if (Leitor.rExtrai(1, 'OrgaoGerador') <> '') then if (Leitor.rCampo(tcStr, 'CodigoMunicipio') = '4119905') then FProvedor := profintelISS;

Voltando ao problema da leitura do XML ref ao provedor 4R .... Italo Bom dia . Seguinte . pelo que percebi , quando busco o xml da NFse do Provedor4R , no pnfsNFSeR.pas ta lendo como se fosse o XML da proSaatri , ai acaba fazendo a leitura do provedorSatri , descobri isso pela funcao abaixo , ai como to vendo que ta sendo atribuido o provedor pela condição de achar o <DeclaracaoPrestacaoServico> e tambem conjunto com o site nfse.goiania .. ai como nao vai existir isso dentro do xml da 4R entao ele ta condicionando pro provedor proSaatri , ai nao sei como faria pra nao a condição que o proSaatri . Veja no que pode me ajudar ... agradeço a ajuda .... function TNFSeR.LerNFSe: Boolean; var ok : Boolean; begin FProvedor := proNenhum; // Alterado por - Cleiver if Pos('<DeclaracaoPrestacaoServico', Leitor.Arquivo) > 0 then begin if Pos('https://nfse.goiania.go.gov.br' Leitor.Arquivo) > 0 then FProvedor := proGoiania else FProvedor := proSaatri; end; 16-nfse.xml

Velho aqui pra mim , deu certo , ref ao xml nos posts acima tem XML do retorno anexado , seria interessante vc enviar o xml de erro de retorno . normalmente volta como 48-lista-nfse.xml onde 48 é o numero do lote .. ai da pra ver o erro que ta vindo la do webserver .

Italo , sera que tem como eu informar alguns dados na propria funcao do cancelamento , como CNPJ , IM , NumNFSe , pois no XML de retorno nao vem essas informacoes ... Caso nao tenha , qual unit eu posso ta mexendo pra ajustar isso ? Desde ja agradeço . Adilson .

Por favor Italo , ajustei algumas dependencias ref ao Delphi 7 no DANFE pra fortes ... tem como atualizar .. Obrigado . Adilson Pazzini ACBrNFSeDanfseRLpkg.rar