Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

raosistemas

Membros
  • Posts

    383
  • Joined

  • Last visited

1 Follower

Contact Methods

  • Website URL
    http://www.raosistemas.com.br

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

raosistemas's Achievements

Rising Star

Rising Star (9/14)

  • Dedicated Rare
  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done

Recent Badges

12

Reputation

3

Community Answers

  1. função que envia as notas selecionadas do grid if cfg.active=false then cfg.Active:=true; cfg.First; numLote := ObterNumeroDoLote; iqtde:=tv1.DataController.GetSelectedCount; showmessage(iqtde.ToString+' Registro(s) Selecionado(s). Lote número: '+numlote.ToString); // limpando as notas fiscais existentes. acbrnfse1.NotasFiscais.Clear; for I := 0 to iqtde-1 do begin linhatv1:=tv1.DataController.GetSelectedRowIndex(i); tv1.DataController.ChangeFocusedRecordIndex(linhatv1); alimentarnfse(notascodnota.AsString,numlote.ToString); end; acbrnfse1.NotasFiscais.Transacao:=true; Response := ACBrNFSe1.Emitir(inttostr(NumLote)); ChecarResposta(Response); for t := 0 to iQtde - 1 do begin // if acbrnfse1.NotasFiscais.Items[t].nfse.Situacao = sLoteNaoRecibo then resplote:='Não Recibo'; // if acbrnfse1.NotasFiscais.Items[t].nfse.Situacao = sLoteNaoProcessado then resplote:='Não Processado'; // if acbrnfse1.NotasFiscais.Items[t].nfse.Situacao = sLoteProcessadoErro then resplote:='Processado com Erros'; // if acbrnfse1.NotasFiscais.Items[t].nfse.Situacao = sLoteProcessadoSucesso then resplote:='Processado com Sucesso'; // if acbrnfse1.NotasFiscais.Items[t].nfse.Situacao = sLoteProcessadoAviso then resplote:='Processado com Avisos'; MemoDados.Lines.Add('RPS Número : ' + ACBrNFSe1.NotasFiscais.Items[t].NFSe.Numero); MemoDados.Lines.Add('Código de Verificação : ' + ACBrNFSe1.NotasFiscais.Items[t].NFSe.CodigoVerificacao); MemoDados.Lines.Add('Lote : ' + response.InfRetorno.NumeroLote);// ACBrNFSe1.NotasFiscais.Items[t].NFSe.NumeroLote); MemoDados.Lines.Add('ID : ' + ACBrNFSe1.NotasFiscais.Items[t].NFSe.InfID.ID); MemoDados.Lines.Add('protocolo: : ' + response.InfRetorno.Protocolo); MemoDados.Lines.Add('Data/Hora Recebimento : ' + formatdatetime('dd/mm/yyyy - hh:nn',ACBrNFSe1.NotasFiscais.Items[t].NFSe.dhRecebimento)); MemoDados.Lines.Add('-------------------------------------------------------------------------'); if notas.Locate('codnota',ACBrNFSe1.NotasFiscais.Items[t].NFSe.InfID.ID,[]) then begin notas.Edit; notasnfs_numero.Value := ACBrNFSe1.NotasFiscais.Items[t].NFSe.Numero.ToInteger(); notasnfs_codigoverificacao.Value := ACBrNFSe1.NotasFiscais.Items[t].NFSe.CodigoVerificacao; notasnfs_id.Value := ACBrNFSe1.NotasFiscais.Items[t].NFSe.InfID.id; notasnfs_lote.Value := response.InfRetorno.NumeroLote.ToInteger;// Lote.ToInteger; //ACBrNFSe1.NotasFiscais.Items[t].NFSe.NumeroLote.ToInteger; notasnfs_protocolo.Value := response.infretorno.Protocolo; // ACBrNFSe1.NotasFiscais.Items[t].NFSe.Protocolo; notasnfs_dhrecebimento.Value := ACBrNFSe1.NotasFiscais.Items[t].NFSe.dhRecebimento; // notasnfs_status.Value := resplote; notas.Post; end; end; end; aqui da um erro de '' is not a valid integer value... como não retorna o lote a função a seguir faz uma consulta pelo numero do lote, acaba não encontrando nada pq não retorna o lote. Protocolo := ''; //notasnfs_protocolo.asstring; lote := notasnfs_lote.AsString; Response := ACBrNFSe1.ConsultarLoteRps(Protocolo, Lote); ChecarResposta(Response); MemoDados.Lines.Clear; for i := 0 to ACBrNFSe1.NotasFiscais.Count -1 do begin if acbrnfse1.NotasFiscais.Items[i].NFSe.Status = srnormal then begin MemoDados.Lines.Add('Status Nfe : Normal'); sstat:='N'; end else begin MemoDados.Lines.Add('Status Nfe : Cancelada'); sstat:='C'; end; MemoDados.Lines.Add('RPS Numero......: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero); MemoDados.Lines.Add('Série RPS.......: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Serie); MemoDados.Lines.Add('NFS-e Numero....: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero); MemoDados.Lines.Add('Cod. Verificacao: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao); MemoDados.Lines.Add('Nome do arquivo.: ' + ACBrNFSe1.NotasFiscais.Items[i].NomeArq); memodados.Lines.Add('----------------------------------------------------------------------'); if notas.Locate('codnota',ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero,[]) then begin notas.Edit; notasnfs_numero.Value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero.ToInteger(); notasnfs_codigoverificacao.value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao; notasnfs_arquivo.Value := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe() + '\' + ACBrNFSe1.NotasFiscais.Items[i].NomeArq; notasnfs_cstat.Value := sstat; // notasnfs_lote.Value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.NumeroLote.ToInteger; notasnfs_dhrecebimento.Value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.DataEmissao; notas.Post; geralink(); end; end; end; a função de consulta pelo RPS funciona, mas não tras mais o numero do lote, que antes trazia também. NumeroRps := notascodnota.asstring; SerieRps := '85'; TipoRps := '1'; // Provedor ISSDSF e Siat if ACBrNFSe1.Configuracoes.Geral.Provedor in [proISSDSF, proSiat] then begin // Utilizado como serie da prestação SerieRps := '99'; end; // Provedor SigEp o Tipo do RPS é diferente if ACBrNFSe1.Configuracoes.Geral.Provedor = proSigep then begin iTipoRps := StrToIntDef(TipoRps, 1); case iTipoRps of 1: TipoRps := 'R1'; 2: TipoRps := 'R2'; 3: TipoRps := 'R3'; end; end; // Provedor Agili o Tipo do RPS é diferente if ACBrNFSe1.Configuracoes.Geral.Provedor = proAgili then begin iTipoRps := StrToIntDef(TipoRps, 1); case iTipoRps of 1: TipoRps := '-2'; 2: TipoRps := '-4'; 3: TipoRps := '-5'; end; end; codverificacao:=''; Response := ACBrNFSe1.ConsultarNFSeporRps(NumeroRps, SerieRps, TipoRps, //NumeroLote, CodVerificacao); ChecarResposta(Response); MemoDados.Lines.Clear; { NFS-e Numero....: 705 Cod. Verificacao: ZKTUTSMR Nome do arquivo.: C:\Users\RAO Sistemas\Desktop\RAO NFSe\respostas\3521060844908000017956000000000000705-nfse.xml Link : Autenticador : Lote : 724937746 Protocolo : 724937746 Data hora Rec. : 06/07/2021 cNFS-e : 0 } for i := 0 to ACBrNFSe1.NotasFiscais.Count -1 do begin if acbrnfse1.NotasFiscais.Items[i].NFSe.Status = srnormal then begin MemoDados.Lines.Add('Status Nfe : Normal'); sstat:='N'; end else begin MemoDados.Lines.Add('Status Nfe : Cancelada'); sstat:='C'; end; MemoDados.Lines.Add('NFS-e Numero....: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero); MemoDados.Lines.Add('Cod. Verificacao: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao); MemoDados.Lines.Add('Nome do arquivo.: ' + ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe() + '\' + ACBrNFSe1.NotasFiscais.Items[i].NomeArq); MemoDados.Lines.Add('Link : ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.Link); MemoDados.Lines.Add('Autenticador : ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.Autenticador); MemoDados.Lines.Add('Lote : ' + response.InfRetorno.NumeroLote); // InformacoesLote.NumeroLote);// ACBrNFSe1.NotasFiscais.Items[i].NFSe.NumeroLote); MemoDados.Lines.Add('situação Lote : ' + SituacaoLoteRPSToStr(ACBrNFSe1.NotasFiscais.Items[i].NFSe.Situacao)); MemoDados.Lines.Add('Data hora Rec. : ' + datetostr(ACBrNFSe1.NotasFiscais.Items[i].NFSe.DataEmissao)); MemoDados.Lines.Add('cNFS-e : ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.cNFSe.ToString); memodados.Lines.Add('---------------------------------------------------------------------'); if notas.Locate('codnota',acbrnfse1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero,[]) then begin notas.Edit; notasnfs_numero.Value := strtoint(ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero); notasnfs_codigoverificacao.value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao; notasnfs_arquivo.Value := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe() + '\' + ACBrNFSe1.NotasFiscais.Items[i].NomeArq; notasnfs_cstat.Value := sstat; // notasnfs_lote.Value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.NumeroLote.ToInteger; notasnfs_dhrecebimento.Value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.DataEmissao; notas.Post; geralink(); end; end; end;
  2. Obrigado Ítalo. não tem alguma solução rapida só pra alterar o charset e exibir corretamente os acentos né?
  3. Boa tarde, mesmo marcada a opção retirar acentos não está ocorrendo a retirada, ao imprimir o documento ficam com caracteres estranho. Se não precisar remover a acentuação melhor, onde posso alterar o Charset?
  4. 3521070844908000017956000000000000709-nfse.xml
  5. Boa tarde, após implementar o nfs-e em alguns clientes, já utilizando o novo componente, alguns estão reclamando que o código do serviço não está sendo exibido na impressão do PDF. Na versão pelo site ele é mostrado logo abaixo do valor total e impostos principais. Também gostaria de saber se há alguma forma de dividir em as linhas da descrição do serviço, na versão oficial é usado o símbolo "|".
  6. Bom dia alguém mais tem algum exemplo MG dessa cfop 1603 que possa me enviar? ainda não consegui solucionar o problema.
  7. Boa tarde, precisa que eu faça algo pra ajudar na solução para impressão do campo de discriminação dos serviços?
  8. Vi que a última atualização do repositório acertou a competência e o Município da prestação do serviço, restando somente o campo de discriminação dos serviços que continua não funcionando.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.