Formulatri LINVEN

S'ha modificat el formulari linven.
En el Show del form posar-hi
txtSql=[ SELECT GES_MAGATZEMS.MAGATZEM, GES_MAGATZEMS.NOM_MAG ] + ;
       [ FROM GES_MAGATZEMS ] + ;
       [ where empresa=?gpempresa ] + ;      
       [ORDER BY GES_MAGATZEMS.MAGATZEM ]

faltaba seleccionar l'empresa

en el boto ok, de la primera pestanya:
lcWhere = [ WHERE (a.empresa = ?gpempresa) and ]
lcWhere = lcWhere + [ ( B.FAMILIA ] + [ BETWEEN ] + lcFamIni + [ AND ] + lcFamFi + [) ]
lcWhere = lcWhere + [ AND ]  + [( a.ARTICLE ] + [ BETWEEN ] + lcArtIni + [ and ] + lcArtFi + [) ]
.
.
lcOrdre= [ ORDER BY b.FAMILIA , a.ARTICLE ]

en el botó Ok, de la segona pantalla
lcWhere = [ WHERE (a.empresa = ?gpempresa) and ]
lcWhere = lcWhere + [ ( B.FAMILIA ] + [ BETWEEN ] + lcFamIni + [ AND ] + lcFamFi + [) ]
lcWhere = lcWhere + [ AND ]  + [( a.ARTICLE ] + [ BETWEEN ] + lcArtIni + [ and ] + lcArtFi + [) ]
.
.
lcOrdre= [ ORDER BY B.FAMILIA , A.ARTICLE ]

si el teniu standard copieu tot el codi per si les mosques