Daniel Fantastsoft

8 Julho, 2015

EMBarbosa eu editei o meu post, há um erro no case.

8 Julho, 2015

Nossa, desculpe pela orelhada.

Acabei passando despercebido por essa regra no manual.

Obrigado EMBarbosae mais uma vez desculpe. :S

@Edit: Mas de toda forma o case ainda está errado por que de acordo com o manual são os valores [00, 01, 02, 03, 06, 07, 08] e no case antigo o 08 está como sdfInutilizado quando deveria estar como sdfEspecial.

8 Julho, 2015

Recentemente meu validador começou a acusar um erro nos registros D100 informando que o COD_SIT deveria ser informado.

Quando parei para avaliar o erro consegui ver que a causa do erro era exatamente por que estava jogando o COD_SIT como sdfEspecial em alguns casos do cadastro das minhas CT-es

Ao depurar o código fonte do arquivo "ACBrEPCBloco_D_Class.pas" eu vi que na função "procedure WriteRegistroD100(RegD010 : TRegistroD010);" havia um erro no case localizado na linha 524.

Corrigi o erro fazendo o case ficar dessa forma:

          case COD_SIT of (Linha 524)
            // Código novo - Alterado por Daniel Rodrigues
            sdfRegular         : strCOD_SIT := '00';
            sdfExtRegular      : strCOD_SIT := '01';
            sdfCancelado       : strCOD_SIT := '02';
            sdfExtCancelado    : strCOD_SIT := '03';
            sdfDenegado        : strCOD_SIT := '04';
            sdfInutilizado     : strCOD_SIT := '05';
            sdfComplementar    : strCOD_SIT := '06';
            sdfExtComplementar : strCOD_SIT := '07';
            sdfEspecial        : strCOD_SIT := '08';

            { Código antigo - Comentado por Daniel Rodrigues
            sdfRegular         : strCOD_SIT := '00';
            sdfExtRegular      : strCOD_SIT := '01';
            sdfCancelado       : strCOD_SIT := '02';
            sdfExtCancelado    : strCOD_SIT := '03';
            sdfComplementar    : strCOD_SIT := '06';
            sdfExtComplementar : strCOD_SIT := '07';
            sdfInutilizado     : strCOD_SIT := '08';}
          end;

Fiz minha alteração referente ao que estava especificado no manual na página 138 (onde informa que o COD_SIT deve ser informado de acordo com a tabela 4.1.2 sendo que a tabela está localizada na página 37)

Segue a tabela 4.1.2:

4.1.2- Tabela Situação do Documento - página 37
Código Descrição
00 Documento regular
01 Escrituração extemporânea de documento regular
02 Documento cancelado
03 Escrituração extemporânea de documento cancelado
04 NF-e ou CT-e – denegado
05 NF-e ou CT-e - Numeração inutilizada
06 Documento Fiscal Complementar
07 Escrituração extemporânea de documento complementar
08 Documento Fiscal emitido com base em Regime Especial ou Norma Específica

Estou mandando meu arquivo .pas como anexo.

Se possível, verifiquem e alterem o fonte principal, seria de muita ajuda.

ACBrEPCBloco_D_Class.pas

14 Agosto, 2014

Nossa... Obrigado Regys, não verifiquei isso... Desculpe pela orelhada :???:

14 Agosto, 2014

Bem, estou tentando enviar uma nota em ambiente de homologação com o Tipo de Emissão igual a 1 (normal), o problema é que está me apresentando o erro:

Falha na validação da Nota 2053

TAG:<ide>ID:B29/xJust(Justificativa de entrada em contigência) - Nenhum valor informado.

Já conferi o XML e o tpEmis informado no mesmo está como 1. Alguém sabe o que pode ser isso? Eu pesquisei e não encontrei nada referente a isso.

Segue em Anexo o XML

31140700843106000157550010000020531000020538-nfe.xml

26 Abril, 2013

Pessoal já consegui resolver

Coloquei o CNPJ do destinatário como 99999999000191

o Campo xNome eu coloquei "NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL"

e o Campo IE eu mandei vazio e passou.

25 Abril, 2013

Pessoal estou tendo um problema no envio de um NF-e em Ambiente de Homologação para MG, estou enviando a nota para a própria empresa emitente da NF-e, que no caso é a empresa em que trabalho, mas no momento da validação sempre me retorna a mensagem: CNPJ Destinatário não cadastrado. Alguém tem alguma ideia do que pode ser? desde já agradeço.

