VB6 - Houve um salto no intervalo

[Antenor 0]

Caros,

 

Solicito gentilmente uma ajuda no caso abaixo:

Temos um sistema desenvolvido em VB6 para a emissão de pedidos usando como BD o SQLServer 2000, acontece que no mês passado o número do pedido saltou do número 17 para o nº 448 e agora no mês de março saltou do nº 19 para o nº 905, já faz um bom tempo que usamos este programa e agora que começou a acontecer isso.

 

O que pode ter acontecido?

Como faço para usar o intervalo que não foi usado (20 ao 904)?

O que posso fazer para não acontecer isso no mês que vem?

 

Se você puder me ajudar, por favor, não hesite.

 

Muito obrigado

[Claudio Neto 3]

O VB está gerando o numero do pedido ou está com numeração automática?

 

Se for o vb, poste a parte do código que está gerando o numero do pedido.

[scorpio 7]

Pode ser a geração automatica do SQL. Setiver gerando lá.

 

Mas poste o código.

[Antenor 0]

Senhores, desculpem-me pela demora...

 

Segue abaixo o provável código

 

 

Private Sub GravaDados()

Dim mvarcn3 As New ClasseConeccaoUlfer

 

On Error GoTo erro

 

mvarcn3.BeginTrans

 

GravaPedido

If ListView1.ListItems.Count <> 0 Then

GravaPedidoItens

End If

 

DadosGravados = True

 

mvarcn3.CommitTrans

 

If Trim(Combo11.Text) = "TROCA" Then Liberacao

 

'Pedido.Close

Set Pedido = Nothing

'PedidoItens.Close

Set PedidoItens = Nothing

 

MsgBox "Pedido " & NumeroPedido & " incluido com sucesso! ", vbInformation

Exit Sub

'***********************************************************************

erro:

ExibeAdoError Mvarcn.cn

mvarcn3.Rollbacktrans

End Sub

 

================

 

Private Function ObtemNumeroPedido() As Long

Dim Sql As String

Dim Rs As New ADODB.Recordset

Sql = "Select max(NumeroPedido) From Pedido Where "

Sql = Sql & "Ano = " & Year(DATASISTEMA) & " and "

Sql = Sql & "Mes = " & Month(DATASISTEMA)

With Rs

.CursorLocation = adUseClient

.Open Sql, Mvarcn.cn, adOpenStatic, adLockReadOnly

ObtemNumeroPedido = IIf(IsNull(Rs(0)), 1, Rs(0) + 1)

.Close

End With

Set Rs = Nothing

End Function

================

 

Até aqui já sou muito grato pela atenção.

 

Abraços

Antenor

[Claudio Neto 3]

Não, a parte que está salvando em seu banco devem ser as funções gravapedido e gravapedidoitem.

 

Tem como postar essas partes aqui?