Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

wilsonaaugusto

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    22

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por wilsonaaugusto

    Lay-out padraoPIX em outros bancos

    em ACBrBoleto

    Postado · Editado por wilsonaaugusto
    Erro de grafia

    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?

    Informação Posto no Banco Sicredi

    em ACBrBoleto

    Postado

    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

    Mudando do ACBrNFSe para o ACBrNFSex

    em ACBrNFSe

    Postado

    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

    Mudando do ACBrNFSe para o ACBrNFSex

    em ACBrNFSe

    Postado

    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

    em ACBrBoleto

    Postado

    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.

     

    Data Arquivo Remessa CNAB240 Banco ABC Brasil

    em ACBrBoleto

    Postado

    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 desenvolvimento Mobile

    em Dúvidas não relacionadas ao ACBr

    Postado

    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

    em Dúvidas não relacionadas ao ACBr

    Postado

    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

    em Dúvidas não relacionadas ao ACBr

    Postado

    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?


     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.