Nota: Já atualizei os componentes e atualizei o Schemas.

2 Abril, 2013

Cancelamento como Evento:

A Secretaria de Fazenda do Estado de Minas Gerais lembra que a partir do dia 31-3-2013 estará desativando o serviço de Cancelamento de Notas Fiscais Eletrônicas que atualmente vem sendo efetuado através do Web Service "NfeCancelamento2" de acordo com a AJUSTE SINIEF 16, DE 28 DE SETEMBRO DE 2012.O referido Cancelamento será realizado exclusivamente por meio do Web Service "RecepcaoEvento". Salientamos que este procedimento aplica-se somente nos casos em que o contribuinte utiliza-se de sistema próprio de emissão da NF-e, o qual deverá atualizá-lo conforme NT 2011/006 disponível no Portal Nacional da NF-e desde Março/2012. Este aviso NÃO se aplica aos contribuintes que utilizam o emissor gratuito de SP, pois este já se encontra atualizado para a funcionalidade de cancelamento como evento.

Li sobre isso ontem no portal da NF-e, e queria perguntar se alguém já viu algo sobre isso. Se já existir algum tópico falando sobre isso me desculpem eu não procurei, está muito corrido aqui, se tiverem alguma informação eu seria grato :3

8 Março, 2013

EMBarbosa, já consegui descobrir qual era o erro, era erro meu. Em meu loop eu estava usando o Registro1300New em toda a repetição, mas não havia percebido, por isso estava gerando as linhas do 1300 em branco. Meu loop percorre dia por dia e por isso gerava uma linha em branco. Me desculpem foi erro meu.

1 Março, 2013

Bem bom dia pessoal, estou passando por um problema que é o seguinte: estou gerando o registro 1300 para posto de combustivel e na hora que mando gravar o arquivo ele está gravando o arquivo com vários registros vazios sendo que não estou informando nenhum valor vazio para o ACBrSPED pelo fonte.

Não sei o que está acontecendo. Alguém já passou por esse tipo de problema??

31 Janeiro, 2013

Olá pessoal, Estou com uma dúvida crucial aqui. Agora é Obrigatório o envio da inscrição Municipal do Tomador?

31 Janeiro, 2013

Italo,

Muito Obrigado agora está funcionando normalmente!

Muito Obrigado! :-P

31 Janeiro, 2013

Eu fiz o teste usando o ConsLote e mandei exibir uma mensagem mostrando as propriedades DadoMsg, RetWS, CabMsg e o Msg.

Apenas o Msg me retornou vazio enquanto os outros me trouxeram exatamente o que esta dentro do XML que eu anexei na primeira mensagem.

31 Janeiro, 2013

Italo,

Eu fiz como você disse, e usei o Msg do Enviar, mas ele me retornou vazio.

31 Janeiro, 2013

Eu estou enviando a nota e me deu erro, este XML é do meu envio não da minha consulta, pois eu não fiz consulta.

31 Janeiro, 2013

Mas de qual propriedade? Há vários Msg

31 Janeiro, 2013

<?xml version='1.0' encoding='UTF-8'?>
<ConsultarLoteRpsResposta xmlns="http://www.abrasf.org.br/nfse.xsd">
  <ListaMensagemRetornoLote>
    <MensagemRetorno>
      <IdentificacaoRps>
        <Numero>30946</Numero>
        <Serie>1</Serie>
        <Tipo>1</Tipo>
      </IdentificacaoRps>
      <Codigo>E54</Codigo>
      <Mensagem>CPF/CNPJ do Tomador (<CPF/CNPJ enviado>) possui mais de uma inscricao municipal, sendo obrigatorio o preenchimento do campo Inscricao Municipal do Tomador.</Mensagem>
    </MensagemRetorno>
  </ListaMensagemRetornoLote>
</ConsultarLoteRpsResposta>

Como faço para ler a informação da tag "Mensagem" pelo componente ACBr??

Estou muito precisando saber disso, se alguém souber, por favor, me ajude!

31 Janeiro, 2013

Estou emitindo as notas para Belo Horizonte

Provedor Abrasf

30 Janeiro, 2013

Também estou tendo o mesmo problema aqui no sistema da minha empresa. No XML não consta nenhum tipo de erro, e a função não retorna nenhum erro também. Gostaria de saber o que está ocorrendo ou o que pode provocar esse tipo de erro para que eu posso solucionar isto o mais rápido possível aqui. O financeiro da empresa precisa de emitir essas notas até amanhã! :???:

