USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ferar codigo seguencial
ATS
não registrado
Postada em 01/06/2004 14:00 hs   
Tenho um formulario em que cadastro o codigo de CFOP (código que é impresso em notas ficais), e o seu formato é x.xxx gostaria que quando o usuário cadastrasse um novo CFOP fosse gerado automaticamente um código seguencial e que este codigo fosse anexado ao CFOP, para o sistema poder distingui-lo dos outros..
 
Ex.:
 
5.915.1
5.949.1
5.915.2
 
a assim sucessivamente...
     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 01/06/2004 16:09 hs            
Tente
 
Dim cnn As New adodb.Connection
Dim rst as recordset
    ... faz a conexao....
    rst.Open "Select max(cod_seq) as ultimo From CFOP where cod_cfop = 5.915 ", cnn, adOpenStatic
 
proximo_codigo = rst.fields![ultimo] + 1
 
Não testei o codigo. Qualquer coisa post.

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página