visageplus

26 Setembro, 2019

Em 25/09/2019 at 06:26, José M. S. Junior disse:

Bom dia,

Já está disponível na versão atualizada do Monitor, porém esta contribuição afeta apenas a geração da Remessa com esses dados e não a impressão do boleto.

Obrigado pela informação, será que isso poderia ser implementado ? eu informar os campos e sair a mensagem na impressão do boleto ?
no caso eu teria que criar essa mensagem manualmente ? em qual campo seria ?
obrigado desde já.

24 Setembro, 2019

essas alterações ja estão no acbrmonitorplus ?
estou tentando informar na versão 1.2.0.62 do acbrmonitorplus DataNegativacao=30/12/2019 e DiasNegativacao=60 no arquivo tittulos.ini mas não sai nada na impressão, quando colo DiasDeProtesto=30 e DataProtesto=30/12/2019.
gostaria de saber quais campos deve informar para que apareça a data da negativação na impressão do boleto e no arquivo remessa, agradecido desde já.

13 Julho, 2016

Estou fazendo a consulta pela chave.

Ou tu quer dizer que tenho que fazer a consulta com o xml?

12 Julho, 2016

Bom dia Italo.

Esse comando não retorna nada.

Não tem outra ideia?

11 Julho, 2016

Bom dia Italo.

Deu certo, mas como faço para pegar o xml, DataAutorizacao e o DigVal.

Não consegui acha-los.

8 Julho, 2016

Boa tarde.

Estou usando o seguinte código para consulta por chave de uma nfce.

 ACBrNFe1.WebServices.Consulta.NFeChave := MQConsultaCupomChave.AsString;
 ACBrNFe1.WebServices.Consulta.Executar;

Gostaria de saber como faço para pegar de retorno os seguintes campos: DataRecebimento, DataAutorizacao, DigVal, Protocolo, cstat, xmotivo e o xml ?

5 Julho, 2016

apaguei o arquivo titulos.ini e criei novamente deu certo

5 Julho, 2016

Jliomar estou usando o ACBr Monitor PLUS Ver.0.2.02.5
vou dar uma procurado no forum se puder ajudar mandando o link de algum topico com a solução fico muito agradecido

5 Julho, 2016

comigo acontece a msm coisa

21 Junho, 2016

Consegui essas Informações em Anexo, com isso da pra implementar ?

Webservice pontes e lacerda.7z

21 Junho, 2016

Obrigado pela atenção Italo.

Então me sobra só utilizar a opção " Gerar e Enviar Lote RPS "?

21 Junho, 2016

Bom dia italo.

Fazendo teste com o exemplo consegui fazer pelo botão "Gerar e Enviar Lote RPS".

Só que fazendo com o botão "Gerar e Enviar um RPS" esta dando o seguinte erro: SoapAction não definido para: TNFSeGerarNFSe.

Tu sabe me dizer o que é?

Obrigado pela atenção

20 Junho, 2016

Boa tarde

Depois que atualizei meu componente para trunk2 não consigo mais emitir nfse pelo issnet de cuiabá.

Simplesmente não retorna código de validação, numero da nota e nem xml de retorno vem.

Alguém tem alguma ideia de algo que possa ser

20 Junho, 2016

fiz os testes com 150000 1.500,00 e 1500,00

17 Junho, 2016

Boa tarde amigos, estou usando o AcbrmonitorPlus 0.2.02.5 para imprimir os boletos e gerar o arquivo remessa, ta funcionando legal porém me deparei com uma situação quando o meu titulo é com o valor maior que R$ 1.000,00 na remessa CNAB400 do banco sicredi posição 127 a 139 do arquivo que esta em anexo, ele sai zerado mas quando é menor que R$ 1.000,00 sai corretamente gostaria de saber como resolver isso, será um erro do acbrmonitor ? ou alguma regra de negocio ?.

em anexo segue o arquivo TITULOS.INI

e o arquivo remessa,Titulos.ini,Cedente.ini e o arquivo no arquivo tem 2 registros um de R$ 150,00 e um de R$ 1.500,00

att,
Nill Camargo

000027.rem

3 Março, 2016

Bom dia amigos, preciso saber disso também....
sera que tem como baixar todos os xmls de NFE/CTE que foram emitidas para minha empresa (NOTA DE ENTRADA) de uma vez só ?
Fazendo um filtro por data por exemplo

4 Janeiro, 2016

