Leonardo Goncalves Moreira

Ainda não

Entendi, era isso que estava procurando(Auth2), então o componente do ACBR para enviar e-mail não está preparado para utilizar o Auth2? Desde já agradeço.

Eu vi em uma postagem anterior sobre criar uma Senha de APP para o Google e deu certo, mas preciso fazer no Outlook. Essa parte não entendi, como eu poderia agir. Desde já agradeço. "então a sugestão é não usar provedores de e-mail gratuito ou usar um broadcast para envio de e-mails"

Boa tarde, desculpa minha ignorância. Estou utilizar o e-mail do Acbr e está dando o seguinte erro: Código: With ACBrMail1 do begin Subject := edtAssunto.Text; Body.Text := RichEdit1.Lines.Text; From := trim(q.FieldByName('email').AsString);//'[email protected]'; // FromName := 'eu'; Host := 'smtp-mail.outlook.com'; Username := trim(q.FieldByName('email').AsString); Password := frmSenha.Crypt('D', trim(q.FieldByName('senha_email').AsString)); Port := usei a 587 e //465 SetSSL := False; SetTLS := True; AddAddress(edtPara.Text, 'destinatario'); Sleep(500); Send; end; Desde já agradeço.

Boa tarde Juliomar, o problema é com mais de uma empresa e uma delas acabou de fazer outro certificado por causa de problemas externos. Certificado novinho que testamos

Bom dia! Lucimauro e Juliomar. Estou respeitando o prazo e trocando o NSU no banco, mas sempre retorna o mesmo erro com outro ultimo NSU no log.

Boa tarde, não tem não eu trouxe o certificado para minha máquina e acontece o mesmo erro. A empresa em questão está usando o nosso sistema, ela não tinha outro jeito de baixar os xml's automaticamente.

