 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
 Enviada: Sáb Set 23, 2017 10:22 am Assunto: |
 |
|
Revivendo o topico.
Hoje o sistema esta gerando 9 digito neste processo
500000609
Tem como gerar 10 digitos?
| Código: | function Tfrmcadordserv.FuncMaxOrdemServ(aqry: TZQuery): Integer;
begin
with aqry do
begin
Close;
SQL.Clear;
SQL.Text := ' SELECT ( MAX( CAST(nrordemserv as INTEGER) ) + 1 ) as n_doc '+
' FROM ordemserv WHERE CAST(nrordemserv as INTEGER) <999991> ''50000'' and '+
' substring(o.nrordemserv from 5 for 1) <and>= ''100000'' and '+
' substring(o.nrordemserv from 6 for 1) <> '''' and '+
' not exists (select 1 from ordemserv as s '+
' where s.nrordemserv = CAST(CAST(o.nrordemserv as INTEGER) + 1 as varchar(10))) '+
' ORDER BY o.nrordemserv ';
Open;
if IsEmpty then
Result := 0 // ou outro valor a retornar quando não encontrou código disponível
else
Result := FieldByName('n_doc').AsInteger;
end
else
Result := FieldByName('n_doc').AsInteger;
end
else
Result := FieldByName('n_doc').AsInteger;
end;
end; |
Uso o firebird 2.0
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Dom Set 24, 2017 2:04 pm Assunto: |
|
|
Pelo que vi o código que você postou está distorcido.
Lembre-se de habilitar o CheckBox "Desativar HTML nesta mensagem" antes de enviar. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
