Ayuda con un store procedure
Publicado por JorxD (2 intervenciones) el 28/05/2014 05:39:49
Hola a todos los amigos del foro necesito una ayuda en una sentencia sql mi problema es en generar codigo consecutivo ejemplo 000001 pero el problema es en que primero debo evaluar 4 categorias "F0001", "F0002", "F0003", "F0004"; si escojo F0001 aumenta en 000001 y así sucesivamente; cuando entre a otro formulario con otra categoria debe iniciar en 000001 de nuevo y así va recorriendo la tabla
este es la sentencia que e tratado de hacer no se si esta bien todavía soy novato en el sql y visual
=======================================================
Visual
=======================================================
===========================================================================================
Antemano muchas gracias por su colaboración ^^!
este es la sentencia que e tratado de hacer no se si esta bien todavía soy novato en el sql y visual
1
2
3
4
5
6
7
8
9
10
11
ALTER proc [dbo].[Codigo_orden]
as
select case Cod_fuente
when 'F0001' then right('00000'+ convert(nvarchar,count(*)+1),6)
When 'F0002' then right('00000'+ convert(nvarchar,count(*)+1),6)
when 'F0003' then right('00000'+ convert(nvarchar,count(*)+1),6)
when 'F0004' then right('00000'+ convert(nvarchar,count(*)+1),6)
else right('00000'+ convert(nvarchar,count(*)+1),6)
end
from Orden
GROUP BY Cod_fuente;
=======================================================
Visual
=======================================================
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Function GenerarCodigo_orden() As DataTable
Try
conectado()
cmd = New SqlCommand("Codigo_orden")
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn
If cmd.ExecuteNonQuery ThenDim dt As New DataTable
Dim da As New SqlDataAdapter(cmd)
da.Fill(dt)
Return dt
Else
Return Nothing
End If
Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
Finally
desconectado()
End Try
End Function
Antemano muchas gracias por su colaboración ^^!
Valora esta pregunta
0
