Machetes Varios

apuntes varios erp cwa logic ( ahora SoftLand Logic ) – sql y veremos que otra cosa

Registración de Compras (PV) desde un Job


posteado en cwausers por Claudio

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

 

 

 

febrero 25, 2011 - Posted by | 1.12 Jobs, Cwa Logic

Aún no hay comentarios.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: