Paulo Henrique de Castro
-
Total de ítens
27 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Paulo Henrique de Castro
-
-
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?
-
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.
-
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.
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.
-
1
-
-
Em 04/03/2016 at 11:20, Wislei de Brito Fernandes disse:
Bom dia,
Eu desenvolvi uma comunicação com a balança rodoviária da Saturno.
Se for de interesse da comunidade, seria bacana adicionar mais este modelo ao repositório.
Segue em anexo a unit ACBrBALSaturno.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 neste link.
Atenciosamente.
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.
-
1
-
-
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.
-
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? -
Ok Paulo, entendi e obrigado pela ajuda.
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.
-
A partir do dia 17/08/2015 não estará mais disponível a versão atual.
Para quem utiliza o serviço de WEB SERVICE, é importante alterar o endereço para:http://wssaojosedoriopardo.simplissweb.com.br/nfseservice.svc
Ola, gostaria de saber como faço a mudança do WebService para este novo acima, provedor SIMPLISS.
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.svcSão José do Rio Pardo
http://wssaojosedoriopardo.simplissweb.com.br/nfseservice.svcAraguari
http://wsaraguari.simplissweb.com.br/nfseservice.svcPatrocínio
http://wspatrocinio.simplissweb.com.br/nfseservice.svc -
Bom dia,
me desculpe a demora hoje que vi que os link não estão baixando os fontes.
segue novamente em anexo.
-
Ola,Gostaria de compartilhar um novo layout de boleto com detalhamento para o FortesReport, este é semelhante a faturas de telefones ou cartão, com detalhamento da fatura. Para disponibilizar eu baixei os fontes ontem dia 23/06/15 e apliquei as mudanças que estou repassando estou disponibilizando aqui.Criei no ACBrBoleto.pas um novo property Detalhamento, este será utilizado para detalhar produto e/ou serviço prestado, ainda foi acrescentado para no novo layout o ‘lFaturaDetal’ na constante TACBrBolLayOut = (lPadrao, lCarne, lFatura, lPadraoEntrega, lFaturaDetal) ;LayoutFaturaDetal foi implementado no FortesReport dentro do ACBrBoletoFCFortesFr.pas e ACBrBoletoFCFortesFr.dfmEm anexo seque a mudança para o novo layout uma pequena mudança para o DEMO para exemplificar o uso e um PDF do boleta detalhada de exemplo.Obs. Esta boleta foi feita para um cliente de nossa cidade que já esta em produção com o Sicoob. Este modelo esta funcional e foi recebido sem problema pelo banco.Desde já agradeço e já peço desculpas se caso estou fazendo este compartilhamento de forma errada.
-
2
-
-
Ola, pessoal
Sobre os dados adicionais impressos usando o FortesReport esta trazendo protocolo de Autorização de Uso, a data e hora. Até vi em alguns postes neste fórum que mencionam este fato, mas não responde algumas indagações como, uma vez que estes dados são impressos no cabeçalho da nota, seria necessário reimprimi-los nos dados adicionais?
Pois em clientes que tem muitos dados adicionais perdemos uma linha, e se esta informação não for necessária poderíamos removê-la.
Alguém por gentileza poderia me informar qual relevância desta mensagem ser impressa nos dados adicionais.
Veja o código em ACBrNFeDANFeRLRetrato.pas -> procedure TfrlDANFeRLRetrato.DadosAdicionais;
// Protocolo de autorização, nos casos de emissão em contingência.
if (FNFe.Ide.tpEmis in [teContingencia, teFSDA, teDPEC, teSVCAN, teSVCRS]) and (FNFe.procNFe.cStat = 100) then
begin
sProtocolo := 'PROTOCOLO DE AUTORIZAÇÃO DE USO: ' +
FNFe.procNFe.nProt + ' ' + DateTimeToStr(FNFe.procNFe.dhRecbto);
InsereLinhas(sProtocolo, iLimiteCaracteresLinha, rlmDadosAdicionaisAuxiliar);
end;
-
Ola, Bom dia
me deparei com um problema na impressão do DANFE usando fortesReport em Contingência SVC-AN e SVC-RS, segue em anexo um pdf com um DANFE de exemplo do problema,
1 - Abaixo da chave de acesso existe um quadro branco por cima do texto. (Este é o RLbCodigoBarrasFS)
2 - No quadro onde esta o Protocolo de autorização de uso, esta vindo em branco
3 - Bande ( rllAvisoContingencia ) esta visível, porém deve ser visível somente para FS-DA
Encontrei o problema no ACBrNFeDANFeRLPaisagem.pas e ACBrNFeDANFeRLRetrato.pas na
procedure TfrlDANFeRLPaisagem.Header; e procedure TfrlDANFeRLRetrato.Header; respetivamente.
veja no trecho abaixo que não são tratados os teSVCAN, teSVCRS, teSVCSP
...
if FNFe.Ide.tpEmis in [teNormal, teSCAN] then
beginif FNFe.procNFe.cStat > 0 thenbeginrllDadosVariaveis1a.Visible := True;rllDadosVariaveis1b.Visible := True;endelsebeginrllDadosVariaveis1a.Visible := False;rllDadosVariaveis1b.Visible := False;end;rlbCodigoBarrasFS.Visible := False;// Alteracao aplicada para corrigir a impressao do protocolo da NFe// quando emitindo DANFE candelado.// Alterado por Jorge Henrique em 22/02/2013if FProtocoloNFe <> '' thenrllDadosVariaveis3.Caption := FProtocoloNFeelserllDadosVariaveis3.Caption := FNFe.procNFe.nProt + ' ' + DateTimeToStr(FNFe.procNFe.dhRecbto);rllAvisoContingencia.Visible := False;rlbAvisoContingencia.Visible := False;endelse if FNFe.Ide.tpEmis in [teContingencia, teFSDA] thenbeginsChaveContingencia := NotaUtil.GerarChaveContingencia(FNFe);rllDadosVariaveis1a.Visible := False;rllDadosVariaveis1b.Visible := False;rlbCodigoBarras.Visible := True;rlbCodigoBarrasFS.Caption := sChaveContingencia;rlbCodigoBarrasFS.Visible := True;rllDadosVariaveis3_Descricao.Caption := 'DADOS DA NF-E';rllDadosVariaveis3.Caption := NotaUtil.FormatarChaveContigencia(sChaveContingencia);rllAvisoContingencia.Caption := 'DANFE em Contingência - ' + 'Impresso em decorrência de problemas técnicos';if (dhCont > 0) and (xJust > '') thenrllContingencia.Caption := 'Data / Hora da entrada em contingência: ' + FormatDateTime('dd/mm/yyyy hh:nn:ss', dhCont) + ' Motivo: ' + xJust;rllAvisoContingencia.Visible := True;rlbAvisoContingencia.Visible := True;endelse if FNFe.Ide.tpEmis = teDPEC thenbeginrllDadosVariaveis1a.Visible := True;rllDadosVariaveis1b.Visible := True;rlbCodigoBarras.Visible := True;rlbCodigoBarrasFS.Visible := False;rllDadosVariaveis3_Descricao.Caption := 'NÚMERO DE REGISTRO DPEC';if FProtocoloNFe <> '' thenrllDadosVariaveis3.Caption := FProtocoloNFeelserllDadosVariaveis3.Caption := FNFe.procNFe.nProt + ' ' + DateTimeToStr(FNFe.procNFe.dhRecbto);rllAvisoContingencia.Caption := 'DANFE em Contingência - DPEC ' + 'regularmente recebida pela Receita Federal do Brasil';if (dhCont > 0) and (xJust > '') thenrllContingencia.Caption := 'Data / Hora da entrada em contingência: ' + FormatDateTime('dd/mm/yyyy hh:nn:ss', dhCont) + ' Motivo: ' + xJust;rllAvisoContingencia.Visible := True;rlbAvisoContingencia.Visible := True;end;...Para resolver acrescentei no primeiro " if " os teSVCAN, teSVCRS, teSVCSP, fiz alguns teste e não notei problemas decorrentes a esta mudança, e resolveu os problemas acima descritos.
if FNFe.Ide.tpEmis in [teNormal, teSCAN, teSVCAN, teSVCRS, teSVCSP] then
begin...Segue em anexo a correção que fiz e o DANFE de exemplo.Desde já agradeço pela atenção.
-
Juliomar obrigado pela atenção, concordo com isto, o curioso é que antes nos já tínhamos este problema e ainda não usávamos o ACBr, então abrimos o fonte do ACBr na época para ver como era feito e vimos um trecho que tinha uma implementação de "time out" que hoje não existe. na época implementei semelhante ao do ACBr e tinha me resolvido o problema, tinha implementado para esperar o retorno 5 minutos se ele consegui-se antes beleza se não ficava aguardando, veja uma parte deste código:
iTimeOut := (tempo parametrizado);
InternetSetOption(nil, INTERNET_OPTION_CONNECT_TIMEOUT, Pointer(@iTimeOut), Sizeof(iTimeOut) );
InternetSetOption(nil, INTERNET_OPTION_SEND_TIMEOUT, Pointer(@iTimeOut), Sizeof(iTimeOut) );
InternetSetOption(nil, INTERNET_OPTION_RECEIVE_TIMEOUT, Pointer(@iTimeOut), Sizeof(iTimeOut) );
Estes trechos não encontrei no ACBr, não sei como funciona hoje, talvez é como você disse não tem como controlar.
uma outra pergunta quando não teve um retorno do cancelamento como o pessoal tem feito, consulta e atualiza o estaus da nota, o pessoal tem enfrentado este problema?
se tiver alguma informação agradeço.
-
Pessoal por favor, preciso saber se existe, se é possível usar time out, um tempo limite para não perder este retorno do cancelamento da NF-e.
-
Ola amigos,
Estou enfrentando um problema no cancelamento por evento, após o envio recebo a mensagem “O tempo limite da operação foi atingido”, neste caso fico sem retorno do cancelamento a nota fica autorizada no meu sistema e cancelada na Sefaz. Antes de implementarmos o ACBr no sistema tínhamos enfrentado o mesmo problema que foi resolvido com “time out” baseado no próprio ACBr, porém agora pelo que tudo indica não estaria mais em uso no ACBr, pois não encontrei no código algo do tipo.
Gostaria de saber se é possível usar time out um tempo limite para não perder este retorno.
Segue abaixo a mensagem mostrada.
O tempo limite da operação foi atingido - URL:https://hnfe.fazenda.mg.gov.br/nfe2/services/RecepcaoEvento - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/RecepcaoEvento
Desde já agradeço pela atenção.
-
Só para registrar aqui no meu caso era falta de registrar capicom.
Talvez ajude alguém.
-
Bom dia Gipidan,
Conseguiu resolver este problema, estou como mesmo erro aparecendo, na minha maquina envio e-mail mas em algumas maquinas aqui na empresa não da certo, já até atualizei o ACBr e não funcionou.
alguém teria alguma ideia do que poderia ser?
-
Obrigado pela ajuda e Desculpa a demora em responder é que estava fazendo testes, retirei tudo do ACBr que estava na maquina, fiz o download novamente do componente e deu tudo certo, o XML por evento esta com a estrutura correta.
Italo muito obrigado mesmo.
Consultar a situação do lote "SIMPLISS"
em ACBrNFSe
Postado
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.