Fernando Rodrigo

estou fazendo a configuração para enviar e-mail da conta abaixo, so que ja fiz de tudo para enviar e sempre retorna o mesmo erro de envio ja alterei ssl, tls, ja marquei um e desmarquei o outro, ja marquei os 2 e nada de funcionar, se alguem puder dar uma ajuda segue os dados da conta webmail.umbler.com e-mail : [email protected] senha: teste@123 usuario: teste se entrar no site https://webmail.umbler.com vc consegue acessar a caixa de e-mail, mas pelo acbr não se consegue enviar nenhum e-mail ja tentei smtp = smtp.umbler.com porta = 587 usuario = teste tem um help deles mas ja olhei todos e não deu certo https://help.umbler.com/hc/pt-br/articles/360000264626-Configurando-meu-e-mail-no-Outlook-com-hotmail- https://help.umbler.com/hc/pt-br/articles/202385515-Migrando-e-mails-entre-provedores https://help.umbler.com/hc/pt-br/articles/202385605-Redirecionamento-de-e-mails

nada @Daniel Simoes, ele instala normal, so que os componentes não, ja exclui a pasta, peguei da minha maquina que esta funcionando normal e nada, ja fiz pelo instalador, ja fiz instalando pela bpl e nada roda

estou fazendo a instalação do acbr no windows 2003 server pelo AcbrInstall, ele faz a compilação e instalação normal, so que quando vou no delphi não tem nada instalado. Ja fiz a instalação com opção de limpar todo o acbr antigo e tambem não deu certo. Alguem ja passou ou tem alguma solução ? Fico grato log_Delphi_2010_Win32.txt

boa noite pessoal, sei que o tópico é antigo mas o problema ainda persiste junto a sefaz, sempre dando erro de timeout, não uso acbr para manifestação das notas, uso tecnospeed ja bastante tempo e tambem não estou conseguindo baixar o xml, fazer a manifestação ate que funciona normal , mas baixar o xml so com reza, tem hora que funciona, tem hora que na maioria das vezes não da certo. entrei em contato com o pessoal do arquivei como ja disseram eles tem solução, mas cobram bem caro para baixar cada xml, mas é mais conta do que o site da serpro de onde eles fazen a conexão para baixar o xml. meus clientes estão puto sempre dizendo que o problema é do meu sistema e que outros clientes estão baixando normal os xml, so que o pessoal da tecnospeed ja enviaram milhões de e-mail para a sefaz dizendo sobre esse problema de lentidão mas sempre retornam a mesma explicação, que o servidor deles estão sem capacidade de processar todas as requisições e que o download entra em fila de solicitação, enfim tiraram o dele da reta e sempre sobra para os programadores. no fritar dos ovos, existe outra solução ? ou temos que nos sujeitar a site como o arquivei,serpro ou o fsist ou temos que continuar com esses erros da sefaz ? qual opnião de voces ? qual solução encontraram

estou fazendo a integração de publicação de produtos no mercado livre e tenho que importar as categorias de produtos, o ML disponibiliza uma API para baixar o json e fazer a importação no sistema ERP Ja tentei de tudo para fazer essa importação e não estou conseguindo, não sei se o problema é por causa do tamanho do json, cerca de 40.000 categorias ou outro motivo que não encontrei o Json esta correto pq ja fiz a validação dele e esta tudo correto. Segue o arquivo zipado do json com todas as categorias, se alguem puder me ajudar fico muito agradecido Segue o codigo que estou usando para fazer a importação dele JsonPrincipal : TlkJSONobject; JsonPrincipal := TlkJSON.ParseText(TEncoding.ASCII.GetString(TEncoding.ASCII.GetBytes(Memo1.Lines.Text))) as TlkJSONobject; Ele passa no JsonPrincipal normal, so que se for ver se tem algum registro usando o JsonPrincipal .count ele da erro de access violation, parece que não foi criado a JsonPrincipal categoria.zip

alguem do grupo ja fez publicação de produtos no mercado livre ? estou terminando a integração e parei na categoria que tenho que informar. Se alguem ja fez e puder dar um help fico grato Fernando Rodrigo

