Jump to content

Seja-Profissional-Saiba-mais.png Beneficios_banner.png

 

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

RibaSoft

Membros
  • Posts

    110
  • Joined

  • Last visited

Everything posted by RibaSoft

  1. 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
  2. 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;
  3. 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
  4. 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
  5. Eu tambem fiquei na duvida lendo o manual, mas explicando assim entedi certinho .
  6. * 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;
  7. * 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!
  8. nossa desculpa, vou ver onde vc colocou e da proxima vez já coloco no lugar certo. DEUS abençoe
  9. * 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!
  10. 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.
  11. 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
  12. blz, brigadão, vou ver certinho lá e assim que pronto retorno, DEUS abençoe.
  13. 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
  14. 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
  15. 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.
  16. 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
  17. 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.
  18. Olá, desculpe criar esse tópico, mas to desesperado, depois que atualizei os fonts e o lazarus, meus sistema sisplesmente parou de listar os certificados no Store do windows. *Meu codigo NF.SSL.SSLType := LT_TLSv1_2; //Protocolo de Segurança de Comunicação NF.SSL.SSLHttpLib := httpWinHttp; //Gerenciador da Comunicação NF.SSL.SSLCryptLib := cryWinCrypt; //Gerenciador de Certificado NF.SSL.SSLXmlSignLib := xsLibXml2; //Gerenciador de Assinatura NF.SSL.LerCertificadosStore; for I := 0 to pred(NF.SSL.ListaCertificados.Count) do ComboBoxListaCertificados.Items.Add(NF.SSL.ListaCertificados[I].RazaoSocial + ' | ' + NF.SSL.ListaCertificados[I].NumeroSerie); *Arquivo ACBr.inc // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2, LibXMLSEC, (NÃO RECOMENDADO) {.$DEFINE DFE_SEM_OPENSSL} // Comente a linha abaixo, se você quer que seu Executável dependa das DLLs LibXMLSEC (NAO RECOMENDADO) {$DEFINE DFE_SEM_XMLSEC} // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2. (NAO RECOMENDADO) {.$DEFINE DFE_SEM_LIBXML2} // Descomente a linha abaixo, se você não utiliza a obsoleta Capicom para Criptografia (RECOMENDADO) {$DEFINE DFE_SEM_CAPICOM} // Descomente a linha abaixo, se você não utiliza a obsoleta MSXML para Assinatura de XML (RECOMENDADO) {$DEFINE DFE_SEM_MSXML} // Descomente a linha abaixo, se você não deseja adicionar a Dependência da INDY nos seus Projetos {$DEFINE DFE_SEM_INDY} *Dlls libcrypto-1_1.dll libexslt.dll libiconv.dll libmysql.dll libssl-1_1.dll libxml2.dll libxslt.dll procurei bastante antes de criar esse tópico, nem o exemplo que vem no ACBr esta listando os certificados, me ajudem por favor.
  19. Olá se alguém puder me ajudar e confirmar os cálculos da calculadora ADRCST abaixo ficarei muito grato. Ela gera um log com as formulas que eu usei. DEUS abençoe. https://ribasoft.com.br/downloads/publicos/Calculadora_ADRCST.zip
  20. eu não estava achando, pq não estava aq, agora atualizei os fontes de novo e veio, pra eu conseguir testar e validar junto a receita preciso do registros 0000, 1000, 1010, 1100, 1110, 1200, 1210, 1999 e 9000. Dai eu só consegui identificar no componente o registro 0000, 1000 e 1999 e 9000 . Eu não fiz nenhum curso, aprendi a programar sozinho dai tenho dificuldade em entender o componente certinho. Dai oq é pra eu fazer? * Mexer nos fontes do ACBr aq, adicionando esses registros e te mandando, ou faço do meu jeito e te mando pra vc adequar ao padrão que vc seguiu? E continuo te mandando por aq mesmo ou por outro lugar? Desculpa as perguntas extremamente leigas, tô perdidinho.
  21. Que legal!!! Realmente tem o CD, como eu não uso acabei esquecendo dele, desculpa. Muito obrigado pela atenção e dedicação, acredito que ajudará muitas pessoas, pois nem eu nem os contadores com que trabalho, conhecemos alguém ou alguma empresa que já tenha desenvolvido o ADRCST. Acredito que daqui pra frente não há mais em que eu possa colaborar, pois já está num nível acima do meu conhecimento. sendo assim da minha parte o tópico está concluído. Mas se eu puder ajudar em outras questões estou a disposição em ribasoft.com.br DEUS abençoe a todos, fiquem com DEUS.
  22. Acabei de receber o retorno da Receita, arquivo validado com sucesso!!! 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.