Fernando Rodrigo

alguem fez para delphi

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

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>

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.

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

1º - Vá até o Painel de Controle do Microsoft Windows: Menu Iniciar -> Painel de Controle2º - 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.

Í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.

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):

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 :

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 ?

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

Fastreport

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.

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;

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

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

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;

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

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

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 ?

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 ?

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 ?

Segue exemplo que esta funcionando que eu utilizei para fazer o meu Delphi.zip

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

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 )