Tercio Lins

Boa noite BigWings. Eu já havia atualizado os componentes e os arquivos dos schemas. Agradeço à todos, e pode marcar como resolvido.

Eu havia pesquisado aqui no ACBr e verificado isso. Conferi os dados e não percebi nenhum caractere "estranho". havia colado os dados do xml, porém não salvou. vou anexá-lo agora. 27200970019625000180580020000000081237019196-mdfe.xml

Boa tarde Juliomar.

Boa tarde à todos. Estou tentando enviar um MDFe e está retornando a rejeição 215-Rejeição: Falha no schema XML. Fiz o teste no DemoACBr e validou o XML. "Manifesto de Documento Fiscais Eletrônicos Valido". Quando carrego e envio o XML, ocorre o erro. Anexo igual a imagem

Boa Noite à todos. Retornando para informar que resolvi o problema do envio do boleto. Primeiro quero dizer que também não estava conseguindo enviar a NFe na versão atual que desenvolvo. Estou conseguindo em uma versão anterior, que ainda roda no cliente. Analisando a versão anterior, descobri que havia alterado uma propriedade do componente ACBrEmail. Na atual: ACBrMail.SetSSL:=True; ACBrMail.SetTLS:=False; Na anterior: ACBrMail.SetSSL:=False; ACBrMail.SetTLS:=False; Agradeço ao Juliomar por se dispor à ajudar. Pode marcar como resolvido.

Boa tarde. Vou desvincular o ACBrEmail em projeto, e associá-lo só em execução.

bom dia Juliomar. A princípio eu copiei o ACBrEmail do datamodule que fica os componentes da NFe, para o datamodule do Boleto. Prefiro separar um para cada. Depois para teste, vinculei o ACBrBoleto no ACBrEmail da NFe, e mesmo assim, ocorre o mesmo erro. Já havia tentado enviar um arquivo de orçamento usando o ACBrEmail direto, sem estar vinculado a outro componente, e ocorreu o mesmo erro. Desde já agradeço.

Boa Noite à todos. Estou tentando enviar o Boleto por email, e recebo a mensagem: "SMTP Error: Unable to Login". O interessante é que, quando o componente ACBrEmail está vinculado à NFe, envia normalmente o XML e o PDF. Os dados do componente são os mesmos, tanto para a NFe, como para o Boleto. sleep(300); CxMens:=TstringList.Create; Para NFe: CxMens.Add('Arquivo XML NFe.'); Para Boleto: CxMens.Add('Boleto em Anexo!!'); CC:=TstringList.Create; with DmFc do begin with mEmpresa do begin ACBrMail.Host:=HostEmail; ACBrMail.Port:=IntToStr(Porta); ACBrMail.Username:=EmailNFe; ACBrMail.Password:=HostSenha; ACBrMail.From:=EmailNFe; ACBrMail.SetSSL:=True; ACBrMail.SetTLS:=False; ACBrMail.ReadingConfirmation:=False; ACBrMail.UseThread:=False; ACBrMail.FromName:=Fantasia; Para NFe: ACBrNFe.NotasFiscais.Items[0].EnviarEmail(Agente.Endereco.EmailNFe,'Arquivo XML NFe.',CxMens,True,CC,CC); Para Boleto: DmBoleto.ACBrBoleto.EnviarEmail(mAgente.Endereco.EmailNFe,'Arquivo Do(s) Boleto(s).',CxMens,True,CC,CC); end; end; CC.Free; CxMens.Free;

Boa Noite à todos. Estou tentando enviar o Boleto por email, e recebo a mensagem: "SMTP Error: Unable to Login". O interessante é q

Tenho um cliente na mesma situação do Lowry David: agência: 6500 conta corrente: 580375 Dv: 1; A agência não tem dígito verificador, eles indicam colocar 0(zero). O dígito da agência não entra nos cálculos. O tamanho do número da agência é de 5 dígitos. Quando for menor, "COLOCAR ZERO À ESQUERDA". A conta corrente de oito dígitos. Quando for menor, "COLOCAR ZERO À ESQUERDA". Obs: O tamanho da conta corrente, eles consideram com o dígito verificador, ou seja, 8+1=9. Ficaria assim: (06500/005803751) da mesma forma que o Lowry David colocou. Com relação à função, fiz assim: function TACBrBancoSafra.MontarCampoCodigoCedente( const ACBrTitulo: TACBrTitulo): string; begin with ACBrTitulo.ACBrBoleto.Cedente do Result:=Agencia+'/'+Conta+ContaDigito; (06500/005803751) end; Na remessa ficou correto.

