IgorAcertSoft

Terça as 15:03

Postei no tópico errado, desculpe.

18 Março

apos instalação ele pede para informar cnpj e ponto de captura ai apresenta este erro

Apos clicar em ok abre a tela abaixo, como devo proceder? os passos foram realizados conforme manual da paygo.

18 Março

Não existe outra forma?? Pois hoje se torna inviável termos de passar cliente por cliente, tendo de fazer ativação.

18 Março

Bom dia, seguimos as instruções relativas a instalação em modo silencioso do novo pgweb,
e constatamos mesmo em modo /verysilent a exibição de telas de instalação inclusive pedindo
a tela para informar os dados para instalação do ponto de captura, tem alguma instrução diferente
que precisa ser executada para evitar a exibição destas telas?
estouprocurando aqui no formum mas ainda não localizei algo a respeito, pode ser que estaja fazendo a pergunta errada.
se tiver alguma instrução ou forum que fale a respeito, desde já agradeço.

15 Março

Muito obrigado pela ajuda, deu certo trocar ChaveAcesso por InfID.id, a nota foi cancelada perfeitamente.

15 Março

Acabei de testar mudar ChNFSe := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.ChaveAcesso; para ChNFSe := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; e o mesmo trouxe o valor certo do código de verificação, estou testando para ver porque a chave não esta trazendo.

15 Março

Ele entra na validação do if (ACBrNFSeX1.Configuracoes.Geral.Provedor = proInfisc), mas quando ele faz isso ChNFSe := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.ChaveAcesso; o valor vem em branco

15 Março

Boa tarde Diego,

O trecho que estou com dificuldade seria:

Seria nesta linha em especifico -> ACBrNFSeX1.NotasFiscais.LoadFromString(NFSE_NOTASARQUIVO.Value, False),

Posso garantir que o mesmo XML que te enviei esta na variável NFSE_NOTASARQUIVO.Value.

