Painel de líderes

Em 12/04/2022 foi publicado no DOU o Ajuste SINIEF 11/2022, o qual define que após 180 dias da autorização da NFe, caso não seja informado nenhum registro dos eventos relacionados a mesma, a operação descrita ba NFe será considerada ocorrida, tendo os mesmos efeitos do evento de Confirmação da Operação. Ainda conforme o decreto, as alterações entram em vigor em 01/06/2022 Fonte: https://www.confaz.fazenda.gov.br/legislacao/ajustes/2022/ajuste-sinief-11-22

Atualizando o tópico... Se você usa Windows 7.. é necessário ter TODAS as atualizações do Windows em Dia, caso contrário, os novos "ciphers" não irão funcionar Se você usa certificado A1, recomendo fortemente o seguinte: Use a configuração para OpenSSL Isso exigirá as DLLs do OpenSSL. Copie TODAS as DLLs do Link abaixo na mesma pasta do seu .EXE, http://svn.code.sf.net/p/acbr/code/trunk2/DLLs/OpenSSL/1.1.1.10/X86/ Aponte o certificado A1 em ArquivoPFX, e deixe vazio o NumSerie

* Atualização * Em 28/09/2022 foi publicado o Ajuste SINIEF 41/2022, o qual postergou o inicio da vigência da tabela d CFOPs prevista pelo anexo II-A para 01/04/2022. Resumo : Foram promovidas alterações na relação de CFOP de que trata o Convênio Sinief s/nº de 1970, devendo ser observadas as seguintes tabelas constantes do: Em Vigor Válido até Anexo II 01/06/2022 Prorrogado para 31/03/2024 02/04/2023 Anexo II-A 01/04/2024 a) Anexo II, com nova redação no período de 1º.06.2022 a 31.03/2024* 02.04.2023. b) Anexo II-A, acrescentado a partir de 01.04.2024* 03.04.2023, revogando nessa mesma data o Anexo II citado na letra "a". Observa-se que, o ato em fundamento, revoga ainda, a partir de 1º.06.2022, o Ajuste Sinief nº 16/2020, que trazia nova redação para o referido Anexo II, antes mesmo de sua entrada em vigor. ---- XXXX ---- XXXX ---- O Ajuste SINIEF 03/2022 (12/04) altera o Convênio s/nº, de 15 de dezembro de 1970, no quesito Código Fiscal de Operações e de Prestações – CFOP. O que é CFOP? O Código Fiscal de Operações e Prestações – CFOP é formado por quatro números e cada tem um significado O primeiro número diz respeito ao tipo de operação (entrada ou saída). O CFOP é utilizado para emitir documento fiscal de operações com mercadorias e serviços tributados pelo ICMS. Do Ajuste SINIEF 03/2022, destacamos: Nova redação Cláusula primeira dá nova redação ao Anexo II do Convênio s/nº, de 15 de dezembro de 1970. Foi acrescentado Cláusula segunda acresce ao Convênio s/nº, de 15 de dezembro de 1970 o Anexo II-A Código Fiscal de Operações e de Prestações – CFOP. Revogação Cláusula terceira revoga os seguintes dispositivos: I – o Anexo II do Convênio s/nº, de 15 de dezembro de 1970 (a partir de 3-4-2023); II – o Ajuste SINIEF nº 16, de 30 de julho de 2020 (a partir de 1-6-2022). Produção de efeitos Cláusula quarta, determina que as alterações trazidas pelo Ajuste produzirá efeitos a partir: I – de 3 de abril de 2023, em relação à cláusula segunda e ao inciso I da cláusula terceira; II – de 1º de junho de 2022 , em relação aos demais dispositivos. Com a publicação do Ajuste SINIEF 03/2022, que revogou integralmente o Ajuste SINIEF 16/2020, muitos CFOPs que seriam extintos a partir de 3-4-2023 permanecerão em operação. Vale lembrar que o Ajuste SINIEF 16/2020 havia alterado a relação de CFOPs do Convênio s/n° de 1970. portanto o Anexo II com nova redação e vigência no período de 01/06/2022 a 02/04/2023 e Anexo II-A acrescentado a partir de 03/04/2023 e revogando na mesma data o Anexo II. Fonte : https://in.gov.br/en/web/dou/-/despacho-n-19-de-11-de-abril-de-2022-392870574

