/* $Id: oklad.c,v 5.19 2013/08/13 05:49:49 sasa Exp $ */
/*30.11.2016	01.08.2000	Белых А.И.	oklad.c
Найти в файле оклад на нужный табельный номер
*/
#include        <errno.h>
#include "buhg.h"


double oklad(int tabn,short mr,short gr,int *has) //0-оклад 1-часовая ставка 2-дневная ставка
{
char strsql[512];
double oklad=0.;
class iceb_tu_str bros("");
SQL_str row_alx;
class SQLCURSOR cur_alx;
*has=0;


sprintf(strsql,"select sm,mt from Zarsdo where tn=%d and dt <= '%04d-%02d-01'  order by dt desc limit 1",tabn,gr,mr);
if(iceb_t_sql_readkey(strsql,&row_alx,&cur_alx) != 1)
 return(0.);

oklad=atof(row_alx[0]);

*has=atoi(row_alx[1]);

if(*has == 5 || *has == 6)
  oklad=okladtr(mr,gr,oklad);



return(oklad);
}
/*************************************************/

double oklad(int tabn,int *has) //0-оклад 1-часовая ставка 2-дневная ставка
{
char strsql[512];
double oklad=0.;
class iceb_tu_str bros("");
SQL_str row_alx;
class SQLCURSOR cur_alx;
*has=0;
short dr=0,mr=0,gr=0;
iceb_tu_poltekdat(&dr,&mr,&gr);

sprintf(strsql,"select sm,mt from Zarsdo where tn=%d and dt <= '%04d-%02d-01' limit 1",tabn,gr,mr);
if(iceb_t_sql_readkey(strsql,&row_alx,&cur_alx) != 1)
 return(0.);

oklad=atof(row_alx[0]);

*has=atoi(row_alx[1]);

if(*has == 5 || *has == 6)
  oklad=okladtr(mr,gr,oklad);
return(oklad);
}
