Antonio Paulo Mangili

Juliana boa tarde. enviei novamente os boletos ao suporte da daycoval, e os mesmo foi aprovado. muito obrigado pela atenção. poderia fechar o topico por favor.

bom dia. segue: Cedente.Agencia := '0001'; Cedente.AgenciaDigito :='9'; Cedente.Conta := '737099'; Cedente.ContaDigito := '9'; Cedente.CodigoCedente := '0000000'; Cedente.Operacao := '1508464';

Juliana bom dia segue alimentação do componente, e o boleto gerado para analise. obrigado //Dados da Agencia e Conta Cedente.Agencia := Agencia; Cedente.AgenciaDigito := DigitoAgencia; Cedente.Conta := ContaC; Cedente.ContaDigito := DigitoCC; Cedente.CodigoCedente := '0000000'; Cedente.Operacao := CdsTab707HEACONVENIO.AsString; //Dados da Duplicata Vencimento := CdsTabRecVENCIMENTO.AsDateTime; DataDocumento := CdsTabRecEMISSAO.AsDateTime; NumeroDocumento := CdsTabRecDOCUMENTO.AsString + '/' + CdsTabRecPARCELA.AsString; EspecieDoc := 'DM'; Aceite := atNao; DataProcessamento := Now; Carteira := CdsTab707HeaCARTEIRA.AsString; NossoNumero := NossoNumero001; ValorDocumento := CdsTabRecVALOR.AsCurrency; LocalPagamento := 'Pagavel em qualquer agencia bancaria, mesmo apos VENCIMENTO'; ValorMoraJuros := MoraJuros; DataMoraJuros := CdsTabRecVENCIMENTO.AsDateTime + 1; Mensagem.Text := Mensag; ANDREA 2003 HORTIFRUT LTDA_121_1.pdf

Juliana boa tarde. como passei a voce anteriormente enviei os boleto a daycoval e o digito ficou correto, porem a linha digitavel esta errada. segue o exemplo do bando e o boleto impresso após essa atualização. banco: ACERTO NA LINHA DIGITAVEL SEU BOLETO / ERRADO - 7079000118 21008458016 060.4 6 81950000771750 VALIDADO / CORRETO - 7079000118 21150846406 08468010601 8 81950000771750 ANDREA 2003 HORTIFRUT LTDA_121_1.pdf

Juliana bom dia. atualizei e efetuei a impressão novamente. me parece que deu certo. mas vou enviar ao suporte da daycoval para validação e depois te retorno. muito obrigado pela atenção e rapidez no suporte. paulinho

boa noite juliana. então ja fiz de tudo e não gera o digito em que o banco me orienta que estaria correto. vou anexar o leaiute que me enviarão. obrigado Manual M. 707 - Banco Daycoval Dez-19.pdf

