A3ACTIVEX Objeto produccion

NOTA

Aunque A3 permite que en una misma orden de producción se fabriquen varios productos, YO nunca uso este sistema.

Siempre hago una OP por cada producto a fabricar, para poder identificar solo con el número de OP de que producto estamos hablando.

Tablas y registros

Tablas

En la gestión de producción intervienen las siguientes tablas

CABEPROD: que contiene la cabecera de la OP. La usaremos para poner le número de OP, la fecha, el cliente o algún parametrizable que necesitemos. El campo IDPROD identifica la OP

LINEPROD: que contiene las líneas de la producción, son líneas tanto el producto como los componentes, perfiles maquinas o perfile operarios. El campo IDLINP identifica el registro

PRODFASES: que contiene las fases de la OP. El campo IDFASE identifica el registro de la fase

LOGPROD: cuando se realizan operaciones con la OP, lanzar, consumir, fabricar, etc.. queda registradas en esta tabla

HITPROD: donde quedan registrados los consumos realizados.

Identificar registros

Producto: en la tabla LINEPROD el registro que no tiene nada en CODARTP o el campo signo tiene una F, de fabricar. El campo es CODARTC

Componentes: en la tabla LINEPROD los registros que el campo signo es C y el TIPLIN es A. El campo es CODARTC

Perfiles Maquinas: en la tabla LINEPROD los registros que el campo signo es Q. El campo es PERFILMAQ

Perfiles Operarios: en la tabla LINEPROD los registros que el campo signo es o. El campo es PERFILPER

Ejemplos de código

Ejemplos en VBA para usar el objeto producción. La gestión de errores es propia de Artesania del software

Crear o modificar una OP

Function OPCrearEjemplo

Dim nIDPROD As Long

Dim nIDLINP As Long

Dim nIDFASE As Long

Dim sFecha As String, sTiempo As String

Dim sProducto As String

Dim nCantidadProducto As Double

Dim sFase As String, sFaseDescripcion As String

Dim sPerfilMaq As String

Dim sPerfilOpe As String

Dim sOperario As String

Dim sComponente As String

Dim nCantidadComponente As Double

Call erroresAbrir

Dim naxProduccion As a3ERPActiveX.OrdenProduccion

Set naxProduccion = New a3ERPActiveX.OrdenProduccion

naxProduccion.Iniciar

naxProduccion.Nuevo sFecha

Call Errores

naxProduccion.AsIntegerCab(“NUMDOC”) = 12345

naxProduccion.AsStringCab(“CODCLI”) = 123

naxProduccion.AsStringCab(“REFERENCIA”) = “lo que sea”

Call Errores

‘ Añadir el producto y cantidad a fabricar. A3 carga la estructura del producto automaticamente

nIDLINP = naxProduccion.NuevoProducto(sProducto, nCantidadProducto)

Call Errores

‘Añadir una fase y obtener su ID

nIDFASE = naxProduccion.NuevaFase(nIDLINP, sFase, sFaseDescripcion)

‘ Añadir un perfil maquina

nIDLINP = naxProduccion.NuevaMaquina(nIDFASE, sPerfilMaq, sTiempo)

‘ Añadir un perfil operario aplicando el operario por defecto

nIDLINP = naxProduccion.NuevoOperario(nIDFASE, sPerfilOpe, sTiempo)

‘ Añadir un perfil operario indicando un operario en concreto

nIDLINP = naxProduccion.NuevoOperarioV2(nIDFASE, sPerfilOpe, sTiempo, sOperario)

‘ Añadir un componente

nIDLINP = naxProduccion.NuevoComponente(nIDFASE, sComponente, nCantidadComponente, True)

nIDPROD = naxProduccion.Anade

naxProduccion.Acabar

Call Errores

Call ErroresMostrar

End Function

Consumir

Function OPConsumirEjemplo()

Dim nIDPROD As Long

Dim nIDLINP As Long

Dim sOperario As String, sMaquina As String

Dim sTiempo As String, sFecha As String

Dim nCantidadConsumida As Double

Dim sLote As String

Dim sCaducidad As String

Call erroresAbrir

Dim naxProduccion As a3ERPActiveX.OrdenProduccion

Set naxProduccion = New a3ERPActiveX.OrdenProduccion

naxProduccion.Iniciar

naxProduccion.Modifica nIDPROD

naxProduccion.ConsumirOperario nIDLINP, sOperario, sTiempo, sFecha, “S”

naxProduccion.ConsumirMaquina nIDLINP, sMaquina, sTiempo, sFecha, “S”

naxProduccion.ConsumirComponente nIDLINP, nCantidadConsumida, sFecha, “S”

naxProduccion.IndicarDetalle 0, nIDLINP, nCantidadConsumida, “”, sLote, “”, sCaducidad

Call Errores

naxProduccion.Anade

naxProduccion.Acabar

Call Errores

Call ErroresMostrar

End Function

Terminar Fase

Function OPTerminarFaseEjemplo()

Dim nIDPROD As Long

Dim nIDFASE As Long

Dim sFecha As String

Call erroresAbrir

Dim naxProduccion As a3ERPActiveX.OrdenProduccion

Set naxProduccion = New a3ERPActiveX.OrdenProduccion

naxProduccion.Iniciar

naxProduccion.Modifica nIDPROD

naxProduccion.TerminarFase nIDFASE, sFecha

Call Errores

naxProduccion.Anade

Call Errores

naxProduccion.Acabar

Call Errores

Call ErroresMostrar

End Function

Terminar OP

Function OPTerminarOPEjemplo()

Dim nIDPROD As Long

Dim sFecha As String

Call erroresAbrir

Dim naxProduccion As a3ERPActiveX.OrdenProduccion

Set naxProduccion = New a3ERPActiveX.OrdenProduccion

naxProduccion.Iniciar

naxProduccion.Modifica nIDPROD

naxProduccion.TerminarOrden sFecha

Call Errores

naxProduccion.Anade

naxProduccion.Acabar

Call Errores

Call ErroresMostrar

End Function

Borrar elemento

Dim nIDPROD As Long

Dim nIDLINP As Long

Call erroresAbrir

Dim naxProduccion As a3ERPActiveX.OrdenProduccion

Set naxProduccion = New a3ERPActiveX.OrdenProduccion

naxProduccion.Iniciar

naxProduccion.Modifica nIDPROD

naxProduccion.BorrarLinea nIDLINP

Call Errores

naxProduccion.Anade

naxProduccion.Acabar

Call Errores

Call ErroresMostrar

Fabricar sin consumir

Function OPFabricarEjemplo()

Dim nIDPROD As Long

Dim nIDLINP As Long

Dim sFecha As String

Dim nCantidadFabricada As Double

Dim sLote As String

Dim sCaducidad As String

Call erroresAbrir

Dim naxProduccion As a3ERPActiveX.OrdenProduccion

Set naxProduccion = New a3ERPActiveX.OrdenProduccion

naxProduccion.Iniciar

naxProduccion.Modifica nIDPROD

naxProduccion.FabricarProductoSinConsumir nIDLINP, nCantidadFabricada, sFecha, “S”

naxProduccion.IndicarDetalle 0, nIDLINP, nCantidadFabricada, “”, sLote, “”, sCaducidad

Call Errores

naxProduccion.Anade

naxProduccion.Acabar

Call Errores

Call ErroresMostrar

End Function

Borrar operaciones

Function OPBorrarOperacionesEjemplo()

Dim nIDPROD As Long

‘ Hay que identificar los registros en HISPROD con campos

Dim nIDLINC As Long ‘Identificador de la línea de consumo

Dim nNUMLIN As Long ‘Identificador de detalle de consumo

Call erroresAbrir

Dim naxProduccion As a3ERPActiveX.OrdenProduccion

Set naxProduccion = New a3ERPActiveX.OrdenProduccion

