[Minha Pequena Contribuição: Arredondamento Abnt]

alguem fez para delphi

[SIGEP WEB Correios]

bom dia 

qual a utilização e aplicação ?

[Acbrgnre - Problemas na Impressão das Guias]

na guia não é impresso o nome do destinatario, somente o cnpj e municipio, teria como imprimir tambem o nome passado no xml, estava vendo os fontes e não achei como fazer, no arquivo GNRE_GUIA.fr3 tambem não tem como colocar o campo tipo [Guia."razaoSocialDestinatario"] pq não é exportado para a guia. Como iria fazer ?

<c37_razaoSocialDestinatario>DADOS DO DESTINATARIO</c37_razaoSocialDestinatario>

 

[Tabela Com Registros Ean X Ncm]

estava vendo a essa tabela e estava vendo que poderá ter um furo no código de barras.

Imagine que vc tem 4 tipos de amortecedores de carro, todos eles tem a mesma classificação fiscal, mas o código de barras será diferente.

Como poderia tratar esse problema ? 

A ideia é excelente de reunir esses dados, mas fiquei em dúvida quando ao problema acima.

[Retorno diferente do XML na Sefaz/GO - Ambiente de Homologação]

o sefaz esta com problema ja faz algum tempo, somente em ambiente de homologação. Ainda não foi resolvido

 

https://ciranda.me/tsdn/base-de-conhecimento/post/problema-no-ambiente-de-homologacao-de-goias

 

[Erro 12157 Nao Consegue Acesso A Canais Seguros]

1º - Vá até o Painel de Controle do Microsoft Windows:
   Menu Iniciar -> Painel de Controle

2º - Escolha a Opção: Opções da Internet;

3º - Vá até a aba “Avançadas” e, na caixa “Configurações”, vá até as últimas opções (role a barra de rolagem até o final) e:
      a)   Marque a opção: Usar SSL 2.0;
       Desmarque a opção: Usar SSL 3.0;
      c)   Verifique se a opção “Usar TLS 1.0” está marcada. Caso não esteja, marque esta opção;
      d)   Certifique-se de que as opções de TLS 1.1 e 1.2 estejam desmarcadas;
      e)   Aplique as configurações e reinicie a aplicação.

[Erro ao Consultar RPS]

5 horas atrás, Italo Jurisato Junior disse:

Bom dia Fernando,

Se a prefeitura diz que os RPS recepcionados ficam na fila aguardando o processamento e o tempo de espera chega a 5 minutos, quem tem que resolver isso é o provedor e não nós.

Ítalo, nunca disse que vocês tem que resolver isso, eu disse ( Alguém já conseguiu resolver esse problema) ? Como não sei quem utiliza a empresa webiss achei que outras pessoas também estavam passando por esse mesmo problema ou ate mesmo com outros servidores. Como aqui é um fórum achei que poderia fazer esse tipo de pergunta, mas peço desculpas pela minha dúvida. 

[Conciliação Transação TEF]

Caros amigos, alguém ja fez a conciliação Tef no seu sistema de automação

Chega no final do mês pego todas as vendas, a vista, a prazo, parcelado no cartão e faço uma conciliação no meu sistema de automação.

Fazer um serviço de conferência de vendas, pagamentos e cancelamentos de cartões de crédito, debito integrada ao nosso sistema

Saber as vendas recebidas, a receber, antecipações, taxas, despesas e cancelamentos.

Conciliação, entre as (Vendas realizadas) x (Pagamentos):

[Erro ao Consultar RPS]

Pessoal tambem utilizo o webiss em porto nacional, mas não utilizo o acbr para geração das notas, so que a prefeitura esta levando quase 5 minutos para liberação as notas de serviço. Mandei um e-mail para eles e me disseram que as notas entram em fila e vc tem que aguardar a liberação das notas pelo sistema da webiss.

Alguem ja conseguiu resolver esse problema :

[Tef utilizando NFC-e]

Caros amigos, alguém esta utilizando acbr para fazer NFC-e juntamente com TEF ?

Se alguém estiver utilizando como é feito ? 

No modo normal via impressora fiscal o meu esta normal, agora com a NFC-e não sei como será os procedimentos, ja que não tem numero do cupom ainda para geração do Tef.

Como fica a impressão do comprovante da transação do tef ?

[Acbrgnre - Problemas na Impressão das Guias]

