Painel de líderes

ATENÇÃO! PARADAS PROGRAMADAS NOS AMBIENTES DE AUTORIZAÇÃO DE DF-e DA SVRS EM 09/02/2020 E 16/02/2020 Nesses dias serão executadas paradas programadas para manutenção emergencial dos ambientes de autorização de Documentos Fiscais Eletrônicos (DF-e) da SEFAZ Virtual do Rio Grande do Sul (SVRS): - Em 09-fev-2020, a partir das 07h 00min: CT-e, MDF-e, BP-e e NF3e - Em 16-fev-2020, a partir das 07h 00min: NF-e e NFC-e Os trabalhos nos dias citados terão duração máxima prevista de uma hora, incluindo um tempo máximo de 20 minutos de indisponibilidade ao longo desta hora. Durante os trabalhos serão ativadas a Sefaz Virtual de Contingência do Ambiente Nacional, para a autorização de NF-e, e a Sefaz Virtual de Contingência de São Paulo, para a autorização de CT-e. BP-e, NFC-e, MDF-e e NF3e deverão ser emitidos na modalidade de contingência off-line. ONE ficará indisponível nesses períodos.

Bom dia. Em relação aos dois erros citados: 1 - Problemas de conexão com multiplos MicroTerminais R: Atualizei o componente ACBrMTer onde o mesmo possui uma nova propriedade chamada "KeepAlive". Essa propriedade se refere a um timer que fica verificando de tempo em tempo se os MicroTerminais que estão conectados estão ativos. Com isso, os Microterminais recebem "beeps" de comandos onde o mesmo nunca irá ficar inativo, pois sempre de tempo em tempo ele recebe um comando. Com isso, atribui um valor na propriedade do componente (KeepAlive) de 5 segundos e resolveu o meu problema de perca de conexão com os MicroTerminais. 2 - Problemas ao reconectar os MicroTerminais? R: Nesse caso foi necessário reformular o método de conexão dos MicroTerminais pois a cada nova conexão ele chama o mesmo método para se reconectar. Então, criei um enumerador que possuem 3 opções: Create, Update e Destroy, onde Create seria a hora que o MicroTerminal será ligado pela primeira vez, Update é quando ele já estava conectado e por motivos diversos ele se desconectou, então ele irá se conectar novamente, e o Destroy é quando se encerra a conexão com todos os MicroTerminais. Com isso, foi possível solucionar a questão de reconectar os MicroTerminais sem travar todos eles. Se ficou alguma dúvida, só perguntar novamente que irei estar analisando a dúvida para te ajudar!!

Olá pessoal. Uma sugestão que melhoraria o AcbrBoleto em ambientes Web, quando gero a remessa, preciso gerar em um arquivo temporário pra depois enviar(download) para o browser. Adicionei um método GerarRemessaStream, que gera a remessa diretamente em um TStream, eliminando a necessidade de gerar/excluir arquivos nesses casos. Grato. ACBrBoleto.pas

Ao gravar o registro C500 o campo COD_GRUPO_TENSAO está sendo gravado incorretamente (acrescentando 1). Ex. correto, grupo de tensão gtA1: |C500|0|1|F000001|06|00|150||02|000002568|01012017|01012017|55,00|5,00|50,00|0,00|0,00|0,00|12,00|15,00|10,00|10,00||5,00|5,00|1|01| Ex. incorreto, grupo de tensão gtA1: |C500|0|1|F000001|06|00|150||02|000002568|01012017|01012017|55,00|5,00|50,00|0,00|0,00|0,00|12,00|15,00|10,00|10,00||5,00|5,00|1|02| Aparentemente o problema está na unit ACBrEFDBlocos na função GrupoTensaoToStr. Segue anexo unit corrigida. ACBrEFDBlocos.pas

Era um erro no sitdemo eles vão corrigir o problema

Boa Tarde pessoal. Pois é, estive lendo e analisando também e em uma noticia dizia que era apenas para MEI´s e citando o trecho que oJuliomar colocou parece realmente que é para produtores primários e talvez apenas MEI´s. Abração a todos. Grato!

Feito pcesS1210.pas

O ACBr (ainda) não é compatível com Android FMX... Fique atento as próximas notícias...

Atualizei o repositório e ficou correto. vlw.

Bom dia Eu sempre fugi desse SPED, meus clientes são todos do Simples Nacional, por isso não sei exatamente como funciona o SPED, mas hj vou começar uma maratona de estudos começando pelo ICMS e ficarei muito honrado se puder contribuir para o ACBr. Muito obrigado pela oportunidade. DEUS abençoe