Bom dia a todos. O colega @Daniel Simões de Almeida informou que o webservice que fornecia as informações para o componente morreu... e na mesma ocasião o colega passou um link de um webservice da Siscomex que fornece os NCMs em um arquivo no padrão JSon. Fizemos as alterações necessárias para funcionar com o novo webservice, e gostaria de enviar os fontes para análise. Desde já agradeço pela atenção. Caminho do fonte : ACBr\Fontes\ACBrTCP\ ACBrNCMs.pas

De acordo com o layout o preenchimento é obrigatório e exclusivo se infoDirigenteSindical/categOrig corresponder a "Empregado" ou "Agente Público". Em anexo sugestão de alteração. pcesS2300.pas

ola, precisei fazer mais uma modificação. agora no registro H030 pois ele precisa de 6 casas decimais e estava sendo gerado somente 2. pelo que percebi a função LFill so tem sobrecarga para o tipo extended e não para o tipo double que eu precisei colocar nos campos deste registro para suportar 6 casas decimais, acho que é por isso que ela esta limitando a as casas decimais em 2, troquei essa função para a DFill e essa sim pussui uma sobrecarga para o tipo double e ai funcionou perfeitamente. segue em anexo alteracao. ACBrEFDBloco_H.pas ACBrEFDBloco_H_Class.pas

Boa tarde Douglas, Já inclui na minha lista de tarefas para analisar essa questão. TK-2565

Maioria dos Win 7 estão ok...

Prá quem ta com problema de envio de NFCE com W7, erro http:0 depois das atualizações da receita 2022 Consegui resolver em alguns clientes baixando o conteudo desta pagina> https://www.softdownload.com.br/download-service-pack2-windows7.html Valeu!!!

Bom dia Patrick, Já inclui na minha lista de tarefas para analisar o problema. TK-2563

Bom dia Marcos. Vc está usando a tag <autXML> para adicionar os interessados no download da NFe ? Ou somente informando os dados do transportador (tag Transp.Transporta) ? Seria interessante também ver esta NT 2020.004 https://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=A1ayJmuTiI8= que trata de 'Ator interressado na NFe'. []´s Edson.

está correto, qual problema está havendo com você? é primeira via, segunda via? Explica. Pois tenho isso já funcionando em cliente.

Boa noite, segue a solução para o problema. Já testei e foi homologado pelo banco. Caso seja interessante, favor adicionar no trunc2 do projeto. 2 units sofrerão modificações ACBrBancoBradesco.pas e ACBrBoleto.pas ACBrBancoBradesco.pas function MontaInstrucoesCNAB400(const ACBrTitulo :TACBrTitulo; const nRegistro: Integer ): String; override; function TACBrBancoBradesco.MontaInstrucoesCNAB400( const ACBrTitulo: TACBrTitulo; const nRegistro: Integer): String; var lNossoNumero, lDigNossoNumero: String; begin Result := ''; ValidaNossoNumeroResponsavel(lNossoNumero, lDigNossoNumero, ACBrTitulo); with ACBrTitulo, ACBrBoleto do begin {Primeira instrução vai no registro 1} if Mensagem.Count <= 1 then begin Result := ''; Exit; end; Result := '2' + // IDENTIFICAÇÃO DO LAYOUT PARA O REGISTRO Copy(PadRight(TiraAcentos(Mensagem[1]), 80, ' '), 1, 80); // CONTEÚDO DA 1ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO if Mensagem.Count >= 3 then Result := Result + Copy(PadRight(TiraAcentos(Mensagem[2]), 80, ' '), 1, 80) // CONTEÚDO DA 2ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO else Result := Result + PadRight('', 80, ' '); // CONTEÚDO DO RESTANTE DAS LINHAS if Mensagem.Count >= 4 then Result := Result + Copy(PadRight(TiraAcentos(Mensagem[3]), 80, ' '), 1, 80) // CONTEÚDO DA 3ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO else Result := Result + PadRight('', 80, ' '); // CONTEÚDO DO RESTANTE DAS LINHAS if Mensagem.Count >= 5 then Result := Result + Copy(PadRight(TiraAcentos(Mensagem[4]), 80, ' '), 1, 80) // CONTEÚDO DA 4ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO else Result := Result + PadRight('', 80, ' '); // CONTEÚDO DO RESTANTE DAS LINHAS Result := Result + IfThen(DataDesconto2 < EncodeDate(2000,01,01),PadLeft('', 6, '0'), FormatDateTime( 'ddmmyy', DataDesconto2)) + // 322 a 327 - Data limite para concessão de Desconto 2 IntToStrZero( round( ValorDesconto2 * 100 ), 13) + // 328 a 340 - Valor do Desconto 2 IfThen(DataDesconto3 < EncodeDate(2000,01,01),PadLeft('', 6, '0'), FormatDateTime( 'ddmmyy', DataDesconto3)) + // 341 a 346 - Data limite para concessão de Desconto 3 IntToStrZero( round( ValorDesconto3 * 100 ), 13) + // 347 a 359 - Valor do Desconto 3 space(7) + // 360 a 366 - Reserva IntToStrZero(StrToIntDef(trim(Carteira), 0), 3) + IntToStrZero(StrToIntDef(OnlyNumber(ACBrBoleto.Cedente.Agencia), 0), 5) + IntToStrZero(StrToIntDef(OnlyNumber(ACBrBoleto.Cedente.Conta) , 0), 7) + Cedente.ContaDigito + lNossoNumero + lDigNossoNumero + IntToStrZero( nRegistro + 1, 6); // Nº SEQÜENCIAL DO REGISTRO NO ARQUIVO end; end; function TACBrBancoBradesco.GerarRegistroTransacao240(ACBrTitulo: TACBrTitulo): String; var ATipoOcorrencia, ATipoBoleto, ADataMoraJuros, ACodigoMoraJuros, ACodigoDesconto: String; ADataDesconto, ACodigoMulta, ADataMulta, ATipoAceite, AEspecieDoc: String; Fsequencia:Integer; FdigitoNossoNumero: String; FcodCarteira: String; ACodProtesto: String; ListTransacao: TStringList; begin Fsequencia := 3 * ACBrTitulo.ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo); //Caracteristica Título FcodCarteira := DefineCaracTitulo(ACBrTitulo); //Digito Nosso Número FdigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo); {Código para Protesto} ACodProtesto := DefineTipoDiasProtesto(ACBrTitulo); {Tipo de Ocorrencia} ATipoOcorrencia := TipoOcorrenciaToCodRemessa(ACBrTitulo.OcorrenciaOriginal.Tipo); {Aceite do Titulo } ATipoAceite := DefineAceite(ACBrTitulo); {Especie Documento} AEspecieDoc := DefineEspecieDoc(ACBrTitulo); {Responsavel Emissão} ATipoBoleto := DefineResponsEmissao; {Código Mora} ACodigoMoraJuros := DefineCodigoMoraJuros(ACBrTitulo); {Data Mora} ADataMoraJuros := DefineDataMoraJuros(ACBrTitulo); {Código Desconto} ACodigoDesconto := DefineCodigoDesconto(ACBrTitulo); {Data Desconto} ADataDesconto := DefineDataDesconto(ACBrTitulo); {Código Multa} ACodigoMulta := DefineCodigoMulta(ACBrTitulo); {Data Multa} ADataMulta := DefineDataMulta(ACBrTitulo); ListTransacao:= TStringList.Create; try with ACBrTitulo do begin {REGISTRO P} ListTransacao.Add(IntToStrZero(ACBrBanco.Numero, 3) + //1 a 3 - Código do banco '0001' + //4 a 7 - Lote de serviço '3' + //8 - Tipo do registro: Registro detalhe IntToStrZero(Fsequencia+1,5) + //Nº Sequencial do Registro no Lote 9 13 5 - Num *G038 'P' + //14 - Código do segmento do registro detalhe ' ' + //15 - Uso exclusivo FEBRABAN/CNAB: Branco ATipoOcorrencia + //Código de Movimento Remessa 16 17 2 - Num *C004 PadLeft(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia), 5, '0') + //18 a 22 - Agência mantenedora da conta PadRight(ACBrBoleto.Cedente.AgenciaDigito, 1 , '0') + //23 -Dígito verificador da agência PadLeft(ACBrBoleto.Cedente.conta, 12, '0') + //24 a 35 - Número da Conta Corrente Padleft(ACBrBoleto.Cedente.ContaDigito, 1 , '0') + //36 a 36 Dígito Verificador da Conta Alfa *G011 ' ' + //Retornaram que deve gravar vazio .. contrario ao layout //PadLeft(Copy(Fconta,Length(Fconta) ,1 ),1, ' ') + //37-37Dígito Verificador da Ag/Conta 37 37 1 - Alfa *G012 PadLeft(ACBrTitulo.Carteira, 3, '0') + //38-40 Identificação do Produto 38 40 3 Num *G069 PadLeft('0', 5, '0') + //Zeros 41 45 5 Num *G069 PadLeft(NossoNumero, 11, '0') + //Nosso Número 46 56 11 Num *G069 PadLeft(FdigitoNossoNumero,1,'0') + //Digito do nosso Número 57 57 1 Num *G069 PadLeft(FcodCarteira,1,'0' ) + //Código da Carteira 58 58 1 - Num *C006 '1' + //Forma de Cadastr. do Título no Banco 59 59 1 - Num *C007 1-cobrança Registrada '1' + //Tipo de Documento 60 60 1 - Alfa C008 -1-Tradicional ATipoBoleto + //Identificação da Emissão do Bloqueto 61 61 1 - Num *C009 ATipoBoleto +//Identificação da Distribuição 62 62 1 - Alfa C010 -Quem emite que distribua... PadRight(NumeroDocumento, 15, ' ') + //Número do Documento de Cobrança 63 77 15 - Alfa *C011 FormatDateTime('ddmmyyyy', Vencimento) + //Data de Vencimento do Título 78 85 8 - Num *C012 IntToStrZero( round( ValorDocumento * 100), 15) + //Valor Nominal do Título 86 100 13 2 Num *G070 Padleft('0', 5, '0') + //Agência Encarregada da Cobrança 101 105 5 - Num *C014 '0' + //Dígito Verificador da Agência 106 106 1 - Alfa *G009 PadRight(AEspecieDoc, 2) + //Espécie do Título 107 108 2 - Num *C015 ATipoAceite + //Identific. de Título Aceito/Não Aceito 109 109 1 - Alfa C016 FormatDateTime('ddmmyyyy', DataDocumento) + //Data da Emissão do Título 110 117 8 - Num G071 ACodigoMoraJuros + //Código do Juros de Mora 118 118 1 - Num *C018 '1' = Valor por Dia'2' = Taxa Mensal '3' = Isento ADataMoraJuros + //Data do Juros de Mora 119 126 8 - Num *C019 IfThen(ValorMoraJuros > 0, IntToStrZero(round(ValorMoraJuros * 100), 15),PadRight('', 15, '0')) + //juros de Mora por Dia/Taxa 127 141 13 2 Num C020 ACodigoDesconto + //Código do Desconto 1 142 142 1 - Num *C021 ADataDesconto + //Data do Desconto 1 143 150 8 - Num C022 IfThen(ValorDesconto > 0, IntToStrZero( round(ValorDesconto * 100), 15),PadRight('', 15, '0')) + //Valor/Percentual a ser Concedido 151 165 13 2 Num C023 IntToStrZero( round(ValorIOF * 100), 15) + //Valor do IOF a ser Recolhido 166 180 13 2 Num C024 IntToStrZero( round(ValorAbatimento * 100), 15) + //Valor do Abatimento 181 195 13 2 Num G045 PadRight(IfThen(SeuNumero <> '',SeuNumero,NumeroDocumento), 25, ' ') + //Identificação do Título na Empresa 196 220 25 - Alfa G072 IfThen((DataProtesto <> 0) and (DiasDeProtesto > 0), ACodProtesto, '3') + //Código para Protesto 221 221 1 - Num C026 IfThen((DataProtesto <> 0) and (DiasDeProtesto > 0), PadLeft(IntToStr(DiasDeProtesto), 2, '0'), '00') + //Número de Dias para Protesto 222 223 2 - Num C027 IfThen((DataBaixa <> 0) and (DataBaixa > Vencimento), '1', '2') + //Código para Baixa/Devolução 224 224 1 - Num C028 IfThen((DataBaixa <> 0) and (DataBaixa > Vencimento),PadLeft(IntToStr(DaysBetween(DataBaixa, Vencimento)), 3, '0'), '000') + //Número de Dias para Baixa/Devolução 225 227 3 - Alfa C029 '09' + //Código da Moeda 228 229 2 - Num *G065 '09' = Real PadRight('', 10 , '0') + //Nº do Contrato da Operação de Créd. 230 239 10 - Num C030 ' '); //240 - Uso exclusivo FEBRABAN/CNAB {SEGMENTO Q} ListTransacao.Add(IntToStrZero(ACBrBanco.Numero, 3) + //Código do Banco na Compensação 1 3 3 - Num G001 '0001' + //Lote Lote de Serviço 4 7 4 - Num *G002 '3' + //Tipo de Registro 8 8 1 - Num ‘3’ *G003 IntToStrZero(Fsequencia+ 2 ,5) + //Nº Sequencial do Registro no Lote 9 13 5 - Num *G038 'Q' + //Cód. Segmento do Registro Detalhe 14 14 1 - Alfa ‘Q’ *G039 ' ' + //Uso Exclusivo FEBRABAN/CNAB 15 15 1 - Alfa Brancos G004 ATipoOcorrencia + //Código de Movimento Remessa 16 17 2 - Num *C004 {Dados do sacado} IfThen(Sacado.Pessoa = pJuridica,'2','1') + //Tipo Tipo de Inscrição 18 18 1 - Num *G005 PadLeft(OnlyNumber(Sacado.CNPJCPF), 15, '0') + //Número Número de Inscrição 19 33 15 - Num *G006 PadRight(Sacado.NomeSacado, 40, ' ') + //Nome 34 73 40 - Alfa G013 PadRight(Sacado.Logradouro + ' ' + Sacado.Numero +' ' + Sacado.Complemento , 40, ' ') + //Endereço 74 113 40 - Alfa G032 PadRight(Sacado.Bairro, 15, ' ') + //Bairro 114 128 15 - Alfa G032 PadLeft(copy(OnlyNumber(ACBrTitulo.Sacado.CEP),0,5), 5, '0') + //CEP 129 133 5 - Num G034 PadRight(copy(OnlyNumber(ACBrTitulo.Sacado.CEP),length(OnlyNumber(ACBrTitulo.Sacado.CEP))-2,3), 3, ' ') + //Sufixo do CEP 134 136 3 - Num G035 PadRight(Sacado.Cidade, 15, ' ') + // Cidade 137 151 15 - Alfa G033 PadRight(Sacado.UF, 2, ' ') + //Unidade da Federação 152 153 2 - Alfa G036 {Dados do sacador/avalista} '0' + // 154 a 154 - Tipo de Inscrição 154 154 1 - Num *G005 PadRight('', 15, '0') + // Número de Inscrição 155 169 15 - Num *G006 PadRight('', 40, ' ') + // Nome do Pagadorr/Avalista 170 209 40 - Alfa G013 PadRight('0', 3, '0') + // Cód. Bco. Corresp. na Compensação 210 212 3 - Num *C031 PadRight('',20, ' ') + // Nosso Nº no Banco Correspondente 213 232 20 - Alfa *C032 PadRight('', 8, ' ')); // FEBRABAN/CNAB 233 240 8 - Alfa Brancos G004 {SEGMENTO R OPCIONAL } ListTransacao.Add(IntToStrZero(ACBrBanco.Numero, 3) + //Código do Banco na Compensação 1 3 3 - Num G001 '0001' + //Lote de Serviço 4 7 4 - Num *G002 '3' + //Tipo de Registro 8 8 1 - Num ‘3’ *G003 IntToStrZero(Fsequencia+ 3 ,5) + //Nº Sequencial do Registro no Lote 9 13 5 - Num *G038 'R' + //Cód. Segmento do Registro Detalhe 14 14 1 - Alfa ‘R’ *G039 ' ' + //CNAB Uso Exclusivo FEBRABAN/CNAB 15 15 1 - Alfa Brancos G004 ATipoOcorrencia + //Código de Movimento Remessa 16 17 2 - Num *C004 TipoDescontoToString(TipoDesconto2) + //Código do Desconto 2 18 18 1 - Num *C021 IfThen(TipoDesconto2<>tdNaoConcederDesconto, IfThen(DataDesconto2 < EncodeDate(2000,01,01), PadLeft('',8,'0'), FormatDateTime( 'ddmmyyyy', DataDesconto2)), PadLeft('',8,'0')) + //Data do Desconto 2 19 26 8 - Num C022 IfThen(TipoDesconto2<>tdNaoConcederDesconto, IfThen(ValorDesconto2>0, IntToStrZero(round(ValorDesconto2 * 100), 15), PadLeft('',15,'0'))) + //Valor/Percentual a ser Concedido 27 41 13 2 Num C023 TipoDescontoToString(TipoDesconto3) + //Código do Desconto 3 42 42 1 - Num *C021 IfThen(TipoDesconto3<>tdNaoConcederDesconto, IfThen(DataDesconto3 < EncodeDate(2000,01,01), PadLeft('', 8, '0'), FormatDateTime( 'ddmmyyyy', DataDesconto3)), PadLeft('',8,'0')) + //Data do Desconto 3 43 50 8 - Num C022 IfThen(TipoDesconto3<>tdNaoConcederDesconto, IfThen(ValorDesconto3>0, IntToStrZero(round(ValorDesconto3 * 100), 15), PadLeft('',15,'0'))) + //Valor/Percentual a Ser Concedido 51 65 13 2 Num C023 ADataMulta + //Data da Multa 67 74 8 - Num G074 IfThen(PercentualMulta > 0, IntToStrZero(round(PercentualMulta * 100), 15), PadRight('', 15, '0')) + //Multa Valor/Percentual a Ser Aplicado 75 89 13 2 Num G075 PadRight('', 10, ' ') + //Informação ao Pagador Informação ao Pagador 90 99 10 - Alfa *C036 PadRight('', 40, ' ') + //Informação 3 Mensagem 3 100 139 40 - Alfa *C037 PadRight('', 40, ' ') + //Mensagem 4 140 179 40 - Alfa *C037 PadRight('', 20, ' ') + //CNAB Uso Exclusivo FEBRABAN/CNAB 180 199 20 - Alfa Brancos G004 PadLeft('', 8, '0') +//Cód. Ocor. do Pagador 200 207 8 - Num *C038 PadLeft('', 3, '0') +//Cód. do Banco na Conta do Débito 208 210 3 - Num G001 PadLeft('', 5, '0') +//Código da Agência do Débito 211 215 5 - Num *G008 PadLeft('', 1, ' ') +//Dígito Verificador da Agência 216 216 1 - Alfa *G009 PadLeft('', 12, '0') +//Corrente para Débito 217 228 12 - Num *G010 PadLeft('', 1, ' ') +//Dígito Verificador da Conta 229 229 1 - Alfa *G011 PadLeft('', 1, ' ') +//DV Dígito Verificador Ag/Conta 230 230 1 - Alfa *G012 PadLeft('', 1, '3') +//Ident. da Emissão do Aviso Déb. Aviso para Débito Automático 231 231 1 - Num *C039 PadLeft('',9, ' ')); //CNAB Uso Exclusivo FEBRABAN/CNAB 232 240 9 - Alfa Brancos G004 end; Result := RemoverQuebraLinhaFinal(ListTransacao.Text); finally ListTransacao.Free; end; end; ACBrBoleto.pas Na classe TACBrTitulo adicionar o field: fTipoDesconto3 : TACBrTipoDesconto; Depois adicionar a propety property TipoDesconto3 : TACBrTipoDesconto read fTipoDesconto3 write fTipoDesconto3;

