Renan Eustaquio

Desculpe incomodar , tem previsão de por no svn?

Realizado a implementações nas outras classes, acredito ter feito em todas. Aproveitei e acertei no create o default de algumas variáveis que não estavam sendo passadas de forma correta. Espero que esteja tudo correto , caso necessário é só da o grito ai que revejo o erro. ACBrLFD.pas ACBrPonto.pas ACBrSEF2.pas ACBrSpedContabil.pas ACBrSpedECF.pas ACBrSpedFiscal.pas ACBrSpedPisCofins.pas ACBrTXTClass.pas UACBrLCDPR.pas ACBrADRCST.pas ACBrDeSTDA.pas

vc mesmo vai fazer isso ou precisa que eu faça algo?

Segue anexo alteração , fiz algumas alterações na criação do SpedFiscal no set dos campos , pois os mesmos da forma que estavam não aplicavam para os registros filhos (me embasei no spedPisConfins) ACBrSpedPisCofins.pas ACBrSpedFiscal.pas ACBrTXTClass.pas

posso fazer ?

Concordo com o bigwiggs , Imagina vc ter que tratar tudo em todos lugares pra remover uma coisa que vai gerar erro, mesmo que a responsabilidade seja do desenvolvedor que opção ele vai ter alem de remover o caracter ??

Essa função de function TACBrTXTClass.LFill(const Value: String; Size: Integer = 0; Nulo: Boolean = false; Caracter: Char = '0'): String; poderia ter um incremento Value := StringReplace(Result, FDelimitador,'', [rfReplaceAll]) , pois acaba que se o value passado possuir o delimitador gera erro no arquivo. exemplo spedfiscal se tiver no nome do produto um "|" ele gera um erro grotesco no sped, para eu corrigir isso em todos os lugares q são texto tenho que usar o StringReplace. isso poderia ser feito ? function TACBrTXTClass.LFill(const Value: String; Size: Integer = 0; Nulo: Boolean = false; Caracter: Char = '0'): String; begin if (Nulo) and (Length(Value) = 0) then begin Result := FDelimitador; Exit; end; /// Se a propriedade TrimString = true, Result retorna sem espaços em branco /// iniciais e finais. if FTrimString then Result := Trim(Result); Value := StringReplace(Value, FDelimitador,'', [rfReplaceAll]) if (Size > 0) and (Length(Value) > Size) then Result := Copy(Value, 1, Size) else Result := StringOfChar(Caracter, Size - length(Value)) + Value; Result := FDelimitador + Result; end;

Alteração na leitura de arquivo xml , pois o mesmo não estava pegando observação, natureza da operação e a quantidade estava com o tipo tcstr gerando erro de quantidade onde era 1.0 estava ficando 10. pnfsNFSeR.pas

Desculpe a demora! Resolvido , problema de falta de preenchimento do "from" do componente, aparentemente o terra nem joga pro spam.

Muito agradecido, deve ser alguma coisa na máquina ou email do meu cliente então.

Fiz esse procedimento pro postmaster deles para verificarem , pq o retorno está correto , esto np aguardo e adiciono aqui o resultado. Se alguém tivesse e-mail do terra para verificar eu ficaria agradecido. [12/03/2020][11:10:41:258][MASTER]235:235 2.7.0 Accepted [12/03/2020][11:10:41:460][MASTER]250:250 2.1.0 OK v126sm10249831qkb.107 - gsmtp [12/03/2020][11:10:42:331][MASTER]250:250 2.1.5 OK v126sm10249831qkb.107 - gsmtp [12/03/2020][11:10:44:736][MASTER]250:250 2.0.0 OK 1584022244 v126sm10249831qkb.107 - gsmtp [12/03/2020][11:10:45:426][MASTER]221:221 2.0.0 closing connection v126sm10249831qkb.107 - gsmtp

É muito estranho que não vai pra caixa de spam , lixo ou qualquer pasta. Não sei se é o antivirus do terra que bloqueia.

Estou com problemas em enviar um e-mail, com o acbrmail , para qualquer e-mail do terra. Ja tentei enviando do gmail-> terra, hotmail-> terra, localweb-> terra todos retornam 250 , porem não chega o e-mail em lugar algum. Se eu mando pra qualquer outro provedor chega. Alguem sabe o que pode ser ?

Gostaria q me informassem se vai ser realizado a correção. Ficaria muito agradecido.

Não existia no MDFe uma forma de enviar o evento , segue em anexo o pas, adicionei tb no Cte e NFe o envio do xml , pois o mesmo hoje só envia o PDF ACBrMDFe.pas ACBrCTe.pas ACBrNFe.pas