Bom dia. Alguns clientes meus dá rejeição 656 - Consumo Indevido. Alguém poderia me ajudar. Desde já agradeço. Segue os Logs (anexo) e o Código usado. 20240708160446-con-dist-dfe.xml 20240708160446-dist-dfe.xml 20240708171519-con-dist-dfe.xml 20240708171520-dist-dfe.xml Segue o codigo: var CNPJ, Impresso, sChave, sCNPJ, sNome, sNumero, sSerie, sIEst, sNSU, sTipoNFe , sMotivo , sUltimoNSU ,sTemMais, sNsuMensagem, cUFAutor,sStat , sProtocolo, xEvento, AtpEvento, TipoArquivo: String; Valor: Double; i, j, k : integer; DataEvento ,sEmissao : TDateTime; begin sTemMais := EmptyStr; if (frmSenha.Database.InTransaction=false) then frmSenha.Database.StartTransaction; try cUFAutor := IntToStr(Nfe.Configuracoes.WebServices.UFCodigo); sUltimoNSU := UltimoNsu; k := 0; repeat inc(k); if sTemMais = 'N' then break; NFe.DistribuicaoDFePorUltNSU( StrToInt(cUFAutor), qryEmpresaNOSSOCGC.Value, sUltimoNSU); sStat := IntToStr(NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat); sMotivo := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; if NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then sTemMais := 'N' else sTemMais := 'S'; sNsuMensagem:= NFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; atualizaNsu(sNsuMensagem); if NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin j := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1; for i := 0 to j do begin sSerie := ''; sNumero := ''; sCNPJ := ''; sNome := ''; sIEst := ''; sNSU := ''; sTipoNFe := ''; Valor := 0.0; Impresso := ' '; if NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe <> '' then begin // Conjunto de informações resumo da NF-e localizadas. // Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada. sChave := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); sCNPJ := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.CNPJCPF; sNome := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.xNome; sIEst := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.IE; case NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.tpNF of tnEntrada: sTipoNFe := 'Entrada'; tnSaida: sTipoNFe := 'Saída'; end; sNSU := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].NSU; sEmissao := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.dhEmi; //DateToStr(NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.dhEmi); Valor := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.vNF; case NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.cSitDFe of snAutorizado : Impresso := 'Autorizada'; snDenegado : Impresso := 'Denegada'; snCancelado : Impresso := 'Cancelada'; snEncerrado : Impresso := 'Encerrada'; end; end; sProtocolo := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resEvento.nProt; xEvento := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resEvento.xEvento; DataEvento := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resEvento.dhEvento; AtpEvento := TpEventoToStr(NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resEvento.tpEvento); if (AtpEvento = '-99999') and (xEvento = EmptyStr) then begin xEvento := 'NÃO MAPEADO'; end; // Registra no Banco de Dados as Notas Retornadas pela Consulta qryManifestacao.Close; qryManifestacao.Params[0].AsString:= frmSenha.empresa; qryManifestacao.Params[1].AsString:=sChave; qryManifestacao.Open; if not ((qryManifestacaoEMPRESA.AsString = frmSenha.empresa) and (qryManifestacaoCHAVE_NFE.AsString = sChave)) then begin qryInsereManifestacao.SQL.Clear; qryInsereManifestacao.SQL.Add('Insert into MG_MANIFESTACAO'); qryInsereManifestacao.SQL.Add('(Empresa, CHAVE_NFE, CNPJ, RAZAO_SOCIAL, IE, DATA_EMISSAO, TIPO, VALOR,'); qryInsereManifestacao.SQL.Add('SITUACAO, CONFIRMACAO, NSU, DATAEVENTO, PROTOCOLO,NOTA,SERIE,DESCRICAO_CONFIRMACAO)'); qryInsereManifestacao.SQL.Add('Values (:xEmpresa, :xChave, :xCNPJ, :xNome, :xIE, :xEmissao, :xTipo,'); qryInsereManifestacao.SQL.Add(':xValor, :xSituacao, :xConfirmacao, :xNSU, :xDataEve, :xProtocolo,:xNOTA,:xSERIE,:xDESCRICAO_CONFIRMACAO)'); qryInsereManifestacao.Params[0].AsString:= frmSenha.empresa; qryInsereManifestacao.Params[1].AsString:=sChave; qryInsereManifestacao.Params[2].AsString:=sCNPJ; qryInsereManifestacao.Params[3].AsString:=sNome; qryInsereManifestacao.Params[4].AsString:=sIEst; qryInsereManifestacao.Params[5].AsDateTime:=sEmissao; qryInsereManifestacao.Params[6].AsString:=sTipoNFe; qryInsereManifestacao.Params[7].AsFloat:=Valor; qryInsereManifestacao.Params[8].AsString:=Impresso; qryInsereManifestacao.Params[9].AsInteger:= StrToInt(AtpEvento); qryInsereManifestacao.Params[10].AsString:=sNSU; qryInsereManifestacao.Params[11].AsDateTime:=DataEvento; qryInsereManifestacao.Params[12].AsString:=sProtocolo; qryInsereManifestacao.Params[13].AsString:= sNumero; qryInsereManifestacao.Params[14].AsString:= sSerie; qryInsereManifestacao.Params[15].AsString:= xEvento; qryInsereManifestacao.ExecSQL; end; end; //fim for end else begin if NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then begin MessageDlg(' Nenhum Documento Localizado para o Destinatário' +#13+#13+ ' Utilizar o número que esta no campo: Último NSU'+#13+#13+ ' Para uma nova pesquisa ('+sNsuMensagem+').',mtInformation,[mbOk],0); sTemMais := 'N'; end else begin MessageDlg(' Falha ao realizar a consulta.' +#13+#13+ ' ' + sStat + ' - ' + sMotivo,mtInformation,[mbOk],0); end; end; until sTemMais = 'S'; if sTemMais = 'S' then MessageDlg(IntToStr(k) + ' Consultas Realizadas e tem mais Documentos.',mtInformation,[mbOk],0) else MessageDlg(IntToStr(k) + ' Consultas Realizadas e não tem mais Documentos.',mtInformation,[mbOk],0); frmSenha.Database.Commit; except on e : Exception do begin frmSenha.Database.Rollback; Messagedlg('Falha na abertura do sistema. (Data de Login)'+#13+e.Message,mtInformation,[mbOk],0); end; end;

Boa tarde, estou fazendo usando o evento NFe.DistribuicaoDFePorUltNSU para trazer as notas, mas em algumas empresas está trazendo somente o -resNFe.xml e não está trazendo a nota em si (-nfe.xml). alguém sabe o motivo, desde agradeço. em anexo o arquivo. 31240100285939000140550010000088041202453349-resNFe.xml