alguem tem o link em txt ou excel dessa tabela ?

29 Dezembro, 2015

Obrigado pela explicação.

28 Dezembro, 2015

Bom dia pessoal.

O que acontece quando começo a receber deste comando "ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto" o valor igual a 1899 ou vazio?

9 Outubro, 2015

Tu teria como me passar só o que tu alterou nessas unit's?

8 Outubro, 2015

Ajuda ai pessoal

O boleto aqui esta parado.

7 Outubro, 2015

Segue abaixo Juliana

ACBrBoleto.Banco.TipoCobranca := cobBancoDoBrasil;
ACBrBoleto.Cedente.Nome := 'WV DISTRIBUIDORA';
ACBrBoleto.Cedente.TipoInscricao := pJuridica;
ACBrBoleto.Cedente.CNPJCPF       := '08446694000105';
ACBrBoleto.Cedente.Agencia       := '7139';
ACBrBoleto.Cedente.AgenciaDigito := '0';
ACBrBoleto.Cedente.Conta         := '000000005442';
ACBrBoleto.Cedente.ContaDigito   := '9';
ACBrBoleto.Cedente.CodigoCedente := '2675174';
ACBrBoleto.Cedente.Convenio      := '2675174';
ACBrBoleto.Cedente.Logradouro    := 'AV FREI COIMBRA, 85 - NOVO HORIZONTE - VÃRZEA GRANDE/MT CEP 78135625';
Titulo.LocalPagamento            := 'Pagar preferêncialmente nas agências do Banco';
Titulo.Vencimento        := 31/10/2015;
Titulo.DataDocumento     := 01/09/2015;
Titulo.NumeroDocumento   := '9713';
Titulo.EspecieDoc        := 'DM';
Titulo.Aceite            := atNao;
Titulo.DataProcessamento := 06/10/2015;         
Titulo.Carteira          := '18/019';
Titulo.NossoNumero       := '0000026815';
Titulo.ValorDocumento    := 66,75;
Titulo.Sacado.NomeSacado := 'MOTOS LTDA';
Titulo.Sacado.Pessoa:= pJuridica;
Titulo.Sacado.CNPJCPF    := '99999999009999';
Titulo.Sacado.Logradouro := '**********************, 1';
Titulo.Sacado.Bairro     := '************************';
Titulo.Sacado.Cidade     := 'CUIABÁ';
Titulo.Sacado.uf         := 'MT';
Titulo.Sacado.cep        := '0';
Titulo.ValorMoraJuros    := 0,07;
Titulo.CodigoMora        := '2';
Titulo.DataAbatimento    := 31/10/2015;
Titulo.ValorAbatimento   := 0;
Titulo.DataMoraJuros     := 31/10/2015;
Titulo.Instrucao1        := 'PAGAVEL EM QUALQUER AGENCIA ATE O VENCIMENTO';
Titulo.Instrucao2        := '';
Titulo.Mensagem.Text  := 'BRANCO DO BRASIL ERIK MOTOS LTDA  - 9713'

6 Outubro, 2015

Segue a baixo o código.

procedure TfrmAcbrBoleto.GerarBoletos;

var
  sOrientacoes : TStringList;