Boa tarde! Consegui implementar o recurso da marca d'água na DANFE do FastReports, utilizando uma Banda Overlay com uma frxImage. Porém para funcionar, além de ter que incluir estes 2 componentes no arquivo FR3, é necessário alterar as units ACBrNFeDANFEFR.pas e ACBrNFeDANFEFRDM.pas Para utilizar o recurso criei 3 propriedades na unit ACBrNFeDANFEFR, as quais devem ser especificadas no código do programa. LogoMarcaDAguaPngFileName: String => se especificado ira ativar a marca d'agua, e deve conter o caminho do arquivo PNG que contem a imagem , que já deve ser bem transparente. LogoMarcaDAguaTop: Double => Posição vertical que a marca d'agua deve ser impressa na pagina da DANFE LogoMarcaDAguaHeight: Double => Altura da imagem Estou postando aqui para ver se pode ser útil a alguém, porém não tenho experiência com os componentes ACBR , e também só alterei a DANFE retrato. Abraço a todos! ACBrNFeDANFEFR.pas ACBrNFeDANFEFRDM.pas DANFeRetrato.fr3

Não temos nada nesse sentido.. quem renderiza a Imagem a ser impressa, é a própria impressora... Para ZPL2, tem esse site: http://labelary.com/viewer.html

