Pesquisar na Comunidade

Estou implementando uma cobrança automática em um sistema, onde gera boletos e arquivo de remessa, e retorno baixa automática, o problema esta dando inconsistência conforme e-mail do teste do banco. conteúdo do e-mail, 1. Analisamos o arquivo enviando mas o sistema reportou a mesma inconsistência. 2. Por favor, verifique que a linha correspondente ao seguimento P possui 239 colunas, quando deveria ter 240. 3. Finalizando, colocamo-nos a disposição para demais esclarecimentos. segue o arquivo do banco de orientação, creio que o problema seja na posição 107 e 108 e também o arquivo de remessa enviado para teste CB200916.REM

Bom dia , tudo bom? Estou com dificuldade de imprimir um cheque na impressora pertochek do banco safra Problema Quando mando imprimir o cheque não obedece as posições que estou colocando Alguma ideia do que estuo fazendo errado ? Tenho que imprimir conforme nas posições abaixo: Nome do Banco...........SAFRA N° do Banco.................422 Valor Num. / Linha........42 Valor Num. / Col...........125 Valor Ext. 1 / Linha.......33 Valor Ext. 1/ Col...........32 Valor Ext. 2..................25 Lin. Benef....................17 Col. Dia........................116 Linha Ano.....................9 Col. Ano.......................153 Comprimento...............165 Mais modelos http://www.perto.com.br/varejo/pertochek/layout_cheques.htm Então estou configurando o modelo em suas posição de impressão procedure configura_cheque var ModeloModelo : TACBrCHQModelo; begin if not(ACBrCHQ1.Ativo) then ACBrCHQ1.Ativar; ACBrCHQ1.Modelo := chqPerto; ACBrCHQ1.Device.Baud := 4800; ACBrCHQ1.ModelosCheque.Clear; // modelo perto try ModeloModelo := TACBrCHQModelo.Create; ModeloModelo.Banco := '422'; ModeloModelo.LinhaValor := 042; ModeloModelo.ColunaValor := 125; ModeloModelo.LinhaExtenso1 := 033; ModeloModelo.ColunaExtenso1 := 032; ModeloModelo.LinhaExtenso2 := 025; ModeloModelo.LinhaFavorecido := 017; ModeloModelo.ColunaDia := 116; ModeloModelo.ColunaAno := 153; ACBrCHQ1.ModelosCheque.Add(ModeloModelo); finally FreeAndNil(ModeloModelo); end; end; Imprimir cheque nas posições procedure Imprimir_cheque; begin ACBrCHQ1.Banco := '422'; ACBrCHQ1.Valor := edtTOTAL.Asflot ACBrCHQ1.Data := Now; ACBrCHQ1.Favorecido := edtFavorecido.Text; ACBrCHQ1.Cidade := edtNomeCidade.text; ACBrCHQ1.ImprimirCheque; end