Paulo Henrique de Castro

Italo, agradeço pela ajuda, consegui fazer funcionar o problema estava no arquivo SimpllSS.ini no [GrupoMsgRet], só atualizei o arquivo e funcionou como esperado.

Italo, Fiz o teste com o Configuracoes.WebServices.Salvar true. anexei os retorno aqui. pode ter relação com a tag <ConsultarSituacaoLoteRpsResult> que não existe no XML que foi salvo no arquivo 32900-sit.xml ? 32900-con-sit.xml 32900-con-sit-soap.xml 32900-sit.xml 32900-sit-soap.xml

Italo, Notei também que o XML do retorno de hoje esta diferente do XML da versão 'anterior' esta sem a tag <ConsultarSituacaoLoteRpsResult> Assim o XML fica ilegível correto? 32900-sit.xml 32900-sit_versão anterior.xml

Italo, Sobre a consultar o lote, ser com os parâmetros invertidos eu tinha visto, e creio que esta tudo certo quanto a isso mesmo. Agora eu estou fazendo da seguinte maneira para pegar o retorno: Executo a função abaixo e ela retorna True VarRetornoConsulta := ACBrNFSe.ConsultarSituacao(PROTOCOLO, LOTE); Imediatamente depois tento pegar a situação do lote com a função abaixo mas ela esta vazia, mesmo tendo feito os XML de envio e resposta como anexados acima. VarSituacaoLote := ACBrNFSe.WebServices.ConsSitLoteRPS.Situacao; Então fazendo um debug para tentar encontrar o porque a situação esta vazia, chequei a função "TWebServices.Envia(const ALote: String)" que esta com valor do Alote = 32900 porem este numero é o protocolo e não lote. o numero correto do lote é 12186; Mas não sei se tem relevância para o problema. O provedor é SIMPLISS.

Bom dia Italo, Fazendo um debug notei algo que me chamou a atenção, porem ainda não consegui chegar a raiz do diagnostico. Até não sei se tem relação ou se realmente esta certo, a função "function TWebServices.Envia(const ALote: String): Boolean;" que fica dentro da "ACBrNFSeWebServices" quando executada na pesquisa para pegar o retorno o parâmetro "Alote" está vindo com o numero "32900" que é o protocolo e não o lote que é "12186". verifiquei nas funções "WebServices.ConsultaSituacao(AProtocolo, ANumLote);" e "WebServices.ConsultaLoteRps(ANumLote, AProtocolo);" estou passando os valores corretos de lote e protocolo. Italo desde já agradeço pela atenção. 32900-con-sit.xml 32900-sit.xml

Ola, estou enfrentando um problema no retorno da NFSe da SIMPLISS. O envio dos lotes foram feitos sem problema e no site da prefeitura foi recebidas com sucesso. o problema esta após consultar a situação do lote mediante o numero de protocolo, ao tentar pegar a situação do RPS. Exemplo do que utilizei. acbr.consultarSituacao(Protocolo); // retorna verdadeiro acbr.webServices.consSitLoteRPS.situacao; // Retorna vazio Interessante que teitei em uma versão mais antiga do ACBr de 2 meses atrás funciona. Alguém esta passando por este problema tambem?

Me perdoe acabei criando dois POST iguais minha maquina estava travada acabei clicando novamente e salvando um outro post.

Bom dia, Adaptei comunicação com a balança rodoviária da AFTS . Se for de interesse da comunidade, gostaria de contribuir com este fonte, este foi desenvolvido com base na balança Digitron, fiz alteração retirando a divisão para colocar decimais e invertendo o peso. exemplo: peso lido é de "000100" peso é "1.000" peso lido é de "010100" peso é "1.010" peso lido é de "009100" peso é "1.900" Segue em anexo a unit ACBrBALAFTS.pas e a alteração na ACBrBAL.pas. Se houver a necessidade de alguma modificação fiquem a vontade para me passar ou realizá-las. ACBrBAL.pas ACBrBALAFTS.pas Manual AFTS.pdf Atenciosamente.

Bom dia, Adaptei comunicação com a balança rodoviária da AFTS . Se for de interesse da comunidade, gostaria de contribuir com este fonte, este foi desenvolvido com base na balança Digitron, fiz alteração retirando a divisão para colocar decimais e invertendo o peso. exemplo: peso lido é de "000100" peso é "1.000" peso lido é de "010100" peso é "1.010" peso lido é de "009100" peso é "1.900" Segue em anexo a unit ACBrBALAFTS.pas e a alteração na ACBrBAL.pas. Se houver a necessidade de alguma modificação fiquem a vontade para me passar ou realizá-las. O manual com o protocolo se encontra Atenciosamente. ACBrBALAFTS.pas ACBrBAL.pas Manual AFTS.pdf

Sr. Wislei, parabéns pela implementação, usei este código com uma cliente aqui funcionou perfeitamente. obrigado pela contribuição. espero que este código seja em breve incorporado ao trunk vai ser de grande valia.