Minha sugestão é que usem a tag infAdProd para imprimir as informações não obrigatórias do DANFE que cada usuário desejar.

veja esse trecho então não vale pra todos

boa noite não temos nada sobre o assunto também não tem ideia de ser feito componente mas se quiser contribuir e pelo que notei é semelhante aos Speds basta pegar um deles e se basear para fazer um componente novo após implementado pode anexar aqui que iremos validar e se ficar ok adicionamos ao SVN

Gnostice https://www.gnostice.com/ componente que faz assinatura de PDF

Provavelmente a impressora não suporta margem menor que essa. Configure as margens no componente DAMDFE, lembrando que agora você deve informar elas em milímetros.

Se você precisa apenas de um programa que faça isso (e não de uma rotina)... Pode usar o ARISP http://www.arisp.com.br/DownloadAssinador.aspx

"J" deve ter 1 dígito, esta sendo considerado 3 causando a omissão da leitura da informação (Pensão Alimentícia no Recibo de Férias) sSecao := 'detRubrFer' + IntToStrZero(I, 2) + IntToStrZero(J, 1) + IntToStrZero(K, 2); sSecao := 'penAlim' + IntToStrZero(I, 2) + IntToStrZero(J, 3) + IntToStrZero(K, 2) + IntToStrZero(L, 2); [Correção]: sSecao := 'penAlim' + IntToStrZero(I, 2) + IntToStrZero(J, 1) + IntToStrZero(K, 2) + IntToStrZero(L, 2); pcesS1210.pas linha ~1318~ K := 1; while true do begin // de 01 até 99 sSecao := 'detRubrFer' + IntToStrZero(I, 2) + IntToStrZero(J, 1) + IntToStrZero(K, 2); sFim := INIRec.ReadString(sSecao, 'codRubr', 'FIM'); if (sFim = 'FIM') or (Length(sFim) <= 0) then break; with detRubrFer.New do begin codRubr := sFim; ideTabRubr := INIRec.ReadString(sSecao, 'ideTabRubr', EmptyStr); qtdRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'qtdRubr', ''), 0); fatorRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'fatorRubr', ''), 0); vrUnit := StringToFloatDef(INIRec.ReadString(sSecao, 'vrUnit', ''), 0); vrRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'vrRubr', ''), 0); L := 1; while true do begin // de 01 até 99 sSecao := 'penAlim' + IntToStrZero(I, 2) + IntToStrZero(J, 1) + IntToStrZero(K, 2) + IntToStrZero(L, 2); sFim := INIRec.ReadString(sSecao, 'cpfBenef', 'FIM'); if (sFim = 'FIM') or (Length(sFim) <= 0) then break; with penAlim.New do begin cpfBenef := sFim; dtNasctoBenef := StringToDateTime(INIRec.ReadString(sSecao, 'dtNasctoBenef', '0')); nmBenefic := INIRec.ReadString(sSecao, 'nmBenefic', EmptyStr); vlrPensao := StringToFloatDef(INIRec.ReadString(sSecao, 'vlrPensao', ''), 0); end; Inc(L); end; end; Inc(K); end; end; Inc(J); end;

Boa tarde. No dia 03/02/2020 foi publicado no DOE-CE o decreto 33.458, o qual altera a exigência da identificação do cliente somente se o valor da operação for igual ou superior a R$200,00 Segue transcrição do decreto Fonte: DOE SEFAZ-CE Noticia relativa ao decreto anterior

No caso de importação ou exportação .. as informações estariam nas devidas tag -<ICMS> -<ICMS10> <orig>0</orig> <CST>10</CST> <modBC>3</modBC> <vBC>16.30</vBC> <pICMS>18.00</pICMS> <vICMS>2.93</vICMS> <vBCFCP>16.30</vBCFCP> <pFCP>2.00</pFCP> <vFCP>0.33</vFCP> <modBCST>4</modBCST> <pMVAST>74.56</pMVAST> <vBCST>31.30</vBCST> <pICMSST>18.00</pICMSST> <vICMSST>2.70</vICMSST> <vBCFCPST>31.30</vBCFCPST> <pFCPST>2.00</pFCPST> <vFCPST>0.30</vFCPST> </ICMS10> Sem alteração no componente, utilizo : <infAdProd>DADOS DE FCP :( BASE : 16,30 PERC. : 2,00 VALOR : 0,33) - FCP ST:( BASE. : 31,30 PERC. : 2,00 VALOR : 0,30);</infAdProd>

