Hasta windows XP, el procedimiento ( según la documentación ), es dar permisos totales al usuario sobre la clave HKEY_CLASSES_ROOT.

A partir de Win Vista, éste procedimiento puede ser muy peligroso, lo recomendable es  crear un acceso directo con los siguientes parámetros:

runas /user:dominio\Usuario_Administrador /savedcred “C:\Archivos de programa\Softland\Logic\SG32.exe /regall”

la primera vez que lo ejecutes te va a pedir una contraseña en una venta DOS… el parámetro /savedcred es el que se encarga justamente que no pida la contraseña en las siguientes. De esta forma estarías ahorrándote desloguearte del usuario para registrar librerías.

Problema:  Se necesita poder leer un campo Memo ( en SQL text ) desde el código de una aplicación RA (“mascaras para tablas”), sin truncar su valor ( o sea convirtiendo a VARCHAR(8000) desde la consulta al servidor )

El tema es que cuando llega a ese campo da “odbc sql driver posicion del cursor no valida “.

La Sintaxis usada es:

Solución:

• Usar una función MemoRead

Function BLOCTA_USR_CBRMVH_GETCLI_On_Change_Pre(sErrorMessage)

    Dim sSql, cn, Rd, lRow, sTipCli, sFchHas, iDias

    If Not oWho.Saving Then

                With oWho.Table.Rows(1)
                    .Fields("USR_CBRMVH_GETCLI").Value = "N"
                    sTipCli = Trim(Mid(.Fields("USR_CBRMVH_VALRUB").Value, 1, 3))
                    sFchHas = .Fields("USR_CBRMVH_FCHHAS").Value
                    iDias = .Fields("USR_CBRMVH_DIAS").Value
                 End With

                 lRow = 0
                 oWho.Table.Rows(1).Tables("USR_CBRMVI").Rows.Clear
                 oWho.Table.Rows(1).Tables("USR_CBRMVI").Rows.MaxRows = 500

                 sSql = "EXEC  Usr_Sp_Bloqueos_RecuperoClientesABloquear  '" & sTipCli & "'," & iDias & ", '" & sFchHas & "' "

                ' se abre recordset como  rdOpenKeyset para poder recuperar el campo MEMO USR_MOTIVO
                ' http://support.microsoft.com/kb/170368/es
                ' https://groups.google.com/forum/?hl=es#!topic/cwausers/OKJ1y6Ji1sg

                Set Rd = oWho.DataAccess.OpenResultset(CStr(sSql), 1)

                 Do While Not Rd.EOF
                     lRow = lRow + 1
                     With oWho.Table.Rows(1).Tables("USR_CBRMVI").Rows
                         With .Add(lRow)
                             .Fields("USR_CBRMVI_NROCTA").Value = Rd("USR_CBRMVI_NROCTA").Value
                             .Fields("USR_CBRMVI_NROCTA").Enabled = False
                             .Fields("USR_CBRMVI_NOMBRE").Value = Rd("USR_CBRMVI_NOMBRE").Value
                             .Fields("USR_CBRMVI_NOMBRE").Enabled = False
                             .Fields("USR_CBRMVI_BLOQUE").Enabled = True
                             .Fields("USR_CBRMVI_BLOQUE").Value = Rd("USR_CBRMVI_BLOQUE").Value
                             .Fields("USR_CBRMVI_BLOQUE").Enabled = False
                             .Fields("USR_CBRMVI_MOTIVO").Enabled = True
                             .Fields("USR_CBRMVI_MOTIVO").Value = MemoRead(Rd("USR_CBRMVI_MOTIVO"))
                             .Fields("USR_CBRMVI_MOTIVO").Enabled = False
                             .Fields("USR_CBRMVI_SDOEXC").Value = Rd("USR_CBRMVI_SDOEXC").Value
                             .Fields("USR_CBRMVI_SDOEXC").Enabled = False
                             .Fields("USR_CBRMVI_SDONOR").Value = Rd("USR_CBRMVI_SDONOR").Value
                             .Fields("USR_CBRMVI_SDONOR").Enabled = False
                             .Fields("USR_CBRMVI_SDOTOT").Value = Rd("USR_CBRMVI_SDOTOT").Value
                             .Fields("USR_CBRMVI_SDOTOT").Enabled = False
                             .Fields("USR_CBRMVI_LMCCRD").Value = Rd("USR_CBRMVI_LMCCRD").Value
                             .Fields("USR_CBRMVI_LMCCRD").Enabled = False
                             .Fields("USR_CBRMVI_SELECC").Value = "N"
                             .Fields("USR_CBRMVI_RESBLO").Value = Rd("USR_CBRMVI_BLOQUE").Value
                             .Fields("USR_CBRMVI_RESBLO").Enabled = False
                             .Fields("USR_CBRMVI_RESMOT").Value = Rd("USR_CBRMVI_MOTIVO").Value
                             .Fields("USR_CBRMVI_RESMOT").Enabled = False
                         End With
                     End With
                     Rd.MoveNext
                 Loop

             Rd.Close
             Set Rd = Nothing

    End If

 End Function