Boa Emerson Teixeira. Vou verificar a unit. Grato.

Alterações feitas: constructor TACBrBancoSafra.Create(AOwner: TACBrBanco); begin inherited Create(AOwner); fpDigito := 7; fpNome := 'Banco Safra'; fpNumero := 422; fpTamanhoAgencia := 5; fpTamanhoConta := 9; fpTamanhoCarteira := 1; fpTamanhoMaximoNossoNum := 9; end; procedure TACBrBancoSafra.GerarRegistroTransacao400(ACBrTitulo: TACBrTitulo; aRemessa: TStringList); aAgencia := PadLeft(RightStr( ACBrBoleto.Cedente.Agencia, 5), 5, '0'); aConta := PadLeft(ACBrBoleto.Cedente.Conta, 9, '0'); Sem adicionar os DV; Uma observação: Na procedure: procedure TACBrBancoSafra.GerarRegistroHeader400(NumeroRemessa: integer; ARemessa: TStringList); with ACBrBanco.ACBrBoleto.Cedente do begin wLinha := '0' + // ID do Registro Header '1' + // ID do Arquivo de Remessa 'REMESSA' + // Literal de Remessa '01' + // Código do Tipo de Serviço PadRight('COBRANCA', 15) + // Descrição do tipo de serviço + "brancos" PadLeft(CodigoCedente, 14, '0') + // Codigo da Empresa no Banco Space(6) + // "brancos" PadRight(Nome, 30) + // Nome da Empresa IntToStr(Numero) + // Código do Banco - 237 PadRight('BANCO SAFRA', 15) + // Nome do Banco - BANCO SAFRA + "brancos" FormatDateTime('ddmmyy', Now) + // Data de geração do arquivo Space(291) + // "brancos" IntToStrZero(NumeroRemessa, 3) + // Nr. Sequencial de Geração do Arquivo IntToStrZero(1, 6); // Nr. Sequencial do Registro no Arquivo ARemessa.Text := ARemessa.Text + UpperCase(wLinha); end; O CodigoCedente é colocado sem a concatenação dos dois códigos, ou seja, ele terá que ser alimentado antes nos dados do cedente. Poderia-se colocar também, o CodigoCedente direto na procedure GerarRegistroTransacao400.

Um adendo: não é para incluir o dígito verificador da agência, como também o da conta corrente.

Boa tarde à todos. Enviei um arquivo de remessa para homologação no banco Safra. Linha gerada: 1020255642300011865000058037511 000000000 Respostas: No Registro Detalhe do Arquivo - Nas posições: 18 a 31 - Identificação da empresa no Banco: A empresa deve inserir o numero da agência de 5 dígitos + conta com 9 dígitos, como a conta não possui 9 dígitos, pode completar com zero a esquerda: 06500005803751 constructor TACBrBancoSafra.Create(AOwner: TACBrBanco); begin inherited Create(AOwner); fpDigito := 7; fpNome := 'Banco Safra'; fpNumero := 422; fpTamanhoAgencia := 5; fpTamanhoConta := 8; <= tamanho da conta corrente fpTamanhoCarteira := 1; fpTamanhoMaximoNossoNum := 9; end; A agência tem 5 dígitos porém, inicia com zero( 06500). Acredito que na procedure TACBrBancoSafra.GerarRegistroTransacao400(ACBrTitulo: TACBrTitulo; aRemessa: TStringList), na linha 864, está excluindo o zero. aAgencia := PadLeft(RightStr( ACBrBoleto.Cedente.Agencia, 4), 4, '0') + PadLeft(ACBrBoleto.Cedente.AgenciaDigito, 1, '0'); Os demais erros de localização dos dados, devam estar relacionados com o tamanho do código da agência. Segue em anexo o arquivo cnab400 enviado pelo departamento responsável pela homologação. Desde já agradeço, Tércio Lins. cnab400.pdf

Boa tarde Ítalo. Lhe agradeço muito pela disposição em ajudar. Foi enviada e aprovada em ambiente de homologação.