Sem chance... essa etiqueta é provavelmente para Zebra, que tem o sensor de Gap no meio... o da Argox é no canto esquerdo... Algumas impressoras, como a Elgin L42 Pro, permitem o deslocamento do sensor de Gap

Teve uma correção não muito tempo atrás... Está com os fontes atualizados?

Se for implementar com base no que cada cliente exige, terá que criar opções no componente para selecionar cada coluna a se impressa no DANFE. Mas se a intenção é apenas imprimir esse grupo de informações dos dados da ST, veja que o manual permite o aproveitamento da mesma coluna para mais de uma tag, talvez seja uma opção melhor.

Desculpe demora na resposta, ontem fui fazer procedimento em hospital... Depois destes procedimentos e vários outros realmente não resolveu... Desinstalei todos demais componentes, versões delphi, reinstalei; adicionei só ACBr mas sem sucesso. Tentei combinações de configurações de instalação do ACBr, chegou a acusar erro ao carregar pacote ACBR_OpenSSL. Tentei voltar versões das DLLs OpenSSL anteriores e opção "Não usar OpenSSL" (não sei se sempre instala a última versão automaticamente) mas sem sucesso tbm. Mesmo sendo uma instalação recente do windows, acredito que algum outro programa instalado possa ter interferido em DLLs ou algo assim. O que acho estranho é que ao mesmo tempo, o outro notebook que usava antes há anos, funciona com a pasta ACBR sem últimas atualizações e ao atualizar, acusa mesmo erro, mas também não há mais ninguém no fórum citando problema similar. Então deve ser algo particular com minha instalação. Estou preocupado rsrs. Vou formatar e reinstalar windows e drivers, fazer bkp/imagem do disco, depois só instalar delphi e componentes ACBr atualizados antes de todos demais programas e componentes. Se mesmo assim ocorrer mesmo problema, vou testar também com a versão anterior da pasta ACBr que tenho. Quando terminar, posto o resultado. Agradeço muito pela ajuda por enquanto, obrigado.

Obrigado pelo retorno!!

Italo, obrigado pelo retorno. Com relação à questão da impressão de homologação/produção, foi corrigido mesmo. Atualizei o componente e coloquei a configuração do ambiente antes de imprimir e ficou perfeito. Com relação à questão inicial, vou realizar outros testes aqui e observar se está havendo o destaque do imposto no RPS. Assim que tiver uma definição mais exata, posto aqui. Grande abraço, Gilson Alves.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Anexe a unit modificada para validarmos

Obrigado, estaremos aguardando anciosamente.

Esse componente está depreciado... mantemos apenas por compatibilidade... Estou revisando todos os Fontes para FMX Linux e Android... Devo subir alguns ajustes ainda essa semana

Faz sentido, enviei pro repositório, rev. 18987.

Essa pergunta já foi respondida, reli o tópico, obrigado.

Bom dia Gilson, Quanto a mensagem de ambiente de homologação ser impressa mesmo o componente estar configurado para o ambiente de produção, já foi corrigido conforme apontado pelo Big Wings. Agora quanto o percentual da alíquota não ser impressa, você notou que no fragmento do XML que você anexou não consta a tag referente a alíquota? Se não tem a tag da alíquota isso significa que ela é zero, você concorda?

Bom dia. Obrigada pela contribuição, adicionada para análise. Att.

Bom dia Luã, Favor anexar o XML do envio do lote para que possamos analisar.

Boa noite vejo que conseguiu resolver mas poderia explicar pra nós em qual situação estaria falando para futuras pesquisas aqui no fórum

PAF com ECF tem suas regras NFC-e não tem as exigências do PAF. Mas se seu software gera ECF, DAV e NFC-e no mesmo executável tem que seguir as regras do PAF

Arnaldo, Não testei o código abaixo, apenas coloquei uma ideia de código, espero que possa de ajudar. A Ideia é para cada nota fiscal carregada no componente do ACBR, você percorre a collection de Pag e pega a instancia corrente e ai pode acessar os valores. var pagamento: TpagCollection; for i:=0 to ACBrNFe1.NotasFiscais[0].NFe.pag.count -1 do begin pagamento:= ACBrNFe1.NotasFiscais[0].NFe.pag; pagamento.indPag pagamento.tPag end;

Boa tarde, Envio anexo o arquivo modificado no componente de consulta CPF. Realizei a atualização dos endereços de captura do CAPTCHA e consulta para os que tem atualmente ao acessar diretamente o site da Receita. Com estes novos endereços a captura do CAPTCHA e consulta ficaram mais estáveis do que com o endereço anterior. ACBrConsultaCPF.pas