begin
  if not Critica then
    Exit;

  with ACBrBoleto, FormContasReceber do
  begin
    ListadeBoletos.Clear;
    sOrientacoes := TStringList.Create;
    try
      MQContasReceber.DisableControls;
      MQContasReceber.first;
      while not MQContasReceber.eof do
      begin

        If MQContasReceberMarca.AsString <> '*' then
        begin
          MQContasReceber.Next;
          continue;
        end;

        sOrientacoes.Clear;

        With ACBrBoleto.Banco do
        begin
          sOrientacoes.Add('Orientações!');
          ACBrBoleto.Banco.OrientacoesBanco := sOrientacoes;

          case MQBoletoBANCO_BOL.asInteger of
            001: ACBrBoleto.Banco.TipoCobranca := cobBancoDoBrasil;
            004: ACBrBoleto.Banco.TipoCobranca := cobBancoDoNordeste;
            021: ACBrBoleto.Banco.TipoCobranca := cobBanestes;
            033,
            353,
            008: ACBrBoleto.Banco.TipoCobranca := cobSantander;
            041: ACBrBoleto.Banco.TipoCobranca := cobBanrisul;
            070: ACBrBoleto.Banco.TipoCobranca := cobBRB;
            104: ACBrBoleto.Banco.TipoCobranca := cobCaixaEconomica;
            237: ACBrBoleto.Banco.TipoCobranca := cobBradesco;
            341: ACBrBoleto.Banco.TipoCobranca := cobItau;
            389: ACBrBoleto.Banco.TipoCobranca := cobBancoMercantil;
            748: ACBrBoleto.Banco.TipoCobranca := cobSicred;
            756: ACBrBoleto.Banco.TipoCobranca := cobBancoob;
            399: ACBrBoleto.Banco.TipoCobranca := cobHSBC;
            422: ACBrBoleto.Banco.TipoCobranca := cobBancoSafra;
          end;
        end;

        Titulo:= ACBrBoleto.CriarTituloNaLista;

        with ACBrBoleto.Cedente do
        begin
         ACBrBoleto.Cedente.Nome          := Dtm.QueryEmpresaFantasia.asstring;
          if length(TiraCaracterDocumento(Trim(Dtm.QueryEmpresaCNPJF.asString))) = 11 then
            ACBrBoleto.Cedente.TipoInscricao := pFisica
          else
            ACBrBoleto.Cedente.TipoInscricao := pJuridica;
         ACBrBoleto.Cedente.CNPJCPF       := TiraCaracterDocumento(Trim(Dtm.QueryEmpresaCNPJF.AsString));
         ACBrBoleto.Cedente.Agencia       := MQBoletoAGENCIA_BOL.AsString;
         ACBrBoleto.Cedente.AgenciaDigito := MQBoletoAGENCIADIGITO_BOL.AsString;
         ACBrBoleto.Cedente.Conta         := MQBoletoCONTA_BOL.AsString;
         ACBrBoleto.Cedente.ContaDigito   := MQBoletoCONTADIGITO_BOL.AsString;
         ACBrBoleto.Cedente.CodigoCedente := MQBoletoCODIGOCEDENTE_BOL.AsString;
         ACBrBoleto.Cedente.Convenio      := MQBoletoCONVENIO_BOL.asString;
         ACBrBoleto.Cedente.Logradouro    := Trim(Dtm.QueryEmpresaEndereco.AsString) + ', ' +
                                             Trim(Dtm.QueryEmpresaNumero.AsString) + ' - ' +
                                             Trim(Dtm.QueryEmpresaBairro.AsString) + ' - ' +
                                             Trim(Dtm.QueryEmpresaCidade.AsString) + '/' +
                                             Trim(Dtm.QueryEmpresaEstado.AsString) + ' CEP ' +
                                             Trim(Dtm.QueryEmpresaCEP.AsString);
        end;

        with Titulo do
        begin
          Titulo.LocalPagamento    := 'Pagar preferêncialmente nas agências do Banco';
          Titulo.Vencimento        := MQContasReceberVencimento.AsDateTime;
          Titulo.DataDocumento     := MQContasReceberEmissao.AsDateTime;
          If MQContasReceberNumNF.AsInteger > 0 then
           Titulo.NumeroDocumento   := MQContasReceberNumNF.AsString
          Else
           Titulo.NumeroDocumento   := Trim(MQContasReceberDocumento.AsString);
          Titulo.EspecieDoc        := MQBoletoESPECIEDOCUMENTO_BOL.AsString;
          if pos('SIM',UpperCase(MQBoletoACEITE_BOL.AsString))>0 then
            Titulo.Aceite          := atSim;
          Titulo.DataProcessamento := now;

          If MQContasReceberNOSSONUMERO.IsNull or (Trim(MQContasReceberNOSSONUMERO.AsString) = '') then
          begin
           MQBoleto.Edit;
           MQBoleto.FieldByName('NOSSONUMERO_BOL').AsString := IntToStr(MQBoletoNOSSONUMERO_BOL.AsInteger + 1);
           MQBoleto.Post;
           MQBoleto.CommitUpdates;
           MQContasReceber.Edit;
           MQContasReceber.FieldByName('NOSSONUMERO').AsString := IntToStrZero(MQBoletoNOSSONUMERO_BOL.AsInteger, MQBoletoNOSSONUMERODIGITOS_BOL.AsInteger);
           MQContasReceber.FieldByName('CODBOLETOORIGEM').AsInteger := MQBoletoCODIGO_BOL.AsInteger;
           MQContasReceber.Post;
           MQContasReceber.CommitUpdates;
          end;

          Titulo.Carteira          := MQBoletoCARTEIRA_BOL.asstring;
          Titulo.NossoNumero       := MQContasReceberNOSSONUMERO.asstring;
          Titulo.ValorDocumento    := MQContasReceberValor.AsFloat;

          Titulo.Sacado.NomeSacado := Trim(MQContasReceberNomeDevedor.AsString);
          if length(TiraCaracterDocumento(Trim(MQContasReceberCNPJ.AsString))) = 11 then
             Titulo.Sacado.Pessoa:= pFisica
          else
             Titulo.Sacado.Pessoa:= pJuridica;
          Titulo.Sacado.CNPJCPF    := TiraCaracterDocumento(Trim(MQContasReceberCNPJ.AsString));

          If Trim(MQClienteendcob.AsString) <> '' then
          begin
           Titulo.Sacado.Logradouro := Trim(MQClienteendcob.AsString);
           Titulo.Sacado.Bairro     := Trim(MQClienteBairroCob.AsString);
           Titulo.Sacado.Cidade     := Trim(MQClienteCidCob.AsString);
           Titulo.Sacado.uf         := Trim(MQClienteestcob.AsString);
           Titulo.Sacado.cep        := TiraCaracterDocumento(Trim(MQClienteCepCob.AsString));
          end
          Else
          begin
           Titulo.Sacado.Logradouro := Trim(MQClienteendcli.AsString) + ', ' +Trim(MQClienteNumero.AsString);
           Titulo.Sacado.Bairro     := Trim(MQClienteBairroCli.AsString);
           Titulo.Sacado.Cidade     := Trim(MQClienteCidCli.AsString);
           Titulo.Sacado.uf         := Trim(MQClienteestcli.AsString);
           Titulo.Sacado.cep        := TiraCaracterDocumento(Trim(MQClienteCepCli.AsString));
          end;

          Titulo.ValorMoraJuros    := MQContasReceberValorJurosDia.AsFloat;//MQContasReceberAliqJurosDia.AsFloat;
          Titulo.CodigoMora        := '2';

          Titulo.DataAbatimento    := IncDay(MQContasReceberVencimento.AsDateTime, (MQContasReceberDIASVENCDESCONTO.AsInteger * -1));
          If (MQContasReceberVALORDESCONTO.AsInteger > 0) and (MQContasReceberDIASVENCDESCONTO.AsInteger >= 0) then
            Titulo.ValorAbatimento := MQContasReceberVALORDESCONTO.AsFloat;

          Titulo.DataMoraJuros     := MQContasReceberVencimento.AsDateTime;
          Titulo.Instrucao1        := MQBoletoINSTRUCAO1_BOL.AsString;
          Titulo.Instrucao2        := MQBoletoINSTRUCAO2_BOL.AsString;

          If Titulo.ValorAbatimento > 0 then
            sOrientacoes.add('Conceder desconto de ' +Format('%m', [MQContasReceberVALORDESCONTO.AsFloat]) + ' até a data ' +
                              DateToStr(IncDay(MQContasReceberVencimento.AsDateTime, (MQContasReceberDIASVENCDESCONTO.AsInteger * -1))));

          Titulo.Mensagem.Text  := MQBoletoDESCRICAO_BOL.AsString+' '+
                                   MQContasReceberNomeDevedor.AsString+' - '+
                                   MQContasReceberNumNF.AsString;

          AdicionarMensagensPadroes(Titulo, sOrientacoes);
        end;

        MQContasReceber.Next;
      end;

      if ListadeBoletos.Count > 0 then
        Imprimir;

    finally
      FreeAndNil(sOrientacoes);
      ListadeBoletos.Clear;
      MQContasReceber.EnableControls;
    end;
  end;
end;

6 Outubro, 2015

Bom dia pessoal.

O Dígito Verificador do Banco do Brasil esta saindo errado.

Está saindo assim: 00190.00009 02675.174003 00026.815183 9 65980000006675
O Correto é: 00190.00009 02675.174003 00026.815183 8 65980000006675

Está saindo um 9, sendo que deveria ser 8.

Como resolvo?

16 Julho, 2015

como faz com A1?

quando acontece isso comigo com A1 eu importo o certificado para o windows XP e depois exporto ele, salvo novamente e importo para o navegador no windows 7 ai funciona

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por visageplus

Sobre nós...

Informação Importante