[Problemas Com Dt_Fin No Bloco P100]

   with sped do
   begin
      DT_INI := edDati.date;
      DT_FIN := edDatf.date;
      LinhasBuffer := 1000;
      IniciaGeracao;
   end;

É o que faço no inicio da geração., mas pelo visto isso está funcionando para os demais, então vou procurar mais um pouco o que posso estar fazendo de errado.

Muito Obrigado.

[Problemas Com Dt_Fin No Bloco P100]

Ola Juliomar, obrigado pelo retorno, abaixo eu mostro como estou gerando:

 

                  with RegistroP100New do

                  begin

                      DT_INI            := edDati.date;

                      DT_FIN            := edDatf.date;

                      VL_REC_TOT_EST    := ValorCte + ValorSer;

                      COD_ATIV_ECON     := sqlFili.fieldbyname('empr_cnae').asstring;

                      VL_REC_ATIV_ESTAB := ValorCte + ValorSer;

                      VL_EXC            := 0;

                      VL_BC_CONT        := ValorCte + ValorSer;

                      ALIQ_CONT         := 1;

                      VL_CONT_APU       := mRound((valorCte + ValorSer) * 1 / 100,2);

                  end;

Tudo vai certinho para o registro, menos a data final DT_FIN que sempre vai com uma data 30/12/1899, já verifiquei pelo Debug que a variável edDatf.date está carregada com: 31/07/2014. 

[Problemas Com Dt_Fin No Bloco P100]

Estou gerando o sped contribuições pelo componente ACBR, e agora precisei gerar o bloco P, mas não sei porque o campo DT_FIN esta ficando com uma data vazia, então fiz uma alteração no ACBrEPCBloco_P_Class que estou colocando em anexo com a alteração que fiz para contornar o problema, gostaria se possível que alguém me orientasse caso eu tenha feito algo errado.

 

 

Obrigado.

ACBrEPCBloco_P_Class.pas

ACBrEPCBloco_P_Class.pas

[Erro Registro J100]

Alguem conseguiu resolver o problema da DT_INI ficar 30/12/1899?

[Instalação Acbrmdfedamdfeqrpkg]

Estou tentando instalar o componente porem no momento de compilar esta retornando erro na seguinte linha:

 

  qrlqMDFe.Caption := FormatFloat( '##0', FMDFe.tot.qMDFe);

 

eu apaguei a pasta onde tenho os fontes do acbr e efetue um novo checkout, porem o erro continua, o que posso estar fazendo de errado?

 

Obrigado.

 

[Boleto Banco Mercantil Do Brasil]

Obrigado pela ajuda Marcelo, mas para o banco mercantil esta solução não funcionou, aproveitando, alguém já utiliza o boleto do banco mercantil?

 

Obrigado

[Boleto Banco Mercantil Do Brasil]

Poderiam me ajudar a respeito da configuração do boleto, pois no meu caso a agencia é 0052 não tem digito, então o boleto e o arquivo remessa estão sendo gerados errados. se preciso anexo o boleto gerado pelo sistema do banco e o boleto gerado pelo componente.

 

Obrigado

 

[Equiplano]

Boa tarde alguém poderia me orientar como configurar para gerar a nota fiscal de serviço eletrônica para o provedor Equiplano cidade de Prudentópolis/Pr.

 

Obrigado

[Cancelamento Nota Fiscal Serviço - Fintell]

Boa tarde, estou com problema para cancelar nota fiscal de serviço no provedor fintell, ate a poucos dias o xml do cancelamento era gerado com a tag:

 

<C   <CpfCnpj>

      <Cnpj>00249965000112</Cnpj>

</CpfCnpj>

 

 

agora esta gerando assim:

      <Cnpj>00249965000112</Cnpj>

 

 

Então o provedor esta retornando erro, o que posso estar fazendo de errado?

 

Obrigado pela ajuda.

 

 

[Cte Versão 2.0]

Boa tarde Italo, obrigado pelo retorno, sim estou, tanto que no frmDACTeQRRetrato já esta com a verificação do PL_200, os erros de compilação ocorreram em:

 

  {$IFDEF PL_104}
  if FCTe.peri.Count = 0
   then qrb_06_ProdutosPerigosos.Height := 0;
  {$ENDIF}

 

este if pl_104 eu coloquei e compilou.
 

 

procedure TfrmDACTeQRRetrato.qrb_06_ProdutosPerigososBeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
var
 i: Integer;
begin
  inherited;
  PrintBand := (QRCTe.PageNumber = 1);

  qrmNumONU.Lines.Clear;
  qrmNomeApropriado.Lines.Clear;
  qrmClasse.Lines.Clear;
  qrmGrupoEmbalagem.Lines.Clear;
  qrmQtdeProduto.Lines.Clear;
  {$IFDEF PL_104}
  for i := 0 to (FCTe.peri.Count-1) do
   begin
     qrmNumONU.Lines.Add(FCTe.peri.Items.nONU);
     qrmNomeApropriado.Lines.Add(FCTe.peri.Items.xNomeAE);
     qrmClasse.Lines.Add(FCTe.peri.Items.xClaRisco);
     qrmGrupoEmbalagem.Lines.Add(FCTe.peri.Items.grEmb);
     qrmQtdeProduto.Lines.Add(FCTe.peri.Items.qTotProd);
   end;
   {$ENDIF}

end;

 

este if pl_104 eu coloquei e dai parou o erro.

 

 

agora o problema é que esta dando erro nesta parte:

          {$IFDEF PL_200}
          with infCTeNorm.seg.Add do
          {$ELSE}
          with infseg.Add do
          {$ENDIF}

 

esta me retornando:

[DCC Error] rta0249.pas(3235): E2003 Undeclared identifier: 'infCTeNorm'

 

Obrigado pela ajuda.

 
 

[Cte Versão 2.0]

Estou tentando compilar na versão 2.0 porem estou com erros no DACTE QR e DACTE FR. preciso fazer alguma coisa pra que não me retorne estes erros?

[Digito Verificador Nosso Número Santander]

Pronto, o banco aceitou o arquivo e o boleto. Muito obrigado.

[Digito Verificador Nosso Número Santander]

Bom dia, obrigado, estarei verificando.

[Digito Verificador Nosso Número Santander]

Boa tarde Juliana, obrigado pelo seu retorno, o que eu percebi é que no boleto impresso o nosso numero esta completo porem no arquivo o nosso numero esta com zeros e apenas o digito verificador, estou tomando a liberdade de enviar o arquivo remessa e os boletos impressos. Obrigado pela ajuda.

16092013.txt

Homologacao.pdf

[Digito Verificador Nosso Número Santander]

Gerei o boleto e o arquivo remessa para o banco Santander, tudo esta ok, somente o banco esta reclamando que o dígito verificador do nosso número esta incorreto, existe alguma particularidade para o calculo do dígito para o banco Santander?