abinoan
-
Total de ítens
67 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por abinoan
-
-
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;begincase Acao ofacRecepcionar: 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 modificadaacCancelar: 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;begincase Acao ofacRecepcionar: Result := '</' + Prefixo3 + 'EnviarLoteRpsEnvio>';acConsSit: Result := '</' + Prefixo3 + 'ConsultarSituacaoLoteRpsEnvio>';acConsLote: Result := '</' + Prefixo3 + 'ConsultarLoteRpsEnvio>';acConsNFSeRps: Result := '</' + Prefixo3 + 'ConsultarNfseRpsEnvio>';acConsNFSe: Result := '</' + Prefixo3 + 'ConsultarNfseServicoPrestadoEnvio>'; // *** essa linha foi modificadaacCancelar: 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 modificadaDadosMsg +DadosSenha +'</ws:consultarNfseServicoPrestado>' + // **** essa linha modificada'</soapenv:Body>' +'</soapenv:Envelope>';4) function TProvedorFiorilli.GetSoapAction(Acao: TnfseAcao; NomeCidade: String): String;consturlsoap = 'http://ws.issweb.fiorilli.com.br/';begincase Acao ofacRecepcionar: Result := urlsoap + 'recepcionarLoteRps';acConsSit: Result := urlsoap + 'consultarSituacaoLoteRps';acConsLote: Result := urlsoap + 'consultarLoteRps';acConsNFSeRps: Result := urlsoap + 'consultarNfsePorRps';acConsNFSe: Result := urlsoap + 'consultarNfseServicoPrestado'; // **** essa linha modificadaacCancelar: 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"?>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.
-
É 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.
Importacao Xml
em ACBrNFe
Postado
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?