consegui resolver coloquei assim, e no windows opções de internet deixei somente o tsl 1.2 marcado, obrigado resolvido

SVRS - 13/01/2022 ATENÇÃO: SVRS - Desativação dos protocolos TLS 1.0 e TLS 1.1 A Sefaz Virtual do Rio Grande do Sul (SVRS), para garantir o bom funcionamento do Ambiente de Autorização dos Documentos Fiscais Eletrônicos, deverá desabilitar os protocolos de comunicação mais antigos a partir do dia 11/04/2022. Esta mudança é necessária, não só pela simplificação do ambiente e aumento da segurança, como também pela inviabilidade de configuração dos protocolos de comunicação mais antigos em nova versão do sistema operacional dos servidores. Ambiente de Homologação: Conforme comunicado anterior, o ambiente de homologação dos DF-e da SVRS já está configurado da forma correta, unicamente com o Protocolo TLS versão 1.2. A configuração atual prevê também a eliminação das Cifras consideradas inseguras. Para consultar a lista de cifras aceitas atualmente, sugerimos consultar a página do “SSL Labs”, no link abaixo: https://www.ssllabs.com/ssltest/analyze.html?d=nfe-homologacao.svrs.rs.gov.br Para o ambiente de homologação de todos os DF-e, o resultado obtido será como segue: Ambiente de Produção: A partir do dia 11/04/2022, o Ambiente de Produção para a Autorização dos DF-e deverá estar configurado de forma idêntica ao Ambiente de Homologação descrito acima. Portanto, as aplicações que consomem os webservices da SVRS devem verificar se possuem o protocolo TLS 1.2 habilitado e se apresentam um conjunto de Cifras compatíveis com as Cifras aceitas pela SVRS. Caso a adaptação não seja realizada, não será possível estabelecer uma conexão segura entre a aplicação cliente da empresa e a aplicação servidor do ambiente de autorização da SVRS. Nota: Veja que a documentação técnica dos sistemas diferentes DF-e já prevê a utilização unicamente do Protocolo TLS 1.2, conforme os MOC correspondentes. Assinado por: Secretaria da Fazenda do Rio Grande do Sul Fonte: https://dfe-portal.svrs.rs.gov.br/Nfe/Avisos/2722

