abinoan

Bom dia, Vi que alguns campos não constam na importação do XML, tais como: pMVAST, pREDBC (Reducao Base de Calculo Icms), pREDBCST (Redução Base de Calculo Icms ST) e outros campos que constam no XML da NFe. É possível disponibilizar esses campos?

Boa tarde. Italo enviei pro seu email a informacao que o pessoal da FIORILLI me enviou em relacao a quantidade de paginas. Na verdade vou enviar pra vc novamente o anexo da lista de NFe. Se você olhar bem , verá que no fim do xml tem uma TAG chamada "PROXIMAPAGINA". Se ela for maior que a pagina enviada para consulta é sinal que teremos que fazer outra consulta com o numero da outra pagina. Vou enviar pro seu email a copia do XML.

- Italo as seguintes mudancas foram realizadas: 1) function TProvedorFiorilli.Gera_TagI(Acao: TnfseAcao; Prefixo3, Prefixo4, NameSpaceDad, Identificador, URI: String): AnsiString; begin case Acao of acRecepcionar: Result := '<' + Prefixo3 + 'EnviarLoteRpsEnvio' + NameSpaceDad; acConsSit: Result := '<' + Prefixo3 + 'ConsultarSituacaoLoteRpsEnvio' + NameSpaceDad; acConsLote: Result := '<' + Prefixo3 + 'ConsultarLoteRpsEnvio' + NameSpaceDad; acConsNFSeRps: Result := '<' + Prefixo3 + 'ConsultarNfseRpsEnvio' + NameSpaceDad; acConsNFSe: Result := '<' + Prefixo3 + 'ConsultarNfseServicoPrestadoEnvio' + NameSpaceDad; // ** linha modificada acCancelar: Result := '<' + Prefixo3 + 'CancelarNfseEnvio' + NameSpaceDad + '<' + Prefixo3 + 'Pedido>' + '<' + Prefixo4 + 'InfPedidoCancelamento' + DFeUtil.SeSenao(Identificador <> '', ' ' + Identificador + '="' + URI + '"', '') + '>'; acGerar: Result := '<' + Prefixo3 + 'GerarNfseEnvio' + NameSpaceDad; acRecSincrono: Result := '<' + Prefixo3 + 'EnviarLoteRpsSincronoEnvio' + NameSpaceDad; end; end; 2) function TProvedorFiorilli.Gera_TagF(Acao: TnfseAcao; Prefixo3: String): AnsiString; begin case Acao of acRecepcionar: Result := '</' + Prefixo3 + 'EnviarLoteRpsEnvio>'; acConsSit: Result := '</' + Prefixo3 + 'ConsultarSituacaoLoteRpsEnvio>'; acConsLote: Result := '</' + Prefixo3 + 'ConsultarLoteRpsEnvio>'; acConsNFSeRps: Result := '</' + Prefixo3 + 'ConsultarNfseRpsEnvio>'; acConsNFSe: Result := '</' + Prefixo3 + 'ConsultarNfseServicoPrestadoEnvio>'; // *** essa linha foi modificada acCancelar: Result := '</' + Prefixo3 + 'Pedido>' + '</' + Prefixo3 + 'CancelarNfseEnvio>'; acGerar: Result := '</' + Prefixo3 + 'GerarNfseEnvio>'; acRecSincrono: Result := '</' + Prefixo3 + 'EnviarLoteRpsSincronoEnvio>'; end; end; 3) function TProvedorFiorilli.GeraEnvelopeConsultarNFSe ficou assim: result := '<?xml version="1.0" encoding="utf-8"?>'+ '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" '+ 'xmlns:ws="http://ws.issweb.fiorilli.com.br/" '+ 'xmlns:xd="http://www.w3.org/2000/09/xmldsig#"> ' + '<soapenv:Header/>' + '<soapenv:Body>' + '<ws:consultarNfseServicoPrestado>' + // **** essa linha modificada DadosMsg + DadosSenha + '</ws:consultarNfseServicoPrestado>' + // **** essa linha modificada '</soapenv:Body>' + '</soapenv:Envelope>'; 4) function TProvedorFiorilli.GetSoapAction(Acao: TnfseAcao; NomeCidade: String): String; const urlsoap = 'http://ws.issweb.fiorilli.com.br/'; begin case Acao of acRecepcionar: Result := urlsoap + 'recepcionarLoteRps'; acConsSit: Result := urlsoap + 'consultarSituacaoLoteRps'; acConsLote: Result := urlsoap + 'consultarLoteRps'; acConsNFSeRps: Result := urlsoap + 'consultarNfsePorRps'; acConsNFSe: Result := urlsoap + 'consultarNfseServicoPrestado'; // **** essa linha modificada acCancelar: Result := urlsoap + 'cancelarNfse'; acGerar: Result := urlsoap + 'gerarNfse'; acRecSincrono: Result := urlsoap + 'recepcionarLoteRpsSincrono'; end; Foi estado e funcionando.

Italo quando o provedor Fiorilli está off recebemos uma mensagem estranha: <?xml version="1.0"?> -<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">-<soap:Body>-<soap:Fault><faultcode>soap:Server</faultcode><faultstring>org.hibernate.exception.GenericJDBCException: GDS Exception. 335544363. no transaction for request</faultstring></soap:Fault></soap:Body></soap:Envelope> Ela é do Provedor deles ou do componente?

Certo meu amigo. Obrigado. Sem o tomador funcionou. Sem a tag realmente não rodou. Agora quando formos consultar um periodo , é certo que teremos varias paginas, mas não sabemos quantas páginas. Como faremos para consultar todas as NFSe geradas no periodo? Temos como saber qtas paginas temos para consultar?

