Marcos Aurélio de Souza

boa tarde! Preciso colocar que será descontado R$ xx,xx até o dia, e esta aparecendo que pode concender desconto de R$ xx,xx todo dia até o vencimento. quero que o cliente tenha um desconto fixo até a data de vencimento. onde faço esta alteração?

Boa tarde! preciso mudar o form que recebe o foco após a impressão do boleto ( a tela que aparece o boleto gerado). quero que após a impressão a tela que mandou o boleto feche, mas não consigo por que esta dentro do acbrboleto1. Obrigado!

obrigado, mas já resolvi, descobri como mandar o valor para dentro da unit do santander, implementei para baixa e alteração de data com segmento p. obrigado

Bom dia Juliana! O arquivo de envio para instruções que não seja remessa, exemplo: baixa, deve ter apenas HEADER, segmento P e TRAILER. e na Unit deve ser informado número de dias para baixa, esta informação não chega dentro da unit ACbrBancoSantader, lá esta preenchido com '00' , SEGMENTO P posição 226-227. minha duvida é a seguinte. como crio um variável para parar dentro desta unit? estou implementando o arquivo para baixa e alteração de data. Obrigado

Desculpe a falta de conhecimento sobre o truck, não sei utilizar. mas gostaria de aprender. obrigado

Boa tarde Juliana! Fiz mais algumas coletas de informações com os analistas do Santander. CNAB240 segue: Se o boleto tiver a opção de protesto, ele não deve ser baixado, então a posição: 224- 224[ Código para Baixa / Devolução ] recebe [ 2 ] e a posição 222-223 [ Número de dias para protesto ] tem que ser preenchido com o número de dias após o vencimento, a unit está programada para item 221-221 [ Código para protesto ], [1] protestar dias corridos. então: se data_protesto<> '' and data_protesto>vencimento; 224-224:= 2; // NÃO BAIXAR / NÃO DEVOLVER dias_protesto:= data_protesto - data_vencimento; 222-223:= dias_protesto; 221-221:= 1; // PROTESTAR DIAS CORRIDOS se não 224-224:= 2; // NÃO BAIXAR / NÃO DEVOLVER 222-223:=00; 221-221:=0; //NÃO PROTESTAR fim obs.: se o boleto for para protesto em cartório, após liquidado será automaticamente baixado. Juliana, na Unit, na linha 335, que faz referencia as linhas 493 e 494, alterei pois tenho tido problemas com essa função (padR), aqui no meu ambiente de desenvolvimento, desconsiderar, pois após pesquisas não vi ninguém reclamando d´ela aqui no forum. segue UNIT ACBrBancoSantander.pas

Consegui uma solução que deu certo, um pequeno ajuste. segue: {Instruções} if (DataProtesto <> 0) and (DataProtesto > Vencimento) then begin if (Trim(Instrucao2) = '') then Instrucao1 := '1' // Protestar Dias Corridos else begin if not MatchText(Instrucao2, ['0', '1', '2', '3', '9']) then raise Exception.Create('Código de protesto informado incorretamente!'); end; // Calcular os dias para protesto sDiasProtesto := padR(IntToStr(Trunc(DataProtesto) - Trunc(Vencimento)), 2, '0'); Instrucao2 := '2' // NAO BAIXAR / NAO DEVOLVER end else begin Instrucao1 := '0'; // Não protestar SDiasProtesto := '00'; end; // Baixa/Devolução if Instrucao2 = '' then Instrucao2 := '2' // NAO BAIXAR / NAO DEVOLVER else begin if not MatchText(Instrucao2, ['1', '2', '3']) then raise Exception.Create('Código de Baixa/Devolução informado incorretamente!'); end;

Esta meio esquisito esse breguets aqui.... {Instruções} if (DataProtesto <> 0) and (DataProtesto > Vencimento) then begin if (Trim(Instrucao2) = '') then Instrucao2 := '1' // Protestar Dias Corridos <<<<<<---------------------------------------- Como altera a instrução2 se a frase //Protestar dias corridos é da instrucao1????? else begin if not MatchText(Instrucao2, ['0', '1', '2', '3', '9']) then raise Exception.Create('Código de protesto informado incorretamente!'); end; // Calcular os dias para protesto sDiasProtesto := padR(IntToStr(Trunc(DataProtesto) - Trunc(Vencimento)), 2, '0'); end else begin Instrucao1 := '0'; // Não protestar SDiasProtesto := '00'; end; // Baixa/Devolução if Instrucao2 = '' then Instrucao2 := '2' // NAO BAIXAR / NAO DEVOLVER else begin if not MatchText(Instrucao2, ['1', '2', '3']) then raise Exception.Create('Código de Baixa/Devolução informado incorretamente!'); end;

Boa tarde Juliana! Utilizei como acima, e a variável esta assim: Vdata_baixa:= '05/06/2016'; e estou instanciando assim: DataBaixa:= StrToDate(Vdata_baixa); porem ao gerar a remessa, sai na linha 224 - (Código para Baixa/Devolução), o número: 0 deveria ser 1 - (Baixar/Devolver); pode me auxiliar por favor? Obrigado

Deu certo Juliana, encontrei. Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin DataBaixa := Obrigado novamente.

Deu certo Juliana, entendi o que você falou. ACBrBoleto1.Cedente.CodigoTransmissao:=Vcodigo_transmissao; Obrigado!

Boa tarde Juliana! Estou com os fontes atualizados, mas não encontrei onde utilizar esta opção. Ex: ACBrBoletos1.... DataBaixa:= vdatabaixa; tem como você me ajudar por favor? obrigado.

E esse problema apareceu ao preencher o código de transmissão: 301500007428138 estou usando layout 240 é só na agencia mesmo. B33D10_05_2016H13_18_03.REM B33D10_05_2016H14_34_32.REM

bingo! quem sabe, sabe. agora outro problema, na sequencia... a agencia do cedente no arquivo de remessa esta saindo com um zero na frente, e não esta sendo enviado. e esta colocando um zero(0) na frente do nº da conta no arquivo remessa. penas um trecho da linha 3 segmento P: 0330001300001P 010301501300022270130002227 00... consegue visualizar?

Boa tarde Alexandre! O código de transmissão no Santander não esta sendo gerado no arquivo de remessa cba240, Você tem alguma ideia de onde esta o erro, tem algum modelo de como preencher esta informação no banco 033? obrigado