Ir para conteúdo
  • Cadastre-se

jairomonassa

Membros
  • Total de ítens

    11
  • Registro em

  • Última visita

Posts postados por jairomonassa

  1. acbrbancocaixa.pas linha 1078

     '00'                                                             + // 390  391 - Terceira instrução de Cobrança Default '00'

     

    mas o  correto seria

    PadLeft(Instrucao3, 2, '0')                         + // 390  391 - Terceira instrução de Cobrança Default '00'

     

  2. o novo layout ficou tudo ok,

    mas estragou o layout antigo (na linha 1034) codigo da agencia é 3 espaços ele colocou 4 numeros deve ficar igual ao layout

    estava assim 

                 ifthen(Length(ACodCedente) > 6, '000',
                             RightStr(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4 ))     + // 18 até 21  - Código da Agência

     

    ficará

        '000'                                                           + // 18 até 21  - Código da Agência

     

    fiz teste e passou pelo validador da caixa

     

     

    ACBrBancoCaixa.pas

    o problema é que estragou o layout antigo da caixa, com os ajustes do novo layout da caixa

    temos clientes dos dois layous e testei aqui no validador da caixa agora deu certo

    ACBrBancoCaixa.pas

    39 minutos atrás, Juliana Tamizou disse:

    Boa tarde.

    Por favor anexe seu pas alterado, assim fica mais facil analisar.

    Att.

    coloquei em anexo anterior

     

    • Curtir 1
  3. boa tarde,

    Ajusta o código do acbr - boleto da caixa. erro da remessa cnab 400 paar layout antigos

    No novo layout da caixa cnab 400 dá tudo certo, o codigo do cedente é 7 tudo ok

    o problema no layout antigo do cnab 400 que o codigo do cedente deveria ser 6 7 caractere em branco e ta saindo em branco

    olhando o acbrbancocaixa.pas

    tem a função  tudo ok (LINHA 285 ) , ........so adicionar um espaço 

    if ((fpLayoutVersaoArquivo = 107) and (fpLayoutVersaoLote = 67))
         or (fpLayoutVersaoArquivo = 007) then
        Result := PadLeft(  ACBrCedente.CodigoCedente, 7, '0')
      else
        Result := PadLeft(  ACBrCedente.CodigoCedente, 6, '0')+ ' ';    <----------------adicionar um espaço

    PORÉM 

    NO HEADER DO 400 quando vai colocar o cendete ele preenche com zero (ERRADO) LINHA 486

    DEVERIA FICAR   ACodCedente                             + // 31 ate 37   - Código Identificador da Empresa na CAIXA (CEDENTE)

    AO INVEZ  que ele volta a preencher com 0 7 caracteres  PadRight(ACodCedente, 7, '0')           + // 31 ate 37   - Código Identificador da Empresa na CAIXA (CEDENTE)

  4. coloquei em anexo, na hora de ler LerRetorno240 ele le o retorno somente com tamanho 11, no manual ele diz que começa no 38 é são 20 casas ao invés de 11, como pode ver o arquivo de retorno em anexo 009     835800000014   (numero da carteira + espaços em branco e no final digito verificador)

    como acbr só le 11 e começando no 38 ele puxa errado o nosso numero, assim se quiser reimprimir o boleto ele não BATE o codigo de barras , eu sugeri uma correção dias atrás mas ainda não tive resposta se foi aceito ou não, minha solução é começar o nosso número em 46 NossoNumero := copy(Linha, 46, 11);

    arquivo acbrbancobradesco.pas linha 1713, função lerretorno240

     

    atenciosamente

     

    Jairo Monassa

    CBPF231100.RET

    • Curtir 1
  5. o manual fala da numeração do noss numero apatir de 38, mas os primeiros caracteres são a carteira, depois espaços em branco, guando for para gerar boleto o noss numero usa do 46 para frente

    registro t

    2370001300001T 0203645500000000606744009     8326000000101000590/06      1212201800000000000150000004158000059006                 001580967529000087                                        00000000000000000000001580000000000                 

     

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.