Quando coloquei a Tag <Pagina></Pagina> na unit "pnsfNFSeG" no método "Gera_DadosMsgConsNFSe" após "'PeriodoEmissao>" ai validou o XML e recebi retorno com as NFSe geradas nesse periodo. Precisamos saber quais os provedores que precisam dessa TAG além do padrão ABRASF. A pergunta é. Se cada página vem no maximoi 10 notas, como faremos pra consultar todas no período?

Italo não tou conseguindo gerar corretamento o xML para "ConsultarNfseServicoPrestadoEnvio' segundo a Fiorilli é essa funcao para consultar por periodo. Sõ que o componente nao informa os dados do tomador. Pode me ajudar ? Se agente fizer isso ja daria pra comecar a efetivamente comecar a aplicacao.

Não. É isso mesmo. É que achei estranho esse erro. Vi que no XML que vc enviou nao tem informacoes do Prestador. CNPJ e IE

No seu fonte essa função de consulta ja tem o parâmetro 3 e 4, CNPJ e IE respectivamente? To achando que esse fonte é antigo. Você forçou a atualização do ACBr pelo novo endereço do SNV?

Entendi Italo, mas é por isso mesmo que falei que se colocar StrToIntDef resolvera, afinal nao estariamos mudando nada, so previndo que ocorresse um erro. Afinal StrtoInt e StrToIntDef fazem a mesma coisa. Nao é verdade? A diferenca é que se alguem nao gerará nenhuma mensagem de erro. Italo não estou conseguindo consultar por periodo. "ConsultarNfseEnvio" nao entendi direito, mas parece que não é reconhecido pelo ABRASF . Será que nao deveriamos utilizar "ConsultarNfseServicoPrestadoEnvio" ? . Modifiquei aqui mas gera um erro de recebimento do XML.

Deve ter sido feito em uma do Delphi superior a sua. Abra esse arquivo e vc vai receber em tempo de desing (projeto) essa mensagem. Ignore-a e salve. Ai irá funcionar.

Levando em conta sua informação, não precisará trocar para de tcDatHor para tcDat . Se mudarmos de StrToInt para StrToIntdef('conteudo',0) resolvera o problema como resolveu aqui nos meus testes.

ocorre em data emissao na linha que enviei pra vc. "DataEmissao" unit PCNLeitor.Pas linha 211

Italo quando ao erro que mencionei sobre o erro na impressão descobri o erro: Unit PCNLeitor:Pas => -------------------------- Linha 211 trocado "StrToInt" por "StrToIntDef" pois é esperado hora/hora e está indo apenas como data sem hora e da erro de conversão na formação da Data no ENCODEDATE quando tenta-se converter espaços em branco pra número para formação da hora. ACBrNFSeDANFSeQRRetrato: linha 520 ta dividindo o "valorISS" por 100 o que faz com que seja impresso errado. -------------------------------------- Ela ja tinha sido alterada antes , mas creio que por conta da NFe, visto que nesse componente foram aproveitas units da NFe. qrlValorISS.Caption := DFeUtil.FormatFloat( (FNFSe.Servico.Valores.ValorIss / 100) ); //retirei a divisão e ai imprimiu corretamente.

a opcao de Imprimir DANFSe no Demo pede um XML, qdo informo o XML da NFSe ele da erro. "" not is a integer value

Eu a principio quero imprimir o RPS e depois de receber o retorno OK e o XML da NFSe imprimir a NFSe. O procedimento é esse mesmo ou nao ha imprimissão de NFSe?

Pessoal conseguimos gerar o RPS sem nenhum erro. Para Imprimir o RPS uso essa opcao de DANFENFSe é isso? Quando utilizo essa opcao e aponto o XML o arquivo 336-lista-nfse.xml que é o XML com a NFse da um erro. "" is not a integer value. Alguem ja conseguiu imprimir o RPS?

Segue emal do Carlos da Fiorilli: No post anterior esqueci de colocar. [email protected]

É isso mesmo. Amigo se você quer atendimento rápido fale diretamente com o CARLOS da FIORILLI. Só quando passei a conversar com ele diretamente as coisas começaram a fluir. Antes disso sofri. O componente ainda falta alguns ajustes. O Ítalo é o responsável por esse componente, mas devemos contribuir no que for preciso. olha ai o e-mail dele:

No Demo em Webservices informe a senha e usuario do Provedor que pra testes é : a propriedade no componente é: ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := '01001001000113'; ACBrNFSe1.Configuracoes.WebServices.UserWeb := '123456'; usuario: 01001001000113 senha: 123456

o endereço abaixo não permitira uma conexão. http://201.28.69.146:5663/IssWeb-ejb/IssWebWS/IssWebWS?wsdl a URL seria: http://201.28.69.146:5663/IssWeb-ejb/IssWebWS/IssWebWS Você deve atualizar o ACBr, algumas coisas já foram atualizadas. abraço.

Sim, já tem algumas coisas funcionando. Como Grerar , Enviar e Consultar RPS. Até o momento foi o que testei. Deus permitindo mo domingo darei continuidade nos teste Fiz uma pequena modificação que o Ítalo deve colocar no projeto. Vou baixar seu código pra ver o que vc fez. Um abraco. Tou precisando muito deve provedor funcionando também.

O servidor esteve com problemas esses dias. Vou fazer uns testes, dando algumi problema veremos como o ITALO, que é quem mantém o componente, e vamos contribuir com o que puder com ELE.

Já foram adicionados nos fontes do ACBr pelo ITALO. Atualize o ACBr.

Erra isso mesmo. Muito obrigado.