jburda

Coloquei {$M+} mas não resolveu!

O problema está quando utiliza o RLBarcode. O erro ocorre na Unit RLUtils.pas, procedure RotateBitmap procedure RotateBitmap(ASource, ADest: TBitmap; AAngle: Double; AAxis, AOffset: TPoint); type {$ifdef CLX} TRGBQuad = packed record rgbBlue: Byte; rgbGreen: Byte; rgbRed: Byte; rgbReserved: Byte; end; {$endif} PRGBArray = ^TRGBArray; TRGBArray = array[0..0] of TRGBQuad; var I: Integer; iDest: Integer; iOriginal: Integer; iPrime: Integer; iPrimeRotated: Integer; // J: Integer; jDest: Integer; jOriginal: Integer; jPrime: Integer; jPrimeRotated: Integer; // RowSource: PRGBArray; RowDest: PRGBArray; // Radians: Double; RadiansCos: Double; RadiansSin: Double; begin // Convert degrees to radians. Use minus sign to force clockwise rotation. Radians := AAngle * PI / 180; RadiansSin := Sin(Radians); RadiansCos := Cos(Radians); // Step through each row of rotated image. for J := 0 to ADest.Height - 1 do begin RowDest := ADest.ScanLine[J]; jDest := J - AOffset.Y; jPrime := 2 * (jDest - AAxis.Y) + 1; // center y: -1,0,+1 // Step through each col of rotated image. for I := 0 to ADest.Width - 1 do begin iDest := I - AOffset.X; iPrime := 2 * (iDest - AAxis.X) + 1; // center x: -1,0,+1 // Rotate (iPrime, jPrime) to location of desired pixel // Note: There is negligible difference between floating point and scaled integer arithmetic here, so keep the math simple (and readable). iPrimeRotated := Round(iPrime * RadiansCos - jPrime * RadiansSin); jPrimeRotated := Round(iPrime * RadiansSin + jPrime * RadiansCos); // Transform back to pixel coordinates of image, including translation // of origin from axis of rotation to origin of image. iOriginal := (iPrimeRotated - 1) div 2 + AAxis.X; jOriginal := (jPrimeRotated - 1) div 2 + AAxis.Y; // Make sure (iOriginal, jOriginal) is in aSource. If not, assign blue color to corner points. if (iOriginal >= 0) and (iOriginal <= ASource.Width - 1) and (jOriginal >= 0) and (jOriginal <= ASource.Height - 1) then begin // Assign pixel from rotated space to current pixel in aDest RowSource := ASource.ScanLine[jOriginal]; RowDest[I] := RowSource[iOriginal]; <<<<=========== erro nesta linha na segunda iteração end else begin RowSource := ASource.ScanLine[0]; RowDest[I] := RowSource[0]; end; end; end; end;

Estava utilizando delphi 10.3, e a impressão da NFe estava ocorrendo sem problemas, mas ao mudar para o delphi 13, passei a ter o erro "Range Check Error" sempre que faço a impressão da NFe com a DANFE ACBrNFeDANFeRL. Para ter certeza que o problema não estava no programa, fiz teste no demo do acbr, mas ocorreu o mesmo. Pensei em utilizar a DANFE ACBrNFeDANFeFPDF, mas diz que ImprimirDanfe não está implementado. Alguém já passou por isto? Qual solução proposta?

de acordo com a tabela 5.2.A de 29/05/2025. a "Suspensão da exigibilidade. ICMS. Saída interestadual e interna de qualquer mercadoria, para conserto, reparo ou industrialização, desde que retorne ao estabelecimento de origem, no prazo de 180 (cento e oitenta) dias contados da data da saída." se aplica ao Simples Nacional, e está assinalado SIM para CST 50. Como o CST 50 é de lucro Real (Suspensão), e no simples nacional não há um CST suspensão, como deverei proceder? Por ser uma remessa para conserto. deverei informar o cbenef independente do CST utilizado?

