Codigo Util - Historial de revisiones

Carlos Barroso: /* Transacciones, TCF, Logout, Commit, Rollback */

2015-12-15T15:25:45Z

Transacciones, TCF, Logout, Commit, Rollback

← Revisión anterior		Revisión del 15:25 15 dic 2015
Línea 1316:		Línea 1316:
	Carlos Barroso		Carlos Barroso
	DBA Oracle		DBA Oracle
	Programador Clarion </pr>		Programador Clarion </pre>

Carlos Barroso: /* Transacciones, TCF, Logout, Commit, Rollback */

2015-12-15T15:24:51Z

Transacciones, TCF, Logout, Commit, Rollback

← Revisión anterior		Revisión del 15:24 15 dic 2015
Línea 1305:		Línea 1305:
	Lo anterior es copia de la ayuda del manual de Clarion 6.3		Lo anterior es copia de la ayuda del manual de Clarion 6.3

	Para verificar que exista realmente el archivo .TCF podemos usar en ~~cualquer~~ punto de la aplicación lo siguiente:		Para verificar que exista realmente el archivo .TCF podemos usar en cualquier punto de la aplicación lo siguiente:

	Poner un string variable en pantalla y en un boton:		Poner un string variable en pantalla y en un boton:
Línea 1311:		Línea 1311:
	Loc:Tcf = SEND(CLIENTES, 'TCF')		Loc:Tcf = SEND(CLIENTES, 'TCF')
	DISPLAY()		DISPLAY()
			<pre>
			Eso deberia ser todo. Por lo menos para mi funciona.

	~~Eso deberia ser todo. Por lo menos para mi funciona.~~
	Carlos Barroso		Carlos Barroso
	DBA Oracle		DBA Oracle
	Programador Clarion		Programador Clarion </pr>

Carlos Barroso: /* Transacciones, TCF, Logout, Commit, Rollback */

2015-12-15T15:23:30Z

Transacciones, TCF, Logout, Commit, Rollback

← Revisión anterior		Revisión del 15:23 15 dic 2015
Línea 1313:		Línea 1313:

	Eso deberia ser todo. Por lo menos para mi funciona.		Eso deberia ser todo. Por lo menos para mi funciona.
			Carlos Barroso
			DBA Oracle
			Programador Clarion

Carlos Barroso: Solucion al tema del TCF, crearlo, verlo, etc.

2015-12-15T15:22:46Z

Solucion al tema del TCF, crearlo, verlo, etc.

← Revisión anterior		Revisión del 15:22 15 dic 2015
Línea 1258:		Línea 1258:

	Mario A. Wojcik		Mario A. Wojcik


			== Transacciones, TCF, Logout, Commit, Rollback ==

			Solucion al tema del TCF, crearlo, verlo, etc.

			Paso 1
			En el punto embebido del FRAME (windowsManager init (priority 6100) o sea antes que se abra ningun archivo,
			Insertar el siguiente codigo:
			<pre>
			GLO:Datos:TCF = 'TCF=' & CLIP(GLO:WorkDir) & '\' & 'AR.TCF'
			Send(CLIENTES,GLO:Datos:TCF)
			</pre>
			Nota 1:
			No es necesario definir en ningun lado el archivo .TCF ni su estructura porque de todo se encarga el driver.
			Nota 2:
			no enviar (SEND) los datos para el .TCF desde el diccionario, según los autores, esto no funciona.
			Nota 3: Solo es necesario un archivo .TCF para toda la aplicación.

			Listo, el archivo de control de transacciones ya esta creado y sin dudas funcionara.
			Para que todo quede completo deberiamos hacer:
			<pre>
			LOGOUT(1,CabeceraFactura,DetalleFactura) !Comienza la transaccion
			DO ErrHandler !Chequear errores
			ADD(CabeceraFactura) !Agregar registro al padre
			DO ErrHandler !
			LOOP X# = 1 TO RECORDS(DetailQue) !Procesar los registros almacenados
			GET(DetailQue,X#) !traer uno de la Cola
			DO ErrHandler !
			Det:Record = DetailQue !Asignar al record buffer
			ADD(DetalleFactura) !Hacer el Add al archivo
			DO ErrHandler !
			END
			COMMIT !Terminar la transaccion, todo OK
			ASSERT(~ERRORCODE())

			ErrHandler ROUTINE !Runina de manejo de errores
			IF NOT ERRORCODE() THEN EXIT. !Sale si no hay errores
			Err" = ERROR() !Guarda el mensaje de error
			ROLLBACK !Anula la transaccion
			ASSERT(~ERRORCODE())
			BEEP !Avisa al usuario
			MESSAGE('Transaction Error - ' & Err")
			RETURN
			</pre>
			Lo anterior es copia de la ayuda del manual de Clarion 6.3

			Para verificar que exista realmente el archivo .TCF podemos usar en cualquer punto de la aplicación lo siguiente:

			Poner un string variable en pantalla y en un boton:

			Loc:Tcf = SEND(CLIENTES, 'TCF')
			DISPLAY()

			Eso deberia ser todo. Por lo menos para mi funciona.

Jorge Brugger en 00:34 8 mar 2015

2015-03-08T00:34:37Z

← Revisión anterior		Revisión del 00:34 8 mar 2015
Línea 514:		Línea 514:
	LOC:Handle = 0{PROP:Handle}		LOC:Handle = 0{PROP:Handle}
	LOC:Op = 'Open'		LOC:Op = 'Open'
	LOC:File = 'http://www.~~evolutionconsulting~~.com.ar'		LOC:File = 'http://www.templatesclarion.com.ar'
	LOC:Path = ' '		LOC:Path = ' '
	LOC:Param = ' '		LOC:Param = ' '

Jorge Brugger: Texto reemplazado: «[http://www.evolutionconsulting.com.ar/espanol/downloads.html (Evolution Downloads)]» por «[http://templatesclarion.com.ar/downloads/ (Templates Clarion)]»

2015-03-07T22:38:19Z

Texto reemplazado: «[http://www.evolutionconsulting.com.ar/espanol/downloads.html (Evolution Downloads)]» por «[http://templatesclarion.com.ar/downloads/ (Templates Clarion)]»

← Revisión anterior		Revisión del 22:38 7 mar 2015
Línea 814:		Línea 814:
	tenga el Stored Procedure.		tenga el Stored Procedure.

	Para mas detalles ver el documento sobre SQL Embebido [http://~~www.evolutionconsulting~~.com.ar/~~espanol~~/~~downloads.html~~ (~~Evolution Downloads~~)]		Para mas detalles ver el documento sobre SQL Embebido [http://templatesclarion.com.ar/downloads/ (Templates Clarion)]

	También recomiendo leer el help "MSSQL Accelerator Calling a Stored		También recomiendo leer el help "MSSQL Accelerator Calling a Stored

Jorge Brugger: Página creada con «En esta sección se incluyen rutinas de código que nos resultaron útiles en más de una ocasión. == PDF con cualquier versión de Clarion == Después de mucho rebuscar ...»

2012-07-04T17:14:10Z

Página creada con «En esta sección se incluyen rutinas de código que nos resultaron útiles en más de una ocasión. == PDF con cualquier versión de Clarion == Después de mucho rebuscar ...»

Mostrar los cambios