Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

RibaSoft

Membros
  • Content Count

    65
  • Joined

  • Last visited

Community Reputation

36 Excellent

About RibaSoft

  • Rank
    Membro

Contact Methods

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

Profile Information

  • Sexo
    Masculino
  • Localização
    Carlópolis - Paraná

Recent Profile Visitors

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

  1. Minha classe já esta validando as saídas 1200 e 1300, falta só a 1400 e 1500 agora.
  2. Ola, tenho um cliente entre 47 que não aceita nenhuma das dlls do OpenSSL que veio na pasta dos fonts baixados a 3 dias, só aceita as dlls da pasta 1.0*** de uma versão antiga dos fontes, alguém sabe o que pode ser? Ele usa windows 10 Pergunto pq eu gostaria de colocar no meu instalador as mesmas dlls para todos os clientes de preferencia com as ultimas versões do OpenSSL Minhas configurações NFC.SSL.SSLType := LT_TLSv1_2; //Protocolo de Segurança de Comunicação NFC.SSL.SSLXmlSignLib := xsLibXml2; //Gerenciador de Assinatura NFC.SSL.Senha := Config.CertSenha; //Certificado A1 if (Config.CertTipo = 0) then //arquivo pfx begin NFC.SSL.SSLCryptLib := cryOpenSSL; //Gerenciador de Certificado NFC.SSL.SSLHttpLib := httpOpenSSL; //Gerenciador da Comunicação NFC.SSL.ArquivoPFX := Config.CertLocalPFX; end; //Certificado A3 if (Config.CertTipo = 1) then //do repositorio begin NFC.SSL.SSLCryptLib := cryWinCrypt; //Gerenciador de Certificado NFC.SSL.SSLHttpLib := httpWinHttp; //Gerenciador da Comunicação NFC.SSL.NumeroSerie := Config.CertSerie; NFC.SSL.CarregarCertificado; end;
  3. Boa tarde, acabei de acabar a unit para geração do componente, como não consegui alguém para me orientar eu segui o padrão do componente da NFe . A unit está pronta para os registros 0000, 1000, 1010, 1100, 1110, 1200, 1210, 9000 ou seja para vendas do simples nacional para o consumidor final sem devoluções. vou implementar essa unit no meu sistema e depois continuarei melhorando-a adicionando novos registros para as demais operações e tratando as propriedades para verificar alguns erros já na geração do arquivo. Tem dois contadores que entraram em contato comigo por aqui que me auxiliarão nos cálculos, uma parceria que tocara minha mão de obra pelo conhecimento deles. Para quem já servir como está e quiser ir usando seque o exemplo de uso, qualquer duvida no que estiver ao meu alcance estarei a disposição. DEUS abençoe a todos. uses unitADRCST; //********************** try ADRCST := TADRCST.Create; ADRCST.PathSalvar := 'D:\Desktop'; //Abertura do arquivo e identificação do contribuinte with ADRCST.REG0000 do begin COD_VERSAO := 100; MES_ANO := '032020'; CNPJ := '99999999999999'; IE := '9999999999'; NOME := 'Empresa X'; CD_FIN := 0; N_REG_ESPECIAL := ''; CNPJ_CD := ''; IE_CD := ''; end; //Adiciona os itens with ADRCST.Item.New do begin with REG1000 do begin IND_FECOP := 1; COD_ITEM := '3'; COD_BARRAS := ''; COD_ANP := ''; NCM := '22021000'; CEST := '0300700'; DESCR_ITEM := 'REFRIGERANTE 200 ML'; UNID_ITEM := 'UND'; ALIQ_ICMS_ITEM := 18.00; ALIQ_FECOP := 2.00; end; //Identificação do inventário do produto with REG1010 do begin COD_ITEM := '3'; UNID_ITEM := 'UND'; QTD := 1.00; VL_TOT_ITEM := 1.00; TXT_COMPL := ''; end; //Registro 1100 – Totalizador das entradas do produto REG1100.MENOR_VL_UNIT_ITEM := 0.99; //Identificação das notas fiscais de entrada with REG1110.New do begin DT_DOC := '19022020'; COD_RESP_RET := 1; CST_CSOSN := 60; CHAVE := '*******************'; N_NF := 691640; CNPJ_EMIT := '9999999999999'; UF_EMIT := 'PR'; CNPJ_DEST := '319*************'; UF_DEST := 'PR'; CFOP := 5405; N_ITEM := 9; UNID_ITEM := 'UND'; QTD_ENTRADA := 12.00; VL_UNIT_ITEM := 0.99; VL_BC_ICMS_ST := 18.12; end; //Registro 1210 – Identificação das notas fiscais de saída para consumidor final with REG1210.New do begin DT_DOC := '06032020'; CST_CSOSN := 500; CHAVE := '4120033***********************************'; N_NF := 417; CNPJ_EMIT := '319**********************'; UF_EMIT := 'PR'; CNPJ_CPF_DEST := ''; UF_DEST := ''; CFOP := 5405; N_ITEM := 2; UNID_ITEM := 'UND'; QTD_SAIDA := 2.000; VL_UNIT_ITEM := 2.00; end; end; ADRCST.GerarArquivo; finally ADRCST.Free; end; unitADRCST.pas
  4. Bom dia, ontem fiquei até as 01:00 da madruga pra adiantar, e já estou na metade, vou pegar firme aqui e mais tarde posto aqui a unit como está e o arquivo técnico do governo. A parte dos cálculos vou pegar com um contador, é mais pra ver se a unit está nos padrões ACBr. Muito obrigado pela atenção DEUS abençoe
  5. Olá Eu comecei a unit me baseando na unit do nfe quem puder da uma olhada pra ver se esta no padrão acbr por favor unitADRCST.pas
  6. Segue em anexo para quem mais interessar. DEUS abençoe 202003.txt
  7. Olá Eu gostaria de desenvolver um componente gerador do arquivo ADRC-ST para o ACBr, e fui orientado pela Juliana Tamizou a criar esse tópico. Como sou autodidata e devidos a outras limitações, eu preciso da ajuda de alguém para poder seguir os padrões que já são usados nos demais componentes do ACBr. Principalmente na parte de criar lista de objetos, to pesquisando aq a respeito ainda, mas como existem varias formas, gostaria de me focar na forma que o ACBr já usa. Caso alguém tenha interesse em me ajudar no meu site estão os dados do meu contato. https://www.ribasoft.com.br/ DEUS abençoe
  8. Muito obrigado pela rápida resposta, vou fazer isso então, se quiser encerrar esse tópico da minha parte pode ficar a vontade pois criarei outro sobre o componente conforme vc instruiu. DEUS abençoe
  9. Bom dia Visto que graças a DEUS meu sistema está gerando os arquivos ADRCST com sucesso, estou criando uma unit para disponibilizar aqui e se o pessoal do ACBr achar viável, se criar um componente, por isso gostaria de saber se há interesse na criação do componente, e se alguém poderia me supervisionar e auxiliar para a criação dessa unit nos moldes dos demais componentes já disponibilizados pelo ACBr para facilitar a criação do componente. Caso não haja interesse do ACBr na criação desse componente eu disponibilizarei meu código de alguma forma. Agradeço a atenção de todos DEUS abençoe
  10. SUCESSO!!! Consegui baseado nos cálculos dessa planilha que estou disponibilizando abaixo, reajustei ela hoje. Agora vou desenvolver um aplicativo para um contador, para eu aprender os demais cálculos e situações para poder disponibilizar aqui um componente, classe ou aplicativo completo. Calculo ADRC-ST.xlsx
  11. Olá, consegui descobrir o erro que estava dando, é por causa da codificação do arquivo, quem usa o notepad++ deve usar o UTF-8 (sem BOM). Apareceu, outros erros agora, e irei revisar para ver o que mais está de errado, muito obrigado, vc me ajudou muito pois achei que era erro da receita e por isso parei de tentar, mas como vc falou que conseguiu validar percebi que o erro era meu mesmo, DEUS abençoe
  12. Boa Tarde, após o envio vc fez a consulta do mesmo? Pergunto porque aparentemente meu arquivo está igual ao seu, e é retornado uma mensagem de erro mesmo assim.
  13. Que bom, parece que estou no caminho certo!!! Ontem conversei com um senhor chamado Jaime, ele diz ter bastante experiencia na parte contábil e precisa gerar esse arquivo para diversos ramos de atividade em diversos tipos de operação, vou desenvolver um aplicativo pra ele e ele me passara seu conhecimento, dai assim que eu terminar vou disponibilizar aqui tudo bem explicadinho. Mitiyo Yamakawa Gomide, pelo que entendi vc conseguiu validar o arquivo junto a receita, vc pode me passar como fez por favor?
  14. https://drive.google.com/drive/folders/1KxbTCUo54gxRn385F55--gLdbCFzuAtX Coloquei os arquivos nessa pasta minha do google, são as planilhas, tudo o que eu consegui e entendi então neles. No meu site tem o meu contato, se eu puder ajudar em algo mais estou a disposição https://www.ribasoft.com.br/
  15. Boa tarde, ta complicado, não estou conseguindo ter muitas informações concretas, eu fiz uma planilha de cálculos do ADRC-ST e uma planilha de calculo de ICMS ST com MVA, quem viu as planilhas disse que aparentemente estão certas, mas não conheço ninguém que tenha conseguido validar ainda o arquivo junto a receita, o máximo que consegui foi enviar mas da um erro sem sentido. Se quiser dar uma olhada esta tudo aq mesmo, nas respostas anteriores.
×
×
  • Create New...