RibaSoft

A sim, peguei super firme nesse final de semana e já aprendi a fazer com o pacote weblaz que vem junto com o lazarus, muito obrigado pela atenção. , DEUS abençoe. Quem se interessar pode aprender nesse link.

A sim, desculpa, sei que não tem nada a ver, é que estou apredendo sobre api vi uns videos onde citavam o ACBr e achei que tinha algo nesse sentido, obrigado.

Que legal, tem algo no acbr hj em dia sobre fastcgi ou algo parecido com o horse?

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.

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

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.

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.

Que bom que deu certo, fico muito feliz em poder ajudar DEUS abençoe

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

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;

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

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

Eu tambem fiquei na duvida lendo o manual, mas explicando assim entedi certinho .

* 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;

* 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!

nossa desculpa, vou ver onde vc colocou e da proxima vez já coloco no lugar certo. DEUS abençoe

* 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!

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.

Geralmente algumas palavras em maiúsculo como REF dão esse problema, eu passei td pra minúsculo pra contornar até que a receita resolva isso

blz, brigadão, vou ver certinho lá e assim que pronto retorno, DEUS abençoe.

Agradeço o Antonio Tota, por ter descoberto o problema e compartilhado e o BigWings, pela sua atenção conosco e ter enviado a correção, da minha parte também está resolvido, DEUS abençoe a todos

Perfeito amigo resolveu aqui na hora, comentei a linha do UNICODE e criei uma como DELPHI2009_UP //{$IfDef UNICODE} {$ifDef DELPHI2009_UP} StoreProvider := CERT_STORE_PROV_SYSTEM_W; {$ELSE} StoreProvider := CERT_STORE_PROV_SYSTEM_A; {$ENDIF}; Para quem estiver com dificuldade em achar, esse arquivo esta em ...Fontes\ACBrDFe\ACBrDFeWinCrypt.pas Não sei se essa é a forma correta mas resolveu perfeitamente, realmente tenho muito oq aprender ainda, sem palavras pra agradecer, DEUS abençoe

Boa noite, não estou recebendo e-mail com as notificações do fórum, desculpa prometi tirar a tarde pra ver isso e acabou que não consegui, mas devo ir até mais tarde hj vendo isso, muiiiiito obrigado por compartilhar sua solução com a gente, vou experimentar aqui e retorno, DEUS abençoe.

Ainda não, mas um jeito tenho que dar, assim que eu descobrir a solução compartilho aq, se vc conseguir antes me avisa por favor, vou pegar a parte da tarde pra mexer só com isso, hj sai se DEUS quiser

Oi, muito obrigado pela atenção, já tentei todas as opções do storelocation, já fiz o downgrade do lazarus para o 2.0.8, já atualizei os fontes e nada. nem no meu sistema nem no exemplo. Eu não entendo, foi depois da atualização dos fontes ACBr, eu sempre deixo a copia dos fontes anteriores guardadas, mas dessa vez acabei apagando. estou testando com os certificados A1 instalados no Windows, mas minha necessidade é nos clientes de cartão A3, pois os A1 eu pego direto pelo arquivo, mas não aparece nem acessa nem o A1 nem o A3 do store.