Pesquisar na Comunidade
Showing results for tags 'tipo carteria caixa'.
Encontrado 1 registro
-
Na função GerarRegistroTransacao240 para banco do brasil, é feito um tratamento para ver a característico do título,porém a mesma função da caixa, já é colocado "1" direto, ou seja, quando o título vier como descontado, não saberemos se o banco for 104 (Caixa Economica Federal) (Gostaria de saber se é possível implementar esta mesma função para o tratamento e retorno da caixa possa ser igual ao Bando do Brasil.) //UNIT AcbrBancoBrasil function TACBrBancoBrasil.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String; case CaracTitulo of tcSimples : ACaracTitulo := '1'; tcVinculada : ACaracTitulo := '2'; tcCaucionada : ACaracTitulo := '3'; tcDescontada : ACaracTitulo := '4'; tcVendor : ACaracTitulo := '5'; end; wCarteira:= StrToIntDef(Carteira,0); { 1 = Carteira 11/12 na modalidade Simples; 2, 3 = Carteira 11/17 modalidade Vinculada/Caucionada e carteira 31; 4 = Carteira 11/17 modalidade Descontada e carteira 51; 7 = Carteira 17 modalidade Simples. } if ((wCarteira = 11) or (wCarteira = 12)) and (ACaracTitulo = '1') then wTipoCarteira := '1' else if (((wCarteira = 11) or (wCarteira = 17)) and ((ACaracTitulo = '2') or (ACaracTitulo = '3'))) or (wCarteira = 31) then wTipoCarteira := ACaracTitulo else if (((wCarteira = 11) or (wCarteira = 17)) and (ACaracTitulo = '4')) or (wCarteira = 51) then wTipoCarteira := ACaracTitulo else if (wCarteira = 17) and (ACaracTitulo = '1') then wTipoCarteira := '7' else wTipoCarteira := '7'; // Techo Result:= 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((3 * ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)) + 1 , 5) + // 9 a 13 - Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q) 'P' + // 14 - Código do segmento do registro detalhe ' ' + // 15 - Uso exclusivo FEBRABAN/CNAB: Branco ATipoOcorrencia + // 16 a 17 - Código de movimento aAgencia + // 18 a 22 - Agência mantenedora da conta PadRight(ACBrBoleto.Cedente.AgenciaDigito, 1 , '0') + // 23 -Dígito verificador da agência aConta + // 24 a 35 - Número da conta corrente PadRight(ACBrBoleto.Cedente.ContaDigito, 1, '0') + // 36 - Dígito verificador da conta ' ' + // 37 - Dígito verificador da agência / conta PadRight(ANossoNumero+aDV, 20, ' ') + // 38 a 57 - Nosso número - identificação do título no banco wTipoCarteira + // 58 - Cobrança Simples //UNIT AcbrBancoCaixa Porem esta mesma situação nao ocorre na mesma função da caixa. Veja que para mesma funçao function TACBrCaixaEconomica.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String; Result:= 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((3*ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo))+1,5) + //9 a 13 - Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q) 'P' + //14 - Código do segmento do registro detalhe ' ' + //15 - Uso exclusivo FEBRABAN/CNAB: Branco ATipoOcorrencia + //16 a 17 - Código de movimento PadLeft(OnlyNumber(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 PadRight(ACBrBoleto.Cedente.CodigoCedente, 6, '0') + //24 a 29 - Código do Convênio no Banco (Codigo do cedente) PadRight('', 11, '0') + //30 a 40 - Uso Exclusivo da CAIXA '14' + //41 a 42 - Modalidade da Carteira PadLeft(Copy(ANossoNumero,3,17), 15, '0') + //43 a 57 - Nosso número - identificação do título no banco '1' + //58 - Cobrança Simples manual cnab 240 Caixa Economica Federal Código da Carteira Código adotado pela FEBRABAN, para identificar a característica dos títulos dentro das modalidades de cobrança existentes no banco. ‘1’ = Cobrança Simples ‘3’ = Cobrança Caucionada ‘4’ = Cobrança Descontada