Otimizy

Bom dia! Hoje nos deparamos com o mesmo problema ao fazer a busca de MDFE não encerrados, usando o Demo do ACBR atualizado no ambiente de homologação. Recebemos o erro de "Rejeição: Falha no schema XML.", que como mencionado @Ita Júnior, é gerado pela SEFAZ e a causa pode ser, dados inválidos ou falha no Web Service que não conseguiu identificar corretamente o erro, dai a mensagem Falha no Schema XML. No entanto não identificamos o erro na estrutura e a Sefaz RS esta a dar retorno sobre isso dentro de 5 dias úteis apenas por Email! Em anexo o XML que estamos tentando fazer o envio, caso alguém possa me auxiliar! Pedido de Consulta MDFE não encerrados.xml Pedido de Consulta MDFE não encerrados - SOAP.xml

Realizada alterações para participantes do exterior, o componente estava enviando o COD_MUN como branco onde deve ser 9999999 Em anexo os fontes alterados. ACBrEFDBloco_0_Class.pas

Bom dia. Realizado processo como sugerido em nosso Sistema, testado e funcionando [Envio - Consulta - Cancelamento] Em anexo arquivo Cidades.ini, onde fora adicionado apenas: [4313706] Nome=Palmeira das Missões UF=RS Provedor=Betha Cidades.INI

Boa tarde. Para cidade de Palmeira das Missões - RS, as funcionalidade para NFS-e estão disponíveis ou em andamento nos fontes do ACBR ? Verifiquei no Cidades.ini e não encontrei registro do IBGE da cidade [4313706]. O serviço faz uso do provedor Betha. Obrigado.

Boa tarde Juliomar Marchetti. Entendo... Estou enfrentando um pequeno problema, o retorno do WEbService e Base64, pelo informado, é uma imagem. Mas como converter esse Base64 em .PDF diretamente ? Verifiquei alguns exemplos na Internet mas sem sucesso... Alguém tem alguma sugestão!

Bom dia galera. Ultimamente ,aqui internamente na empresa estamos passando por inúmeras alterações nas Danfse de diversas cidades. Verifiquei em um Layout disponível no link: https://nfse.garibaldi.rs.gov.br/site/wp-content/uploads/2016/12/mconec.pdf [5.2. Impressão e imagem da NFS-e] que temos a possibilidade de fazer o Download do arquivo em Base64, possibilitando a conversão para [Imagem ou PDF]. <?xml version="1.0" encoding="utf-8"?> <pedidoNFSePDF versao="1.0"> <CNPJ>08967207000141</CNPJ> <notaInicial>1000</notaInicial> <notaFinal>1000</notaFinal> <emissaoInicial>2015-04-01</emissaoInicial> <emissaoFinal>2015-04-01</emissaoFinal> <serieNotaFiscal>N1</serieNotaFiscal> </pedidoNFSePDF> <?xml version='1.0' encoding='utf-8'?> <resPedidoLoteNFSePDF versao="1.0" > <CNPJ>08967207000141</CNPJ> <dhRecbto>2015-07-09 10:37:08</dhRecbto> <NFS-ePDF>JVBE(. . . Base64 tem que ser convertido em arquivo em PDF . . .)PYm</NFS-ePDF> <sit>100</sit> </resPedidoLoteNFSePDF> Gostaria de saber se já temos essa possibilidade através do ABCR ou alguma previsão?

Bom dia Juliomar. Perfeito, muito obrigado, irei atualizar os fontes. Referente ao fonte para alterar o .fr3, era para trazer em o Arquivo para edição em runtime, para facilitar a edição do arquivo. Mas tranquilo. Obrigado.

Hoje durante a manhã gerando NFSe na Cidade de Porto Alegre - RS usando o provedor BHISS, na impressão da DANFSe, no campo do 'CodigoMunicipio' do cdsParametros, no método CarregaParametros da Unit: ACBrNFSeDANFSeFR.pas. Estava carregando o nome da cidade para esse campo, porém 'CodigoMunicipio ' deve ler apenas o código Ex: 4314902 Alteração realizada na unit anexada. ACBrNFSeDANFSeFR.pas

Sugiro um ajuste para carregar a Discriminação do Serviço, hoje limitado a 80 caracteres. O problema encontrado foi para o provedor INFISC. Conforme visto no layout da prefeitura de Garibaldi-RS na página 19, o campo de xServ comporta uma String256, porém na Unit: ACBrNFSeDANFSeFR.pas no método CriarDataSetsFrx, a criação do cds cdsItensServico, que contém o campo DiscriminacaoServico, está limitado a 80. Ajustei-o para 256 apenas. Ambos arquivos anexados: https://nfse.garibaldi.rs.gov.br/site/images/downloads/mconec.pdf ACBrNFSeDANFSeFR.pas