Olá pessoal, fico feliz em poder ajudar de alguma forma, sim Inforangra pensei, e, eu já reimplementei para o ACBr Trunk2, ainda dei uma melhorada colocando ‘verso’ para ser impresso junto (impressão do verso é opcional), assim basta imprimir, dobrar e enviar pelo correio, sem uso de envelope, o verso já tem a logo e nome fantasia da empresa emitente. Espero que possa ser compartilhado junto com o ACBr no SVN, se trata de um novo layout de boleto com detalhamento com verso para o FortesReport, este é semelhante a faturas de telefones ou cartão, com detalhamento da fatura Para o Funcionamento do novo layout foi feito os seguintes variáveis na ACBRBoleto TACBrCedente: fFantasiaCedente : string; // Usado para imprimir nome fantasia no verso do boleto TACBrTitulo: fDetalhamento : TStrings; // Lista de informações utilizada para detalhamento de serviço ou produto semelhante a uma conta de telefone. (deixei no exemplo uma forma de colocar “.” (pontos) para o preenchimento ficar uniforme ) fVerso : Boolean; // informa se vai ter impressão do verso do boleto FArquivoLogoEmp :String; // logomarca da empresa para ser impresso no verso do boleto TACBrBolLayOut: TACBrBolLayOut = (lPadrao, lCarne, lFatura, lPadraoEntrega, lFaturaDetal) ; // Acrescentei o “lFaturaDetal” para o novo layout Dentro do ACBrBoletoFCFortesFr criei uma novo layout com nome de LayoutFaturaDetal: TRLReport; Semelhante aos outros já implementados, foram criados procedimentos para preenchimento de campos. Veja no código : procedure LayoutFaturaDetalBeforePrint(Sender: TObject; var PrintIt: Boolean); procedure LayoutFaturaDetalDataCount(Sender: TObject; var DataCount: Integer); procedure LayoutFaturaDetalDataRecord(Sender: TObject; RecNo, CopyNo: Integer; var Eof: Boolean; var RecordAction: TRLRecordAction); procedure RLBand5BeforePrint(Sender: TObject; var PrintIt: Boolean); procedure RLBand6BeforePrint(Sender: TObject; var PrintIt: Boolean); procedure RLBand7BeforePrint(Sender: TObject; var PrintIt: Boolean); procedure Verso; Estou aproveitando para repassar as mudanças feitas para o Trunk2. Juliana Tamizou peço, por gentileza se puder subir os fontes, fico muito grato. Exemplo_boleto.pdf Demo_Boleto_Novo_Layout_Delphi.rar Novo_layout_com_forteReport.rar

Ola, pessoal, Pelo que li e pude ver, este novo campo CEST só foi implementado no Trunk2. No meu caso eu não posso atualizar na minha aplicação para o Trunck2. Bem sei que fazer modificação no "Trunk" é complicado pelo tempo gasto, dificuldade de subi códigos de versão antiga... bom perguntar não ofende!!! Qual será a possibilidade de ter este campo CEST no "Trunk"?

Estou com uma duvida decorrente da NF-e por conta de uma Nota Técnica de 2015/002. Dos assuntos tratados na NT destaca-se: “ A. Consulta Situação da Nota Fiscal Limitado o prazo da consulta ao Web Service de Consulta Situação para 180 dias da data de emissão da Nota Fiscal Eletrônica. Alterada também a resposta desta consulta, retornando unicamente os eventos de Cancelamento, Carta de Correção e EPEC.” O que me chamou a atenção nesta parte deste documento que diz: “04. Serviço: Consulta Situação da Nota Fiscal (item 4.5 do MOC) 04.1 Sobre o Processamento da Consulta Na resposta do Web Service de Consulta Situação da Nota Fiscal deverão ser retornados unicamente os Eventos de Cancelamento, Carta de Correção e EPEC, reduzindo o tamanho da mensagem de resposta da SEFAZ Autorizadora e reduzindo também o tempo de resposta para esta consulta.” Estou com duvidas se terá impacto no retorno obtido após envio pelo componente ACBr. Aqui não deixa claro quais dados serão retornados. Se alguém já teve acesso a esta NT? Poderia me ajudar com esta duvida? NT2015.002_v1.00_WS_Consulta_Situação_Outros.pdf

Disponha sempre bom poder ajudar, tomara que esta modificação possa ser colocada nos fontes para uma próxima atualização já esta disponível.

Ola IrLucas, pelo que vi não é só a cidade de São José do Rio Pardo que teve esta alteração, já existe no ACBr algumas com o provedor SIMPLISS que estão nesta nova nomenclatura, hoje fiz alteração para que funcione para cidade de Araguari, Patrocínio, São João da boa vista e São José do Rio Pardo, pois as URL destas já foram disponibilizadas pelo provedor SimplISS. já aproveitando eu gostaria de disponibilizar a alteração que fiz nas URL para WEBService destas cidades acima. esta alteração foi feita hoje dia 12/08/2015 com a versão mais recente do ACBr, A alteração foi feita no pacote ACBr_NFSe.dpk -> ACBrProvedorSimplISS.pas São João da boa vista http://wssaojoao.simplissweb.com.br/nfseservice.svc São José do Rio Pardo http://wssaojosedoriopardo.simplissweb.com.br/nfseservice.svc Araguari http://wsaraguari.simplissweb.com.br/nfseservice.svc Patrocínio http://wspatrocinio.simplissweb.com.br/nfseservice.svc ACBrProvedorSimplISS.pas