Buscadores predefinidos

Objeto

Nombre

Descripción

Ejemplo

gCn

DameValorCampo

Obtiene el valor de un campo de tabla/vista de bbdd.

Variable = gcn.DameValorcampo(“Select RazonSocial From Clientes_Datos Where IdCliente = ‘00000’”)

DameNewCollection

Retorna un objeto de tipo Collection al que se le puede añadir objetos o variables. Es útil cuando queremos ejecutar una Stored Procedure y necesitamos pasarle parámetros.

Set lCol = gcn.DamenewCollection

lCol.Add 1

lCol.Add “esta es la descripción”

EjecutaStoreCol

Ejecuta un procedimiento almacenado en la BBDD, enviando los parámetros en una colección.

Set lCOlParam = gcn.DameNewCollection

lColParam.add “00001”

Gcn.EjecutaStoreCol(“NombreProceso”,lColParam)

EsAdmonUser

Devuelve un booleano indicando si el usuario actual pertenece al grupo Desarrollo

Variable = gcn.EsAdmonUser

ExecuteSQL

Ejecuta una instrucción SQL en la base de datos

Gcn.ExecuteSql “INSERT INTO Conta_Subcuentas(IdEjercicio,Subcuenta,Descrip) VALUES (1,’70000000’,’Ventas’)”

IdDelegacion

Obtiene la delegación donde se ha logueado el usuario

Variable = gcn.IdDelegacion

IdDepartamento

Obtiene el departamento donde se ha logueado el usuario.

Variable = gcn.IdDepartamento

IdEmpleado

Obtiene el Id Empleado del usuario

Variable = gcn.IdEmpleado

IdEmpresa

Obtiene la empresa donde se ha logueado el usuario.

Variable = gcn.Idempresa

OpenResultSet

Obtiene un conjunto de registros de BBDD

Set lRecordset = gcn.OpenResultSet(“Select * From Clientes_Tipos”)

Obj

DameColeccion

Obtiene una colección de objetos con un criterio