20 minutos atrás, johnbh3 disse:

Olá,

Galera deixa eu perguntar no site http://www.gnre.pe.gov.br/gnre/portal/GNRE_Gerar.jsp tem os estados disponiveis.

Então se eu gerar o GNRE pelo ACBr para essas UF's disponiveis no site e legal? Não precisa de nenhuma informação extra a ser adicionada? Tipo chave de nfe, produto.

Basta eu informar conforme o demo (Que é oficial)? Juridicamente valido?  Como dito, já sei que não contempla todas UF's

  with ACBrGNRE1.Guias.Add.GNRE do
  begin
    c01_UfFavorecida := 'PR';
    c02_receita := 100099;
    c28_tipoDocOrigem := 10;
    c04_docOrigem := '777777';
    c06_valorPrincipal := 120.50;
    c14_dataVencimento := Now;
    c15_convenio := '16461313';
    c17_inscricaoEstadualEmitente := '9023725557';
    c33_dataPagamento := Now;
  end;

cada estado tem sua configuração, o demo so faz uma demonstração de como é feito, tem estados que exige informações complementares como numero do danfe e outras informações, tem outros estados que vc tem que informar um produto, cada estado tem sua particularidade. Existem estado que o produto é o mesmo, mas tem outros que o produto muda o nome, então tem que entrar no site e ver qual de adapta mais na sua realidade.

http://www.gnre.pe.gov.br/gnre/portal/GNRE_LoteGerar.jsp

Segue como eu fiz o meu

 

  with ACBrGNRE1.Guias.Add.GNRE do
  begin
    c01_UfFavorecida              := 'PR';
    c02_receita                   := 100099; // codigo da receita
    c28_tipoDocOrigem             := 10;
    c04_docOrigem                 := '253701';
    c06_valorPrincipal            := 1.00;

    if c01_UfFavorecida = 'SC' then
       c10_valorTotal             := 1.00;

    c14_dataVencimento            := Now;
    c15_convenio                  := '16461313'; // codigo do convenio
    c33_dataPagamento             := Now;

    c27_tipoIdentificacaoEmitente := 1; //1 - CNPJ / 2 - CPF
    c03_idContribuinteEmitente    := '11111111111111';