andré boa tarde. voce conseguiu gerar os boletos do banco daycoval? Estou com problemas de calculo do digito verificador no boleto. Uso a seguinte função em meu sistema: yNossoNumero := '84580106' NossoNumero001 := UFunction.Formatar(yNossoNumero,8,false,'0'); Mas ele esta gerando o nosso numero com digito -8 conforme boleto anexo, e o banco me informou que esta errado deveria ser 0(zero) poderia me ajudar? Obrigado Paulinho {FUNÇÃO FORMATAR //OBJETIVO: Eliminar caracteres inválidos e acrescentar caracteres à esquerda ou à direita do texto original para que a string resultante fique com o tamanho desejado Texto : Texto original TamanhoDesejado: Tamanho que a string resultante deverá ter AcrescentarADireita: Indica se o carácter será acrescentado à direita ou à esquerda TRUE - Se o tamanho do texto for MENOR que o desejado, acrescentar carácter à direita Se o tamanho do texto for MAIOR que o desejado, eliminar últimos caracteres do texto FALSE - Se o tamanho do texto for MENOR que o desejado, acrescentar carácter à esquerda Se o tamanho do texto for MAIOR que o desejado, eliminar primeiros caracteres do texto CaracterAcrescentar: Carácter que deverá ser acrescentado } function Formatar(Texto : string; TamanhoDesejado : integer; AcrescentarADireita : boolean = true; CaracterAcrescentar : char = ' ') : string; var QuantidadeAcrescentar, TamanhoTexto, PosicaoInicial, i : integer; begin case CaracterAcrescentar of '0'..'9','a'..'z','A'..'Z' : ;{Não faz nada} else CaracterAcrescentar := ' '; end; Texto := Trim(AnsiUpperCase(Texto)); TamanhoTexto := Length(Texto); for i := 1 to (TamanhoTexto) do begin if Pos(Texto,' 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`~''"!@#$%^&*()_-+=|/\{}[]:;,.<>') = 0 then begin case Texto of 'Á','À','Â','Ä','Ã' : Texto := 'A'; 'É','È','Ê','Ë' : Texto := 'E'; 'Í','Ì','Î','Ï' : Texto := 'I'; 'Ó','Ò','Ô','Ö','Õ' : Texto := 'O'; 'Ú','Ù','Û','Ü' : Texto := 'U'; 'Ç' : Texto := 'C'; 'Ñ' : Texto := 'N'; else Texto := ' '; end; end; end; QuantidadeAcrescentar := TamanhoDesejado - TamanhoTexto; if QuantidadeAcrescentar < 0 then QuantidadeAcrescentar := 0; if CaracterAcrescentar = '' then CaracterAcrescentar := ' '; if TamanhoTexto >= TamanhoDesejado then PosicaoInicial := TamanhoTexto - TamanhoDesejado + 1 else PosicaoInicial := 1; if AcrescentarADireita then Texto := Copy(Texto,1,TamanhoDesejado) + StringOfChar(CaracterAcrescentar,QuantidadeAcrescentar) else Texto := StringOfChar(CaracterAcrescentar,QuantidadeAcrescentar) + Copy(Texto,PosicaoInicial,TamanhoDesejado); Result := AnsiUpperCase(Texto); end; ANDREA 2003 HORTIFRUT LTDA_121_1.pdf

Ok obrigado. vou aguardar

Juliana bom dia. Voce sabe me informar já ja subiu essa evolução no svn? obrigado

boa tarde a todos. acabei de ser solicitado por um cliente a emissão desses boletos do banco daycoval. me parece que esta em evolução correto? obrigado paulinho

Obrigado Rodrigo

Marcio. Sobre São Paulo, voce tem alguma informação de que o ICMS Desonerado vai validar? Obrigado

Ok Rodrigo. Mais ma vez muito obrigado pelas informações. Paulinho

Rodrigo. Muito obrigado pela informação. nesses casos em que a CST for 20,30,40,41,50,70 ou 90 com icms ou redução na base devemos destacar esse icms desoneração? É isso? Falei com um contador aqui e eles não estão sabendo disso, e nem como vai funcionar. Estou a pé. Já li a nota tecnica 1.20 e também não cheguei a um entendimento. Obrigado Paulinho

bom dia. Essa informação de icms desonerado, é somente para quem é regime normal, ou quem for simples nacional que usa csosn, vai ter que ser informado também? Obrigado

Comprei esse. http://www.elivaldo.com.br/help/index.htm muito bom e facil. obrigado

Maravilha vou fazer isso. obrigado

Obrigado Marcelo. eu uso o RDPrint deles, mas esse rdacesso não compreendi muito bem não. Como funciona ele?

Obrigado. vou dar uma olhada.

Boa tarde. Gostaria de saber se alguém tem algum programa ou componente que controle o licenciamento de minha ERP onde meu cliente receberá chaves de liberação para licenciar o sistema por 30 dias por exemplo. Preciso de custo caso alguém tenha. Obrigado Paulinho

Carlos bom dia. veja isso. aqui eu resolvi assim:

Sergio essa rotina para compactar a pasta, esta dentro do ACBr, ou foi desenvolvida por voce. Obrigado

Fabricio estou com essa necessidade também. Quanto voce cobraria para desenvolver isso. Speed Contribuição e Speed Fiscal? Ja tenho uma ERP rodando em clientes com tributação diferenciada. Obrigado

Italo muito obrigado pela orientação.

Felipe boa tarde. Me tire uma duvida. Após efetuar o manifesto de confirmação, eu faço a distribuição da NFe, correto? ao efetuar essa distribuição ele salva o xml do meu fornecedor em que pasta? Pergunto isso, porque estou implementando os serviços de manifesto e distribuição em meu aplicativo, e não tenho muito conhecimento dessa execução. Teria como eu salvar em uma pasta que iria criar em meu cliente? Obrigado