El nombre de columna 'almacen' es ambiguo. -2147217900

[albero3225]

Hola que tal buenas tardes, estoy realizando un reporte pero sale el siguiente error
El nombre de columna 'almacen' es ambiguo. -2147217900

este es mi codigo

Sub Main()

' Colocamos los datos del rango
ParamData.ParametrosRequeridos "Articulos", "Artículo inicial", "Articulos", "Artículo final"
ParamData.Check = True
ParamData.CheckValue = True
ParamData.CheckLeyend = "Solo con existencia"

' Mostramos la ventana de rangos
Rangos Ambiente, False

' Si se presiono el boton cancelado detenemos la operación
if Cancelado Then
Exit Sub
end if

nAlmacen = 0
nAlmacen = InputBox( "Almacén: ", "Almacén", 0 )

If nAlmacen = 0 Then
Exit Sub
End If

Reporte.Titulo = "Existencia por artículo del almacén: " & nAlmacen

cCondicion = ""

if Not ParamData.Todos1 Then
cCondicion = cCondicion & " AND prods.articulo >= '" & ParamData.BusquedaIni & "' AND prods.articulo <= '" & ParamData.busquedaFin & "'"
Reporte.Titulo2 = "Articulos entre el siguiente rango " & Trim(ParamData.BusquedaIni) & " - " & Trim(ParamData.BusquedaFin)
End if

if ParamData.CheckValue Then
Reporte.Titulo2 = Reporte.Titulo2 & " (Solo artículos con existencia)"
cCondicion = " AND existenciaalmacen.existencia > 0 "
end if


IniciaDocumento()
strSQL = ""
strSQL = strSQL & "SELECT "
strSQL = strSQL & "prods.articulo, "
strSQL = strSQL & "prods.descrip, "
strSQL = strSQL & "prods.existencia, "
strSQL = strSQL & "SUM( pedpar.cantidad ) AS apartado "

strSQL = strSQL & "FROM prods INNER JOIN existenciaalmacen ON prods.articulo = existenciaalmacen.articulo " & _
"INNER JOIN pedpar ON pedpar.articulo = prods.articulo "

strSQL = strSQL & "WHERE prods.articulo <> 'SYS' AND almacen = " & nAlmacen
strSQL = strSQL & cCondicion
strSQL = strSQL & "ORDER BY prods.articulo "

Reporte.SQL = strSQL
Reporte.RetrieveColumns

Reporte.Columns("articulo").Titulo = "ARTICULO"

Reporte.Columns("Descrip").Titulo = "DESCRIPCION"
Reporte.Columns("Descrip").Ancho = 25

Reporte.Columns("existencia").Titulo = "Existencia"
Reporte.Columns("existencia").Formato = Ambiente.FDinero
Reporte.Columns("existencia").Font = "Terminal"
Reporte.Columns("existencia").FontSize = 7
Reporte.Columns("existencia").Ancho = 9
Reporte.Columns("existencia").AnchoCelda = 8
Reporte.Columns("existencia").AnchoTitulo = 13
Reporte.Columns("existencia").Align = 1



Reporte.ImprimeReporte
FinDocumento()
End Sub