//    c17_inscricaoEstadualEmitente := '102640394';
    c16_razaoSocialEmitente       := 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; // Razão Social
    c18_enderecoEmitente          := 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; // Endereço
    c20_ufEnderecoEmitente        := 'GO'; // Estado
    c19_municipioEmitente         := '08707'; // Codigo do IBGE do Municipio eX: 5208707 devera ser informado somente 08707
    c21_cepEmitente               := '74375740'; // cep do emitente
    c22_telefoneEmitente          := 'XXXXXXXXXX'; // telefone do emitente

    if c01_UfFavorecida <> 'BA' then
     begin
        // dados do destinatario
        c34_tipoIdentificacaoDestinatario := 1; // 1 - CNPJ / 2 - cpf
        c35_idContribuinteDestinatario    := '11111111111111'; // cnpj
        c38_municipioDestinatario         := '05300';  // Codigo do IBGE do Municipio eX: 5208707 devera ser informado somente 08707
        c37_razaoSocialDestinatario       := 'XXXXXXXXXXXXXXXXXXXXXXXX'; // razão social
     end;

    if (c01_UfFavorecida = 'MA') Or // MARANHÃO
        (c01_UfFavorecida = 'MS') Or // MATO GROSSO DO SUL
         (c01_UfFavorecida = 'MG') Or // MINAS GERAIS
          (c01_UfFavorecida = 'BA') Or // BAHIA
           (c01_UfFavorecida = 'CE') Or // CEARÁ
            (c01_UfFavorecida = 'AM') Or // AMAZONAS
             (c01_UfFavorecida = 'RR') Or // RIO GRANDE DO NORTE
              (c01_UfFavorecida = 'PI') Or // PIAUI
               (c01_UfFavorecida = 'TO') Or // PIAUI
                (c01_UfFavorecida = 'AC') then // ACRE
                  c26_produto := 33 // Comercio outros não especificados
    else
    if c01_UfFavorecida = 'AL' then // ALAGOAS
       c26_produto := 45
    else
    if (c01_UfFavorecida = 'PE') Or // PERNAMBUCO
        (c01_UfFavorecida = 'SC') Or // SANTA CATARINA
         (c01_UfFavorecida = 'CE') then // CEARA
           c26_produto := 20;

    if (c01_UfFavorecida = 'MA') Or // MARANHÃO
        (c01_UfFavorecida = 'MS') Or // MATO GROSSO DO SUL
         (c01_UfFavorecida = 'MG') Or // MINAS GERAIS
          (c01_UfFavorecida = 'BA') Or // BAHIA
           (c01_UfFavorecida = 'CE') Or // CEARÁ
            (c01_UfFavorecida = 'AM') Or // AMAZONAS
             (c01_UfFavorecida = 'RR') Or // RIO GRANDE DO NORTE
              (c01_UfFavorecida = 'PE') Or // PERNAMBUCO
               (c01_UfFavorecida = 'SC') Or // SANTA CATARINA
                (c01_UfFavorecida = 'AC') then // ACRE
                  c25_detalhamentoReceita := 12
    else
    if c01_UfFavorecida = 'MT' then // MATO GROSSO
       c25_detalhamentoReceita := 17
    else
    if c01_UfFavorecida = 'TO' then // TOCANTINS
       c25_detalhamentoReceita := 5;

    referencia.mes := '03';
    referencia.ano := 2016;

    // informar numero da nota fiscal eletronica
   if (c01_UfFavorecida = 'MS') Or // MATO GROSSO DO SUL
       (c01_UfFavorecida = 'RS') Or // RIO GRANDE DO SUL
         (c01_UfFavorecida = 'AM') Or // AMAZONAS
          (c01_UfFavorecida = 'RR') Or // RIO GRANDE DO NORTE
           (c01_UfFavorecida = 'PE') Or // PERNAMBUCO
            (c01_UfFavorecida = 'RO') Or // RONDONIA
             (c01_UfFavorecida = 'SC') Or // SANTA CATARINA
              (c01_UfFavorecida = 'AP') Or // AMAPA
               (c01_UfFavorecida = 'TO') Or // AMAPA
                (c01_UfFavorecida = 'AC') then
             begin
                camposExtras.Add;
                camposExtras.Items[0].campoextra.tipo   := 'T';
                camposExtras.Items[0].campoextra.valor  := '52160374115163000156550010002537011002537011';

                if (c01_UfFavorecida = 'MS') then // MATO GROSSO DO SUL
                   camposExtras.Items[0].campoextra.codigo := 27
                else
                if c01_UfFavorecida = 'RS' then
                   camposExtras.Items[0].campoextra.codigo := 74
                else
                if c01_UfFavorecida = 'AM' then
                   camposExtras.Items[0].campoextra.codigo := 12
                else
                if c01_UfFavorecida = 'RR' then
                   camposExtras.Items[0].campoextra.codigo := 36
                else
                if c01_UfFavorecida = 'PE' then
                  begin
                   camposExtras.Items[0].campoextra.codigo := 09;

                   camposExtras.Add;
                   camposExtras.Items[1].campoextra.codigo := 04;
                   camposExtras.Items[1].campoextra.tipo   := 'T';
                   camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;

                  end
                else
                if c01_UfFavorecida = 'RO' then
                   camposExtras.Items[0].campoextra.codigo := 83
                else
                if c01_UfFavorecida = 'AC' then
                  begin
                   camposExtras.Items[0].campoextra.codigo := 76;

                   camposExtras.Add;
                   camposExtras.Items[1].campoextra.codigo := 68;
                   camposExtras.Items[1].campoextra.tipo   := 'T';
                   camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;
                  end
                else
                if c01_UfFavorecida = 'TO' then
                  begin
                   camposExtras.Items[0].campoextra.codigo := 80;

                   camposExtras.Add;
                   camposExtras.Items[1].campoextra.codigo := 72;
                   camposExtras.Items[1].campoextra.tipo   := 'T';
                   camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;
                  end
                else
                if c01_UfFavorecida = 'SC' then
                      camposExtras.Items[0].campoextra.codigo := 84
                else
                if c01_UfFavorecida = 'AP' then
                      camposExtras.Items[0].campoextra.codigo := 47;
             end
   else
    if c01_UfFavorecida = 'MG' then
       begin
          camposExtras.Add;
          camposExtras.Items[0].campoextra.codigo := 45; // 45; // minas gerais, ler o manual gnre
          camposExtras.Items[0].campoextra.tipo   := 'T';
          camposExtras.Items[0].campoextra.valor  := c16_razaoSocialEmitente;
       end
    else
    if c01_UfFavorecida = 'PR' then
       begin
          camposExtras.Add;
          camposExtras.Items[0].campoextra.codigo := 57;
          camposExtras.Items[0].campoextra.tipo   := 'T';
          camposExtras.Items[0].campoextra.valor  := c16_razaoSocialEmitente;

          camposExtras.Add;
          camposExtras.Items[1].campoextra.codigo := 57;
          camposExtras.Items[1].campoextra.tipo   := 'T';
          camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;
       end
    else
    if c01_UfFavorecida = 'AL' then
       begin
          camposExtras.Add;
          camposExtras.Items[0].campoextra.codigo := 65;
          camposExtras.Items[0].campoextra.tipo   := 'T';
          camposExtras.Items[0].campoextra.valor  := c16_razaoSocialEmitente;

          camposExtras.Add;
          camposExtras.Items[1].campoextra.codigo := 65; // 45; // minas gerais, ler o manual gnre
          camposExtras.Items[1].campoextra.tipo   := 'T';
          camposExtras.Items[1].campoextra.valor  := c16_razaoSocialEmitente;
       end
  end;
 

