Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

RibaSoft

Membros
  • Posts

    105
  • Joined

  • Last visited

Everything posted by RibaSoft

  1. Eu tambem fiquei na duvida lendo o manual, mas explicando assim entedi certinho .
  2. * 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;
  3. * 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!
  4. nossa desculpa, vou ver onde vc colocou e da proxima vez já coloco no lugar certo. DEUS abençoe
  5. * 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!
  6. 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.
  7. 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
  8. blz, brigadão, vou ver certinho lá e assim que pronto retorno, DEUS abençoe.
  9. 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
  10. 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
  11. 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.
  12. 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
  13. 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.
  14. 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.
  15. 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
  16. 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.
  17. 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.
  18. Acabei de receber o retorno da Receita, arquivo validado com sucesso!!! DEUS abençoe a todos
  19. dia 15 e dia 16 o Site da receita ainda não estava aceitando a nova versão, dando erro prematuro de versão e Qtde. de campos no reg 0000, mas hj já foi pra fila de processamento, validando eu informo aq. Lembrando que pelo Chrome não esta indo, mas no firefox sim.
  20. Pra fazer os testes precisa do CNPJ do arquivo ser o mesmo do usuário logado no site da receita, e tem todas as validações também, acredito que o jeito mais fácil pra testes seja pegar um xml de entrada e um de saída do cliente em questão, pra gerar um arquivo pequeno de teste que fique fácil de conferir os cálculos.
  21. Boa tarde Fiz as alterações para a versão 110 do ADRCST conforme Boletim informativo 015/2020 da Receita PR Não sei se ajuda, na criação do componente mas as alterações na classe que estou usando são essas abaixo... Registro 0000 – campo A02, alterada a versão do arquivo para 110 Registro 0000 - incluídos os campo A11 a A14, para identificar a opção de reaver ou complementar o imposto TREG000 = class private FCOD_VERSAO: integer; FMES_ANO: string; FCNPJ: string; FIE: string; FNOME: string; FCD_FIN: byte; FN_REG_ESPECIAL: string; FCNPJ_CD: string; FIE_CD: string; FOPC_1200: string; FOPC_1300: string; FOPC_1400: string; FOPC_1500: string; public property COD_VERSAO: integer read FCOD_VERSAO write FCOD_VERSAO; property MES_ANO: string read FMES_ANO write FMES_ANO; property CNPJ: string read FCNPJ write FCNPJ; property IE: string read FIE write FIE; property NOME: string read FNOME write FNOME; property CD_FIN: byte read FCD_FIN write FCD_FIN; property N_REG_ESPECIAL: string read FN_REG_ESPECIAL write FN_REG_ESPECIAL; property CNPJ_CD: string read FCNPJ_CD write FCNPJ_CD; property IE_CD: string read FIE_CD write FIE_CD; property OPC_1200: string read FOPC_1200 write FOPC_1200; property OPC_1300: string read FOPC_1300 write FOPC_1300; property OPC_1400: string read FOPC_1400 write FOPC_1400; property OPC_1500: string read FOPC_1500 write FOPC_1500; end; --------------------------------------------------------------------------------------------------------------------- Registro 1500 - incluído campo L05, para identificar a MVA_ICMSST utilizada no cálculo do campo L03. TREG1500 = class private FQTD_TOT_SAIDA: currency; FVL_ICMSST_UNIT_ENTR: currency; FAPUR_ICMSST_RECUPERAR_RESSARCIR: currency; FMVA_ICMSST: currency; public constructor Create; destructor Destroy; override; property QTD_TOT_SAIDA: currency read FQTD_TOT_SAIDA write FQTD_TOT_SAIDA; property VL_ICMSST_UNIT_ENTR: currency read FVL_ICMSST_UNIT_ENTR write FVL_ICMSST_UNIT_ENTR; property APUR_ICMSST_RECUPERAR_RESSARCIR: currency read FAPUR_ICMSST_RECUPERAR_RESSARCIR write FAPUR_ICMSST_RECUPERAR_RESSARCIR; property MVA_ICMSST: Currency read FMVA_ICMSST write FMVA_ICMSST; end; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Registro 1300 – campo H05, ajustado o cálculo para recuperação em conta gráfica do cálculo para ressarcimento para fornecedor. Registro 1400 – campo J05, ajustado o cálculo para recuperação em conta gráfica do cálculo para ressarcimento para fornecedor. Registro 1500 – campo L03, corrigida fórmula para: (D04/(1+MVA)) x (Coeficiente da MVA x Percentual de Redução) x (B10) Os novos Calculos se encontram no arquivo do Manual Tecnico http://www.fazenda.pr.gov.br/arquivos/File/ICMS_ST/Manual_ADRC_ST_versao_1_2.pdf
  22. Bom dia, infelizmente nesse caso não vou poder ajudar, pois sou bem leigo na parte fiscal / contábil e eu não utilizo o registro 1500 nos meus clientes, tanto que até a classe que eu tinha disponibilizado aq, não tinha esse calculo só a formula, desculpa não poder ajudar. Um contador experiente conseguira te auxiliar mais nesse caso. DEUS abençoe.
  23. http://www.fazenda.pr.gov.br/arquivos/File/ICMS_ST/Manual_ADRC_ST_versao_1_2.pdf Segue o link da versão 1.2 do ADRCST
×
×
  • 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.