Gente, haciendo una consulta sobre la tabla cwparameters, me encontré con el siguiente:

más información en el foro  cwausers 

“Daniel M ” se quitó el problema haciendolo en una impresora láser, en donde utiliza el tamaño de papel A4, y configurando el tamaño del cheque en la parte “Alto de sección” ( 76 mm )  de la sección Detalle, con lo cual entran 3 cheques por página. El sobrante se “blanquea” con el salto de página que hace la impresora láser ( cosa que no sucede si se utilizan formularios continuos )

más info en cwausers

2. Crear un código de máscara con la estructura requerida

3. En el stdiccio, establecer  al campo el tipo string ( Ej: STRING13)

4. Stdiccio:  solapa mascara va: GRTMSH                                    GRTMSH_MASCAR ,

5. Tipo de filtro para mascara :     Se compara contra valores constantes. Nuevo: GRTMSH_CODIGO , Valor: El código de máscara creada el punto 2

Resumen de la discusion:

“

Muuy a grandes rasgos (razgos?), los pasos para crear un proceso es el
siguiente:

Un wizard lo creas desde el diccio. Ahí mismo le definis cuales son los
pasos que va a tener.

Por otro lado, tenes que crear las tablas del wizard (también desde el
diccio). Y las asocias una tabla por cada paso. Las podés definir que se
vean en formato formulario (para carga de parámetros por ejemplo)  o como
grilla de datos. Por ejemplo, en la tabla del paso 1 del wizard le pones un
par de campo de parametros, en la tabla del paso 2 la haces en formato
grilla para mostrar los resultados de los parámetros ingresados en el paso
anterior.

Finalmente, y muy importante. Necesitás asociar ese wizard a una dll de
usuario, para poder operar con el mismo. Sino te va a quedar un wizard que
no hace nada. Pero para esto necesitas una licencia especial (GSL, Generador
de Script por Link).
Una vez que tenes asociado el wizard, cuando se ejecuta se invoca un método
que vos tenes definido en la dll (thisevent()). Y recibis por parámetro el
objeto wizard. De esta forma podes capturar los parametros ingresados,
navegar entre los diferentes pasos, completar las tablas, manejar el
resultado final del ultimo paso, en fin, realizar diferentes acciones.”

—————

Comento del tema porque yo no utilizo ninguna DLL ni toco nada en el diccio.

Para crear un wizard que ejecute un insert update o delete hago lo siguiente
1) Crear un link a partir del siguiente objeto del sistema
Descripción: Generador de Wizard
Nombre: GRGENWIZ
2) Crear un reporte que comience con USR_WG_ (Hay que disponer de licencias)

campos

CWA_SENTENCIA (aqui poner la sentencia que ejecuta)
CWA_SI
CWA_NO
CWA_MAILTO
CWA_MENSAJE

3) Crear la macro en el link y asociar el reporte

—–

Tal cual Claudio, solo que con el WG solo podes desencadenar una sentencia
por le si y otra por el no, no podes hacer un proceso que haga lo que
quieras como comenta Federico.

Buen aporte Federico, la verdad nunca lo había usado. Una pregunta teniendo
el control en la dll podes manejar alguna interaccion con el usuario como
una barra de progreso o un check list ?

—————————

En su momento quise hacer una barra de progreso como la utilizada en la
liquidación de sueldos por ejemplo. Pero no encontré la forma (tampoco me
puse a investigar mucho mas je).
Yo tengo habilitada la licencia para usar dlls de usuario, pero no tengo
ninguna documentación al respecto. Solo lo que aprendí de mi antesesor. Y
muchas pruebas y errores, inspeccionar los objetos en tiempo de ejecución,
object browser, etc.

En los wizard, luego del último paso, viene la pantalla de resultado de la
operación. Sobre esa pantalla podés ir agregando los mensajes que quieras
sobre los pasos de la ejecución de tu código, y el resultado obtenido. Si
anduvo bien, si fallo, hasta podes poner el mensaje de error para cada paso.

Eso lo hacés a través del objeto MessageManager.  Para este objeto le podés
definir mensajes (messages). Y cada mensaje tiene sus atributos, como el
estado, el mensaje, la posicion dentro del messagemanager, y no me acuerdo
que otra cosa mas.

También podes forzar errores, con el metodo SetError.

Nosotros usamos bastante las dlls de usuario, sobre todo porque podés hacer
procesitos que toquen aplicaciones externas. Por ejemplo, tenemos un proceso
que le manda a cada persona (legajo) su recibo de sueldo por mail en pdf, y
aca usamos el pdf creator.
Hay otras formas de hacerlo, con reportes por ejemplo, o con un job. Pero de
esta forma el usuario puede elegir a quienes enviarle el recibo, o
reenviarlo, y le resulta bastante transparente el proceso.
O en su momento teníamos un proceso para factura electrónica de desarrollo
propio, echa con un wizard, porque todavía no estaba habilitado el módulo en
CWA o teníamos problemas (actualmente tenemos implementado el módulo en cwa,
y después de algunas idas y vueltas porque usamos una version multiempresa y
tuvimos algunos líos (sobre todo con la factura electrónica de exportación),
la verdad que ahora anda de maravillas).