Set lCol = gcn.Obj.DameColeccion("Facturas","WHERE IdCliente = ‘00010’”,,False)

DameObjeto

Obtiene un objeto en concreto

Set lFactura=gcn.Obj.DameObjeto(“Facturas_Deudores”,”Where IdFactura = 1”)

DameObjStr

Obtiene un nuevo objeto

Set lArticulo = gcn.obj.DameObjStr(“Articulo”)

If gcn.obj.showMsgBox ("¿Confirma que desea buscar el proveedor?",vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmación") = vbyes Then

    gcn.obj.showMsgBox lVar,vbInformation,"Cadena que usted introdujo"

  End If

Iitem

Imprimir

Imprime el objeto

Set lFactura=gcn.Obj.DameObjeto(“Facturas_Deudores”,”Where IdFactura = 1”)

lFactura.Imprimir

Modificado

Indica si el objeto ha sido modificado

Variable = lFactura.Modificado

Nuevo

Indica si el objeto es nuevo (no se ha grabado en BBDD)

Variable = lFactura.Nuevo

Objetos

Nos da acceso a la Colección de objetos dependientes del objeto

lFactura.Objetos(“Factura_Deudor_Lineas”)

Propiedades

Devuelve o establece el valor de las distinas propiedades (campos) del objeto

lFactura.Propiedades(“DescripcionFact”)=”Ejemplo descripción”

Show

Muestra el objeto en pantalla

lFactura.Show

Update

Guarda el objeto en BBDD

lFactura.Update

Sub Main()

  frmAux.Descargar

  lDescCliente=InputBox("Introduzca la descripción de cliente:")

  If len(lDescCliente)=0 Then

    exit sub

  end If 

  lFecha=InputBox("Introduzca el año:")

  If len(lFecha)=0 Then

    exit sub

  end If

  Set lCol=Gcn.Obj.DameColeccion("Facturas","WHERE IdFactura IN (SELECT DISTINCT IdFactura from Facturas_Cli_Cab a1 inner join clientes_datos a2 on a1.idcliente=a2.idcliente WHERE  a2.cliente like '%" & lDescCliente & "%' AND DATEPART(yyyy,a1.FechaFact)= " & lFecha & ")",,False)

  If lCol is Nothing then

    Msgbox "No existen facturas para esa descripción de cliente y año.", vbExclamation,"Atención"

  Else

    lcol.show

  End If

  End Sub

Sub Main()

frmAux.descargar

Set lFrm = ceesi_apoyo.GetFormByName("frmMantenimientos")

With lFrm.Grid("Cartera Cliente")

  .Agregar = False

  .Editar = False

  .Eliminar = False

  .CargaObjetos = False

  .EditarPorObjeto = False

  .AgregaColumna "IdDoc", 0, "IdDoc", True

  .AgregaColumna "IdFactura", 0, "IdFactura", True

  .AgregaColumna "NumFactCliente", 800, "NumFact", True

  .AgregaColumna "IdCliente", 800, "IdCliente", True

  .AgregaColumna "Cliente", 4000, "Cliente", True

  .AgregaColumna "Tipo", 800, "Tipo", True

  .AgregaColumna "IdEstado", 800, "Estado", True

  .AgregaColumna "FechaVencimiento", 1000, "Fecha Vto", True

  .AgregaColumna "FechaCobro", 1000, "Fecha Cobro", True

  .AgregaColumna "Observaciones", 2000, "Observaciones", True

  .AgregaColumna "ImporteTotal", 1000, "Importe", True,,,"#,##0.00"

  .Campo("NumFactCliente").Coleccion="Facturas"

  .Campo("NumFactCliente").ColeccionWhere="WHERE IdFactura=@IdFactura"

  .Campo("IdCliente").Coleccion="Clientes"

  .Campo("IdCliente").ColeccionWhere="WHERE IdCliente=@IdCliente"

  .From = "vClientes_Efectos"

  .Orden="Orden"

  .Where = ""

  .Refresca = True

End With

lFrm.form.Width=13600

lFrm.Form.Caption = "Efectos clientes"

lFrm.MuestraFiltro("Efecto Cliente") = True

lFrm.Carga , True, 4

End Sub

Sub Main()

  frmAux.Descargar   

  Set lFrm = ceesi_apoyo.getformbyname("frmMantenimientos")

  Set lFra = gcn.Obj.DameObjStr("Factura_Acreedor")

  lIdProveedor = InputBox("Indique Proveedor:")

  If Len(lIdProveedor)= 0 Then

    Exit Sub

  End If

  lImporte = InputBox("Indique Importe:")

  If Len(lImporte) = 0 Then

    Exit Sub

  End If

  lCuenta = InputBox("Indique Cuenta Contable:")

  If Len(lCuenta) = 0 Then

    Exit Sub

  End If

  lIdContacto = gcn.damevalorcampo("SELECT TOP 1 IdContacto FROM Prov_Contactos WHERE IdProveedor = '" & lIdProveedor & "'")

  lFra.Propiedades("IdProveedor") = lIdProveedor

  lFra.Propiedades("IdContactoF") = lIdContacto

  lFra.Propiedades("NumFactProv") = 1

  lFra.Propiedades("SerieFactura") = 0

  lFra.Update

  Set lLinea = lFra.Objetos("Factura_Acreedor_Lineas").Add

  lLinea.Propiedades("IdIva") = 0

  lLinea.Propiedades("BaseEuros") = lImporte

  lLinea.Update

  Set lDesglose = lfra.objetos("Factura_Acreedor_Desgloses").Add

  lDesglose.Propiedades("Subcuenta") = lCuenta

  lDesglose.Propiedades("ImporteEuros") = lImporte

  lDesglose.Update

  lFra.Update

  lFra.Show

End Sub