Boa tarde! Realizamos alterações para o correto funcionamento da NFSe para os Provedores Betha(Bento Gonçalves), Infisc(Caxias do Sul, Garibaldi) versão 1.10, Tecnos(Flores da Cunha). Os serviços alterados foram Envio, Consulta Situação Lote, Consulta Lote, Consulta NFSe, Cancelamento. Alteramos a montagem do relatório adicionando datasets(transportadora) para o provedor Infisc que permite essas tags. Alteramos a leitura e escrita dos arquivos XML para atender os formatos de cada provedor e suas respectivas versoes. ACBrNFSeDANFSeFR.pas ACBrNFSeWebServices.pas pnfsConversao.pas pnfsLerListaNFSe.pas pnfsNFSeG.pas pnfsNFSeR.pas pnfsNFSeW_Infisc.pas

Muito obrigado! Com as alterações do arquivo abaixo ficou bem rápido e com menos código! Aguardo retorno! ACBrNFeDANFEFRDM.pas

Isto mesmo, debugando o processo de visualização, verificamos que este método é chamado varias vezes pelo fast, o que causa a pintura desnecessária da picture, por isso o bitmap como variável de objeto, para controle. O método PintarQRCode que recebeu o controle é chamado dentro do método frxReportBeforePrint que por sua vez é vinculado ao BeforerPrint no componente frxReport e este é chamado varias vezes pelo FastReport! Espero ter esclarecido!

Realizamos algumas alterações para aprimorar a visualização da NFCe, estavamos com problemas de lentidão, demorava quase dois minutos para visualizar um cupom com 30 itens. Com as alterações do arquivo abaixo conseguimos visualizar quase instantaneamente! Aguardo retorno! ACBrNFeDANFEFRDM.pas

Sim! As tags Antigas foram mantidas e o novo formato é montado a partir de 01/01/2017, conforme codigo abaixo: procedure TBloco_E.WriteRegistroE310(RegE300: TRegistroE300); var intFor: integer; begin if Assigned( RegE300.RegistroE310 ) then begin for intFor := 0 to RegE300.RegistroE310.Count - 1 do begin with RegE300.RegistroE310.Items[intFor] do begin if (Date <= EncodeDate(2016, 12, 31)) then begin Add( LFill('E310') + LFill( Integer(IND_MOV_DIFAL), 0 ) + LFill( VL_SLD_CRED_ANT_DIF,0 ) + LFill( VL_TOT_DEBITOS_DIFAL, 0 ) + LFill( VL_OUT_DEB_DIFAL, 0 ) + LFill( VL_TOT_DEB_FCP, 0 ) + LFill( VL_TOT_CREDITOS_DIFAL, 0 ) + LFill( VL_TOT_CRED_FCP, 0 ) + LFill( VL_OUT_CRED_DIFAL, 0 ) + LFill( VL_SLD_DEV_ANT_DIFAL, 0 ) + LFill( VL_DEDUCOES_DIFAL, 0 ) + LFill( VL_RECOL, 0 ) + LFill( VL_SLD_CRED_TRANSPORTAR, 0 ) + LFill( DEB_ESP_DIFAL, 0 )); end else begin Add( LFill('E310') + LFill( Integer(IND_MOV_DIFAL), 0 ) + LFill(VL_SLD_CRED_ANT_DIF, 0 ) + LFill(VL_TOT_DEBITOS_DIFAL, 0 ) + LFill(VL_OUT_DEB_DIFAL, 0 ) + LFill(VL_TOT_CREDITOS_DIFAL, 0 ) + LFill(VL_OUT_CRED_DIFAL, 0 ) + LFill(VL_SLD_DEV_ANT_DIFAL, 0 ) + LFill(VL_DEDUCOES_DIFAL, 0 ) + LFill(VL_RECOL_DIFAL, 0 ) + LFill(VL_SLD_CRED_TRANSPORTAR_DIFAL, 0 ) + LFill(DEB_ESP_DIFAL, 0 ) + LFill(VL_SLD_CRED_ANT_FCP, 0 ) + LFill(VL_TOT_DEB_FCP, 0 ) + LFill(VL_OUT_DEB_FCP, 0 ) + LFill(VL_TOT_CRED_FCP, 0 ) + LFill(VL_OUT_CRED_FCP, 0 ) + LFill(VL_SLD_DEV_ANT_FCP, 0 ) + LFill(VL_DEDUCOES_FCP, 0 ) + LFill(VL_RECOL_FCP, 0 ) + LFill(VL_SLD_CRED_TRANSPORTAR_FCP, 0 ) + LFill(DEB_ESP_FCP, 0 )); end; end; /// Registros FILHOS WriteRegistroE311(RegE300.RegistroE310.Items[intFor]) ; WriteRegistroE316(RegE300.RegistroE310.Items[intFor]) ; /// RegistroE990.QTD_LIN_E := RegistroE990.QTD_LIN_E + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroE310Count := FRegistroE310Count + RegE300.RegistroE310.Count; end; end; O texto em Negrito é o bloco alterado.