4 Setembro, 2012

Bom dia a todos, gostaria de saber como está o andamento desta correção, se será feita ou se já está em processo.

Muito obrigado pela atenção!

22 Agosto, 2012

Sinto muito pela demora, aqui na empresa teve alguns problemas que precisaram da minha atenção dai não pude voltar aqui no fórum...

Mas já está ai a Unit!

ACBrBancoItau.pas

7 Agosto, 2012

Estava trabalhando com o componente ACBrBoleto para o banco itaú e me deparei com a seguinte situação:

Mandei o arquivo de remessa para o banco com todos os dados corretamente, no retorno o banco disponibilizou um PDF para mim, no qual o DAC do "Nosso Número" veio como 6, e no gerado pelo sistema estava como 8. Consultei o suporte do banco e ele me informou que no caso da carteira '112' (que é o meu caso) a impressão do boleto é pelo banco e não pela empresa e nisso é desconsiderado a agencia e a conta na hora do calculo do DAC.

Tomei a liberdade a alterei o código fonte na parte onde é feito a montagem da string para se fazer o calculo do digito verificador

antes estava assim

function TACBrBancoItau.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String;

var

  Docto: String;

begin

   Result := '0';

   Docto := '';


   with ACBrTitulo do

   begin

     Docto := Carteira + padR(NossoNumero,TamanhoMaximoNossoNum,'0');

     if not ((Carteira = '126') or (Carteira = '131') or (Carteira = '146') or

             (Carteira = '150') or (Carteira = '168')) then

         Docto := ACBrBoleto.Cedente.Agencia + ACBrBoleto.Cedente.Conta + docto

     else

       Docto := ACBrTitulo.ACBrBoleto.Cedente.Agencia +

                ACBrTitulo.ACBrBoleto.Cedente.Conta +

                ACBrTitulo.Carteira +

                padR(ACBrTitulo.NossoNumero,TamanhoMaximoNossoNum,'0')

   end;


   Modulo.MultiplicadorInicial := 1;

   Modulo.MultiplicadorFinal   := 2;

   Modulo.MultiplicadorAtual   := 2;

   Modulo.FormulaDigito := frModulo10;

   Modulo.Documento:= Docto;

   Modulo.Calcular;

   Result := IntToStr(Modulo.DigitoFinal);


end;

com minha alteração ficou assim:

function TACBrBancoItau.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String;

var

  Docto: String;

begin

   Result := '0';

   Docto := '';


   with ACBrTitulo do

   begin

      Docto := Carteira + padR(NossoNumero,TamanhoMaximoNossoNum,'0');

      if not (Carteira = '112') then

        if not ((Carteira = '126') or (Carteira = '131') or (Carteira = '146') or

               (Carteira = '150') or (Carteira = '168')) then

           Docto := ACBrBoleto.Cedente.Agencia + ACBrBoleto.Cedente.Conta + docto

        else

           Docto := ACBrTitulo.ACBrBoleto.Cedente.Agencia +

                    ACBrTitulo.ACBrBoleto.Cedente.Conta +

                    ACBrTitulo.Carteira +

                    padR(ACBrTitulo.NossoNumero,TamanhoMaximoNossoNum,'0')

   end;


   Modulo.MultiplicadorInicial := 1;

   Modulo.MultiplicadorFinal   := 2;

   Modulo.MultiplicadorAtual   := 2;

   Modulo.FormulaDigito := frModulo10;

   Modulo.Documento:= Docto;

   Modulo.Calcular;

   Result := IntToStr(Modulo.DigitoFinal);


end;

Obrigado pela atenção de vocês!

25 Junho, 2012

Muito Obrigado

22 Junho, 2012

Recentemente gerando o SPED Contribuições de um cliente ocorreu o erro nos registros C481 e C485 onde as Alíquotas e a Base de Calculo estão aparecendo vazias sendo que no fonte estou mandando zerado. Vocês tem alguma informação sobre isso?

Desde já agradeço e peço desculpa a qualquer incomodo.

6 Junho, 2012

Bom dia a todos, gostaria de saber se alguém pode me informar como anda o processo de impressão da CCe, se está sendo feito, se já está pronto ou se não irá ser feito. Em todo caso muito obrigado

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Daniel Fantastsoft

Sobre nós...

Informação Importante