adilsonpazzini

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: [email protected] Cc: [email protected] 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

Pode pedir pra enviar novamente , mais corrigindo os campos que estao errados ... pra mim funciona .

Veja no retorno do arquivo . se nao me engano vem a chave da nfe , ai so montar conforme o nome que o acbr monta

Seguinte , ref aos comandos pra envio de email entre outros , hj tem um manual do AcbrNFeMonitor , que vc pode consultar la , e ref a numeracao da NFe , vc mesmo ja informa no aquivo que vc ta enviando , o retorno o que vem é o Protoloco e o Recibo com o Cstat da NFe , se foi aceita ou nao .

Velho , pra qntos terminais sao esta licensa ? e tambem ate qntas sessoes vc consegue abrir por estacao ? Valeu pela informacao .

Velho , tente utilzar o consultarrpspornfse , pois nele vai retornar o nfse pelo numero do rps ... Adilson

Valeu Italo , obrigado pela força e qndo eu tiver mais coisas pra aqui . vou postando aqui . obrigadoo . Adilson

So avisando , a parte do envio RPS Sincrono . ja ta OK . ja estou enviando pela cidade de Tatui , o procedimento ref a NFSeporRPS tambem ja taOK ,o q ainda nao ta certo é o cancelamento , pois o rps de retorno nao vem com os dados do prestador , ai to vendo ainda como resolver . Mais fora isso ja ta OK .. to utilizando o Imprimir pelo comando do Link DANFE . conforme for ajustando vou informando por aqui . e se alguem tambem puder ajudar . agradecemos . ADILSON PAZZINI

Bom dia Pessoal . Italo tem como atualizar a unit da AcbrProvedor4R.pas incluiindo a funcao function TProvedor4R.GetLinkNFSe(ACodMunicipio, ANumeroNFSe: Integer; ACodVerificacao, AInscricaoM: String; AAmbiente: Integer): String; begin if AAmbiente = 1 then//==> Pegandos todas as empresas ... begin case ACodMunicipio of 3127701: Result := 'https://valadares.sistemas4r.com.br/CS/Em_Impressao_Nfe.aspx?id='+ACodVerificacao; 3500105: Result := 'https://adamantina.sistemas4r.com.br/CS/Em_Impressao_Nfe.aspx?id='+ACodVerificacao; 3510203: Result := 'https://capaobonito.sistemas4r.com.br/CS/Em_Impressao_Nfe.aspx?id='+ACodVerificacao; 3523503: Result := 'https://itatinga.sistemas4r.com.br/CS/Em_Impressao_Nfe.aspx?id='+ACodVerificacao; 3554003: Result := 'https://tatui.sistemas4r.com.br/CS/Em_Impressao_Nfe.aspx?id='+ACodVerificacao; else Result := ''; end; end else Result := ''; end; ai é o seguinte . ref ao envio do RPS ja ta tudo OK . tanto em producao qndo em homologacao . o que vou pegar pra ver depois é o cancelamento q agora é o unico q ta faltando . agradeço Adilson Pazzini

isso mesmo . pelo realocate ...