naxProduccion.Iniciar

naxProduccion.Modifica nIDPROD

naxProduccion.DeshacerConsumoOperario nIDLINC, nNUMLIN

naxProduccion.DeshacerConsumoMaquina nIDLINC, nNUMLIN

naxProduccion.DeshacerConsumoComponente nIDLINC, nNUMLIN

naxProduccion.DeshacerFabricacionProducto nIDLINC, nNUMLIN

naxProduccion.Anade

Call Errores

naxProduccion.Acabar

Call Errores

Call ErroresMostrar

End Function

Normas de estilo de programas access de asoft

Variables

Las variables deben declararse en la parte superior de los procedimientos

Las primeras letras indican el tipo de variable:

  • Para strings, una s
  • Para numéricas, una n
  • Para fechas, una d
  • Los recordsets siempre rst
  • La base de datos siempre db

Si el nombre es compuesto de varias palabras se inicia cada palabra en mayúsculas

  • Dim rstPedidosVentasLineas as recordset

Si se declaran varias variables del mismo tipo se ponen todas en la misma línea. Ejemplo:

  • Dim rstVP as recordset, rstVPLIN as recordset
  • Dim sSQL as string, sCliente as string

Recorrer un recordset

En este ejemplo

  1. Declaramos las variables
  2. Asignamos valor a la de base de datos y la de recordset
  3. Verificamos si hay algún registro y si no lo hay terminamos el procedimiento
  4. Nos movemos al primer registro
  5. Hacemos un bucle hasta el EOF End Of File
  6. Ejecutamos el código
  7. Nos movemos al siguiente registro
  8. Salimos del bucle

Código

  • Dim db As Database
  • Dim rst As Recordset
  • Set db = CurrentDb()
  • Set rst = CurrentDb().OpenRecordset(“Consumir líneas TMP”, dbOpenDynaset, dbSeeChanges)
  • If rst.RecordCount = 0 Then
    • MsgBox “No se ha consumido nada de esta OP”, vbCritical, “Preparaciones Consumir”
    • Exit Function
  • End If
  • rst.MoveFirst
  • Do Until rst.EOF
    • ‘Código a ejecutar
    • rst.MoveNext
  • Loop

Usar un procedimiento NAX

Explicación

  1. Abrimos el control de errores de NAX
  2. Declaramos la variable y asignamos valor al objeto
  3. Iniciamos el objeto
  4. Aplicamos un método y ejecutamos el control de errores
  5. Aplicamos el método añadir
  6. Usamos el método acabar
  7. Mostramos los errores

Uso del objeto producción

  • Call ErroresAbrir
  • Dim naxProduccion As a3ERPActiveX.OrdenProduccion
  • Set naxProduccion = New a3ERPActiveX.OrdenProduccion
  • naxProduccion.Iniciar
  • naxProduccion.Modifica rst!IDPROD
  • Call Errores
  • naxProduccion.ConsumirComponente rst!IDLINP, rst!Consumido, CStr(Date), “S”
  • Call Errores
  • naxProduccion.Anade
  • Call Errores
  • naxProduccion.Acabar
  • Call Errores
  • Call ErroresMostrar

Uso del objeto traspaso

  • Call ErroresAbrir
  • Dim naxTraspasar As a3ERPActiveX.Traspaso
  • Set naxTraspasar = New a3ERPActiveX.Traspaso
  • naxTraspasar.Iniciar
  • naxTraspasar.Borra Me.IDTraspaso
  • Call Errores
  • naxTraspasar.Acabar
  • Call Errores
  • Call ErroresMostrar

Funciones de dominio agregado

Dcount: Para saber cuántos registros tiene una tabla

DCount(“*”, “Fabricar TMP”)