Bom dia, acho que estou confundindo, me parece que quando tem multa ele gera um registro detalhe certo? e estou achando que pulou de linha. Só não sei o porquê o banco rejeitou o arquivo i f Valor_Juros > 0 then begin CodigoMora := '1'; ValorMoraJuros := Valor_Juros; CodigoMoraJuros := cjValorDia; DataMoraJuros := Vencimento + 1; end; if QCobreBemXPercentual_Multa_CobreBemX.AsFloat > 0 then begin PercentualMulta := QCobreBemXPercentual_Multa_CobreBemX.AsFloat; CodigoMulta := cmPercentual; DataMulta := Vencimento + 1; end; Agradeço, sou novo em gerar boleto.

Bom dia, se eu entendi bem eu fiz assim: Juros: if Valor_Juros > 0 then begin CodigoMora := '1'; ValorMoraJuros := Valor_Juros; CodigoMoraJuros := cjValorDia; DataMoraJuros := Vencimento + 1; end; Multa: if QCobreBemXPercentual_Multa_CobreBemX.AsFloat > 0 then begin // PercentualMulta := QCobreBemXPercentual_Multa_CobreBemX.AsFloat; // CodigoMulta := cmPercentual; // DataMulta := Vencimento + 1; MultaValorFixo := true; PercentualMulta := 10; CodigoMulta := cmValorFixo; DataMulta := Vencimento + 1; end; Quando comento a multa o arquivo não pula uma linha.] me desculpa mas é a primeira vez que faço boleto o banco é Itaú . O que pode estar errado nesse código, na visualização aparece certinho, mas no arquivo remessa ele solta uma linha. em anexo o arquivo com somente Juros e sem Multa e o arquivo com Juros e Multa. Desde já agradeço. IT085153.REM IT175932_Juros.REM

Obrigado Antonio, entendi, segunda feira na empresa vou fazer as alterações e reporto aqui.

Bom dia, esta parte está correta, quando comento os valor de juros e PercentualMulta quando gero o arquivo o banco valida normal, se voçê observar os arquivos o que está errado gera um layout diferente, pulando uma linha. Obrigado

