Ir para conteúdo
  • Cadastre-se

Fernando Rodrigo

Membros
  • Total de ítens

    487
  • Registro em

  • Última visita

  • Days Won

    3

Posts postados por Fernando Rodrigo

  1. pessoal outro problema que estou tendo,

    toda GNRE que estou enviado esta abrindo uma caixa de mensagem do proprio componente conforme imagem em anexo

    como faço para retirar ? pq o usuario tem que ficar clicando para sair da tela

    depois da tela abre outra com o numero do protocolo e tem que clicar novamente

    Existe alguma maneira de retirar ?

    A mensagem abre quando é enviado a GNRE

    Sem título.png

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

     

     

    Sem título.png

  3. 10 minutos atrás, joaomiler disse:

    Boa Fernando, Resolveu meu problema com o nome do arquivo.

    Referente a questão de salvar somente o TXT sabes a respeito?

    Novamente, muito obrigado.

    acho que não tem como, a não ser que vc faça a alteração no componente, o que eu não aconselho 

  4. rotina para pegar enviar e pegar o txt e fazer a impressão em seguida

     

        if ACBrGNRE1.Enviar(False) then
        begin
          ACBrGNRE1.GuiasRetorno.Clear;
          ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.PathSalvar + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt');
          ACBrGNRE1.GuiasRetorno.Imprimir;
        end;

    • Curtir 1
  5. 17 minutos atrás, Fernando Rodrigo disse:

    Bom dia pessoal, estou testando e enviando algumas GNRE para vários estados e testando para ver quais campos são obrigatórios em cada estado.

    Estou fazendo os testes para o estado do Maranhão e deparei com um erro no componente na unit ACBrGNREGuiaFRFortes.pas

    Na procedure TACBrGNREGuiaFR_Fortes.CarregaDado, esta escrito conforme abaixo, so que o campo vem zerado e esta dando erro de conversão como segue o arquivo em anexo ja da GNRE gerada e validada. Veja que se vc for imprimir utilizando o demo irá dar erro pq o campo DataLimitePagamento esta em preenchido com 00000000 pq não foi preenchido e tambem não é um campo obrigatorio. Para resolver o problema fiz conforme abaixo na linha que estava com problema. Dessa forma se consegue imprimir normal a GNRE. Não achei nenhum tópico referente a esse problema. 

    // LINHA ORIGINAL

    FieldByName('DataLimitePagamento').AsDateTime := StrToDate(FormatarData(DataLimitePagamento));

    // LINHA ALTERADA

    if DataLimitePagamento = '00000000' then
       FieldByName('DataLimitePagamento').AsDateTime := FieldByName('DataVencimento').AsDateTime
    else
       FieldByName('DataLimitePagamento').AsDateTime := StrToDate(FormatarData(DataLimitePagamento));

    858800000008010002991605781300000007033719819004-gnre.txt

    Caminho da unit

    Acbr\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fortes

  6. Bom dia pessoal, estou testando e enviando algumas GNRE para vários estados e testando para ver quais campos são obrigatórios em cada estado.

    Estou fazendo os testes para o estado do Maranhão e deparei com um erro no componente na unit ACBrGNREGuiaFRFortes.pas

    Na procedure TACBrGNREGuiaFR_Fortes.CarregaDado, esta escrito conforme abaixo, so que o campo vem zerado e esta dando erro de conversão como segue o arquivo em anexo ja da GNRE gerada e validada. Veja que se vc for imprimir utilizando o demo irá dar erro pq o campo DataLimitePagamento esta em preenchido com 00000000 pq não foi preenchido e tambem não é um campo obrigatorio. Para resolver o problema fiz conforme abaixo na linha que estava com problema. Dessa forma se consegue imprimir normal a GNRE. Não achei nenhum tópico referente a esse problema. 

    // LINHA ORIGINAL

    FieldByName('DataLimitePagamento').AsDateTime := StrToDate(FormatarData(DataLimitePagamento));

    // LINHA ALTERADA

    if DataLimitePagamento = '00000000' then
       FieldByName('DataLimitePagamento').AsDateTime := FieldByName('DataVencimento').AsDateTime
    else
       FieldByName('DataLimitePagamento').AsDateTime := StrToDate(FormatarData(DataLimitePagamento));

    858800000008010002991605781300000007033719819004-gnre.txt

  7. Para resolver o problema que esta mostrado acima não anexe o componente de impressão da guia automatico, deverá ser feito em tempo de execução. Fazendo dessa forma não irá dar o erro e será impresso normal as guias, conforme abaixo

      ACBrGNRE1.Guias.Clear;
      GerarGNRE;
      ACBrGNRE1.Enviar;

      ACBrGNRE1.GuiasRetorno.Clear;
      ACBrGNRE1.GNREGuia  := ACBrGNREGuiaRL1;
      ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.Pathsalvar + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica+'-gnre.txt');
      ACBrGNRE1.GuiasRetorno.Imprimir;

     

    • Curtir 1
  8. Quais são as configurações de envio que estão enviando, segue o meu de envio so que esta retornando que a inscrição estadual não esta cadastrada, so que ja recebi um e-mail dizendo que esta normal

     

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

     

    Segue e-mail de retorno so site

    Prezados Senhores,
     
    A sua empresa já foi habilitada a usar o WebService da GNRE.
     
    Equipe GNRE
     
  9. 8 minutos atrás, Daniel Simoes disse:

    O correto não seria  654-8 ??

    Daniel juro que não vi esse 8 no cheque, acho que meu óculos esta vencido.

    Te peço mil desculpas por isso, esta normal o componente.

    Estou numa correria tremenda aqui no escritório para liberar uma versão no sistema,

     

    Como faço para trancar o tópico ?

  10. 16 horas atrás, Dangelo2010 disse:

    Estou sim, mais acabei descobrindo que Goiás está fora, não está implementado

    Foi duro então Dangelo, sou de goiania,

    vamos marcar para a gente se encontrar e trocar algumas informações,

    vc esta onde ?

  11. pesquisando no google o erro retornando tem que entrar no site e pedir para habilitar o ambiente para homologação e produção

     

    Agora, Cesar Balbinott disse:

    Para emitir GNRE tem que solicitar o uso do WebService em http://www.gnre.pe.gov.br/gnre/portal/automacao.jsp

    Isso mesmo Cesar, estava vendo o erro agora no google, so que não tem nenhum lugar que diz o que fazer dai a gente fica quebrando a cabeça por coisa simples.

    Ja fiz a solicitação e estou aguardando.

    Existe outro site para fazer para homologação

    http://www.testegnre.pe.gov.br/gnre/portal/automacao.jsp

  12. sempre esta retornando a mesma mensagem de erro que CNPJ não habilitado para emissao da guia

    segue os dados de preenchimento

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

    E gerado 2 arquivos xml com os seguintes retornos

    <ns1:codigo>102</ns1:codigo>

    <ns1:descricao>CNPJ não habilitado para uso do serviço.</ns1:descricao>

    Sem título.png

  13. 9 horas atrás, Juliomar Marchetti disse:

    Verificar o que?

    muito curto o que escreveu!

    So precido de um demo para fazer e imprimir a guia e implementar no meu sistema. Acho que o que vem no acbr não esta funcionando corretamente, se estiver errado por favor anexe o executável ou os fontes para eu testar.

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.