Objetivo: hacer una regitración de un circuito de compras desde un job

Dificultad: Los circuitos de compra no soportan proceso Total

La solución : El script del job debe invocar al wizard, selecionar los campos del reporte browse, y luego, dentro de la regitración, poder guardarla

El código de Claudio:

Dim oWizard ‘Objeto que contendrá el wizard
Dim oConn
Dim ServerName
Dim DatabaseName
Dim UserName
Const cNombreEmpresa = “DES2″ ‘Nombre de la empresa
Const cNombre_Wizard = “USR_CORMVH_GR” ‘Wizard que se intenta ejecutar
Const cTipoObjeto = 4 ‘Tipo del objeto que se intenta crear. A un Wizard lecorresponde un 6

Set oConn = CreateObject(“ADODB.Connection”)

‘ Specify the OLE DB provider.
oConn.Provider = “sqloledb”     ‘Identificación del Tipo de Servidor (No Suele Cambiar)

DBProperties.CompanyName = cNombreEmpresa
‘ Asigna las propiedades antes establecidas al objeto de la conexión
oConn.Properties(“Data Source”).Value = DBProperties.Server
oConn.Properties(“Initial Catalog”).Value = DBProperties.Database
oConn.Properties(“User ID”).Value = DBProperties.User
oConn.Properties(“Password”).Value = DBProperties.Password
oConn.Open

Set oWizard = oApplication.Companies(cNombreEmpresa).GetObject(cNombre_Wizard, cTipoObjeto, “RUN_FOR_SCRIPT”)
oWizard.MoveNext

‘Estoy en el reporte
Dim iRowCount
Dim iRowPos
iRowCount = oWizard.CurrentStep.Report.GroupReport.Rows.Count
‘Selecciono todas las filas del reporte Grupos
For iRowPos = 1 To iRowCount
oWizard.CurrentStep.Report.GroupReport.Rows(iRowPos).Selected = True
Next

‘Selecciono todas las filas del reporte Detalle
iRowCountDetails = oWizard.CurrentStep.Report.DetailsReport.Rows.Count
iRowPos = 0
For iRowPos = 1 To iRowCount
oWizard.CurrentStep.Report.DetailsReport.Rows(iRowPos).Selected = True
Next

oWizard.Finish
oWizard.nextobject.save(1)
‘Aqui teoricamente podria obtener el nro de comprobante generado.
‘oWizard.PerformedOperations…
Set oWizard = Nothing

Si intentas conectar a un servidor Linux compartido con samba desde Windows Vista, comprobarás que Vista te pide una y otra vez tu usuario y contraseña sin dejarte acceder a dicho servidor.

El problema es que Windows Vista, al negociar las credenciales de autenticación con el servidor, por defecto lo hace de forma cifrada usando NTLMv2 y Samba no implementa este cifrado (al menos en versiones anteriores a la 3).

Podemos arreglar esto  cambiando la forma en que Vista transmite las credenciales a Samba durante el proceso de autenticación.

Si tienes Vista Busines, Ultimate o Enterprise:

1. Vete a Inicio, Ejecutar y escribe secpol.msc
2. Iremos a: Directivas locales, Opciones de seguridad.
3. Seguridad de redes: nivel de autenticación de LAN Manager.
4. Cambiamos el valor: Enviar sólo respuesta NTLMv2 por Enviar LM y NTLM: usar la seguridad de sesión NTLMv2 si se negocia.
5. Ahora ya podremos acceder a los recursos compartidos mediante samba

Si tenemos Vista Home, no tendremos la utilidad secpol.msc, por lo que tendremos que editar el registro manualmente:

1. Inicio, Ejecutar, regedit.
2. Ir hasta la clave:

   HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Lsa\LMCompatibilityLevel

3. Cambiaremos el valor por defecto (3), que es NTLMv2 only, por 1, que es use NTLMv2 if available, or older versions if not.
4. Reiniciamos el equipo y listo.

“… . el Gerente de Finanzas quiere SI o SI, que en el
casillero donde va el importe en números, esté justificado a la
derecha, que termine con “.-” “

… O sea.. si el importe (CJRMVI_IMPORT) en la base de datos esta
almacenado como: 12100.75 quiere que quede como: ****** 12.100,75.-

“…

Estuve buscando y buscando funciones en SQL que manejen “mascaras de
edicion” y no encuentro la forma de hacerlo. Ojo.. no soy un experto
en SQL, pero quizas a alguno de UDs ya les paso algo parecido.

Perdon por lo extenso, pero quería explicar lo mejor posible mi
inquietud.
Gracias ! “

Solución:

numero = currentrecord(“cjrmvi_import”)
result = right(string(20,”*”) & formatnumber(numero,2,-1,0,-1),
20)&”.-”

Saludos

Más información ( por Diego Occhiuzzi )

http://www.w3schools.com/vbScript/func_formatnumber.asp