Otimizy

Membros
  • Total de ítens

    44
  • Registro em

  • Última visita

Reputação

0 Neutro

Sobre Otimizy

  • Rank
    Membro

Profile Information

  • Sexo
    Masculino
  • Localização
    Garibaldi

Últimos Visitantes

482 visualizações
  1. NFS-e - Palmeira das Missões - RS

    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
  2. NFS-e - Palmeira das Missões - RS

    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.
  3. Impressão da Danfse - Provedor Infisc via WebService.

    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!
  4. 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?
  5. Campo DiscriminacaoServico para DANFSe.fr3 cortando.

    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.
  6. Campo DiscriminacaoServico para DANFSe.fr3 cortando.

    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
  7. 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
  8. Alterações Infisc, Betha, Tecnos

    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
  9. Muito obrigado! Com as alterações do arquivo abaixo ficou bem rápido e com menos código! Aguardo retorno! ACBrNFeDANFEFRDM.pas
  10. 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!
  11. 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
  12. Novos campos Bloco E310

    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.
  13. Novos campos Bloco E310

    Boa tarde pessoal? Implementada as tags para novo layout do Sped referente a BlocoE310 para 2017! ACBrEFDBloco_E.pas ACBrEFDBloco_E_Class.pas
  14. Boa tarde Italo. Estou com essa mesma Dúvida paulo.bietkoski. Conseguiria me informar qual a postagem referente a este assunto: Obrigado.
  15. Provedor Tecnos

    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 ?