Italo , olha so o xml de retorno que ta sendo gravado , tipo , nao vem com os dados da empresa que emitiu o RPS . Isso é alguma falha em alguma rotina que tem haver com o provedor 4R pois pra GINFES lembro que retornava com essas informações? se vc tiver uma dica de qual unit posso ta ajustando ja ajuda ... Obrigado . Adilson <?xml version="1.0" encoding="UTF-8"?><CompNfse xmlns="http://www.abrasf.org.br/nfse.xsd"><Nfse versao="2.0"> <InfNfse Id="16"> <Numero>16</Numero> <CodigoVerificacao>FFNCFF-000016/2013</CodigoVerificacao> <DataEmissao>2013-06-14T16:03:29</DataEmissao> <NfseSubstituida>0</NfseSubstituida> <OutrasInformacoes /> <ValoresNfse> <BaseCalculo>105.00</BaseCalculo> <Aliquota>3.00</Aliquota> <ValorIss>3.15</ValorIss> <ValorLiquidoNfse>105.00</ValorLiquidoNfse> </ValoresNfse> <ValorCredito>0.00</ValorCredito> <EnderecoPrestadorServico> <Endereco>AVENIDA ANGELO POLES</Endereco> <Numero>558</Numero> <Complemento /> <Bairro>JARDIM TOKIO</Bairro> <CodigoMunicipio>3554003</CodigoMunicipio> <Uf>SP</Uf> <CodigoPais>1058</CodigoPais> <Cep>18279586</Cep> </EnderecoPrestadorServico> <OrgaoGerador> <CodigoMunicipio>3127701</CodigoMunicipio> <Uf>MG</Uf> </OrgaoGerador> <DeclaracaoPrestacaoServico> <InfDeclaracaoPrestacaoServico> <Rps Id="rps65452"> <IdentificacaoRps> <Numero>6545</Numero> <Serie>2</Serie> <Tipo>1</Tipo> </IdentificacaoRps> <DataEmissao>2013-06-14T00:00:00</DataEmissao> <Status>1</Status> <RpsSubstituido> <Numero>0</Numero> <Serie /> <Tipo>0</Tipo> </RpsSubstituido> </Rps> <Competencia>2013-06-14T00:00:00</Competencia> <Servico> <Valores> <ValorServicos>105.00</ValorServicos> <ValorDeducoes>0.00</ValorDeducoes> <ValorPis>0.00</ValorPis> <ValorCofins>0.00</ValorCofins> <ValorInss>0.00</ValorInss> <ValorIr>0.00</ValorIr> <ValorCsll>0.00</ValorCsll> <OutrasRetencoes>0.00</OutrasRetencoes> <ValorIss>3.15</ValorIss> <Aliquota>3.00</Aliquota> <DescontoIncondicionado>0.00</DescontoIncondicionado> <DescontoCondicionado>0.00</DescontoCondicionado> </Valores> <IssRetido>2</IssRetido> <ResponsavelRetencao>0</ResponsavelRetencao> <ItemListaServico>14.01</ItemListaServico> <CodigoCnae>0</CodigoCnae> <CodigoTributacaoMunicipio>4520001</CodigoTributacaoMunicipio> <Discriminacao>servico |377 | 105,00| 1,00;;COND.PAGTO:00-A VISTAORIGEM:01 OS/PED:043480 VENDEDOR:V00003</Discriminacao> <CodigoMunicipio>3554003</CodigoMunicipio> <CodigoPais /> <ExigibilidadeISS>1</ExigibilidadeISS> <MunicipioIncidencia>3554003</MunicipioIncidencia> <NumeroProcesso /> </Servico> <Prestador> <CpfCnpj> <Cpf /> <Cnpj>72883051000209</Cnpj> </CpfCnpj> <InscricaoMunicipal>2560300</InscricaoMunicipal> </Prestador> <Tomador> <IdentificacaoTomador> <CpfCnpj> <Cpf>00000000000</Cpf> <Cnpj /> </CpfCnpj> <InscricaoMunicipal /> </IdentificacaoTomador> <RazaoSocial>ADILSON MARCOS PAZZINI</RazaoSocial> <Endereco> <Endereco>RUA FRATERNO DE MELLO ALMADA</Endereco> <Numero>299</Numero> <Complemento /> <Bairro>VILA CAROLINA</Bairro> <CodigoMunicipio>3522307</CodigoMunicipio> <Uf>SP</Uf> <CodigoPais>0</CodigoPais> <Cep>18207500</Cep> </Endereco> <Contato> <Telefone /> <Email /> </Contato> </Tomador> <Intermediario> <IdentificacaoIntermediario> <CpfCnpj> <Cpf /> <Cnpj /> </CpfCnpj> <InscricaoMunicipal /> </IdentificacaoIntermediario> <RazaoSocial /> </Intermediario> <ConstrucaoCivil> <CodigoObra /> <Art /> </ConstrucaoCivil> <RegimeEspecialTributacao>0</RegimeEspecialTributacao> <OptanteSimplesNacional>2</OptanteSimplesNacional> <IncentivoFiscal>2</IncentivoFiscal> </InfDeclaracaoPrestacaoServico> </DeclaracaoPrestacaoServico> </InfNfse> </Nfse> </CompNfse>