Ir para conteúdo
  • Cadastre-se

Rodrigo Pachesen ApoioInf.

Membros
  • Total de ítens

    100
  • Registro em

  • Última visita

Posts postados por Rodrigo Pachesen ApoioInf.

  1. Bom Dia Oliveirar.

    Não sei se será aprovador, estou aguardando a repostas da equipe ACBr, mas já estou utilizando a algum tempo. Baixe os fontes e realize testes, se puder criar a leitura de INI adicione os fontes para que possamos realizar testes.

  2. Boa tarde.

    Isso mesmo, utilizo o Delphi 7, conforme orientado no Fórum, estou utilizando somente o ACBrMonitorPlus, criei o XML no meu projeto seguindo as normas do provedor e só utilizei o ACBrMonitorPlus para realizar o processo de envio da NFS-e.

    Acredito que possar ser adicionado funcionalidades, mas de inicio esta atendendo perfeitamente minhas necessidades.

    Atualizei os fontes conforme SVN.

    Arquivos.rar

  3. Boa tarde.
    Conforme minha necessidade gostaria de contribuir aos projetos do ACBr, adicionando no ACBrMonitorPlus, opção para NFS-e.
    Esta versão já estou utilizando em alguns clientes a mais de 2 meses, porém com uma unica cidade.
    Configuração no menu DF-e:
     Na aba Geral, foi adicionado campo "Arquivos INI NFS-e" com os campos "Cidade/Provedor", este vai indicar o diretório onde vai estar o INI das cidades e do provedor, também a opção "Consultar lote após envio".
     Na aba WebService, foi adicionado a aba NFS-e, nele deve ser adicionado a Razão Socila, CNPJ, Inscrição Municipal e IBGE da cidade.
     Na aba E-Mail, também foi adicionado opção para NFS-e igual aos demais.
     Na aba Impressão, foi adicionado a aba NFS-e, onde deve ser adicionado o logo da prefeitura e os dados da prefeitura.
     Na aba diretórios, na opção "Pasta Arquivos Eventos" foi adicionado " - RPS NFSe", para reutilizar este mesmo campo.
     
    Com isso, deve ser adicionado o arquivo de cidades.ini, e o ini de seu provedor, também deve ser adicionado nas pastas de Schemas, os Schemas disponibilizados pela prefeitura.

    Os comandos foram criados seguindo como exemplo os comandos da NF-e:
     NFSe.AssinarNFSe(cArqXML)
     NFSe.EnviarNFSe(cArqXML,nLote,[bAssina],[bImprime],[cImpressora],[bSincrono])
     NFSe.ConsultarLoteRps(cArqXML,nLote,nProtocolo)
     NFSe.ConsultarNFSeporRps(cArqXML,nNumeroRPS, nSerieRPS.AsString,cTipo)
     NFSe.CancelarNFSe(cArqXML,cCodigo,cMotivo)
     NFSe.imprimirnfse(cArqXML,[cImpressora],[nNumCopias],[cCancelada])
     NFSe.imprimirnfsepdf(cArqXML,[cCancelada])
     NFSe.EnviarEmail(cEmailDestino,cArqXML,cEnviaPDF,[cAssunto],[cEmailsCopias],[cAnexos])
     
    Espero que esta contribuição seja aceita pelos administradores, caso precise de algum ajustes podemos providenciar. 
    Para o funcionamento, deve ser criado o XML conforme layout da prefeitura, não foi criado opção para gerar o XML de arquivo INI ou algum outro tipo conforme existe na NF-e.
     

    Arquivos.rar

  4. Boa tarde, também passei por este problema, no meu caso alterei para UTF8 e o problema foi resolvido.

    O que não entendi é se mandar gerar o PDF sai perfeito, já se mandar a imprimir é apresentado o problema com os acentos.

    Anexado os arquivo que foram alterados para UTF-8.

    Arquivos.rar

  5. Boa tarde.

    Estou tendo alguma dificuldade em relação a opção ANSI, não encontrei exatamente de qual versão, mas em algum momento não estava mais respondendo corretamente, utilizo a integração do Delphi com o AcbrMonitorPlus, e conforme orientações no fórum devo marcar a opção ANSI.

    Gerei o seguinte problema, criei uma pasta c:\sistemã e adicionei dentro desta pasta um xml, e solicitei a impressão do DANFE, o monitor retorna erro de arquivo não encontrado. Ex: "c:\Sistem�\...... não encontrado ".

    Somente apos alterar a função de "AnsiToUtf8" para "ACBrAnsiToUTF8" tive sucesso. Anexado o fonte com a alteração.

    ACBrMonitor1.pas

  6. Bom dia.

    Estou compilando o AcbrMonitorPlus utilizando o Lazarus, utilizando por TCP/IP, se ao solicitar para o monitor gerar o PDF ou impressão(DANFE, Boleto, etc) e no fortes gerar alguma exceção no Prepare, esta sendo apresentado um ShowMessage, com isso o monitor fica em pause até que seja dado o OK.

    Considerando a utilização do AcbrMonitorPlus em rede, quando ocorre esta exceção, o monitor paralisa até que seja pressionado o OK, no sistema que realizou a conexão via TCP/IP, fica aguardando(travado) um retorno, e após pressionado o ok, não retorna erro ao gerar o documento.

    Analisando o fonte do Fortes Reports, RLReport na linha 13410 esta o showmessage da exceção, segundo o código poderia criar o evento OnPrepareError e neste realizar um raise do except, retornando até o monitor e o monitor gerando a resposta para a conexão de erro.

    Tive exceção ao gerar o DANFE mas não consegui simular o motivo que gerou a exceção, também consegui gerando um boleto com esta exceção, utilizando o comando  "BOLETO.ConfigurarDados" não enviando nenhuma informação no campo " CodigoCedente=", neste caso corrigi esta informação e o boleto esta funcionando normalmente.

    De momento posso resolver, trocando na minha compilação este showmessage pela raise, mas acredito que deveria ser repensado para o ACBrMonitorPlus como deveria tratar esta exceção.

  7. Bom dia.

    O problema ainda ocorre, a alteração realizada funcionou até a função GerarNomeNFSe, neste função na montagem do nome é realizado utilizando "Poem_Zeros(ANumero, 9)", com isso o número da NFSe 201600000000027 é formatado para 201600000.
     

  8. Ótima observação, acho que foi receio de criar algum problema. Melhor analisando o NomeArq = '' vai utilizar a função CalcularNomeArquivoCompleto, e nesta função vai criar o arquivo com o mesmo nome.

    Retirar o comando abaixo.

    if NomeArq = '' then
    	NomeArq := NFSe.IdentificacaoRps.Numero + NFSe.IdentificacaoRps.Serie + '-rps.xml';

    ACBrNFSeNotasFiscais.pas

  9. Bom dia.

    Iniciando o desenvolvimento da NFS-e, encontrei algumas diferenças em comparação ao ACBRNFe, sei que os projetos são diferentes mas se o comportamento dos objetos forem mais parecidos melhor para todos.

    Na função LoadFromString do NFSe, em comparação com o NF-e, faltou um Result, este retorno é necessário para a função LoadFromFile  atribui nome do arquivo a novas notas inseridas. Tive este problema porque não retornava o nome do arquivo, acredito que realmente esteja faltando.

    Também no mesmo .pas, a segunda sugestão é referente a função "Assinar", realizei uma alteração utilizando como exemplo os fontes do ACBRNFe, realizei vários teste e não tive problema, aguardo avaliação.

    ACBrNFSeNotasFiscais.pas

  10. Objetivo do tópico é que foi Identificado uma situação com problema, como descrito, utilizando o parâmetro NomeLongoNFSe desativado não existe problema, poderia simplesmente ter desativado e continuado meu dia, mas achei importante destacar.

    Realizado a sugestão de correção e anexado.

    Relacionado ao Demo, anexado o font no demo do ACBR que foi adicionado o set dos dados do emitente, também precisei alterar a SSLLib de libOpenSSL para libCapicom mas acho que não é necessário postar.

     

    Frm_Demo_ACBrNFSe.pas

    ACBrNFSe.pas

    ACBrNFSeWebServices.pas

    pnfsConversao.pas

  11. Bom dia.
    No componente NFSe, existe o parâmetro NomeLongoNFSe, se ativado o nome na NFSe é criado com a função GerarNomeNFSe, onde utiliza os dados UF, data emissão, modelo e número para criar o nome, porém estou iniciando o desenvolvimento para NFSe de Gaspar/SC, e o número retornado é maior que um inteiro, EX: "201600000000004", na hora de gerar o nome o número é convertido utilizando StrToIntDef(FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.Numero, 0)) enviando 0 porque gerar exceção.
    Com isso todas os XML da NFSe estão sendo geradas com o mesmo nome.

    Desativei a função e resolvi meu problema, porém existe aqui esta situação.

    Outro problema que passei foi no aplicativo demo do Lazarus de testes, na função ConfiguraComponente tive que setar o CNPJ para funcionar.

     ACBrNFSe1.Configuracoes.Geral.Emitente.CNPJ:= edtEmitCNPJ.Text;
     ACBrNFSe1.Configuracoes.Geral.Emitente.InscMun:= edtEmitIM.Text;
     ACBrNFSe1.Configuracoes.Geral.Emitente.RazSocial:= edtEmitRazao.Text;

    Sem os dados acima não consegui realizar os testes.

  12. Pesquisando no fórum encontrei algumas perguntas sobre se tem a NFS-e no ACBrMonitor PLUS, e a resposta sempre foi não.
    Minha dúvida, existe o projeto para adicionar a funcionalidade NFS-e no ACBrMonitor PLUS? Alguém já esta desenvolvendo? 
    Se sim, alguma previsão? posso ajudar?
    Se não, existe algum motivo, problema ou dificuldade? Posso iniciar este desenvolvimento? Quais dicas, sugestões ou regras preciso saber?
    Ainda não estudei o suficionte o projeto NFS-e, sei que existe vários layout, mas não tenho conhecimento das dificuldades, por isso as perguntas acima.
    Como trabalho com o Delphi 7, e o suporte a esta versão não continuará a partir de agosto, prefiro adicionar a funcionalidade ao ACBrMonitor PLUS.

  13. No exemplo anexada, foi criado um CT-e com vários documentos originários.

    Com isso o bloco "IDENTIFICAÇÃO DO CONJ. TRANSPORTADOR" foi transferido para a segunda página, e conforme código implementado, exite uma instrução para imprimir somente na primeira página.

    Foi retirado a instrução e o problema foi solucionado.

    A principal reclamação foi referente ao nome do motorista, mas todo o bloco não estava sendo impresso.

    Também identifiquei que pode ocorrer o mesmo problema com o bloco de observações e dados específicos do modal rodoviário - lotação, mas não alterei o fonte para estes casos.

    42160309412353000173570010000045811000045816-cte.xml

    ACBrCTeDACTeRLRetrato.pas

    NOVO42160309412353000173570010000045811000045816-cte.pdf

    ANTIGO42160309412353000173570010000045811000045816-cte.pdf

  14. Boa tarde. 

    Me deparei agora a pouco com uma diferença na função inutilização da NF-e utilizando o AcbrMonitor.

    Quando é enviado uma numeração para inutilizar e gerar alguma rejeição, o retorno do AcbrMonitor vem muito simplificado, abaixo um exemplo.
     

    ERRO: Rejeicao: Um numero da faixa ja foi utilizado

    O monitor criou o xml com a seguinte informação

    <?xml version="1.0" encoding="UTF-8"?>
    	-<retInutNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">
    		-<infInut>
    			<tpAmb>2</tpAmb>
    			<verAplic>SVRS201601161002</verAplic>
    			<cStat>241</cStat>
    			<xMotivo>Rejeicao: Um numero da faixa ja foi utilizado</xMotivo>
    			<cUF>42</cUF>
    			<ano>16</ano>
    			<CNPJ>99999999999</CNPJ>
    			<mod>55</mod>
    			<serie>1</serie>
    			<nNFIni>1722</nNFIni>
    			<nNFFin>1722</nNFFin>
    			<dhRecbto>2016-02-04T14:25:09-02:00</dhRecbto>
    		</infInut>
    	</retInutNFe>

    Quando envio o cancelamento e gera uma rejeição retorna todos os dados da rejeição, veja o exemplo abaixo
     

    OK: Lote de Evento Processado
    [CANCELAMENTO]
    Versao=SVRS201601161016
    TpAmb=2
    VerAplic=SVRS201601161016
    CStat=501
    XMotivo=Rejeicao: Prazo de Cancelamento Superior ao Previsto na Legislacao
    CUF=42
    ChNFe=429999999......restante da chave.
    DhRecbto=04/02/2016 14:13:10
    NProt=
    tpEvento=110111
    xEvento=
    nSeqEvento=1
    CNPJDest=
    emailDest=
    XML=<procEventoNFe versao="1.00" xmlns="http://www.portalfiscal.inf.......restante do xml

    Realizei testes no antigo ACBrNFeMonitor e o retorno foi o mesmo.

    Só identifiquei porque estava fazendo alguns teste e necessitava saber qual era o número(CStat) da rejeição.

     

  15. No fonte ACBrETQPpla existe a função ImprimirTexto, hoje existe uma limitação para aceitar subfonte apenas maior que zero e menor que 7.
    Ocorreu um caso que nosso cliente solicitou que a etiqueta fosse impressa com fonte Arial, e após importar a fonte para impressora o valor da subfonte ficou superior a 800.
    Veja a imagem:
    Imagem1Etiqueta.png.7ef1e7c0317ea8868569

     

    Na documentação da linguagem PPLA, diz que ao utilizar fontes PCL é possível tersubfontes com até 3 digitos, segue:

    Imagem2Etiqueta.png.e42811e23db41abbc963

    Realizei a alteração no fonte e já estou utilizando desta maneira a alguns dias perfeitamente.

    Anexado a alteração.

     

     

    ACBrETQPpla.pas

    • Curtir 1
  16. Bom dia.

    No post abaixo, foi implementado a alteração do tamanho do fontes no DANFE Fortes. Nesta alteração foi alterado a Tag dos campos do quadro "Fatura", necessário para identificar quais campos deveria ser ajustado o tamanho do fonte, quando adicionado no SVN faltou os arquivos lfm. Como o post foi encerrado e bloqueado estou criando este novo. Sem estes arquivos no ACBrMonitorPlus não esta funcionando corretamente por ser desenvolvido no Lazarus. Junto foi ajustado levemente o tamanho de alguns campos e no paisagem foi adicionado automaticamente propriedades do componente estas já adicionadas no modo retrato. 

     

     

    ACBrNFeDANFeRLPaisagem.lfm

    ACBrNFeDANFeRLRetrato.lfm

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.