Jump to content

RibaSoft

Membros
  • Posts

    114
  • Joined

  • Last visited

Contact Methods

  • Website URL
    http://ribasoft.blogspot.com

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

RibaSoft's Achievements

  1. RibaSoft

    GMail API

    Olá, só passando para avisar que devido a complexidade e algumas falhas na API do Gmail, optei por usar o Spark Post como o Daniel Simões havia sugerido nesse link. Da minha parte pode se encerrar este post, DEUS abençoe a todos.
  2. RibaSoft

    GMail API

    Muito obrigado pela atenção, a parte do Id/client secret eu já fiz, só a estrutura de envio e quais classes usar que eu estou perdido, mas vou ver esse link que vc passou. DEUS abençoe
  3. RibaSoft

    GMail API

    Já uso o e-mail no meu sistema para envio de XMLs para o destinatários da NF e envio de XMLs no começo do mês para as contabilidades, sou autônomo, minha cidade é muito pequena e simples, não consigo agregar mais custo, mas muito obrigado pela atenção, vou usando o SMPT do SendGrid até conseguir voltar para o gmail. DEUS abençoe.
  4. RibaSoft

    GMail API

    Olá a todos, como o termino do gmail para aplicativos menos seguro por smtp está próximo, teria alguma possibilidade de criar um componente de email usando o api do gmail? tenho procurado conteúdo a dias na internet e não tenho encontrado nada (que eu tenha entendido). Se alguém puder me dar uma luz eu ficarei muito grato e caso eu consiga desenvolver algo funcional e for de interesse de todos postarei aqui o resultado.
  5. Boa tarde auxSTATUS := NFC.NotasFiscais.Items[0].NFe.procNFe.cStat; auxProtocolo := NFC.NotasFiscais.Items[0].NFe.procNFe.nProt; auxXMOTIVO := NFC.NotasFiscais.Items[0].NFe.procNFe.xMotivo; Assim funciona certinho pra pegar os retornos. Desculpe ter postado duas vezes, achei que tinha aparecido a pergunta do T2 Sistemas
  6. Boa tarde auxSTATUS := NFC.NotasFiscais.Items[0].NFe.procNFe.cStat; auxProtocolo := NFC.NotasFiscais.Items[0].NFe.procNFe.nProt; auxXMOTIVO := NFC.NotasFiscais.Items[0].NFe.procNFe.xMotivo;
  7. Boa tarde, um contador pediu pra eu fazer pra ele, a parte fiscal eu não entendi muito bem, mas quem quiser fazer essa operação do SISCRED, é esse arquivo gerado que envia. Pelo que entendi é pra transferir créditos de uma pessoa para outra, de todos os contadores que conheço só um mexeu com isso, por isso é tão difícil achar isso na net e por isso eu quis contribuir caso alguém precise. Mas caso não seja conveniente esse post que criei pode excluir por favor. DEUS abençoe
  8. Olá a todos, criei uma classe para gerar o arquivo para o siscred e gostaria de compartilhar com vcs. o arquivo gerado ja foi validado. DEUS abençoe a todos. Sobre o SISCRED => www.fazenda.pr.gov.br/Pagina/conhecer-Siscred libSISCRED.pas unitPrincipal.pas
  9. Eu tambem fiquei na duvida lendo o manual, mas explicando assim entedi certinho .
  10. * Ajustei com um Break no for pra ele pegar o primeiro item for I := 0 to Pred(auxItens.Count) do begin auxItem := UpperCase(Copy(auxItens[I], 1, Length(MemKey))); if(auxItem = MemKey)then begin Result := I; Break; end; end;
  11. * Olá * Corrigi a função pois ela estava funcionado apenas com dois dígitos. * Na UF funcionou de boa, mas quando fui usar nos municípios que vi a caca que eu tinha feito. * Dai a função ficou assim... //========================== COMBO BOX KEY ===================================\\ function TRiba.ComboBoxKey(const AKey: char; AItens: TPersistent): integer; var auxItens: TStringList; I: integer; auxItem: string; begin MemKey := MemKey + FormataTexto(AKey); try auxItens := TStringList.Create; auxItens.Assign(AItens); for I := 0 to Pred(auxItens.Count) do begin auxItem := UpperCase(Copy(auxItens[I], 1, Length(MemKey))); if(auxItem = MemKey)then Result := I; end; finally auxItens.Free; end; TimerMemKey.Enabled := True; end; * E pra chamar ela ficou assim... //============================= CB UF KEY PRESS ==============================\\ procedure TFormClientes2.cbUFKeyPress(Sender: TObject; var Key: char); begin if (key = #13) then Exit; (Sender as TComboBox).ItemIndex := Riba.ComboBoxKey(Key, (Sender as TComboBox).Items); Key := #0; end; * Desculpa a falha!
  12. nossa desculpa, vou ver onde vc colocou e da proxima vez já coloco no lugar certo. DEUS abençoe
  13. * Olá, procurei muito por essa solução e como não encontrei decidi disponibilizar aqui a forma que eu pensei para o ComboBox do lázaros aceitar mais dígitos quando a propriedade Style = csDropDownList * Como a função em uma classe criei o Timer em tempo de exeção... * uses para criar o timer ExtCtrls var MemKey: string; //================================ CREATE ====================================\\ constructor TRiba.Create; begin TimerMemKey := TTimer.Create(nil); TimerMemKey.Interval := 1000; TimerMemKey.Enabled := False; TimerMemKey.OnTimer := @TimerMemKeyOnTimer; MemKey := ''; end; //================================= DESTRUCTOR ===============================\\ destructor TRiba.Destroy; begin TimerMemKey.Free; inherited Destroy; end; //================================ TIMER =====================================\\ procedure TRiba.TimerMemKeyOnTimer(Sender: TObject); begin MemKey := ''; TimerMemKey.Enabled := False; end; * Dai a função ficou assim... //========================== COMBO BOX KEY ===================================\\ function TRiba.ComboBoxKey(const Key: char): string; begin MemKey := MemKey + Key; Result := MemKey; TimerMemKey.Enabled := True; end; * E no evento on key press do combobox ficou assim... //============================= CB UF KEY PRESS ==============================\\ procedure TFormClientes2.cbUFKeyPress(Sender: TObject; var Key: char); begin //to usando o sender para poder anexar todos os combobox do form ao mesmo evento (Sender as TComboBox).Text := Riba.ComboBoxKey(Key); Key := #0; end; //===========================================================================\\ Se essa solução não for apropriada peço desculpa aos moderadores e peço que exclua essa portagem por favor. DEUS abençoe a todos!
  14. Olá, passando pra pedir desculpas por não conseguir colaborar no componente ADRCST do ACBR, pois sou limitado pelo meu pouco conhecimento e não consegui me adaptar ao padrão em que os componentes ACBr são feitos. Continuo a disposição para disponibilizar a classe que eu criei do meu jeito que graças a DEUS esta funcionando e validando todos os arquivos junto ao site do Receita PR Também aproveito para informar que para o Simples Nacional não é mais obrigatório o envio ADRCST a partir do mês que vem referente a este mês, pois o Simples entra como optante automático a isenção, quem quiser mais detalhes procurar por esse assunto https://vbrbrasil.com.br/parana-institui-rot-st/ Da minha parte pode-se encerrar esse tópico e quem precisar de ajuda, no pouco que sei estou a disposição para ajudar. Podem me encontrar pelo site https://www.ribasoft.com.br/ DEUS abençoe a todos.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.