Ejemplo para contar cuantos registros hay en la tabla Fabricar TMP, y si son distintos de 0 mostrar un mensaje

  • If DCount(“*”, “Fabricar TMP”) <> 0 Then
    • If MsgBox(“Hay Fabricar pendientes de traspasar al A3ERP, seguro que quiere salir”, vbCritical + vbDefaultButton2 + vbYesNo, Me.Name) = vbNo Then
      • Exit Sub
    • End If
  • End If

Lo mismo pero aplicando un criterio para contar los registros que cumplen el criterio

Contar cuantos registros hay en la tabla OP Histórico, para la OP que contiene la variable nOP

  • DCount(“*”, “[OP Histórico]”, “OP=” & nOP)

Contar cuantos registros hay en la tabla dbo_escandallos para el articulo que contiene la variable sArticulo. Como es un string usamos los ‘ para encerrar la variable

  • DCount(“*”, “dbo_escandallo”, “codartp = ‘” & sArticulo & “‘”)

Dlookup: Para buscar un valor en una tabla

Por ejemplo buscar el valor del campo situación en la tabla Pedidos ventas A3ERP líneas para el numero de línea que contiene la variable nLinea

  • DLookup(“Situación”, “[Pedidos ventas A3ERP líneas]”, “[Numero línea]=” & nLinea)

