-
Total de ítens
22 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que wilsonaaugusto postou
-
Obrigado!
-
Boa tarde É possível usar a impressão do boleto no layout lPadraoPIX com outros bancos além do banco do brasil? As informações que vão no QRCode (url, txId e emv) sempre virão de uma API? E os boletos que são enviados via arquivo de remessa? Como eles podem obter os dados para o QRCode?
-
Bom dia! Acabei resolvendo da seguinte maneira: coloquei o valor 68 em 'ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito' mesmo. O calculo do digito do Nosso Numero ficou correto. Obrigado
-
Boa tarde! Estou gerando boletos para o banco Sicredi. Fui informado que preciso colocar a informação Posto de 2 digitos para ser usado em 'Agência / Código Beneficiário' do boleto. Olhei os fontes e encontrei a função: function TACBrBancoSicredi.MontarCampoCodigoCedente (const ACBrTitulo: TACBrTitulo ) : String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia + '.' + PadLeft(ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,2,'0')+ '.' + PadLeft(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,5,'0'); end; Notei que onde me foi indicado para usar o posto está sendo colocado o digito da agencia. No meu caso, o numero que preciso colocar é '68' e o dígito da minha agencia é 2. Onde eu coloco o valor 68 que me foi passado como valor do Posto? Obrigado pela atenção
-
Entendi. Estou, aos poucos, encontrando o que preciso e adaptando o código. Agradeço pela sua atenção. Muto obrigado.
-
Sim, eu vi este trecho de código. Notei o uso do count para erros e Alertas. E, pelo que entendi, usa o LoadXML para "pegar" os dados das notas. Como estou dando manutenção em código herdado, achei que teria algo similar ao que já tenho feito (ex. if NF.NfseCancelamento.DataHora <> 0 then) para não ter que mudar as regras já estabelecidas aqui. Desculpa não prestei atenção no trecho "memoLog.Lines.Add(" Vou ver como adapto aqui. Obrigado
-
Bom dia! Estou trocando os componentes ACBrNFSe pelo ACBrNFSex. Fiz a troca conforme o manual e foi tudo bem. Agora estou revendo os meus fontes e tenho um trecho após usar o ConsultarNFSeporRps: " Result := (NFSE.ConsultarNFSeporRps(NFSE.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NFSE.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(NFSE.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)));" onde utilizo: "if NFSE.WebService.ConsNfseRps.RetornoNFSe.ListaNfse.CompNfse.Count > 0 then "NF := NFSE.WebServices.ConsNfseRps.RetornoNFSe.ListaNfse.CompNfse.Items[0].Nfse;" O problema que estou tendo é que não encontro algo correspondente no ACBrNFSeX. Poderiam me indicar uma solução? Ou onde devo pesquisar? Nos fontes do exemplo não achei nada. Obrigado
-
Data Arquivo Remessa CNAB240 Banco ABC Brasil
wilsonaaugusto replied to wilsonaaugusto's tópico in ACBrBoleto
Bom dia! Gostaria de saber se as alterações foram feitas e atualizadas para eu poder fazer o update. Obrigado. -
Data Arquivo Remessa CNAB240 Banco ABC Brasil
wilsonaaugusto replied to wilsonaaugusto's tópico in ACBrBoleto
Bom dia! Obrigado pela atenção. Complementando, peço para alterarem o seguinte trecho, também: - Onde está IfThen((PercentualMulta > 0), '2', '1') + // 066 - 066 / Código da multa - mudar para IfThen((PercentualMulta > 0), '2', '0') + // 066 - 066 / Código da multa Obrigado -
Data Arquivo Remessa CNAB240 Banco ABC Brasil
wilsonaaugusto replied to wilsonaaugusto's tópico in ACBrBoleto
No ACBrBancoABCBrasil,pas, eu trocaria o trecho: IfThen((PercentualMulta > 0), '2', '1') + // 066 - 066 / Código da multa sDataMoraJuros + // 067 - 074 / Data da multa IfThen(PercentualMulta > 0, IntToStrZero(round(PercentualMulta * 10000), 15), IntToStrZero(0, 15)) + // 075 - 089 / Valor/Percentual a ser aplicado por IfThen((PercentualMulta > 0), '2', '1') + // 066 - 066 / Código da multa IfThen((PercentualMulta > 0), FormatDateTime('ddmmyyyy', DataMulta), '00000000') + // 67 - 74 Se cobrar informe a data para iniciar a cobrança ou informe zeros se não cobrar IfThen(PercentualMulta > 0, IntToStrZero(round(PercentualMulta * 10000), 15), IntToStrZero(0, 15)) + // 075 - 089 / Valor/Percentual a ser aplicado Peguei o trecho usado no ACBrBancoSantander.pas. Obrigado pela atenção. -
Bom dia! Na geração do arquivo remessa CNAB240 do banco ABC Brasil (ACBrBancoABCBrasil.pas), é usado a variável "sDataMoraJuros" para a Data do juros de mora (posições 119 - 126 do segmento P) e para Data da multa (posições 067 - 074 do segmento R). Acredito que a data da multa deveria ser estar em uma variável diferente; para isso eu preencho a propriedade "DataMulta" do título. Olhei os fontes de outros bancos e asa datas são tratadas separadas e no fonte do ABC Brasil não houve esse tratamento. Vou alterar aqui para enviar, mas queria saber se essa alteração poderia ser feita por vocês para novas versões?
-
Iniciando no uso da API do Mercado Livre
wilsonaaugusto replied to wilsonaaugusto's tópico in Dúvidas não relacionadas ao ACBr
Juliomar, muito obrigado. Vou baixar e começar a testar. -
Você quer dizer Delphi rodando em IOS? Não, eu não tive oportunidade pois os equipamentos da Apple são caros para mim.
-
Iniciando no desenvolvimento Mobile
wilsonaaugusto replied to bnobre's tópico in Dúvidas não relacionadas ao ACBr
Se quiser ver algo para o Delphi mobile, começa pelos vídeos do 99 Coders. Quanto a ferramenta mais utilizada, eu não sei qual poderia apontar... Não tem um canivete suiço como é o Delphi, o mais próximo que achei foi o Electron, mesmo assim é preciso noção do trio HTML+CSS+Javascript. Conhecendo os três, fica mais fácil ver as outras. Tem o Android Studio que é bom. Tem as soluções Java que considero ótimas mas leva tempo de aprendizagem. E o mercado não espera, quer que o profissional já saiba tudo agora. Uma abraço -
Iniciando no desenvolvimento Mobile
wilsonaaugusto replied to bnobre's tópico in Dúvidas não relacionadas ao ACBr
Olá! Estou na mesma situação: muita bagagem no Delphi e querendo ampliar os horizontes. O próprio Delphi 10 já te dá condições para isto. Vai depender de como você precisa fazer esta comunicação. Acredito que o pessoal faz um servidor REST com o próprio Delphi para intermediar a troca de dados entre o Desktop e o Mobile, se este for o caso. E o aplicativo mobile pode ser desenvolvido no Delphi também. Cursos tem aos montes, escolha o mais simples pra começar e faça tentativas e erros. Ou se estiver querendo sair do ambiente Delphi, começa vendo Node.JS para criar a API Rest com Javascript e React Native para o lado mobile. Tem o Electron também, te dá um solução que me parece ser amigável sendo Javascript e podendo gerar um .exe para o Windows. Existem mais soluções, só achei essas mais amigáveis para quem, como eu, pensa e respira Delphi. Boa sorte. -
Iniciando no uso da API do Mercado Livre
um tópico no fórum postou wilsonaaugusto Dúvidas não relacionadas ao ACBr
Estou começando uma integração com o Mercado Livre. Tenho como ferramentas para trabalhar o Delphi 7 + Indy 9. Seguindo o tutorial deles, iniciei os teste da API usando a minha conta pessoal. Criei um app usando o exemplo deles em Node.js e publiquei no Heroki. De posse o ID do aplicativo, fiz a etapa de Autenticação e obtive um token. Estou parado na etapa de Autorização, usando o código a seguir, não otenho o JSOn de resposta: procedure TForm1.bt_PostClick(Sender: TObject); var st_URL : string; lParams: TStringList; lResponse: TStringStream; begin st_URL := 'https://api.mercadolivre.com.br/oauth/token'; lParams := TStringList.Create; lResponse := TStringStream.Create(''); try try lParams.Add('grant_type=authorization_code'); lParams.Add('client_id=1855429386918006'); lParams.Add('client_secret=G6GxJmvOOwTrXnKNXv4a1whydOQzuoMo'); lParams.Add('code=TG-5f493b5c2d38620006aa18f8-201010794'); lParams.Add('redirect_uri=https://minhaappteste0.herokuapp.com/'); IdHTTP1.Response.ContentType := 'application/json'; IdHTTP1.Post(TIdURI.URLEncode(st_URL), lParams, lResponse); lResponse.Position := 0; mmResultado.Lines.LoadFromStream(lResponse); except on E: Exception do begin mmResultado.Lines.Add('Error on request: '#13#10 + e.Message); Exit; end; end; finally lParams.Free(); lResponse.Free(); end; end; Algúem poderia me ajudar com alguma dica? -
Instalação no Delphi 7
wilsonaaugusto replied to wilsonaaugusto's tópico in Dúvidas Gerais sobre o ACBr
Entendi. Vou fazer isso. Obrigado -
Instalação no Delphi 7
wilsonaaugusto replied to wilsonaaugusto's tópico in Dúvidas Gerais sobre o ACBr
Notei que no instalador do Fortes, ele também não encontra uma IDE para montar a lista. -
Instalação no Delphi 7
wilsonaaugusto replied to wilsonaaugusto's tópico in Dúvidas Gerais sobre o ACBr
Sim. Atualizei hoje. -
Bom dia ! Estou tentando fazer a instalação e na hora de marcar a ide (Delphi 7) não aparece nenhuma. O que poderia ser?
-
Ok. Obrigado.
-
Bom dia Estou começando a usar a impressao de boletos. Como faço para imprimir o nome do banco no lugar do logotipo? Quero fazer isso pois nao quero ficar guardando imagens em disco. Obrigado