boa noite pessoal, olhando o arquivo csv em anexo, ele esta incompleto e irão ter alguns problemas fazendo a importação dessa forma. Uma compra parcelado em 10x o arquivo exportado, so contem 1 registro em vez de 10 parcelas, então nesse caso como irão fazer a baixa da duplicata atribuida a essa venda parcelada. Exemplo Comprei 1.000,00 / 4 parcelas, cada parcela de 250,00, quando a cielo exporta nessa padrão acima, ele irá exportar somente 1 registro de 1.000,00 e não um registro para cada parcela e nesse caso quando for fazer a baixa do título gerado pela compra no cartão, como irão fazer ja que no csv esta lançado 1.000,00 Existe outro arquivo que eles exportam que vem completo, seque anexo o da Cielo 20200103_CIELO04_1098553761_68432784

bom dia, Alguma novidade sobre esse tópico ?

eu uso ele no server e funciona normal, veja a conexão que vc esta fazendo se não tem nenhuma configuração incorreta

não tem token, e so passar o cnpj no final conforme abaixo e ele retorna o json https://www.receitaws.com.br/v1/cnpj/04005416000153

o posto é antigo mas estou tendo esse mesmo problema, se for fora do windows server funciona perfeito o comando acima, mas se for dentro do windows server vc so tem um IP de conexão, dai vc não consegue pelo select saber quantos estão conectados. qual seria a sugestão para quem usa terminal server ?

isso mesmo, no FastReport eu mandei uma unit para ela subir para o repositório com essas modificações, agora no FortesReport não tem e uso ele para fazer alguns relatorios

isso mesmo Bruno, a senha não é obrigatório no componente, as que recebo de fatura do cartão são os 4 primeiros digitos do CPF, isso evita muito fraude de boleto

disse errado Juliomar, a senha é no FortesReport e não no FastReport, no fastreport esta tudo certo e funcionando perfeitamente

Juliana, alguna novidade sobre a senha no fast report ?

Bom dia a todos, Tenho alguns relatórios de etiquetas utilizando o FastReport e a opção de DialogPage do relatorio para fazer alguns filtros diretamente dentro do próprio relatorios. Esses relatorios são customizados para cada cliente, então não vai dentro do sistema, so gero o arquivo fr3 e dentro do meu sistema ele abre esse arquivo customizado. Quando é feito a abertura do arquivo conforme abaixo, o usuario faz o filtro e faz a impressão do relatorio. So que quando o usuario fecha o relatorio para fazer outro filtro, ele fecha o relatorio inteiro e gostaria de saber como faço para voltar a tela Dialog para o usuario fazer outros tipos de filtros, sem fechar a tela e ter que entrar novamente. O print é somente um exemplo Quando fechar o relatorio voltar para o Dialog Vejam o print em anexo frxReport1.LoadFromFile(Caminho do arquivo fr3); frxReport1.ShowReport;

@BigWings, era isso mesmo, muito obrigado pela ajuda, fico muito grato, problema resolvido

@BigWings o problema esta na função abaixo que esta pegando 10 digitos na conta corrente e no arquivo de remessa pega 13, dai os campos ficam diferente Aqui o componente ja traz 10 digitos, veja a imagem e teria que ver 13 digitos, ja que na hora de processar a remessa vão os 13, dai o componente compara e da errado procedure TACBrCedente.SetConta(const AValue: String); var aConta: Integer; begin if fConta = AValue then exit; fConta:= AValue; aConta:= StrToIntDef(trim(AValue),0); if aConta = 0 then exit; fConta:= IntToStrZero(aConta, ACBrBoleto.Banco.TamanhoConta ); end;

pegue o arquivo de retorno em anexo e faça a leitura dele 3064_00203530_20190531_C240_00.ret