Segue demo completo que estou utilizando

Delphi.zip

[Acbrgnre - Problemas na Impressão das Guias]

Em 05/04/2016 at 17:43, Marcelo Calvi Belanga disse:

@Fernando Rodrigo Você está usando o Fast ou Fortes report?

Fastreport

[Acbrgnre - Problemas na Impressão das Guias]

Marcelo, não tive nenhum problema em nenhum estado, ja fiz as guias nos estados de (PR,MT,MA,MS,AL,AM,RS,RR,ES,RS,AC,PE,RO,SC,BA,AP,PA,PI,TO) e nenhum tive problema.

São Paulo e Rio não gera, minhas deu um afalha no xml mas acho que é erro deles. O resto fiz tudo normal, claro que tem alguns estados que tem algumas particularidades, tipo observação obrigatorio, codigo do produto que outro estados não é exigito, numero do danfe, em alguns estado não é obrigatorio e outros são.

[Acbrgnre - Problemas na Impressão das Guias]

O meu gero dessa forma

 

    if ACBrGNRE1.Enviar(False) then
    begin
      ACBrGNRE1.GuiasRetorno.Clear;
      ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.PathArqTXT + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt');
      TACBrGNREGuiaFR(ACBrGNRE1.GNREGuia).FastFile := ExtractFilePath(CONF_NFEDANFE_NFE.AsString) + 'GNRE_GUIA.fr3' ;

      ACBrGNRE1.GuiasRetorno.Imprimir;

      ACBrGNRE1.GuiasRetorno.ImprimirPDF;

    end;
 

[Acbrgnre - Problemas na Impressão das Guias]

esta normal agora que mudei o path do fastreport que estava apontando para o antigo ainda

[Acbrgnre - Problemas na Impressão das Guias]

Fiz dessa forma que vc me passou João 

Se colocar o componente ACBrGNREGuiaFR1 no formulário pode ser um form que não tem nada, quando vc executa ele da um erro abaixo em anexo

Ja desinstalei todo o componente e instalei novamente, ja instalei o fastreport 4.0 e o 5.0 e continua o mesmo erro

Essa propriedade que esta dizendo não existir, ele exista normal quando vc abre o componente 

 

 

Estava fazendo um negocio errado, a versão 4.0 do fastreport não tem essa propriedade, dai eu desinstalei a versao 4.0 e instalei a versao 5.0 so que o path library path estava setado a versao 4.0 ainda, tinha me esquecido de retirar.

Agora deu certo, fez a impressão correto, com as quebras certinho.

Valeu João pela força

GNRE_GUIA1.pdf

[Acbrgnre - Problemas na Impressão das Guias]

8 horas atrás, joaoagra disse:

Olá, substitua o GNRE_GUIA.fr3  por esse, verifique se resolve.

Ola João, baixei seu arquivo e não esta funcionando da erro de violação.

Veja como estou passando o codigo, segue anexo tambem o arquivo da GNRE que foi gerado

