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

boa tarde. @embarbosa deu certinho sua orientação. muito obrigado. poderia fechar o topico por favor

bom dia a todos hoje depois de algum tempo efetuei um update no snv e todas as vezes que aplico, eu seleciono para apagar os programas que não usa, e reinstalo todos os componentes novamente. depois disso esta aparecendo esse erro conforme imagem, e não consigo mais emitir a NFe. alguem por favor poderia me orientar o que fazer. obrigado

obrigado Italo pelo retorno. vou efetuar essa orientação. poderia fechar o topico

bom dia. Fui solicitado por um cliente uma opção de visualização do danfe(NFe) para verificação, sem que o mesmo seja enviado a sefaz. acredito que nesse caso eu tenha que gerar,assinar, e validar, mas não posso enviar a sefaz. como poderia proceder com essa situação. alguem poderia me ajudar. desde já agradeço paulinho

Ok obrigado. vou aguardar

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

Muito obrigado pela orientação. Poderia fechar o topico por favor

Boa tarde Preciso de uma ajuda para resolver uma questão simples, mas de falta de meu conhecimento. Estou tentando pegar uma informação de um retorno de cancelamento de uma NFCe, para que possa entrar em uma rotina em meu sistema. Tipo assim: se o retorno for 135 ele entra no rotina que eu quero. mas não estou conseguindo pegar essa informação abaixo vai meu codigo, o XML e uma imagem do campo que quero pegar. por favor se alguem puder me orientar ficarei grato. Rotina: ACBrNFe1.EnviarEvento(StrToInt(ycNF)); MemoRespCancel.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetWS; memoRespCancelWS.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetornoWS; LoadXML(MemoRespCancel, WBRespostaCancel); ShowMessage('Retorno de Status do EVENTO :- ' + IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); AQUI EU ESPERO O STATUS 135 if ACBrNFe1.WebServices.Retorno.cStat = 135 then begin CdsGeral.Close; CdsGeral.DataRequest('Update TABPED set CHAVECFE=''NFCe - Cancelada'' where TABPED=''' + yVda + ''' '); CdsGeral.Execute; CdsGeral.Close; CdsGeral.DataRequest('Update TABPEDDETALHE set CHAVECFE=''NFCe - Cancelada'' where TABPED=''' + yVda + ''' '); CdsGeral.Execute; end; Obrigado a todos Paulinho 1101112719103259935400019065001000001639127132641901-procEventoNFe.xml

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

Bom dia Kiko obrigado pela informação. Paulinho

boa noite a todos. preciso de uma informação. o Distrito Federal é obrigatório o cadastramento da soft house como no Paraná? isso para emissão da NFe e da NFCe obrigado Paulinho

Maravilha vou fazer isso. obrigado