realmente @BigWings, começa na 59 mesmo, olhei o layout incorreto, mas o problema de pegar somente, mas o numero da conta vindo com 10 digitos dai fica errado mesmo, segue anexo o arquivo de retorno para dar uma olhada da forma que esta, 75600000 223216110000190 03064000000001188500JWA ROLAMENTOS E ACESSORIOS INSICOOB 2 - o campo numero da conta esta vindo formatado padrão com 10 digitos, sendo que no layout possui 13 digitos e quando vai comparar o que foi informado no preenchimento do componente e com o que esta vindo no arquivo de retorno esta ficando diferente ocasionando mensagem de erro conforme abaixo. if ( (not LeCedenteRetorno) and (rConta + rDigitoConta <> OnlyNumber( Cedente.Conta + Cedente.ContaDigito ) then raise Exception.CreateFMT('Conta do arquivo %s inválida, config %s',[rConta,OnlyNumber(Cedente.Conta + Cedente.ContaDigito)]); 3064_00203530_20190531_C240_00.ret

segue arquivo de retorno para checagem Cópia de JWA ROLAMENTOS E ACESSORIOS INDUSTRIAIS LTDA.xlsx

1 - no arquivo de retorno o campo numero da conta começa conforme layout na coluna 58 e o componente esta começando na coluna 59 2 - o campo numero da conta esta vindo formatado padrão com 10 digitos, sendo que no layout possui 13 digitos e quando vai comparar o que foi informado no preenchimento do componente e com o que esta vindo no arquivo de retorno esta ficando diferente ocasionando mensagem de erro conforme abaixo. if ( (not LeCedenteRetorno) and (rConta + rDigitoConta <> OnlyNumber( Cedente.Conta + Cedente.ContaDigito ) then raise Exception.CreateFMT('Conta do arquivo %s inválida, config %s',[rConta,OnlyNumber(Cedente.Conta + Cedente.ContaDigito)]); Existe no componente a opção de informar o tamanho da conta corrente, mas não esta acessivel para informar, o que resolveria o problema. Fiz a alteração passando a conta informada no componente para inteiro e o campo lido no arquivo de remessa tambem para inteiro, com isso os valores ficarão todos iguais não ocasionando o erro rCedente := trim(Copy(ARetorno[0],73,30)); rAgencia := trim(Copy(ARetorno[0],53,5)); rConta := IntToStr ( StrToInt ( trim(Copy(ARetorno[0],58,13)) ) ); rDigitoConta := Copy(ARetorno[0],71,1); if ( (not LeCedenteRetorno) and (rConta + rDigitoConta <> OnlyNumber( IntToStr ( StrToInt ( Cedente.Conta ) ) + Cedente.ContaDigito)) ) then raise Exception.CreateFMT('Conta do arquivo %s inválida, config %s',[rConta,OnlyNumber(Cedente.Conta + Cedente.ContaDigito)]); Com isso o problema foi resolvido Segue arquivo modificado ACBrBancoBancoob.pas segue arquivo de retorno para checagem 3064_00203530_20190531_C240_00.ret

Outra alteração feita tambem no retorno que estava tambem pegando em campo errado Antes na leitura do retorna estava dessa forma NumeroDocumento := Trim(Copy(SegT,59,15)); SeuNumero := NumeroDocumento; Carteira := Copy(SegT,58,1); NossoNumero := Trim(Copy(SegT,38,8)); Vencimento := StringToDateTimeDef( Copy(SegT,74,2) +'/'+ Copy(SegT,76,2) +'/'+ Copy(SegT,78,4), Tem que ficar dessa forma porque é o campo correto no layout NumeroDocumento := Trim(Copy(SegT,59,15)); SeuNumero := Trim(Copy(SegT,106,25)); Carteira := Copy(SegT,58,1); NossoNumero := Trim(Copy(SegT,38,8)); Vencimento := StringToDateTimeDef( Copy(SegT,74,2) +'/'+ Copy(SegT,76,2) +'/'+ Copy(SegT,78,4), 0, 'dd/mm/yyyy' ); ACBrBancoSicredi.pas

No segmento P para CNAB 240, na coluna 196/220 esta sendo informado o campo NumeroDocumento, conforme abaixo, so que esse campo ja esta sendo informado na coluna 63/77, o campo da coluna 196/220 no layout é um campo livre que é retornado no arquivo de retorno e não é processado pelo banco, é um campo livre, conforme layout do Sicredi, foi alterado para ser informado o campo SeuNumero, conforme todos os bancos que utilizam esse campo. O campo SeuNumero é um campo livre não sendo processado pelo banco e é retornado no arquivo de remessa, nele qualquer informação que será passado, será retornado no arquivo de retorno Antes ATipoBoleto + // 061 a 062 - Identificação de emissão do bloqueto + 062 a 062 - Identificação da distribuição PadRight(NumeroDocumento, 15) + // 063 a 077 - Nº do documento de cobrança FormatDateTime('ddmmyyyy', Vencimento) + // 078 a 085 - Data de vencimento do título IntToStrZero(Round(ValorDocumento * 100), 15) + // 086 a 100 - Valor nominal do título '00000' + // 101 a 105 - Coop./Ag. encarregada da cobrança Space(1) + // 106 a 106 - Dígito verificador da coop./agência PadLeft(Especie, 2, '0') + // 107 a 108 - Espécie do título AceiteStr + // 109 a 109 - Identificação de título aceito/não aceito FormatDateTime('ddmmyyyy', DataDocumento) + // 110 a 117 - Data da emissão do título IfThen(ValorMoraJuros = 0, '3', '1') + // 118 a 118 - Código do juro de mora '00000000' + // 119 a 126 - Data do juro de mora IntToStrZero(Round(ValorMoraJuros * 100), 15) + // 127 a 141 - Juros de mora por dia/taxa TipoDescontoToString(ACBrTitulo.TipoDesconto) + // 142 a 142 - Código do desconto 1 IfThen(ValorDesconto = 0, '00000000', FormatDateTime('ddmmyyyy', Vencimento)) + // 143 a 150 - Data do desconto 1 IntToStrZero(Round(ValorDesconto * 100), 15) + // 151 a 165 - Valor percentual a ser concedido IntToStrZero(Round(ValorIOF * 100), 15) + // 166 a 180 - Valor do IOF a ser recolhido IntToStrZero(Round(ValorAbatimento * 100), 15) + // 181 a 195 - Valor do abatimento PadRight(NumeroDocumento, 25) + // 196 a 220 - Identificação do título na empresa CodProtesto + // 221 a 221 - Código para protesto Depois ATipoBoleto + // 061 a 062 - Identificação de emissão do bloqueto + 062 a 062 - Identificação da distribuição PadRight(NumeroDocumento, 15) + // 063 a 077 - Nº do documento de cobrança FormatDateTime('ddmmyyyy', Vencimento) + // 078 a 085 - Data de vencimento do título IntToStrZero(Round(ValorDocumento * 100), 15) + // 086 a 100 - Valor nominal do título '00000' + // 101 a 105 - Coop./Ag. encarregada da cobrança Space(1) + // 106 a 106 - Dígito verificador da coop./agência PadLeft(Especie, 2, '0') + // 107 a 108 - Espécie do título AceiteStr + // 109 a 109 - Identificação de título aceito/não aceito FormatDateTime('ddmmyyyy', DataDocumento) + // 110 a 117 - Data da emissão do título IfThen( (ValorMoraJuros > 0) and (CodigoMora= ''), '1', PadRight(CodigoMora, 1, '3') ) + // 118 a 118 - Código do juro de mora IfThen((DataMoraJuros > 0), FormatDateTime('ddmmyyyy', DataMoraJuros), '00000000') + // 119 a 126 - Data do juro de mora IntToStrZero(Round(ValorMoraJuros * 100), 15) + // 127 a 141 - Juros de mora por dia/taxa TipoDescontoToString(ACBrTitulo.TipoDesconto) + // 142 a 142 - Código do desconto 1 IfThen(ValorDesconto = 0, '00000000', FormatDateTime('ddmmyyyy', Vencimento)) + // 143 a 150 - Data do desconto 1 IntToStrZero(Round(ValorDesconto * 100), 15) + // 151 a 165 - Valor percentual a ser concedido IntToStrZero(Round(ValorIOF * 100), 15) + // 166 a 180 - Valor do IOF a ser recolhido IntToStrZero(Round(ValorAbatimento * 100), 15) + // 181 a 195 - Valor do abatimento PadRight(SeuNumero, 25) + // 196 a 220 - Identificação do título na empresa CodProtesto + // 221 a 221 - Código para protesto ACBrBancoSicredi.pas

interessante o componente, hoje qual seria o custo de consulta no spc ?