Boa tarde pessoal? Implementada as tags para novo layout do Sped referente a BlocoE310 para 2017! ACBrEFDBloco_E.pas ACBrEFDBloco_E_Class.pas

Boa tarde Italo. Estou com essa mesma Dúvida paulo.bietkoski. Conseguiria me informar qual a postagem referente a este assunto: Obrigado.

Bom dia a todos. Gostaria de saber como o restante do pessoal esta a gerar a Consulta com o WebService para provedor TECNOS, que usa EnvioSincrono. Isso na TRUNK2. O envio faço uso do seguinte método: "ACBrNFSe.EnviarSincrono(pNroLote, False);" Mas a consulta o que estão usando: function ConsultarSituacao(): Boolean; function ConsultarLoteRps(ANumLote, AProtocolo: string): Boolean; function ConsultarNFSeporRps(ANumero, ASerie, ATipo: String): Boolean; function ConsultarNFSe(): Boolean; Alguém tem alguma dica de qual o método mais eficaz para esse Provedor ?

Bom dia Fabio Bacin. Estou com os Fontes atualizados também, estou a Emitir para Bento Gonçalves - RS ("Provedor Betha"). O certificado instalado tem validade até "11.01.2017". O erro é o mesmo. Alguém tem algo sobre o assunto, vou ver o que consigo aqui, qualquer coisa posto aqui.

Boa tarde. Estou com o mesmo problema enviando para TECNOS de FLORES DA CUNHA - RS. O lote é enviado e processado com sucesso, segundo consulta nos dados da prefeitura, porém o erro é o em anexo: A rotina de envio usada = ACBrNFSe.EnviarSincrono(pNroLote, False); Obs: TRUNK2. Já aumentei o TimeOut para 15000, e valores maiores, mas nada, alguém tem alguma dica ?

Boa tarde a todos.... Alguém tem algum parecer de como esta esse erro: Resolvido, em andamento, nada feito ? Obrigado.

Bom dia a todos... Pessoal, vocês estão tendo problemas na consulta para o Provedor TECNOS. Qual a Rotina de consulta que estão utilizando ? Obs: TRUNK2.

Bom tarde galera. Após alguns ajustes: Enviando, consultando e cancelando NFS-e para Caxias Do Sul. Tive que realizar algumas alterações, mas estou disponibilizando-as para que @Italo Jurisato Junior, verifique a integridade das alterações, e futuramente as disponibilize. Se possível ler o arquivo Leia.txt. com especificações que foi alterado e também como realizei o Envio, consulta e cancelamento. Qualquer dúvida, estou a disposição. Att. Alteradas.rar

Qual é a função de consulta que estás usando? Eu estou usando: pNfse.ACBrNFSe.ConsultarNFSe(lDataIni, lDataFim, FSaida.DadosNUM_DUP.AsString, 1,'','','','','','S') após ACBrNFSe.ConsultarSituacao(FSaida.DadosPROTOCOLO.AsString, FSaida.DadosLOTE.AsString). Tu tens a linha em negrito ?, pois tive que adiciona-lá para alimentar a varivável de retorno. ((Provedor in [proISSDSF]) and (Leitor.rExtrai(Nivel, 'ConsultaNFSe', '', i + 1) <> '')) or //ConsultaLote ((Provedor in [proISSDSF]) and (Leitor.rExtrai(Nivel, 'NotasConsultadas', '', i + 1) <> '')) or //ConsultaNFSePorRPS ((Provedor in [proInfisc]) and (Leitor.rExtrai(Nivel, 'resPedidoLoteNFSe', '', i + 1) <> '')) do Após esse processo, o arquivo gerado em: NFSe\Notas tem as seguintes como anexo: Alguma dica ? 52-nfse.xml

Exatamente: Alterei e funcionou porém deu outro erro: proInfisc: begin Gerador.Prefixo := ''; Gerador.wGrupoNFSe('envioLote versao="1.0"'); Gerador.wCampoNFSe(tcStr, '', 'CNPJ' , 01, 14, 1, Cnpj, ''); // Gerador.wCampoNFSe(tcStr, '', 'dhTrans', 01, 19, 1, FormatDateTime('yyyy-mm-dd hh:mm:ss', Now), ''); Gerador.wCampoNFSe(tcDatHor, '', 'dhTrans', 01, 19, 1, Now, ''); Onde o correto seria usar o comentado. Alterei-o e funcionou com os fontes atualizados. Consulta e cancelamento para você estão 100% ?

Bom dia Patrick, você está a Emitir para Caxias com os Fontes do ACBR atualizados ou fez alguma alteração nos códigos ?