RibaSoft

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.

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.

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

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.

Legal, aprendi mais uma

A sim tranquilo, em qual aba ele vai ficar?

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.

Acabei de receber o retorno da Receita, arquivo validado com sucesso!!! DEUS abençoe a todos

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.

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.

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

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.

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

Valeu, brigadão

Show, brigadão, se vc quiser esperar mais um pouco pra liberar, pois dia 15/08/2020 mudara a versão do arquivo e provavelmente esse formato que te passei não será mais aceito, to tentando baixar o PDF da nova versão mais esta fora do ar.

A sim, que legal, desculpa se não entendi algo, mas o componente vai gerar só a estrutura do arquivo de texto né? sem fazer calculo nenhum, achei que vc tinha dito que não compensaria fazer o componente por causa das responsabilidades dos cálculos, acho que entendi errado, que bom que o projeto continua, dai esses campos novos assim que eu tiver acesso a informação eu coloco aq, o PDF da nova versão esta fora do ar no momento. brigadão por enquanto. DEUS abençoe

Bom dia, a Receita lançou uma nova versão com novos campos do ADRCST, não consegui baixar o PDF mas assim que conseguir estarei fazendo as alterações e disponibilizando a classe atualizada, conforme o sr Juliomar Marchetti informou, o ACBr não pode se responsabilizar pelos cálculos contidos nessa classe, sendo assim não sei se é viável criar um componente para essa finalidade. Mas se não tiver problemas estarei mantendo esse tópico atualizado com as informações que eu conseguir. Caso eu não esteja procedendo de forma adequada aq no fórum favor me corrigir pois não tenho muito conhecimento de como proceder em fóruns. DEUS abençoe a todos. Regras alteradas na versão 1.2 do Manual do ADRC ST: 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 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) Registro 1500 - incluído campo L05, para identificar a MVA_ICMSST utilizada no cálculo do campo L03.

Caso alguém esteja tendo o mesmo problema de mime type acabei de descobrir que se passar tudo pra minusculo pode resolver ao menos resolveu o meu aqui por enquanto, se alguém souber outra forma de resolver avise por favor.

Olá, o Site da Receita está barrando alguns arquivos com erro de mime type, ele requer o text/plain e acusa estar recebendo o text/x-Algol68. Se alguém quiser fazer o teste basta criar uma arquivo de texto comum e escrever nele 'REF 000' por exemplo (sem aspas) e ele é recusado, testei REF com outros números também recusou, pesquisei bastante e vi algo sobre bits mágicos que em lugares específicos de um arquivo de texto indicam seu mime type, alguém sabe como posso evitar esse problema? Tipo se alguém souber me dizer quais sequencias de caracteres dão problema eu faço um procedimento pra evitar, tentei argumentar com um funcionário da receita mas ele me ignorou alegando que o meu arquivo realmente não esta no formato correto, mas tenho certeza que não é isso pois já valideis dezenas de arquivos. Mas quando da esse tipo de erro tenho que verificar linha por linha até achar qual sequencia dá problema através do link https://htmlstrip.com/mime-file-type-checker? Desde já agradeço a todos, DEUS abençoe

Oi desculpa, não ter detalhado, ali era uma nfc, mas na nfe deu o mesmo problema, dai voltei pra versão 2.0.8 do lazarus, eu não tinha notado que a versão 2.0.10 era tão recente geralmente espero um pouco antes de atualizar pra evitar erros, dai quando tiver tudo certinho eu atualizo, muito obrigado pela atenção, vou ver aq como marcar pra seguir esse topico, achei que já estava seguindo por isso demorei pra responder. DEUS abençoe

Mas da erro na impressão, alguém sabe como resolver?

Pelo repositório online do Lazarus não ta compilando mas pelo https://github.com/fortesinformatica/fortesreport-ce/trunk foi de boa.