Bom dia, estou gerando o arquivo remessa do banco itau e tinha gerado ele sem Multa e Juros e estava funcionando perfeitamente, quando implementei o Juros e Multa e enviando ao banco no arquivo retorno veio com a seguinte mensagem : entrada inválida. Reparei um arquivo para o outro e vi que o mesmo ficou diferente o Layout, gostaria de saber o que posso estar fazendo de errado. em anexo o arquivo com erro e o arquivo correto. Abaixo o jeito que implementei. Observação: CNAB400 Configuração do componente : ACBrBoleto1.Banco.TipoCobranca:=RetornaTipoCobrancaAcBr(dblConf.KeyValue); ACBrBoleto1.ListadeBoletos.Clear; ACBrBoleto1.LayoutRemessa := TACBrLayoutRemessa(cbxCNAB.itemindex); ACBrBoleto1.ACBrBoletoFC.DirLogo := ExtractFilePath(copy(QCobreBemXCAMINHO_LOGOTIPO_EMPRESA_CBX.AsString,1,Length(QCobreBemXCAMINHO_LOGOTIPO_EMPRESA_CBX.AsString))); ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao; ACBrBoleto1.Banco.Numero := QCobreBemXNUM_BANCO_COBREBEMX.Value; ACBrBoleto1.Cedente.CodigoCedente := StringReplace(QCobreBemXCOD_CEDENTE_COBREBEMX.AsString,'-','',[rfReplaceAll]); agenciaDigito:=Split(QCobreBemXAGENCIA_COBREBEMX.Value, '-'); ACBrBoleto1.Cedente.Agencia := agenciaDigito[0]; if (Length(agenciaDigito)>1) then ACBrBoleto1.Cedente.AgenciaDigito := agenciaDigito[1]; contaDigito:=Split(QCobreBemXCONTA_CORRENTE_COBREBEMX.Value, '-'); ACBrBoleto1.Cedente.Conta := contaDigito[0]; if (Length(contaDigito)>1) then ACBrBoleto1.Cedente.ContaDigito := contaDigito[1]; if (trim(QCobreBemXCONVENIO.AsString)<>'') then ACBrBoleto1.Cedente.Convenio := QCobreBemXCONVENIO.AsString; ACBrBoleto1.Cedente.Nome := QCobreBemXNOME_CEDENTE_COBREBEMX.AsString; ACBrBoleto1.Cedente.Logradouro := QEmpresaNOSSOENDER.AsString+', '+QEmpresaNUMERO_ENDERECO.AsString; ACBrBoleto1.Cedente.Bairro := QEmpresaNOSSOBAIRRO.AsString; ACBrBoleto1.Cedente.Cidade := QEmpresaNOSSACIDADE.AsString; ACBrBoleto1.Cedente.CEP := QEmpresaNOSSOCEP.AsString; ACBrBoleto1.Cedente.Telefone := QEmpresaFONE1.AsString; ACBrBoleto1.Cedente.UF := QEmpresaNOSSOUF.Value; ACBrBoleto1.DirArqRemessa := QCobreBemXCAMINHO_ARQUIVO_REMESSA_CBX.AsString; ACBrBoleto1.NomeArqRemessa := 'IT' + FormatDateTime('hhmmss', Now) + '.REM'; ACBrBoleto1.Cedente.CNPJCPF := QEmpresaCNPJ.AsString; if (QCobreBemXNUM_BANCO_COBREBEMX.AsInteger=33) then begin ACBrBoleto1.Cedente.Modalidade := RetornarCarteiraNoBanco(lkpCarteira.KeyValue); end; Geração do Titulo : carteiraNoBanco:=RetornarCarteiraNoBanco(lkpCarteira.KeyValue); if (trim(carteiraNoBanco)='') then begin MessageDlg('Favor preencher o campo "Carteira no Banco" no cadastro de tipo de cobrança para que seja possível visualizar boletos.', mtInformation, [mbOk], 0); Exit; end; try cdsPadrao.DisableControls; cdsPadrao.First; while not(cdsPadrao.Eof) do begin if (cdsPadraoSELECIONADO.AsInteger=1) then begin Titulo := ACBrBoleto1.CriarTituloNaLista; Valor_Documento := 0; Valor_Juros := 0; Valor_Documento := (cdsPadraoVALOR_BOLETA.Value - cdsPadraoDESCONTO.asFloat + QCobreBemXVALOR_TARIFA_BANCARIA_CBX.AsFloat); if QCobreBemXPERCENTUAL_JUROS_COBREBEMX.asFloat > 0 then Valor_Juros := Valor_Documento * QCobreBemXPERCENTUAL_JUROS_COBREBEMX.asFloat / 100; with Titulo do begin Vencimento := cdsPadraoDT_VENCIMENTO_BOLETA.Value; DataDocumento := cdsPadraoDT_EMISSAO_BOLETA.Value; NumeroDocumento := cdsPadraoCOD_BOLETA.Value; EspecieDoc := QCobreBemXLAYOUT_TIPO_DOCUMENTO_CBX.Value; DataProcessamento := Now; NossoNumero := RetornaNossoNumeroAreceb(cdsPadraoCOD_BOLETA.Value, DblEmpresa.KeyValue); Carteira := trim(carteiraNoBanco); ValorDocumento := Valor_Documento; Sacado.NomeSacado := cdsPadraoNOME_SACADO.Value; Sacado.CNPJCPF := cdsPadraoCNPJ_CPF_SACADO.Value; Sacado.Logradouro := cdsPadraoENDERECO_SACADO.Value; Sacado.Bairro := cdsPadraoBAIRRO_SACADO.Value; Sacado.Cidade := cdsPadraoCIDADE_SACADO.Value; Sacado.UF := cdsPadraoESTADO_SACADO.Value; Sacado.CEP := cdsPadraoCEP_SACADO.Value; ValorMoraJuros := Valor_Juros;// cdsPadraoJUROS_BOLETA.Value; if QCobreBemXPercentual_Multa_CobreBemX.AsFloat > 0 then PercentualMulta := QCobreBemXPercentual_Multa_CobreBemX.AsFloat; DataMoraJuros := cdsPadraoDT_VENCIMENTO_BOLETA.Value + 1; Mensagem.Text := cdsPadraoHISTORICO_BOLETA.AsString; OcorrenciaOriginal.Tipo := toRemessaRegistrar;// toRemessaBaixar; end; end; cdsPadrao.Next; end; finally cdsPadrao.EnableControls; end; Desde já Agradeço a ajuda. IT142828.REM IT164205-erro.REM

Bom dia gostaria de saber qual o campo corresponde o valor de multa no arquivo retorno. Encontrei somente o campo ValorMoraJuros. Na multa tem o PercentualMulta, tem algum campo que me retorna o valor ou terei que fazer o cálculo, desde já agradeço.