Obrigado pela contribuição... commit:[r18977]

Sim... baixe a última versão...

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Não problema nenhum, a aplicação que deverá ficar responsavel em enviar e dar os retornos, assim como tua aplicação cliente deverá passar as informações corretas, ai como já disse, é uma questão da programação e não do componente. Dercide Alvarez

Desculpa a demora em responder, infelizmente não encontrei solução para isso aqui, na sefaz-ba épocas festivas da mto time out e a unica solução é por minha aplicação em contingência e emitir todas as notas em contingência e no final do dia ou a noite envio todas.

O ACBr é código aberto... Use a força... leia os fontes... http://svn.code.sf.net/p/acbr/code/trunk2/Fontes/ACBrTCP/ACBrConsultaCNPJ.pas

O problema que Sefaz não quer que gere a nota de contigencia com próximo número e depois cancela a anterior pq alegam que vai ter cancelamento ou inutilização demais, quanto ao cnf não é esse o problema

Analisei os fontes, e a implementação parece correta... mas decidi não incorporar aos fontes do SVN, pelos seguintes motivos: - O método é exclusivo para a WinCrypt (e Capicom)... não funcionaria no OpenSSL ... Ok, isso também ocorre com o método "SelecionarCertificado", mas esse último método foi herdado do Trunk1 - O método é específico para CNPJ, e a ACBrDFeSSL também suporta Certificados com CPF - A rotina pode ser facilmente implementada na própria aplicação (usando o método: "LerCertificadosStore", e um Loop, e conforme demonstrado abaixo) Enfim... deixo aqui, trecho do código, onde o Loop é implementado, na sugestão proposta, para o caso de alguém tiver interesse de implementar o método na própria aplicação function TForm1.LocalizarNumeroSerieCertificado(ACNPJ: String): String; var I: Integer; ACNPJLocalizar, ACBPJCertificado: String; begin Result := ''; ACNPJLocalizar := OnlyNumber(ACNPJ); if (ACNPJLocalizar = '') then raise EACBrDFeException.Create('CNPJ não informado'); if (Length(ACNPJLocalizar) <> 14) then raise EACBrDFeException.Create('Informar CNPJ com 14 digitos'); ACBrNFe1.SSL.LerCertificadosStore; for I := 0 to ACBrNFe1.SSL.ListaCertificados.Count-1 do begin ACBPJCertificado := OnlyNumber(ACBrNFe1.SSL.ListaCertificados[I].CNPJ); if (ListaCertificados[I].DataVenc >= Date) then if (Copy(ACBPJCertificado, 1, 8) = Copy(ACNPJLocalizar, 1, 8)) then Result := ACBrNFe1.SSL.ListaCertificados[I].NumeroSerie; end; end;

Olá Kiko, Estou disponibilizando para os demais estados caso alguém precise um dia. Esses foram os links que encontrei: UF LINK PR http://pdp.fazenda.pr.gov.br/arquivos/ativos PR_CANC http://pdp.fazenda.pr.gov.br/arquivos/cancelados SC http://sistemas.sef.sc.gov.br/convenio57/funcao_download.asp?arquivo=CadAtivo.txt RS http://www.sefaz.rs.gov.br/ASP/Download/SAT/Cadastro/ICS_Ativo2.zip MG http://www.fazenda.mg.gov.br/empresas/sistemas/sintegra/cadastro_simplificado.htm RJ http://www.receita.rj.gov.br/servicos/servicos/sintegra/download/rjcontrib.zip BA http://www.sefaz.ba.gov.br/contribuinte/legislacao/download/cnpj.EXE AL http://www.sefaz.al.gov.br/sintegra/downloads/cadastro.zip ES ftp://ftp.sefaz.es.gov.br/Sintegra/Sintegra.zip PB http://www.receita.pb.gov.br/scripts/download.php?f=ConTodos.zip MS http://arq.sefaz.ms.gov.br/sintegra/cci_resumido.zip GO ftp://ftp.sefaz.go.gov.br/sefazgo/ContribuintesAtivos.zip SE https://security.sefaz.se.gov.br/portal/download.jsp?Arquivo=SIC/Sintegra/sintegra.zip RO http://www.portal.sefin.ro.gov.br/site/file!go.action?type=file&id=79 CE http://www.sefaz.ce.gov.br/content/aplicacao/internet/download/enviados/ContribuintesAtivos.asp

Boa tarde. Ao chamar a função GerarRemessa() você deve passar como parâmetro o número atual da remessa. Exemplo:GerarRemessa(10); Att.