AutoInc DELPHI com 13 Dígitos + Firebird ( Client Dataset)

Delphi

30/10/2013

Estou Tentando Criar em Um campo Tipo Integer ( Codebar ) para gerar uma numeração automática de 13 digitos padrão iniciado com 789 + ordem , utilizando ClientDataset , porém não encontro tópicos abertos para este Problema.
Carlos Filho

Carlos Filho

Curtidas 0

Respostas

Carlos Filho

Carlos Filho

30/10/2013

Encontrei Feito com a Query porém como implementar via ClientDataset????


QueryContador.Active := False;
QueryContador.Active := True;
with QueryContador.Fields[0] do
if isNull then
TabelaCampoNumerico.Value := 1
else
TabelaCampoNumerico.Value := asInteger + 1;
GOSTEI 0
Carlos Filho

Carlos Filho

30/10/2013

RESOLVIDO ., CRIEI NO FIREBIRD UM CAMPO CODEBAR DO TIPO NUMERICO 13 SCALE 2 CRIEI A GENERETOR , A TRIGER E A PROCEDURE ,
ADICIONEI NO SQLDATASET E NO CLIENTDATASET , E SEMPRE QUE APLICO O POST ELE GERA A NUMERAÇÃO INICIANDO COM 7890000000000001 78900000000002 E POR AI VAI , E MELHOR COM POSSIBILIDADE DE ESCREVER CASO EU QUEIRA USAR O CODIG DE BARRAS DO PRODUTO .
GOSTEI 0
POSTAR