Abrir el explorador de carpetas
En la barra de busqueda poner %appdata%
Entrar en la carpeta A3
Hacer doble clic en el Configuracion.INI
Añadir:
[AYUDAS]
NoEjecutara3RespondeAlCargarERP=1
Abrir el explorador de carpetas
En la barra de busqueda poner %appdata%
Entrar en la carpeta A3
Hacer doble clic en el Configuracion.INI
Añadir:
[AYUDAS]
NoEjecutara3RespondeAlCargarERP=1
Hemos desarrollado una aplicación que permite desde Access conectarse con las bases de datos de A3ERP y usando las herramientas de código del propio A3ERP realizar determinadas acciones que el cliente necesite relacionadas con la producción:
Se ha diseñado con la idea de que sea una herramienta base para añadir fácil y rápidamente las funcionalidades que el cliente necesite y no estén cubiertas por el ERP. Seguir leyendo Conector Access A3 version p4
Esta vista permite ver los pedidos compras pendientes de recibir, y además de las unidades informa del importe pendiente de recibir.
SELECT LINEAS.SITUACION
,CABEPEDC.IDPEDC
,CABEPEDC.TIPOCONT
,CABEPEDC.SERIE
,CABEPEDC.NUMDOC
,CABEPEDC.FECHA
,CABEPEDC.REFERENCIA
,CABEPEDC.CODPRO
,CABEPEDC.NOMPRO
,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 CABEPEDC WITH (NOLOCK)
LEFT OUTER JOIN LinePedi Lineas WITH(NOLOCK) ON Lineas.IdPedC = CabePedC.IdPedC
LEFT OUTER JOIN Articulo WITH(NOLOCK) ON Articulo.CodArt = Lineas.CodArt
WHERE LINEAS.SITUACION=’A’ AND LINEAS.UNIDADES<>0
Esta vista permite ver los pedidos compras que ya han sido servidos y conocer el retraso en la entrega segun la fecha de entrega prevista, o los dias que tarda el proveedor en suministrar el articulo.
SELECT CABEPEDC.IDPEDC
,CABEPEDC.NUMDOC AS Pedido
,CABEPEDC.SERIE
,CABEPEDC.FECHA AS Fecha_pedido
,CABEPEDC.CODPRO AS Proveedor
,CABEPEDC.NOMPRO AS Proveedor_nombre
,LINEPEDI.CODART AS Articulo
,LINEPEDI.DESCLIN AS Descripcion
,LINEPEDI.UNIDADES AS Unidades_pedido
,LINEPEDI.SITUACION
,LINEALBA.UNIDADES AS Unidades_albaran
,LINEPEDI.FECENTREGA AS Fecha_entrega
,LINEALBA.FECHA AS Fecha_albaran
,DATEDIFF( dd, linepedi.FecEntrega, linealba.fecha) as Dias_Retraso
,DATEDIFF( dd, linepedi.Fecha, linealba.fecha) as Dias_Entrega
FROM LINEALBA
INNER JOIN CABEPEDC INNER JOIN LINEPEDI ON CABEPEDC.IDPEDC = LINEPEDI.IDPEDC ON LINEALBA.IDPEDC = LINEPEDI.IDPEDC AND LINEALBA.NUMLINPED = LINEPEDI.NUMLINPED
WHERE (LINEPEDI.SITUACION = ‘S’)
Esta vista permite ver desde la pantalla de seleccion de articulos el stock disponible entendido como: stock + compras pendientes – ventas pendientes +/- ordenes produccion pendientes
SELECT ARTICULO.CODART
, ARTICULO.DESCART
, STOCK.STOCK
, RESERVAS.COMPRAS
, RESERVAS.VENTAS
, RESERVAS.OP
, COALESCE(STOCK.STOCK,0)+COALESCE(RESERVAS.COMPRAS,0)-COALESCE(RESERVAS.VENTAS,0)+COALESCE(RESERVAS.OP,0) DISPONIBLE
FROM ARTICULO WITH (NOLOCK)
LEFT JOIN (SELECT CodArt, SUM(UnidadesStock) AS Stock FROM dbo.StockAct GROUP BY CodArt) AS STOCK ON STOCK.CODART=ARTICULO.CODART
LEFT JOIN (SELECT Codart, SUM(Compras) AS Compras, SUM(Ventas) AS Ventas, SUM(Ordenes) AS OP FROM dbo.Reservas GROUP BY Codart) AS RESERVAS ON RESERVAS.CODART=ARTICULO.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
Esta vista permite ver desde la pantalla de seleccion de clientes sus datos bancarios. Como ademas incluye el documento de pago podemos filtrar para revisar los que sean de Recibo
SELECT CLIENTES.IDORG
, CLIENTES.CODCLI
, CLIENTES.NOMCLI
, CLIENTES.TELCLI
, CLIENTES.DOCPAG
, DOMBANCA.IBANEXT
, DOMBANCA.CUENTAEXT
, DOMBANCA.MANDATOTIPO
, DOMBANCA.MANDATOTIPOADEUDO
, DOMBANCA.MANDATOCONFIRMADO
FROM CLIENTES WITH (NOLOCK)
LEFT JOIN DOMBANCA ON DOMBANCA.CODCLI=CLIENTES.CODCLI
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, ”]%’))
ORDER BY CLIENTES.CODCLI, CLIENTES.NOMCLI, CLIENTES.TELCLI
Esta vista permite ver desde la pantalla de seleccion de clientes las ventas de cada cliente del año en curso, comparadas con las del año anterior y el % de incremento
SELECT CLIENTES.IDORG, CLIENTES.CODCLI, CLIENTES.NOMCLI
,FACTURASAÑO.BASE_AÑO
,FACTURASAÑO_1.BASE_AÑO_1
,(FACTURASAÑO.BASE_AÑO-FACTURASAÑO_1.BASE_AÑO_1)/FACTURASAÑO_1.BASE_AÑO_1*100 INCREMENTO
FROM CLIENTES WITH (NOLOCK)
LEFT JOIN (SELECT CODCLI,SUM(BASE) BASE_AÑO FROM CABEFACV WHERE DatePart(yy, CABEFACV.FECHA)=DatePart(yy,getdate()) GROUP BY CODCLI) AS FACTURASAÑO ON FACTURASAÑO.CODCLI=CLIENTES.CODCLI
LEFT JOIN (SELECT CODCLI,SUM(BASE) BASE_AÑO_1 FROM CABEFACV WHERE DatePart(yy, CABEFACV.FECHA)=DatePart(yy,getdate())-1 GROUP BY CODCLI) AS FACTURASAÑO_1 ON FACTURASAÑO_1.CODCLI=CLIENTES.CODCLI
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, ”]%’))
ORDER BY CLIENTES.CODCLI, CLIENTES.NOMCLI, CLIENTES.TELCLI
Esta vista permite ver desde la pantalla de seleccion de articulos los distintos proveedores a los que podemos comprar un articulo, con su precio y sus descuentos
Relaciona entre si la tabla de precios especiales y descuentos especiales por proveedor y articulo. No tiene en cuenta las unidades ni las 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
Esta vista permite ver desde la pantalla de seleccion de articulos el stock en sitintos almacenes: cada almacen en una 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
Esta vista permite ver desde la pantalla de seleccion de articulos todos los lotes que hay con su stock
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