Buscar el valor del campo Haylotes en la tabla artículos, para el valor de la variable Me.Componente, que como es un string encerramos entre ‘

  • DLookup(“HAYLOTES”, “Artículos”, “Articulo='” & Me.Componente & “‘”)

Mensajes con msgbox

Mensajes para mostrar un texto

  • MsgBox “No ha guardado”, vbCritical, Me.Caption

Siempre después del texto ponemos un icono con alguno de los valores vb que se muestran al desplegar, y al final el Me.caption, que da el nombre del formulario

Mensajes para hacer una pregunta

  • If MsgBox(“Seguro que quiere borrar el traspaso”, vbQuestion + vbDefaultButton2 + vbYesNo) = vbNo Then
    • Exit Sub
  • End If

Ponemos el icono de interrogación, que este activo el segundo botón, y que pregunte si o no.

Ejecutar una consulta de parámetros

A veces interesa montar una consulta y dejar algún campo que se le pase como parámetro antes de ejecutarla.

Los parámetros en las consultas siempre los empezamos con la letra q, por ejemplo qPreparacion.

En el código declaramos la variable, pasamos el parámetro y ejecutamos. Este ejemplo ejecuta la consulta Preparaciones actualizar consumido, pasándole como parámetro el valor de la variable nPreparacion

  • Dim qDef As QueryDef
  • Set qDef = db.QueryDefs(“Preparaciones actualizar consumido”)
  • qDef.Parameters![qPreparacion] = nPreparacion
  • qDef.Execute

Enviar un email

El siguiente código conecta con Outlook, pone los datos para enviar un email y lo muestra en pantalla o lo envía directamente.

Recomiendo usar el código y comentar lo que no se vaya a usar

  • Dim olkApp As Outlook.Application
  • Dim olkNameSpace As Outlook.NameSpace
  • Dim objMailItem As Outlook.MailItem
  • Set olkApp = New Outlook.Application
  • Set olkNameSpace = olkApp.GetNamespace(“MAPI”)
  • Set objMailItem = olkApp.CreateItem(olMailItem)
  • With objMailItem
    • .To =”elquesea@dominio.com”
    • .CC = “mail de l
    • .BCC = eMailCCO
    • .Subject = “texto del asunto”
    • .Body = “texto del mensaje”
    • .Attachments.Add Trim(sFichero) ‘Si hay que adjuntar un fichero hay que pasar una variable con la ruta, nombre y extensión.
    • .Send
    • .Display
  • End With
  • Set objMailItem = Nothing
  • Set olkNameSpace = Nothing
  • Set olkApp = Nothing

Funciones útiles

Función Hayalgo() para ver si una variable tiene algún contenido

Esta función la usamos para mirar si una variable tiene algún valor, tiene algo, contiene algo.

Se considera que no tiene nada si es, null, “” o 0

Ejemplo: si no hay algo en qArticulo mostramos un mensaje.

  • If Not hayalgo(Me.qArticulo) Then
    • MsgBox “No ha indicado artículo”, vbCritical, Me.Caption
    • Exit Sub
  • End If

Función NAC() para retornar 0 si no hay un valor numérico en una variable

Si la variable que pasamos es un número, la devuelve, en caso contrario devuelve 0, por ejemplo si pasamos un nulo o un “”.

Es básica para convertir posibles valores nulos a 0

Ejemplo: si los contadores fueran nulos los trata como ceros

  • Me.Cantidad_fabricada = NAC(Me.Contador_final) – NAC(Me.Contador_inicial)

Función Cuadrar() para cuadrar una variable a la derecha como hace el ERP

Tiene un parámetro opcional, la longitud a cuadrar. Si no se pasa se cuadra a 8 caracteres

  • Me.qProveedor = cuadrar(Me.qProveedor)
  • Me.qArticulo = cuadrar(Me.qArticulo, 15)
  • Me.qLote = cuadrar(Me.qLote, 25)

Función Ceros() para formatear una variable con ceros a la izquierda

Formatea una variable a la cantidad de ceros que indiquemos

Se le pasan dos parámetros la variable y la cantidad de ceros

  • campotabla = ceros(Me.Listado, 6)

En este ejemplo campo tabla toma el valor de Me.listado pero en formato 000000

Es lo mismo que aplicar la función format pero se desarrolló para simplificar el código.

Función DatoEmpresa() para obtener el valor de un campo de la empresa activa

Devuelve el valor del campo que indiquemos en la empresa de ASOFT a la que estamos conectados.

  • sDirectorio = datoempresa(“Carpeta”)

En este ejemplo la variable sDirectorio toma el valor del campo Carpeta de la empresa activa de ASOFT

Función IRA3ERP() para ir a un fichero y registro de A3erp

Le pasamos dos parámetros

  1. El fichero de a3erp que debe abrirse
  2. El valor del campo clave que debe buscarse

Este ejemplo abre a3erp y muestra el artículo que está en Me.articulo

  • Call iraa3erp(“Artículos”, Me.Articulo)

Este ejemplo abre a3erp y muestra el albarán compras que tiene el IDALBC que pasamos como valor

  • Call iraa3erp(“Albaranes compras”, IDALBC)

Si no pasamos el segundo parámetro crea un registro nuevo

  • Call iraa3erp(“Clientes”, “”)

Función IrAConDatoSQL para abrir un formulario de Asoft y mostrar el registro que nos intereses

Le pasamos tres parámetros

  1. El nombre del formulario
  2. El nombre del campo clave
  3. El valor a buscar en el campo clave

En este ejemplo abre pedidos ventas, y muestra el registro que en el campo Pedido tiene el valor “P00001”

  • Call iracondato(“Pedidos ventas”, “Pedido”, “P00001”)

Anticipos, cartera pendiente y saldos

Esta vista SQL permite ver el estado de la cartera de los clientes, separado por anticipos y cartera pendiente, y compararlo con el saldo contable.

Los clientes que salgan en la vista es que alguna cosa no cuadra entre contabilidad y cartera.

SELECT CLIENTES.IDORG, CLIENTES.CODCLI, CLIENTES.NOMCLI, CLIENTES.CUENTA,
ANTICIPOS.ANTICIPO,
CARTERA.PENDIENTE,
DIARIO.SALDO,
(DIARIO.Saldo – COALESCE (CARTERA.Pendiente, 0) + COALESCE (ANTICIPOS.Anticipo, 0)) AS DIFERENCIA

FROM CLIENTES WITH (NOLOCK)

LEFT OUTER JOIN (SELECT CODCLI, SUM(IMPORTE – IMPACUENTA) AS Anticipo FROM CARTERA WHERE (COBPAG = ‘C’) AND (ANTICIPO = ‘A’) GROUP BY CODCLI) AS ANTICIPOS ON ANTICIPOS.CODCLI=CLIENTES.CODCLI

LEFT OUTER JOIN (SELECT CODCLI, SUM(IMPORTE) AS Pendiente FROM CARTERA WHERE (COBPAG = ‘C’) AND (PAGADO = ‘F’) GROUP BY CODCLI) AS CARTERA ON CARTERA.CODCLI=CLIENTES.CODCLI

LEFT OUTER JOIN (SELECT APUNTES.CUENTA, SUM(APUNTES.DEBE – APUNTES.HABER) AS Saldo FROM APUNTES GROUP BY APUNTES.CUENTA) AS DIARIO ON DIARIO.CUENTA=CLIENTES.CUENTA

WHERE ( [DevolverRegistros, SysName, 1 = 1])
AND ( [CondicionTabla, SysName, 1 = 1])
AND ( [Filtro, SysName, 1 = 1])
AND ( ( ‘[TextoBusqueda, SysName, ”]’ = ”) OR
( CLIENTES.CODCLI LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CLIENTES.NOMCLI LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CLIENTES.TELCLI LIKE ‘%[TextoBusqueda, SysName, ”]%’))
AND (DIARIO.Saldo – COALESCE (CARTERA.Pendiente, 0) + COALESCE (ANTICIPOS.Anticipo, 0) <> 0)

ORDER BY CLIENTES.CODCLI, CLIENTES.NOMCLI, CLIENTES.TELCLI

Usa sub consultas para obtener

Antipos no consumidos:
LEFT OUTER JOIN (SELECT CODCLI, SUM(IMPORTE – IMPACUENTA) AS Anticipo FROM CARTERA WHERE (COBPAG = ‘C’) AND (ANTICIPO = ‘A’) GROUP BY CODCLI) AS ANTICIPOS ON ANTICIPOS.CODCLI=CLIENTES.CODCLI

Cartera cobros pendiente:
LEFT OUTER JOIN (SELECT CODCLI, SUM(IMPORTE) AS Pendiente FROM CARTERA WHERE (COBPAG = ‘C’) AND (PAGADO = ‘F’) GROUP BY CODCLI) AS CARTERA ON CARTERA.CODCLI=CLIENTES.CODCLI

Saldo contable:
LEFT OUTER JOIN (SELECT APUNTES.CUENTA, SUM(APUNTES.DEBE – APUNTES.HABER) AS Saldo FROM APUNTES GROUP BY APUNTES.CUENTA) AS DIARIO ON DIARIO.CUENTA=CLIENTES.CUENTA

Pedidos ventas pendientes, con importe pendiente

Esta vista SQL muestra los pedidos ventas pendientes de servir, con las unidades pendientes y el importe pendiente.

SELECT LINEAS.SITUACION, CABEPEDV.IDPEDV, CABEPEDV.TIPOCONT, CABEPEDV.SERIE, CABEPEDV.NUMDOC, CABEPEDV.FECHA, CABEPEDV.REFERENCIA, CABEPEDV.CODCLI, CABEPEDV.NOMCLI,
Lineas.FecEntrega Fecha_Entrega, Lineas.CodArt Articulo, Lineas.DescLin Descripcion, Lineas.Unidades,
Lineas.uniservida as Servidas, Lineas.unianulada as Anuladas, Lineas.Unidades-Lineas.UniServida-Lineas.UniAnulada as Pendientes,
DATEDIFF( dd, Lineas.FecEntrega, GetDate()) as Dias,
Lineas.BaseMoneda/Lineas.Unidades*(Lineas.Unidades-Lineas.UniServida-Lineas.UniAnulada) as Importe

FROM CABEPEDV WITH (NOLOCK)
LEFT OUTER JOIN LinePedi Lineas WITH(NOLOCK) ON Lineas.IdPedV = CabePedV.IdPedV
LEFT OUTER JOIN Articulo WITH(NOLOCK) ON Articulo.CodArt = Lineas.CodArt
LEFT OUTER JOIN Clientes WITH(NOLOCK) ON Clientes.CodCli = CabePedV.CodCli

WHERE ( [DevolverRegistros, SysName, 1 = 1])
AND LINEAS.SITUACION=’A’ AND LINEAS.UNIDADES<>0
AND ( [CondicionTabla, SysName, 1 = 1])
AND ( [Filtro, SysName, 1 = 1])
AND ( [CondicionIdentificadores, SysName, 1 = 1])
AND ( [CondicionCodigo, SysName, 1 = 1])
AND ( [CondicionRepresentante, Sysname, 1 = 1])
AND ( [CondicionFechasDocumento, SysName, 1 = 1])
AND ( [CondicionNumeroDocumento, Sysname, 1 = 1])
AND ( [CondicionReferenciaDocumento, Sysname, 1 = 1])
AND ( [CondicionSituacionDocumento, Sysname, 1 = 1])
AND ( ( ‘[TextoBusqueda, SysName, ”]’ = ”) OR
( CABEPEDV.SITUACION LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CABEPEDV.IDPEDV LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CABEPEDV.TIPOCONT LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CABEPEDV.SERIE LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CABEPEDV.NUMDOC LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CABEPEDV.FECHA LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CABEPEDV.REFERENCIA LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CABEPEDV.CODCLI LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( CABEPEDV.NOMCLI LIKE ‘%[TextoBusqueda, SysName, ”]%’))
ORDER BY CABEPEDV.TIPOCONT, CABEPEDV.SERIE, CABEPEDV.NUMDOC, CABEPEDV.FECHA, CABEPEDV.REFERENCIA, CABEPEDV.CODCLI, CABEPEDV.NOMCLI

Observe el uso de la funcion DATTEDIF para calcular los dias que faltan hasta la fecha de entrega respecto a la fecha del sistema:
DATEDIFF( dd, Lineas.FecEntrega, GetDate()) as Dias,

Y el calculo del importe pendiente a partir del precio neto unitario (base / unidades) * unidades pendientes.
Lineas.BaseMoneda/Lineas.Unidades*(Lineas.Unidades-Lineas.UniServida-Lineas.UniAnulada) as Importe

Hemos añadido tambien un criterio fijo: lineas Activas (no servidas) y con unidades distintas de 0.
AND LINEAS.SITUACION=’A’ AND LINEAS.UNIDADES<>0

Stock de varios almacenes

Con esta vista SQL podemos ver que tiene cada articulo en distintos almacenes en forma de columna.

SELECT ARTICULO.CODART, ARTICULO.DESCART,
STO1.UNIDADES ALM1,
STO2.UNIDADES ALM2


FROM ARTICULO WITH (NOLOCK)
LEFT JOIN __STOCKALMART STO1 ON STO1.CODART=ARTICULO.CODART AND LTRIM(STO1.CODALM)=’1′
LEFT JOIN __STOCKALMART STO2 ON STO2.CODART=ARTICULO.CODART AND LTRIM(STO2.CODALM)=’2′

WHERE ( [DevolverRegistros, SysName, 1 = 1])
AND ( [CondicionTabla, SysName, 1 = 1])
AND ( [Filtro, SysName, 1 = 1])
AND ( ( ‘[TextoBusqueda, SysName, ”]’ = ”) OR
( ARTICULO.CODART LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( ARTICULO.DESCART LIKE ‘%[TextoBusqueda, SysName, ”]%’))
ORDER BY ARTICULO.CODART, ARTICULO.DESCART

Precios de compra a distintos proveedores

Esta vista muestra los distintos precios de compra de un articulo, con su proveedor, los descuentos que son aplicables y el precio neto. En cuanto a descuentos solo se tiene en cuenta la combinacion articulo / proveedor, si aplicar unidades o fechas

SELECT ARTICULO.CODART, ARTICULO.DESCART,
ARTICULO.CODPRO PREFERENTE,
PRCESP.CODPRO,
PROVEED.NOMPRO,
PRCESP.PRECIO,
COALESCE(DESCUENT.DESC1,0) DTO1,
COALESCE(DESCUENT.DESC2,0) DTO2,
COALESCE(DESCUENT.DESC3,0) DTO3,
round(((PRCESP.PRECIO((100-COALESCE(DESCUENT.DESC1,0))/100))((100-COALESCE(DESCUENT.DESC2,0))/100))*((100-COALESCE(DESCUENT.DESC3,0))/100),2) PrecioNeto

FROM ARTICULO WITH (NOLOCK)
LEFT JOIN PRCESP ON PRCESP.CODART=ARTICULO.CODART
LEFT JOIN PROVEED ON PROVEED.CODPRO=PRCESP.CODPRO
LEFT JOIN DESCUENT ON DESCUENT.CODPRO=PRCESP.CODPRO AND DESCUENT.CODART=PRCESP.CODART
WHERE ( [DevolverRegistros, SysName, 1 = 1])
AND ( [CondicionTabla, SysName, 1 = 1])
AND ( [Filtro, SysName, 1 = 1])
AND ( ( ‘[TextoBusqueda, SysName, ”]’ = ”) OR
( ARTICULO.CODART LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( ARTICULO.DESCART LIKE ‘%[TextoBusqueda, SysName, ”]%’))
ORDER BY ARTICULO.CODART, ARTICULO.DESCART



Detalle de lotes con su stock

Esta vista SQL muestra el stock de cada articulo con detalle de sus lotes

SELECT ARTICULO.CODART, ARTICULO.DESCART
,STOCKALM.LOTE
,STOCKALM.UNIDADES
,STOCKALM.CODALM

FROM ARTICULO WITH (NOLOCK)
LEFT OUTER JOIN STOCKALM
ON STOCKALM.CODART=ARTICULO.CODART

WHERE ( [DevolverRegistros, SysName, 1 = 1])
AND ARTICULO.HAYLOTES=’T’
AND ( [CondicionTabla, SysName, 1 = 1])
AND ( [Filtro, SysName, 1 = 1])
AND (
( ‘[TextoBusqueda, SysName, ”]’ = ”) OR
( ARTICULO.CODART LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( ARTICULO.DESCART LIKE ‘%[TextoBusqueda, SysName, ”]%’) OR
( STOCKALM.LOTE LIKE ‘%[TextoBusqueda, SysName, ”]%’)
)

ORDER BY ARTICULO.CODART, ARTICULO.DESCART

Facturas ventas datos bancarios

Modificar el pie del documento para que Si el documento de pago es TR, se imprima el IBAN y el CCC del banco de de la empresa, y e otro caso el IBAN y CCC del cliente

Para ello necesitamos tener los datos de nuestro banco, que podemos obtener de la tabla bancos. Modificamos la SQL del documento añadiendo

   ,BANCOS.IBANEXT+' '+BANCOS.CUENTAEXT AS CUENTABANCO

y vinculamos la tabla BANCOS con
   LEFT OUTER JOIN BANCOS
      ON BANCOS.CODBAN=CLIENTES.CODBAN

ATENCION, podemos usar el campo CODBAN de la tabla clientes, o en el caso de facturas el de la CABECERA

Recomiendo tambien tener la domiciliacion bancaria del cliente en este formato
       ,DomBanca.IBANEXT+' '+DomBanca.CUENTAEXT AS CUENTACLIENTE

Y asegurarnos que tenemos disponible el campo del documento de pago
       ,DocuPago.DescDoc

Luego en el diseño añadimos una expresion conIF(DOCPAG=’TR’,CUENTABANCO,CUENTACLIENTE)

Verificar

Con un cliente con documento de pago TR: salen los datos del banco de cabecera?

Con un cliente con documento de pago R y domiciliación en su ficha: salen los datos de domiciliación del cliente?

A %d blogueros les gusta esto: