/******************************************
   qtsylib.c
   前臺收銀程序的 DB-Library 函數庫
 ****************************************** */
#define DBMSDOS
#include <sqlfront.h>
#include <sqldb.h>
#include <dos.h>
#include <errno.h>
#include <bios.h>
#include <io.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <conio.h>
#include <math.h>
#include <time.h>
#include <fcntl.h>
#include <stdarg.h>
#include <user.h>
#include <publ.h>
#include "direct.h"
//
/*全局變量定義*/
char Syy_No[5];                 //收銀員代碼
char Syy_mm[7];                 //收銀員密碼
char Syy_Name[9]="于小蓉";      //收銀員名稱
char Bc_Name[11]="01";          //班次

int  g_lsh=1;            //流水號
int  g_jycs=0;           //交易次數
int  g_xsbs=0;           //銷售筆數
int  g_dyys=1000;        //打印延時
char g_lsdh[5];          //連鎖店號
char g_lsdhex[5];

char g_qt_lsdh[3];       //缺省連鎖店號前兩位
char g_gzrq[6]="00";     //工作日期
char g_scjbsj[30];       //上次交班時間
char g_fkfs[2],g_bc[7],g_now[30],g_tm[2];    // 付款方式,班次,時間變量
char g_pos[2]="1";       //收銀機類型
			 //1-普通 (兼容機,串口打印機)
			 //2-普通 (兼容機,并口打印機)
			 //3-IBM收銀機
			 //4-富士通收銀機
double g_bx;             //補現
double g_flhj[5];        //分類合計
char g_xyksy[2];
XYKLB _XykLb[20];

char *g_sjwj="s";
char g_gz_mode[2]="0";            //工作方式
char g_gz_modeex[5];

char g_cashcode[11]="ytpos";      //管理員密碼
char g_scmc[81]="";       //用戶簡稱

char g_server_thk[21];            //遠程提貨卡
char g_customer[2];	          //商場類型
char g_VIPsw[2];	          //VIP卡首位
char g_VIPyhl[5];	          //VIP卡優(yōu)惠率

char __LoginUser[11];             //登錄數據庫的用戶
char __bvalue[300];
				  //本地銷售單記錄格式化字符串
char __pxsd[120]="%7d.00%8s%-20s%14.3f%19.4f%19.4f%19.4f%19.4f%1s%19.4f%6s"
		 "%3s%6s%4s%4s%2s%1s%2s%5s%3s%1s%1s%4s%8s%8.2f%4s ";

char __xsdbuf[300];               //本地銷售單記錄緩沖區(qū)
int _hour,_minute,_second;        //當前時，小時、分、秒
long __prostart,__pronow;
short __sqlerrormark=0;           // sql錯誤標記,當出現網絡錯誤是置為1
short __sqlok=0;                  // 0-不連SQL,1-已連SQL,3-并且已連遠程提貨卡
short __syfs=2;                   // 收銀方式,0-單機，1-半單機，2-聯機
char  _jxc_xsdb[10]="jxc_xsdb";   // 提交表
char  _OrigXsd[80];               // 當前數據存儲路徑
				  // 等于Data\\班次前4位\\x班次.dbf
char  _OrigWqb[80];               //                 ...\\w班次.dbf
char  Yyy_No[5];                  // 當前營業(yè)員編碼
extern char p_Formats[31][61];
extern char _pFeedLine;
//bank
long    recno = 0;
//字段結構
typedef struct
{
  char FieldName[11]; //字段名稱
  char DataType[2];   //字段類型
  int  Size;          //字段寬度
  int  Dec;           //小數位數
  int  xOff;          //在記錄緩沖中的偏余量
} TField;
//數據集結構
typedef struct
{
  char TableName[40]; //表名稱
  int  hLen;          //文件頭長度
  int  rLen;          //記錄長度
  int  FieldCount;    //字段數
  long int RCount;    //記錄數
  int xOff;           //關鍵字段在記錄緩沖中的偏余量
  int fLen;           //關鍵字段長度
  char *buffer;       //記錄緩沖指針
} TDataSet;

char _tbuffer[220];   //公共記錄緩沖

PTOH    ptoh;
HTOP    htop;

extern int  _spmcws;
extern int  _nFormat;
extern int  _nFormatx;
//
extern TOption Param;
/*商品數據結構*/
extern _SPLists *SPLists;
extern _SPLists __SPLists[];
//
extern int MsgBoxEx(char *,int);
extern void ResetAll(void);
extern void Reset(_SPLists *lp);
extern void SleepEx(clock_t nDelay);
extern void Printf(char *String,unsigned char Co);
extern void dbf_TranToServer(char *File1,char *File2,
			     int hLen1,int rLen1,int hLen2,int rLen2);
extern int CreateXspz(_SPLists *_SPList,int Att,char *_Time,int Fixed);

extern void ShowBc_Name(void);
extern int ValidCheck(char *s);
//
DBPROCESS  *dbproc,*dbproc_thk; // 與SQL Server的聯結
RETCODE    result_code;         // SQL命令執(zhí)行的結果代碼
int sql_connectdb(char *user,char *pass,char *server,int flag);
//單機收銀系列函數
TField _SPBFields[12];
TDataSet _SPBDataSet;
TField _SYSFields[2];
TDataSet _SYSDataSet;
TField _SDBFields[10];
TDataSet _SDBDataSet;
TField _SYJFields[16];
TDataSet _SYJDataSet;
TField _SYYFields[12];
TDataSet _SYYDataSet;
TField _DTMFields[7];
TDataSet _DTMDataSet;
TField _LBBFields[3];
TDataSet _LBBDataSet;
TField _TMCFields[9];
TDataSet _TMCDataSet;
TField _WQBFields[26];
TDataSet _WQBDataSet;
TField _XSDFields[26];  //銷售單表
TDataSet _XSDDataSet;
TField _XSBFields[10];   //銷售單簡表,
TDataSet _XSBDataSet;   //用來存儲從服務器下載的銷售單關鍵詞,
			//以決定需要上傳的本地數據

double  uf_round(double num,double dig)   // 四舍五入(數,位數),返回舍入后的數
{
  char buf[30];
  sprintf(buf,"%.2f",num);
  return atof(buf);
}
void __process(char *sour)
{
  int i,j=0;
  char value[81];
  unsigned char c;
  strcpy(value,sour);
  for(i=0;i<=(int)strlen(value);i++)
  {
   if(value[i]=='%')
   {
    sour[j++]=0xa3;
    sour[j++]=0xa5;
   }
   else
    sour[j++]=value[i];
  }
  j=0;
  for(i=0;i<=(int)strlen(sour);i++)
  {
   c = (unsigned char)sour[i];
   if(c>=0xa0)  // 是漢字
    if(!j)      // 高8位
     j++;
    else        // 低8位
     j=0;
   if(i>=_spmcws)
    {
     if(j) sour[i]=' ';
     sour[i+1]='\0';
     break;
    }
  }
  for(i=(int)strlen(sour);i<=_spmcws;i++)
  {
   sour[i]=' ';
   sour[i+1]='\0';
  }
}

int uf_strmidEx(char *dest,char *sour)
{
  int i,l,j=0;
  l = strlen(sour);
  for(i=0;i<l;i++)
   if((sour[i]>='0'&&sour[i]<='9')||
      (sour[i]>='A'&&sour[i]<='Z')||
      (sour[i]>='a'&&sour[i]<='z'))
    break;
  if(i>=l) return 0;
  for(j=i;j<l;j++)
   dest[j-i]=sour[j];
  dest[j-i]='\0';
  return 1;
}

int uf_strmid(char *dest,char *sour,int from,int count)
// 截取字符串(返回串,原串,起始位,截取位數)
{
  int i,l,j=0;
  dest[0]='\0';
  l=strlen(sour);
  if(from<0||from>=l) return 0;
  for(i=from;i<l&&j<count;i++)
   dest[j++]=sour[i];
  dest[j]='\0';
  return 1;
}

int uf_strmidex(char *dest,char *sour,char c)
// 截取字符串(返回串,原串,起始位,截取位數)
{
  int i,l,j=0;
  l=strlen(sour);
  for(i=0;i<l;i++)
   if(sour[i]==c)
   {
    i++;
    break;
   }
  if(i>=l) return 0;
  for(j=i;j<=l;j++)
   dest[j-i]=sour[j];
  return 1;
}

int  uf_strfcat(char *dest,char *sour)
// 在字符串前加入串(返回串,要加上的串)
{
  char tmpstr[81];
  strcpy(tmpstr,sour);
  strcat(tmpstr,dest);
  strcpy(dest,tmpstr);
  return 1;
}

void CopyStr(char *d,char *s,int nfrom,int nlen,int Blank)
{
 int i,j;
 j = nfrom;
 for(i=0;i<nlen;i++)
  d[i]=s[j++];
 d[i]='\0';
 for(i=nlen;i>=0&&Blank&&(d[i]=='\0'||d[i]==' ');i--)
  d[i]='\0';
}
void StrToLower(char *s)
{
  int i;
  for(i=0;i<(int)strlen(s);i++)
   s[i] = (char)tolower(s[i]);
}
void ClearBuffer(char *s,int rLen)
{
  int i;
  for(i=0;i<rLen;i++)
   s[i]='\0';
}
//檢查某個文件是否存在
//存在時返回非0
int FileExists(const char *FileName)
{
  int Han;
  unsigned _nError;
  _nError = _dos_open(FileName,O_RDONLY|O_BINARY,&Han);

/*printf("_nError:%d ENOENT:%d EMFILE:%d EACCES:%d\n",
	  _nError,ENOENT,EMFILE,EACCES);
  getchar(); */

  if(_nError==0)
  {
   _dos_close(Han);
   return 1;
  }
  else return 0;
}
//初始化某個表
int OpenTable(const char *TableName,TDataSet *DataSet,TField TStr[],
	      const char *KeyField)
{
  FILE *fp;
  int i;
  char buffer[33],_Size[2],_Dec[2];
  unsigned char a[4];

  strcpy(DataSet->TableName,TableName);
  DataSet->buffer = _tbuffer;
  //讀取表的結構
  fp = fopen(TableName,"rb");
  if(fp)
  {
    fseek(fp,4,0);             //記錄數
    fread(&a,4,1,fp);
    DataSet->RCount = a[0]+(long int)a[1]*0x100+(long int)a[2]*0x100*0x100;
    fseek(fp,8,0);             //庫結構說明長度
    fread(&a,2,1,fp);
    DataSet->hLen = a[0]+a[1]*0x100+1;
    fseek(fp,10,0);             //記錄長度
    fread(&a,2,1,fp);
    DataSet->rLen = a[0]+a[1]*0x100;
    DataSet->FieldCount = DataSet->hLen/32-1; //字段數
    //讀取庫結構
    for(i=0;i<DataSet->FieldCount;i++)
    {
     fseek(fp,32+i*32,0);      //讀取記錄描述
     fread(&buffer,32,1,fp);
     CopyStr(TStr[i].FieldName,buffer,0,10,1);

     StrToLower(TStr[i].FieldName);

     CopyStr(TStr[i].DataType, buffer,11,1,1);
     CopyStr(_Size,buffer,16,1,0);
     CopyStr(_Dec,buffer,17,1,0);
     TStr[i].Size=(int)_Size[0];
     TStr[i].Dec=(int)_Dec[0];
     if(i)
      TStr[i].xOff=TStr[i-1].xOff+TStr[i-1].Size;
     else
      TStr[i].xOff=0;
     if(!strcmp(TStr[i].FieldName,KeyField))
     {
      DataSet->xOff = TStr[i].xOff;
      DataSet->fLen = TStr[i].Size;
     }
    }
   fclose(fp);
   return 1;
  }
  return 0;
}
//
void OpenAllDataSet(void)
{
  OpenTable("DATA\\JXC_SPB.DBF", &_SPBDataSet,_SPBFields,"spbm");
  OpenTable("DATA\\JXC_SYS.DBF", &_SYSDataSet,_SYSFields,"var_name");
  OpenTable("DATA\\JXC_SDDZ.DBF",&_SDBDataSet,_SDBFields,"bm");
  OpenTable("DATA\\JXC_SYJB.DBF",&_SYJDataSet,_SYJFields,"syjh");
  OpenTable("DATA\\JXC_SYYB.DBF",&_SYYDataSet,_SYYFields,"syybm");
  OpenTable("DATA\\JXC_DTMB.DBF",&_DTMDataSet,_DTMFields,"tm");
  OpenTable("DATA\\JXC_LBB.DBF", &_LBBDataSet,_LBBFields,"lbbm");
  OpenTable("DATA\\JXC_TMCB.DBF",&_TMCDataSet,_TMCFields,"tplu");
  OpenTable("DATA\\JXC_XSDB.DBF",&_XSDDataSet,_XSDFields,"spbm");
  OpenTable("DATA\\SER_XSJB.DBF",&_XSBDataSet,_XSBFields,"syjh");
}
//分表從服務器下載數據到本地表中JXC_SPB
long int GetSPBFromServer(char *pWhere,int rLen)
{
  FILE *fpt;
  long int RecordCount=0;
  char tmpbuf[500];
  DBCHAR spbm[9],spmc[33],ggxh[11],jldw[5],jyfs[3],csbm[7],splb[7],gzbm[5];
  DBFLT8 jj,sj,yhj,spsl;
  char *pFor="%-8s%-32s%-10s%-4s%-2s%-6s%10.2f%10.2f%10.2f%-6s%-4s%6.2f";

  dbfreebuf(dbproc);
  dbcmd(dbproc,"select spbm,spmc,ggxh,jldw,jyfs,csbm,jj,sj,yhj,splb,gzbm,spsl\n");
  dbcmd(dbproc,"from jxc_spb\n");
  if(pWhere[0]!='\0')
   dbfcmd(dbproc,"where %s\n",pWhere);
  dbcmd(dbproc,"order by spbm");
  dbsqlexec(dbproc);
  while((result_code=dbresults(dbproc))!= NO_MORE_RESULTS)
   if (result_code == SUCCEED)
    {
     fpt = fopen("temp.dat","wb+");
     dbbind(dbproc, 1, NTBSTRINGBIND, (DBINT)0,spbm);
     dbbind(dbproc, 2, NTBSTRINGBIND, (DBINT)0,spmc);
     dbbind(dbproc, 3, NTBSTRINGBIND, (DBINT)0,ggxh);
     dbbind(dbproc, 4, NTBSTRINGBIND, (DBINT)0,jldw);
     dbbind(dbproc, 5, NTBSTRINGBIND, (DBINT)0,jyfs);
     dbbind(dbproc, 6, NTBSTRINGBIND, (DBINT)0,csbm);
     dbbind(dbproc, 7, FLT8BIND, (DBINT) 0,(BYTE *) &jj);
     dbbind(dbproc, 8, FLT8BIND, (DBINT) 0,(BYTE *) &sj);
     dbbind(dbproc, 9, FLT8BIND, (DBINT) 0,(BYTE *) &yhj);
     dbbind(dbproc,10, NTBSTRINGBIND, (DBINT)0,splb);
     dbbind(dbproc,11, NTBSTRINGBIND, (DBINT)0,gzbm);
     dbbind(dbproc,12, FLT8BIND, (DBINT) 0,(BYTE *) &spsl);
     while(dbnextrow(dbproc)!=NO_MORE_ROWS)
     {
      sprintf(tmpbuf,pFor,spbm,spmc,ggxh,jldw,jyfs,csbm,jj,sj,yhj,splb,gzbm,spsl);
      fwrite(&tmpbuf,rLen,1,fpt);
      RecordCount++;
     }
     fclose(fpt);
    }
  return RecordCount;
}
//系統表JXC_SYS
long int GetSYSFromServer(int rLen)
{
  FILE *fpt;
  long int RecordCount=0;
  char tmpbuf[100];
  DBCHAR varname[11],varsave[81];
  char *pFor="%-10s%-80s";

  dbfreebuf(dbproc);
  dbcmd(dbproc,"select var_name,var_save\n");
  dbcmd(dbproc,"from ytsys_globle\n");
  dbcmd(dbproc,"order by var_name");
  dbsqlexec(dbproc);
  while((result_code=dbresults(dbproc))!= NO_MORE_RESULTS)
   if (result_code == SUCCEED)
    {
     fpt = fopen("temp.dat","wb+");
     dbbind(dbproc, 1, NTBSTRINGBIND, (DBINT)0,varname);
     dbbind(dbproc, 2, NTBSTRINGBIND, (DBINT)0,varsave);
     while(dbnextrow(dbproc)!=NO_MORE_ROWS)
     {
      sprintf(tmpbuf,pFor,varname,varsave);
      fwrite(&tmpbuf,rLen,1,fpt);
      RecordCount++;
     }
     fclose(fpt);
    }
  return RecordCount;
}
//時點打折表JXC_SDDZ
long int GetSDDZFromServer(char *pWhere,int rLen)
{
  FILE *fpt;
  long int RecordCount=0;
  char tmpbuf[200];
  DBCHAR bm[9],stime[21],etime[21],srr[9],srtime[21],qfr[9],qftime[21],qfbz[2],dzlx[2];
  DBFLT8 yhl;
  char *pFor="%-8s%-20s%-20s%12.4f%-8s%-20s%-8s%-20s%-1s%-1s";
  dbfreebuf(dbproc);
  dbcmd(dbproc,"select bm,stime=convert(char(11),stime,102)+convert(char(9),stime,8),\n");
  dbcmd(dbproc,"       etime=convert(char(11),etime,102)+convert(char(9),etime,8),yhl,\n");