with Dados do
    begin
      ACBrNFSeX1.NotasFiscais.Clear;
      //CARREGA O XML DA NOTA PELO BANCO
      NFSE_NOTAS.Close;
      NFSE_NOTAS.ParamByName('NUMERONOTA').Value := CodNota;
      NFSE_NOTAS.Open;
      //procura no banco, se não achar procura no arquivo .xml
      if not NFSE_NOTAS.IsEmpty then
        ACBrNFSeX1.NotasFiscais.LoadFromString(NFSE_NOTASARQUIVO.Value, False)
      else
        begin
          MessageBox(0, 'Não foi possível localizar o xml da nota.', 'Aviso', MB_OK+MB_ICONERROR);
          Exit;
        end;

      // Os Provedores da lista requerem que seja informado a chave e o código
      // de cancelamento
      if (ACBrNFSeX1.Configuracoes.Geral.Provedor = proInfisc) and
         (ACBrNFSeX1.Configuracoes.Geral.Versao <> ve201) then
      begin
        {
          A Chave é composta por:
           2 | N |Código IBGE para UF do prestador
          14 | N |CNPJ do prestador
           2 | N |Modelo da nota (valor 98 por padrão)
           3 | C |Série da nota (em maiúsculas, com zeros à direita)
           9 | N |Número da nota (com zeros à esquerda)
           9 | N |Código numérico aleatório
        }
        ChNFSe := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.ChaveAcesso;
        // Codigo de Cancelamento
        // 1 - Erro de emissão
        // 2 - Serviço não concluido
        // 3 - RPS Cancelado na Emissão

        if not(InputQuery('Cancelar NFSe', 'Informe o Código de Cancelamento'+ #13+
                                       '1 - Erro de emissão'+ #13+
                                       '2 - Serviço não concluido'+ #13+
                                       '3 - RPS Cancelado na Emissão'+ #13+
                                       'Digite apenas o número:' +#13, Codigo)) then
          exit;
      end

15 Março

Bom dia Italo,

O xml é o retorno do webservice ao emitir a nota, o provedor é a INFISC, na cidade de Canoas / RS,

o momento que estou tentando usar o LoadFromString é antes de cancelar a nota, pois estou tentando ler o xml da nota validada,

para ai sim passar para o InfCancelamento todas as informações que ele precisa, e por fim executar o ACBrNFSeX1.CancelarNFSe(InfCancelamento),

mas como o LoadFromString não me retorna nada os valores do InfCancelamento estão em branco.

E para chegar a reposta do cancelamento estou usando a função ChecarResposta.

Mas desse jeito que eu faço funciona para todos os outros provedores que trabalho, mas sei que isso pode variar de provedor para provedor.

15 Março

Bom dia Juliomar...

Meu componente já esta configurado, até porque a emissão da nota já esta funcionando normalmente, mas quando eu tento fazer o cancelamento da nota, que a função LoadFromString não me retorna os valores do XML.

14 Março

Boa tarde...

Estou usando a função LoadFromString para carregar um xml para o componente ACBrNFSeX mas o mesmo não esta me retornando as variáveis de dentro do xml.

Teria alguma coisa que posso fazer?

xml exemplo.xml

30 Outubro, 2023

52 minutos atrás, Jhonlenon Ribeiro disse:

Coloquei as tag

<origComb>

<indImport>0</indImport>

<cUFOrig>31</cUFOrig>

<pOrig>0.0043</pOrig>

</origComb>

<origComb>

<indImport>0</indImport>

<cUFOrig>35</cUFOrig>

<pOrig>99.9957</pOrig>

</origComb>

<origComb>

<indImport>1</indImport>

<cUFOrig>31</cUFOrig>

<pOrig>47.7186</pOrig>

</origComb>

<origComb>

<indImport>1</indImport>

<cUFOrig>35</cUFOrig>

<pOrig>52.2814</pOrig>

</origComb>

</comb>

ai emitiu...agora fiquei sem entender....porque a empresa é do Simples Nacional e CSOSN 500

Estávamos com o mesmo problema em um cliente, no meu caso o cliente estava tentando emitir a nota como indFinal = 0 e gerando a rejeição, no nosso caso como foi uma venda para consumidor final, foi alterado o indFinal e emitido a nota. Pelo que percebi essa validação está sendo feita somente quando for material para revenda, mesmo sendo do Simples.

23 Outubro, 2023

Em 11/10/2023 at 15:49, Juliomar Marchetti disse:
troca
QRCode.Encoding  := qrUTF8NoBOM;

Resolvido, foi alterado para qrUTF8oBOM.
Pode fechar o tópico. Obrigado.

11 Outubro, 2023

Boa tarde pessoal,
Estou com um problema a alguns dias sobre a visualização do QRCode na tela, acaba que alguns bancos ele funciona e outros não. Gostaria de ver com vocês se teriam algum outro relato sobre isso ou se meu código estaria com algum parâmetro incorreto, segue o código a baixo:

procedure TDadosTefApi.ACBrTEFAPI1QuandoExibirQRCode(
  const DadosQRCode: String);
var
  QRCode: TDelphiZXingQRCode;
  QRCodeBitmap: TBitmap;
  Row, Column: Integer;
begin
  if not (StatusVenda in [stsAguardandoTEF, stsOperacaoTEF]) then
    StatusVenda := stsAguardandoTEF;

  if (TefConfiguracaoQRCODE.AsInteger = 4) then  // 4 - Imprimir
  begin
    if (DadosQRCode <> '') then
      ImprimirRelatorio( '</ce>'+
                         '<qrcode_largura>8</qrcode_largura>'+
                         '<qrcode>'+DadosQRCode+'</qrcode>'+
                         '</lf>');

    Exit;
  end;
  
  if (DadosQRCode = '') and (FProcessando.pQRCode.Visible) then
    begin
      FProcessando.pQRCode.Visible := False;
      FProcessando.Pix := False;
      FProcessando.AjustaTela;
      Application.ProcessMessages;
      Exit;
    end;

  QRCode := TDelphiZXingQRCode.Create;
  QRCodeBitmap := TBitmap.Create;
  try
    QRCode.Encoding  := qrUTF8NoBOM;
    QRCode.QuietZone := 2;
    QRCode.Data      := widestring(DadosQRCode);

    QRCodeBitmap.Width  := QRCode.Columns;
    QRCodeBitmap.Height := QRCode.Rows;

    for Row := 0 to QRCode.Rows - 1 do
    begin
      for Column := 0 to QRCode.Columns - 1 do
      begin
        if (QRCode.IsBlack[Row, Column]) then
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack
        else
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite;
      end;
    end;
    FProcessando.LabValorPix.Caption    := FormatFloat('R$ 0.00',DadosVendaBalcao.VendasVALOR1.AsCurrency);
    FProcessando.imgQRCode.Picture.Bitmap.Assign(QRCodeBitmap);
    FProcessando.pQRCode.Visible := True;
    FProcessando.Pix := True;
    FProcessando.AjustaTela;
  finally
    QRCode.Free;
    QRCodeBitmap.Free;
  end;

Abaixo segue uma foto do erro:

3 Fevereiro, 2023

18 horas atrás, Italo Giurizzato Junior disse:

Boa tarde Igor,

Favor atualizar os fontes, reinstale o ACBr e faça os testes usando esses 2 XML que você anexou.

Perfeito @Italo Giurizzato Junior, muito obrigado pela sua atenção neste caso.
Podemos encerrar o tópico...

2 Fevereiro, 2023

Em 31/01/2023 at 17:42, Italo Giurizzato Junior disse:

Boa tarde Igor,

Você poderia anexar o XML de uma nota para que eu possa fazer um teste?

Bom dia @Italo Giurizzato Junior posso sim, vou anexar os xmls.
Segue em anexo xml e pdf de antes e depois.

4323013515830700010856000000000000399-nfse.xml-nfse.xml 4323013515830700010856000000000000402-nfse.xml-nfse.xml NFS-e 399.pdf NFSE_402.pdf

30 Janeiro, 2023

Em 27/01/2023 at 15:16, Italo Giurizzato Junior disse:

Boa tarde Igor,

Por favor anexe as units alteradas para que possamos avaliar.

Desde já muito obrigado pela colaboração.

Bom dia @Italo Giurizzato Junior, como explicado a cima, hoje não temos mais esse arquivo alterado, devido a já ter atualizado os fontes do componente e sobrescrito as alterações, para que eu possa lhe encaminhar o arquivo, teria que refazer para poder lhe mandar. As alterações estão descritas no arquivo que anexei no primeiro post, sei que foge do padrão de controle dos fontes de vocês, mas se existisse a possibilidade de alteração com base no arquivo que mandei, seria de suma importância para nossos clientes.

27 Janeiro, 2023

Em 25/01/2023 at 15:02, Italo Giurizzato Junior disse:

Boa tarde Igor,

Todas essas informações constam no XML da nota?

Você chegou a alterar o componente?

Boa tarde @Italo Giurizzato Junior na NFS-e chegamos a alterar e cada vez que tinha que ser atualizado o componente acabávamos tendo que alterar de novo, porém agora com a migração para a NFS-eX optamos por não alterar mais o componente, porém os clientes estão nos questionando, devido a essas informações saírem se impresso o rps pelo site da prefeitura. Por este motivo gostaríamos de ver com vocês se existe a possibilidade de adicionar nos fontes esta alteração, claro, isso se for para agregar com o desenvolvimento do mesmo sem gerar problemas aos demais.

25 Janeiro, 2023

Bom dia colaboradores,

Gostaria de ver com vocês, a possibilidade de fazer uma alteração no modelo de DANFE Fortes, para o provedor Betha, vou encaminhar duas fotos em anexo dos itens, onde uma delas mostra como fica a alteração (igual o que é impresso no site da prefeitura) e a outra como está saindo hoje. Juntamente com as imagens vou anexar um arquivo com o possível código a ser analisado e adicionado ao componente, se viável.

Hoje utilizamos da NFS-eX juntamente com o Fortes para impressão.

Provedor: Betha

Acbr Reposição: 28239

@INSTRUCOES ALTERAR DANFSE FORTES.docx

10 Janeiro, 2023

37 minutos atrás, Diego Foliene disse:

Bom dia @igornunes!
Alguns provedores implementam layout próprio ou implementam o layout da ABRASF, mas alteram a implementação para permitir enviar mais de um serviço.
Para esses provedores você preenche as informações na lista ItemServico.
Este não é o caso do provedor Betha.
Para ele temos uma "gambiarra" onde você lista mais de uma serviço seguindo um formato específico dentro da tag Discriminacao.(geralmente é separando por ponto e vírgula(;)
Para mais detalhes sobre isso, por favor leia:

Perfeito, vou ajustar meu fonte aqui, muito obrigado pela atenção de todos, fórum pode ser dado como resolvido.

10 Janeiro, 2023

17 horas atrás, Italo Giurizzato Junior disse:
Boa tarde Igor,

O XML que você se refere ao componente novo, note que na tag ValorServicos consta o valor 2800.
<ValorServicos>2800</ValorServicos>
Na tag Discriminacao consta o seguinte texto:
<Discriminacao>{[[Descricao=MAO DE OBRA SERVICO][ItemServico=1401][Quantidade=1][ValorUnitario=2800][ValorServico=2800][ValorBaseCalculo=2800][Aliquota=2.01]]}</Discriminacao>
Essa nota pelo que notei tem apenas um serviço no valor de 2800.

Outra coisa importante é que o XML da NFS-e é gerado pelo provedor e não pelo componente.

Logo se a tag Discriminacao que consta no Rps contem 2 ou mais serviços é de se esperar que a mesma tag no XML da NFS-e também contenha os 2 ou mais itens de serviços.

Bom dia @Italo Giurizzato Junior e @Diego Foliene, o componente está sendo alimentado com mais de um item, pois quando clientes de outros provedores como Infisc e IPM geram notas com mais itens aparecem todos, agora quando gero pelo Betha acaba que o componente está agrupando e gerando esse xml com apenas um item somando os valores (como citado pelo italo).

Vou colocar uma parte do código para melhor a visibilidade do entendimento:

9 Janeiro, 2023

Boa tarde,

Alguns dias atualizei um cliente, migrando ele da NFS-e para NFS-eX, e o mesmo me questionou sobre a questão de antes ele poder lançar mais de um item na nota e agora quando ele autoriza fica somente com a descrição do primeiro item e acaba agrupando os valores.

O que pude perceber debugando meu sistema é que eu alimento o componente com todos os itens que o cliente lançou no sistema porém o componente acaba agrupando, coisa que na NFS-e não fazia.
Se for verificar no xml os itens já constam agrupados, porém o componente é alimentado com os itens individualmente.

Gostaria de saber se pode ser alguma configuração que acabei me passando, ou qual seria a sugestão para solucionar este problema.

Provedor: Betha V 1.00
ACBr Reposição: 28104

NFSe Antiga.xml.xml-nfse.xml NFSeX Nova.xml

7 Dezembro, 2022

Boa Tarde @Italo Giurizzato Junior, eu colei as duas mensagens juntas, mas ele traz a msg de erro primeiro 'X202', e após a msg de erro ele traz o aviso. Acredito que o meu problema maior seria o erro 'X202' que não consegui interpretar para corrigir. Gostaria de ver contigo se teria a possibilidade de ver sobre?

5 Dezembro, 2022

Boa Tarde @Italo Giurizzato Junior,

Segue em anexo os arquivos gerados para analise.

78-env-lot-sinc.xml 78-env-lot-sinc-soap.xml 78-lista-nfse-sinc.xml 78-lista-nfse-sinc-soap.xml 4322122963437800012956000000000000078-rps.xml

5 Dezembro, 2022

Bom dia @Italo Giurizzato Junior

Atualizei os fontes e a nota autorizou, porém o sistema está retornando uma mensagem de erro antes da autorização:

Erro(s):
Código : X202
Mensagem: Lista de NFSe não encontrada! (ListaNfse)
Correção:

Logo após essa mensagem acima, ele me retorna outra:

Erro(s):
Código : A0000
Mensagem: Operação efetuada com sucesso
Correção:

Se puder me ajudar, fico grato.

Obrigado.

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por IgorAcertSoft

Sobre nós...

Informação Importante