Aguardar a 22.1.F

Bom dia @Renato Rubinho, A Solução que você me presentou funcionou, estou anexando o fonte para validação. obs.: Alteração realiza entre as linhas 508 a 513. Obrigado pela ajuda. pcesGerador.pas

Boa noite, Parece correta sua análise. Uma alternativa para não mexer no Enumerador pode ser utilizar também o critério de geração ou não do infoCeletista. if (NaoEstaVazio(pInfoCeletista.cnpjSindCategProf) then if (pInfoRegimeTrab.InfoCeletista.TpRegJor = rjSubmetidosHorarioTrabalho) then GerarHorContratual(pInfoContrato.HorContratual); Consegue validar se isso resolve essa situação? Ficando ok, anexe o fonte alterado para o pessoal avaliar e subir para o SVN.

Boa noite pessoal, Segue um resumo, pois o tópico já está muito extenso e não parece estar caminhando para uma solução. 1. Notamos vários relatos de sistemas rodando em paralelo, gerando o consumo indevido, mesmo quando achavam que o sistema em questão era o único utilizado. Essa é uma ótima idéia para garantir que não há nenhum outro sistema manifestando e consultando em paralelo. 2. A consulta com ultNSU=0 tem que funcionar para quem se perdeu na sequência, se continua dando consumo indevido após mais de 1h de espera é mais um indício de sistemas em paralelo. 3. A hipótese das filiais com o mesmo certificado foi descartada, pois está na NT que o controle é pelos 14 dígitos do CNPJ e houve uma resposta da Sefaz confirmando isso. 4. A situação onde o mesmo ultNSU retorna consumo indevido e depois funciona, também aparenta ser reflexo de outro sistema em paralelo gerando a trava em determinados períodos.

DECRETO Nº 10.923, DE 30 DE DEZEMBRO DE 2021 Aprova a Tabela de Incidência do Imposto sobre Produtos Industrializados - TIPI. O PRESIDENTE DA REPÚBLICA, no uso da atribuição que lhe confere o art. 84,caput, inciso IV, da Constituição, e tendo em vista o disposto no art. 4º,caput, incisos I e II, do Decreto-Lei nº 1.199, de 27 de dezembro de 1971, D E C R E T A : Art. 1º Fica aprovada a Tabela de Incidência do Imposto sobre Produtos Industrializados - TIPI, anexa a este Decreto. Art. 2º A TIPI tem por base a Nomenclatura Comum do Mercosul - NCM. Art. 3º A NCM constitui a Nomenclatura Brasileira de Mercadorias - NBM, baseada no Sistema Harmonizado - SH, para todos os efeitos previstos no art. 2º do Decreto-Lei nº 1.154, de 1º de março de 1971. Art. 4º Fica a Secretaria Especial da Receita Federal do Brasil do Ministério da Economia autorizada a adequar a TIPI sempre que não implicar alteração de alíquota, em decorrência de alterações promovidas na NCM pelo Comitê-Executivo de Gestão da Câmara de Comércio Exterior - Camex do Ministério da Economia. Parágrafo único. Aplica-se ao ato de adequação editado pela Secretaria Especial da Receita Federal do Brasil do Ministério da Economia o disposto no inciso I docaputdo art. 106 da Lei nº 5.172, de 25 de outubro de 1966. Art. 5º Ficam revogados, a partir de 1º de abril de 2022: I - o Decreto nº 8.950, de 29 de dezembro de 2016; II - o Decreto nº 9.020, de 31 de março de 2017; III - o Decreto nº 9.442, de 5 de julho de 2018; IV - o Decreto nº 9.514, de 27 de setembro de 2018; V - o Decreto nº 9.897, de 1º de julho de 2019; VI - o Decreto nº 9.971, de 14 de agosto de 2019; VII - o Decreto nº 10.254, de 20 de fevereiro de 2020; VIII - o Decreto nº 10.285, de 20 de março de 2020; IX - o Decreto nº 10.302, de 1º de abril de 2020; X - o Decreto nº 10.352, de 19 de maio de 2020; XI - os art. 1º, art. 2º e art. 4º do Decreto nº 10.503, de 2 de outubro de 2020; XII - o Decreto nº 10.523, de 19 de outubro de 2020; XIII - o Decreto nº 10.532, de 26 de outubro de 2020; XIV - o Decreto nº 10.765, de 11 de agosto de 2021; XV - o Decreto nº 10.771, de 20 de agosto de 2021; e XVI - o Decreto nº 10.910, de 22 de dezembro de 2021. Art. 6º Este Decreto entra em vigor na data de sua publicação e produz efeitos a partir de 1º de abril de 2022. Brasília, 30 de dezembro de 2021; 200º da Independência e 133º da República. Fonte : DECRETO Nº 10.923, DE 30 DE DEZEMBRO DE 2021 - DECRETO Nº 10.923, DE 30 DE DEZEMBRO DE 2021 - DOU - Imprensa Nacional (in.gov.br) PDF em: http://www.planalto.gov.br/ccivil_03/_Ato2019-2022/2021/Decreto/Anexo/ANDEC10923.pdf