Karam | Blog

Realizar un Insert y recuperar el valor del campo Identity (Auto incremental) al momento de realizar el Insert.

Pensando que la tabla tiene 5 campos (id identity,fecha,maq,dep,status)

Dim adap_lin As SqlClient.SqlDataAdapter
Dim tabla_lin As DataTable
sql = "INSERT INTO tbl_doc VALUES ('" & fecha_tmp & "'," & maq_tmp & "," & dep_tmp & "," & sta_tmp & ")"
sql = sql & ";Select @@Identity"   'Incrustamos el segundo query para ver que consecutivo  asignó.
Try
   dadaptador = New SqlClient.SqlDataAdapter(sql, cadena)
   dadaptador.Fill(dtabla) 'dtabla debe de traer el ultimo folio
   If dtabla.Rows.Count > 0 Then
        Lfolio.Text = dtabla.Rows(0).Item(0).ToString  'AQUI VIENE EL VALOR IDENTITY
   end try          
Catch ex As Exception
    MsgBox("Error al guardar " & ex.ToString, MsgBoxStyle.Critical, "Error al guardar folio")
End Try

Ejemplo de un SP que regresa un valor numérico:

CREATE PROC dbo.PruebaRegreso (@valor INTEGER)
AS
RETURN @valor+1

Llamada a un SP que regresa entero:

DECLARE @regreso INTEGER
EXEC @regreso = PruebaRegreso 81
PRINT @regreso --debug imprime 82
SELECT @regreso AS SALIDA

Les dejo una guía en español para hacer este cambio realizado por mi amigo de theiphonetips , se ve muy fácil y sencillo y deja ligas a todos los archivos necesarios, así que hoy por la noche le toca estrenar firmware nuevo a mi iphone.

En la siguiente tabla se pueden observar parte de las ventajas que ofrece este nuevo firmware y sus respectivas compatibilidades según la generación del iphone.

Creo que lo que más me dolió es la posibilidad de tener Bluetooth Stereo, pero bueno no siempre se puede tener todo en la vida, he escuchado que la velocidad entre aplicaciones se mejora considerablemente. Lo pruebo y mañana les comento.

Liga del Manual: www.theiphonetips.com

Tabla obtenida de: http://www.iphone3g.cl/

Crear Stored Procedure el cual regresa un cursor como parámetro de retorno:

Primero creamos el StoredProcedure:

CREATE PROCEDURE cursor_salida (@salida CURSOR VARYING OUTPUT)
AS
  SET @salida = CURSOR FOR
  SELECT   item     FROM   items  --o el sql que se necesite...
  OPEN @salida

Lo llamamos y hacemos con el cursor lo que necesitemos:

DECLARE  @cur  AS CURSOR
DECLARE  @i    AS NVARCHAR(15)
EXEC  cursor_salida @salida=@cur OUTPUT
WHILE 1=1
BEGIN
       FETCH    NEXT    FROM    @cur   INTO   @i
       PRINT @i  -- operar los datos del cursor ...
       IF @@FETCH_STATUS = -1 BREAK
END

Para regenerar la leyenda del importe  en letra de una factura en Proscai basta con visualizar la factura en el módulo de facturación y dar [SHIFT]+Click en el botón de comentarios.

Nota: Además de regenerar la leyenda del importe en letra esta acción borra los comentarios de dicha factura.

Para los que utilizan la versión netinstall en sus instalaciones, les dejo un buen mirror de paquetes que encontré para instalar CentOS, recuerden enchufar su caja a una conexión con buena velocidad.

Dentro de las ventajas de este modo de instalación puedo mencionar el evitar tener que bajar todos los discos o el DVD que suman aproximadamente  4G cuando probablemente requieres menos de eso.

Servidor: yum.singlehop.com
Directorio: CentOS/5.2/os/i386

Este servidor también tiene paquetes para 64 bits.

Esto sí que me costó trabajo encontrarlo …
¿Cómo pasar el valor null a un parámetro de un reporte en crystal reports asociado a un StoredProcedure en Visual Basic 6?

Aquí les compartdo el dato:

        Report.ParameterFields(0).AddCurrentValue   Empty
        Report.ParameterFields(0).EnableNullValue = True

Saludos y espero que les sea Útil.