Estou recebendo o retorno abaixo, quando envio boleto hibrido do Banco do Brasil. "03/10/22 09:33:42:106 - Autenticando Token... 03/10/22 09:33:42:569 - Comando Enviar: {"numeroConvenio":3128557,"numeroCarteira":17,"numeroVariacaoCarteira":35,"codigoModalidade":1,"dataEmissao":"27.09.2022","dataVencimento":"25.10.2022","valorOriginal":21.89,"valorAbatimento":0,"codigoAceite":"N","codigoTipoTitulo":2,"descricaoTipoTitulo":"DM","numeroTituloBeneficiario":"121979-1","campoUtilizacaoBeneficiario":"PROTESTAR APOS 5 DIAS APOS O V","numeroTituloCliente":"00031285570000000009","mensagemBloquetoOcorrencia":"8 5","jurosMora":{"tipo":1,"valor":0.0876},"multa":{"tipo":0,"data":"26.10.2022"},"pagador":{"tipoInscricao":2,"numeroInscricao":00111222000344,"nome":"192 NOME EMPRESA ","endereco":"RUA ENDERECO DA EMPRESA,N.00 0","cep":88888888,"cidade":"CIDADE","bairro":"BAIRRO","uf":"SC"},"indicadorPix":"S"} 03/10/22 09:33:42:891 - Retorno Envio: HTTPCode=500 ErrorCode=0 Result={"erros": [{"codigo": "","versao": "","mensagem": "Erro Interno do Servidor","ocorrencia": ""}]}" Enviando pelo Demo, recebo o retorno normal, sem ocorrer erro 500. Debugando, não consegui detectar o motivo. Alguém teria alguma sugestão?

Bom dia! Alguém está desenvolvendo boletoPIX do Banco Sicredi? Se houver, como está o andamento? Gostaria de auxilio?

Bom dia! Alguma novidade?

Bom dia ! Alguma novidade com relação emissão do boleto hibrido do banco Itaú? Também estou necessitando emitir para este banco!

Os Registros J1 e J2 também estão incompatíveis com o PAF-NFCe! Considerando estas mudanças, e outras que devem surgir com o PAF-DAF, creio ser mais interessante o componente ACBRrPAF deverá ficar apenas para ECF, e ser criado um componente ACBrPAF2.

Inclusive, tem o registro Z, que também não está de acordo. Registro Z4 - atual TRegistroZ4 = Class private fCPF_CNPJ: string; /// Número do CPF/CNPJ identificado no campo previsto no item 2 do Requsito VIII. fVl_Total: Currency ; /// Total de vendas no mês, com duas casas decimais, ao CPF/CNPJ indicado no campo 02. fData_INI: TDateTime; /// Primeiro dia do mês a que se refere o relatório de vendas ao CPF/CNPJ identificado no campo 02 fData_FIN: TDateTime; /// Último dia do mês a que se refere o relatório de vendas ao CPF/CNPJ identificado no campo 02 public Registro Z4 - Requisitos 01 Tipo de registro 02 Número do CPF/CNPJ 03 Totalização Mensal 04 Totalização das Vendas 05 Totalização das outras saídas 06 Data Inicial das Saídas ao CPF/CNPJ 07 Data Final das Saídas ao CPF/CNPJ 08 Data da geração do relatório 09 Hora da Geração do Relatório

Boa Noite! Sim, está atualizado até revisão 25797. conteudo de ACBrPAF_V.pas // REGISTRO TIPO V3 - IDENTIFICAÇÃO DO PAF-ECF TRegistroV3 = Class(TRegistroX3); //REGISTRO TIPO V4 - Relação dos equipamentos ECF autorizados a funcionar com o PAF-ECF: TRegistroV4 = Class

Boa tarde! Estou implementando menu fiscal PAF-NFCe em uma aplicação na empresa em que estou trabalhando, e ao atender o arquivo IV - Controle dos DAVs (registros V1, V2, V3 e V4), os campos não condizem com o requisito, pois está atendendo apenas o Registro V do PAF-ECF. Os registros V1 e V2 são idênticos, sendo que o V3 e V4 devem ser Tipo Registo, Data do DAV e Numero do DAV, (não encerrados no V3 e sem documento fiscal no V4). Também não atende o REQUISITO XI, "O PAF-NFC-e deverá incluir o conteúdo dos arquivos gerados em um tag específico de um documento XML, assinado digitalmente com o e-CNPJ do estabelecimento,...." Existe alguma previsão para implementação destes ítens? atodiat_22_015_anexo_unico.pdf (sef.sc.gov.br)

Obrigado! É exatamente este o problema, o cliente tem um NCM que deixou de existir, e ocorreu a rejeição. Devido este incidente, estou colocando uma rotina para conferir se todos os NCMs cadastrados estão na tabela de NCM vigente.

Mas se cancelar e emitir nova, a chave será diferente da que consta na NFCe entregue para o cliente! Neste post, o Cleber diz que para a solução poderia haver necessidade de gerar um novo XML. Então a informação dada não está correta?

Boa noite! Estou implementando a NFC-e(SC), e estou meio perdido no envio da contingência. O XML foi gerado, mas devido NCM inválido, a nota foi recusada. Agora, depois de carregar o XML no ACBrNFe, como procedo para corrigir o NCM e mudar as tags: Ide.tpEmis, Ide.xJust e Ide.dhCont ? Estou fazendo de forma errada? Tem outro método para fazer esta correção?