antoniojmsjr

Boa tarde, qual comando usando PosPrinterTeste para imprimir um comprovante onde o texto tem um fundo pintado?

Boa tarde, segue em anexo o manual disponibilizado pelo banco. COBRANÇA-400 BOLECODE.pdf

Bom dia Fábio, tudo certo. Segunte 1º Enviar o arquivo de remessa com o código de ocorrência 71. 2º Operação válido somente para a carteira 109. 3º Se o CNPJ for o mesmo da chave PIX não precisa enviar o registro REGISTRO DETALHE DE BOLECODE - 3 4º Se o CNPJ for o mesmo da chave PIX vai retornar(arquivo de retorno) o registro 3 com as informações do PIX(PIX Copia e Cola) 5º Vai precisar alterar o arquivo de boleto passando o PIX recebido, se estiver usando o FastReport vai precisar usar o componente TfrxBarcode2DView passando o PIX

Bom dia, Tudo bem ? Segue em anexo os arquivos ACBrBoleto.pas e ACBrBancoItau.pas com as modificações para adicionar o código de ocorrência 71-REMESSA – BOLECODE (emissão do boleto e QR Code pix) para gerar o arquivo de remessa. Segundo o manual disponibilizado pelo banco Itaú e necessário passar esse código para habilitar no boleto a opção de impressão do QrCode do PIX(emitido pelo banco) e gerar ID LOCATION(URL do PIX) no arquivo de retorno. ACBrBancoItau.pas ACBrBoleto.pas

Obrigado Daniel.

Boa tarde, realizei um ajuste na unit pcnNFe.pas para corrigir um erro Invalid pointer operation, esse erro acontece: TEnviarNFCe = class private FDocumento: TNFe; public constructor Create; destructor Destroy; override; procedure ProcessarNFCe; procedure EnviarNFCe(pACBrNFe: TACBrNFe); end; constructor TProcessarIniNFCe.Create; begin FDocumento := TNFe.Create; end; destructor TProcessarIniNFCe.Destroy; begin FDocumento.Free; //QUANDO FINALIZA, GERA UM ERRO AO LIBERAR FDet DA CLASSE TNFe.Destroy; end; procedure TProcessarIniNFCe.ProcessarNFCe; begin FDocumento.Ide.cUF := 'RS'; FDocumento.Ide.serie := 70; FDocumento.Ide.nNF := 1000; ... ... end; procedure TProcessarIniNFCe.EnviarNFCe(pACBrNFe: TACBrNFe); begin pACBrNFe.NotasFiscais.Add.NFe.Assign(Self.FDocumento); //AQUI TEM OUTROS PROCESSOS PARA PODER ENVIAR A NFC-e { ... ... } //NO FINAL DE TUDO É LIMPO pACBrNFe.NotasFiscais.Clear; end; Este é um resumo simples do processo que eu realizo, eu acredito o que esteja acontecendo é que o assing do TDetCollection tá utilizando a referência do objeto para salva na lista e quando realiza o pACBrNFe.NotasFiscais.Clear está removendo e liberando o objeto. Quando eu libero o objeto FDocumento.Free está gerando o erro Invalid pointer operation. pcnNFe.pas

Boa tarde, Atualizado o pcnNFe.pas: - Implementado no método Assign da classe TDetCollection, explícito a criação dos itens. pcnNFe.pas

Boa tarde, Atualizado o pcnNFe.pas: - Implementado no método Assign da classe TpagCollection, carregar os itens do Source. - Atribuído True no Create da classe TpagCollection, para destruir os itens no Clear; pcnNFe.pas