Carlos Júnior Postado 24 Janeiro Compartilhar Postado 24 Janeiro Estou com estes dois erros que não estou conseguindo encontrar o problema.. Linha 2, colunas 180 a 192, Registro tipo 1, Valor do desconto 1 não informado. (Estou informando o campo Titulo.ValorDesconto := 0;) Linha 3, colunas 395 a 400, Número sequencial de registro inválido. (Aonde é informado este sequencial? Esta estourando em 1 digito no arquivo ficando com 401 posições) Linha 3, Tamanho do registro inválido. Link para o comentário Compartilhar em outros sites More sharing options...
Carlos Júnior Postado 24 Janeiro Autor Compartilhar Postado 24 Janeiro O erro da linha 3 era por estar regerando o registro 2 quando eu passava algo em Titulo.Mensagem...Marquei a opçao de gera mensagem padrão e não passei as informações para o titulo.mensagem. O erro da linha 2 eu ainda não descobri o que é...Fiz um teste no programa exemplo com os mesmo dados e lá não deu este erro...comparei os arquivos de configuração e não achei diferença. Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 25 Janeiro Compartilhar Postado 25 Janeiro desconto, pede valor, se voce comandar ele, olha se vc colocou "sem desconto". Olha como faço: Titulo.ValorDesconto := 0; Titulo.CodigoDesconto := cdSemDesconto; // , cdValorFixo Titulo.TipoDesconto := tdNaoConcederDesconto; if (IBDSReceber.FieldByName('CONCEDER_DESCONTO_ATE_REC').AsString = 'S') and ((IBDSReceber.FieldByName('VLR_DESCONTO_ATE_REC').AsCurrency > 0) or (IBDSReceber.FieldByName('PERC_DESCONTO_BOLETO_REC').AsCurrency > 0)) then begin { tdNaoConcederDesconto, tdValorFixoAteDataInformada, tdPercentualAteDataInformada, tdValorAntecipacaoDiaCorrido, tdValorAntecipacaoDiaUtil, tdPercentualSobreValorNominalDiaCorrido, tdPercentualSobreValorNominalDiaUtil, tdCancelamentoDesconto); } if IBQryServBanc.FieldByName('REM_DESCONTO_VP_SER').AsString = 'P' then begin Titulo.ValorDesconto := IBDSReceber.FieldByName('PERC_DESCONTO_BOLETO_REC').AsCurrency; Titulo.TipoDesconto := tdPercentualAteDataInformada; end else if IBQryServBanc.FieldByName('REM_DESCONTO_VP_SER').AsString = 'V' then begin Titulo.ValorDesconto := IBDSReceber.FieldByName('VLR_DESCONTO_ATE_REC').AsCurrency; Titulo.TipoDesconto := tdValorFixoAteDataInformada; end; if Titulo.ValorDesconto > 0 then begin Titulo.CodigoDesconto := cdValorFixo; Titulo.DataDesconto := IBDSReceber.FieldByName('CONSIDERAR_DESC_ATE_REC').AsDateTime; end; end; Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora