/* $Id: prdpp.c,v 5.7 2013/09/26 09:43:37 sasa Exp $ */
/*15.07.2015	09.02.1999	Белых А.И.	prdpp.c

Получение даты первого прихода в карточку
Если вернули 0 дату первого прихода нашли
             1-нет
*/

#include	"buhg.h"

int		prdpp(int skl,int nk,short *dp,short *mp,short *gp)
{
SQL_str         row;
char		strsql[512];
int		kolstr;
short		d,m,g;

*dp=0;
*mp=0;
*gp=0;

sprintf(strsql,"select datdp from Zkart where sklad=%d and nomk=%d and \
tipz=1 order by datdp asc",skl,nk);
SQLCURSOR cur;
if((kolstr=cur.make_cursor(&bd,strsql)) < 0)
 {
  iceb_t_msql_error(&bd,__FUNCTION__,strsql);
  return(1);
 }
if(kolstr == 0)
  return(1);
if(cur.read_cursor(&row) != 0)
 {
  iceb_tu_rsdat(&d,&m,&g,row[0],2);
  *gp=g;
  *mp=m;
  *dp=d;
 }

return(0);

}