Se colocar o componente tambem da erro, não sei se é a versão do fastreport que estou utilizando

 

 if OpenDialog1.Execute then
  begin
    ACBrGNRE1.GuiasRetorno.Clear;
    ACBrGNRE1.GuiasRetorno.LoadFromFile(OpenDialog1.FileName);
    TACBrGNREGuiaFR(ACBrGNRE1.GNREGuia).FastFile := 'GNRE_GUIA.fr3';
    ACBrGNRE1.GuiasRetorno.Imprimir;
  end;

[Acbrgnre - Problemas na Impressão das Guias]

5 horas atrás, joaoagra disse:

Olá, substitua o GNRE_GUIA.fr3  por esse, verifique se resolve.

Ola João, baixei seu arquivo e não esta funcionando da erro de violação.

Veja como estou passando o codigo, segue anexo tambem o arquivo da GNRE que foi gerado

Se colocar o componente tambem da erro, não sei se é a versão do fastreport que estou utilizando

Uso hoje o FastReport 4

 

 if OpenDialog1.Execute then
  begin
    ACBrGNRE1.GuiasRetorno.Clear;
    ACBrGNRE1.GuiasRetorno.LoadFromFile(OpenDialog1.FileName);
    TACBrGNREGuiaFR(ACBrGNRE1.GNREGuia).FastFile := 'GNRE_GUIA.fr3';
    ACBrGNRE1.GuiasRetorno.Imprimir;
  end;

858500000002010000901609930120160403270026136000-gnre.txt

[Acbrgnre - Problemas na Impressão das Guias]

20 horas atrás, Marcelo Calvi Belanga disse:

Sim

@Fernando Rodrigo, essa quebra de linha de que você está falando, não tem nada a ver com a emissão da Guia....

Exatamente Marcelo, as guias estão sendo geradas normalmente, o problema é na impressão que não faz a quebra de linha

[Acbrgnre - Problemas na Impressão das Guias]

Não marcelo, esta do mesmo jeito, apesar da configuração do componente ter um caractere de separação (quebra de linha) ele não esta respeitando.

vc tambem esta com esse problema ?

[Erro ao instalar Acbr Trunk2]

pessoal de uma olhada no install pq fiz o update e todos os componentes da pasta Acbr\Pacotes\Delphi\ACBrDFe deu erro na instalação.

Estranho pq se vc for um por um (NF-e, Ct-e, MDF-e, GNR-e, Bloco-x) e compilar ele instala normal, mas se usar o install ele da erro nesses componentes, so que não diz nada onde é, so da erro.

Não mudei em nada a configuração do ACBrInstall_Trunk2.ini somente fiz um update e instalei novamente.

Alguem passou por isso ?

[Acbrgnre - Problemas na Impressão das Guias]

O que preciso é ter duas informações complementares na GNRE.

Não é informado da maneira que postei acima ?

Preciso do Numero da NF-e e o nome do destinatario nas informações complementares igual estou fazendo acima.

O trecho do codigo acima não é informado dessa forma ?

 

 

[Acbrgnre - Problemas Com O Exemplo]

Segue exemplo que esta funcionando que eu utilizei para fazer o meu

Delphi.zip

[Acbrgnre - Problemas na Impressão das Guias]

Em alguns estados é obrigatório vc informar a chave da nota fiscal e uma observação conforme abaixo, so que quando é impresso os dados não são impressos corretamente conforme anexo.

Vi que na configuração existe um | de separação so que não esta funcionando.

Como irei fazer para fazer a impressão corretamente uma informado abaixo da outra e não truncado

 

            camposExtras.Add;
            camposExtras.Items[0].campoextra.codigo := 57;
            camposExtras.Items[0].campoextra.tipo   := 'T';
            camposExtras.Items[0].campoextra.valor  := 'JOAOZINHO DE SOUZA';

            camposExtras.Add;
            camposExtras.Items[1].campoextra.codigo := 57;
            camposExtras.Items[1].campoextra.tipo   := 'T';
            camposExtras.Items[1].campoextra.valor  := 'XXXXXXXXXXXXXXXX'; // ID da nf-e

[Acbrgnre - Problemas Com O Exemplo]

estou utilizando o exemplo para fazer as GNRE, onde deveria colocar esse problema ? Que eu saiba não estou infligindo nenhuma regra do fórum.

Veja o nome do Tópico ( Acbrgnre - Problemas Com O Exemplo )