visageplus

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

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

Estou fazendo a consulta pela chave. Ou tu quer dizer que tenho que fazer a consulta com o xml?

Bom dia Italo. Esse comando não retorna nada. Não tem outra ideia?

Bom dia Italo. Deu certo, mas como faço para pegar o xml, DataAutorizacao e o DigVal. Não consegui acha-los.

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 ?

apaguei o arquivo titulos.ini e criei novamente deu certo

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

comigo acontece a msm coisa

Consegui essas Informações em Anexo, com isso da pra implementar ? Webservice pontes e lacerda.7z

Obrigado pela atenção Italo. Então me sobra só utilizar a opção " Gerar e Enviar Lote RPS "?

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

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

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

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

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

alguem tem o link em txt ou excel dessa tabela ?

Obrigado pela explicação.

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?

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

Ajuda ai pessoal O boleto aqui esta parado.

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'

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;

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?

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