Q5/ws_objects/Ew_import.pbl.src/main.sra

$PBExportHeader$main.sra
$PBExportComments$Generated Application Object
forward
global type main from application
end type
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global variables
String publ_operator = "super" //操作员名
String publ_userid                      //操作员id
String sys_right                        //权限串
String sys_psw                          //用户密码
String sys_cardno								 //卡号
String sys_superpsw = '4646464646'        //超级密码
String sys_user_storagestr              //仓库串
Long   sys_user_storageid[]             //仓库数组
Long   sys_all_storageid[]              //全部仓库数组
String sys_shortcut                     //快捷方式串
String sys_areastr                      //区域串
Long   sys_areaid[]                     //区域数组
String sys_user_scstr                    //分部权限串
Long   sys_user_scid[]                  //分部数组
Long sys_scid = 0                       //分部ID -1 全部[历史]
Long sys_empid = 0                      //当前操作员ID
Boolean if_hisdb = FALSE                //是否历史数据库
long  sys_user_spttype[] // 供应商类别数组
string sys_user_spttypestr //供应商类别串

s_sys_option s_sys_opt[]
s_sys_powerinfo s_powerlinfo[255]       //系统权限信息
String sys_computer_key

Boolean sys_power_issuper = FALSE
//超级用户标志

String sys_super_name = '超级用户'
String sys_super_id = 'super'
//超级用户id

String sys_inifilename = 'Ecleverv25_wiz.ini'
String sys_inifilename_other = 'Ecleverv25_other_wiz.ini'
//指定系统ini文件

String sys_power_key = '123457851239866'
String sys_system_id = '800001ljsalerv2.5'

//版本
String sys_prg_id = '800001'
String sys_cur_version = '2.5.090825'
String sys_curDB_version=''
String sys_Allow_version = '2.5.060601'
int  sys_version_type = 0 // 1,商业版；0,工业版
//419249027573405627908568719049

//系统信息
String sys_message_username = '有限公司'
String sys_message_title = "龙嘉企精灵管理信息系统V2.6"
String sys_message_report_title = "有限公司"
String sys_message_customer_tel = ""
String sys_message_customer_sit = ""
String sys_message_customer_sitcode = ""
String sys_message_customer_bank = ""
String sys_message_customer_bankname = ""
String sys_message_customer_fax = ""

String sys_message_maker = "顺德区龙嘉软件有限公司"
String sys_message_copyright_inc = "2001-04-10"
String sys_message_copyright_ine = ""
String sys_message_version = "v1"
String sys_cur_path = ''
String sys_message_copytime = "2001-04-10"
String sys_message_timeoutdate = "2001.08.01"
Date sys_begin_date = 2001-04-13

Int sys_show_bsn = 0 //0-显示业务内容 1-只显示售价管理
String sys_flashbmpname = 'flashwinpic.bmp' //开始窗口的图片名称
DateTime sys_showsaledata_mindt
//datetime sys_salershowdate_BG
//datetime sys_salershowdate_ED

Long sys_option_buyprice_type = 1 //库存批号类型 1:批号手动，2:批号单价
String sys_option_winrar_path = 'c:\program files\winrar\' //winrar路径
Int sys_option_timeout = 300           //系统注消时间
Boolean local_retrieve_all = FALSE     //分页显示-----true:不分页,false:分页
Int sys_option_mustprint = 0          //单据逐张打印
Int sys_option_autoyes = 0             //自动是订单或计划
Int sys_option_auditprint = 0          //收货单先审核后打印
Int sys_option_auditprint_saletask = 0 //销售订单先审核后打印
Int sys_option_auditprint_sale = 0     //销售单审核认后打印
Int sys_option_auditprint_buy = 0     //采购订单审核认后打印
Int sys_option_ifovertask = 1          //用超订货收货
Int sys_option_aloweditstatus = 0      //规格颜色先定义
Int sys_option_cusarea = 0             //区域限制
Int sys_option_input_days = 60         //单据录入天数限制
Int sys_option_if_color  = 0           //按颜色拆装
String sys_option_change_pcode = ''		//面料文本
String sys_option_change_woodcode = '' //材质文本
String sys_option_change_status = ''   //颜色文本

String sys_option_change_mtrlsectype = ''   //物料自定义文本1
String sys_option_change_zxmtrlmode = ''   //物料自定义文本2
Int sys_option_price_if_status = 0     //销售价按颜色约束
Int sys_option_price_if_list = 0       //销售价取价格表
Int sys_option_unit_dec = 5            //单位转换小数点
Int sys_option_confirmaudit_sale = 0   //销售单先确认后审核
Decimal sys_option_cust_rate = 1       //客户最低返率
Int sys_option_use_msttake = 1         //系统使用应收帐模块
Int sys_option_use_mstpay = 1          //系统使用应付帐模块
Int sys_option_autowaste = 0 				//自动废弃销售单
Int sys_option_saletask_addware = 0    //订单审核自动加0库存
Int sys_option_saletask_addware_taskqty = 0    //订单审核自动加订单库存开关
dec sys_option_saletask_addware_taskqty_qty = 0    //订单审核自动加订单库存数量
int sys_option_confirmprint_sale=0      //销售单先确认后打印
int sys_option_addqty=1                  //辅数约束1:约束,0:不约束

boolean if_switchdb=false               //是否使用切换数据库功能
String sys_switchpsw = ''       //切换密码
String sys_option_switchpath = ''      //切换程序路径
int    sys_option_switch_Chktime=2     //检查时隔
string sys_option_switch_Sername=''     //切换数据库服务名称
string sys_option_switch_Dbname=''       //切换数据库名称
string sys_option_switch_LoginID=''      //切换数据库登录用户
string sys_option_switch_LoginPsw=''     //切换数据库登录用户
string sys_option_returnpsw=''           //返回原数据连接密码
int  sys_option_buy_rateedit=0       //采购进仓单转换率是否可修改
Transaction sys_remote_sqlca[] //远程事务对象数组
Int sys_remote_sqlca_p = 0        //远程事务对象数组指针
Transaction  dataincept_sqlca   //数据传递事务对象
Transaction  source_sqlca      //原切换数据库事务对象
int sys_option_mst_multimoney=0 //销售应收帐使用多币种结算
decimal sys_option_dlsecends = 15       //刷卡等待时间（秒）
s_sys_tntblinfo s_tntblinfo[200] //系统数据表信息
int sys_dismantle_install_check=0 //拆装单检查拆装数量
int sys_saleamt_round=2 //销售订单、销售单整正处理//0:元位,1:角位,:2：分位
int sys_spt_hideinfo = 0 //隐藏供应商信息
int sys_option_allow_edit_outrep = 0 //销售单可修改业务员
int sys_option_buyprice_ifbj = 0 //收货按报价取价
int sys_option_buylimit_ifbj = 0 //收货按报价限价
int sys_option_cost_dec = 5 //库存成本价小数位
int sys_option_buyprice_buytask_limit = 0 //采购订单限制价格
int sys_option_inware_cp_assignqty = 0 //允许超排产数生产进仓
int sys_option_taskwork_mod_price  //计件单选工序不可改单价
int sys_option_saletask_plan = 1 //销售订单默认安排 1无,2采购,3生产,4按产品属性
int sys_option_inwarecp_saleprice = 0 //生产进仓选订单带订单单价,（计划价）
int sys_option_planprice_configure = 0 //产品计划价按配置
int sys_option_planprice_directinput = 1 //产品计划价允许直接录入
int sys_option_inwarecp_planprice = 0 //生产进仓单允许录入单价

int sys_option_abnormity_price = 0 //计件单加选项不能修改单价
int sys_option_2unit = 0  //外协双单位核算
int sys_option_2unit_ch = 1 //外协双单位使用物料定义辅助单位. 1 - 是. 0-选择单位定义资料
string sys_option_cmpl_status_qty = ''  //属性计算关键字
//dw2xls变量
String   gs_path

//日期控件　
Date id_date_selected

datastore sys_ds_funcinfo
datastore sys_ds_maininfo
datastore sys_ds_shortcutinfo
datastore sys_ds_userinfo
window w_curwin

String publ_logoico_name_normal = "ljprj_logo.ico" //托盘图标所用图标名

//file
Transaction sys_fileDB_sqlca                     //文件附件数据库连接
String sys_user_class_edit_str                   //附件编辑权限串
String sys_user_class_view_str                   //附件查看权限串
String ins_fjtemppath = 'fjtemp'                 //附件下载路径

//xls bill
String sys_user_xls_print_str                   //xls单据打印 权限串 '0' 则全部允许
String sys_user_xls_send_str                    //xls单据 发送 权限串 '0' 则全部允许
Int    sys_option_xls_ifuse_passwd = 1                 //0，随机密码；1,用sys_option_xls_user_passwd设置的密码
String sys_option_xls_user_passwd = ''              //xls输出的加密密码 
Int    sys_option_xls_lock = 0                      //xls输出是否锁定,0-锁,1-不锁

s_dw_uc_col s_sys_uccol[]       //dwuc必填字段数组
s_sys_win s_sys_win_open[]
string sys_help_chm = '龙嘉企精灵帮助.chm'
String  sys_right_rpt  = '0'						//自定义单据打印格式权限串
string sys_option_pos_jsbarcode =''
string sys_user_pluginsstr //外挂串
long sys_user_plugins[] //外挂数组


string sys_user_reportstr // 模板式自定义报表串
long sys_user_report[] // 模板式自定义报表数组

datastore ds_bf_mtrltype
datastore ds_bf_retr_mtrltype
end variables

global type main from application
string appname = "main"
end type
global main main

type prototypes
subroutine keybd_event(uint bvk,uint bscan,long dwflags,long dwextrainfo ) library 'user32.dll'
function ulong setlocaltime(ref s_systemtime lpsystemtime) library "kernel32.dll" alias for "setlocaltime;Ansi"            
Public Function Long LoadImage (Long hInst, String lpsz, Long un1, Long n1, Long n2, Long un2) Library "user32" Alias  For "LoadImageA;Ansi" 
Public Function Integer Shell_NotifyIcon (Long dwMessage, Any lpData) Library "shell32" Alias For "Shell_NotifyIconA"
Public Function Long DestroyIcon (Long hIcon) Library "user32" Alias For "DestroyIcon"
function long ShellExecute32( long hWindow, string lpOperation, string lpFile, &
string lpParameters, string lpDirectory, long nShowCmd ) Library "shell32" Alias For "ShellExecuteA;Ansi"
Function Long HtmlHelpA (long hwnd ,string lpHelpFile , long wCommand, string dwData) Library "hhctrl.ocx" alias for "HtmlHelpA;Ansi" 
Function  Long  SetCapture(Long  hwnd)  library  "user32"
Function  Long  ReleaseCapture()  library  "user32"  
Function long GetSystemDirectory (ref String lpBuffer, Long nSize) Library "kernel32" Alias for "GetSystemDirectoryA;Ansi"
end prototypes

type variables

end variables

on main.create
appname="main"
message=create message
sqlca=create transaction
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on

on main.destroy
destroy(sqlca)
destroy(sqlda)
destroy(sqlsa)
destroy(error)
destroy(message)
end on

event open;environment    lenv_env                                // holds environment information
//string         ls_startupfile          // holds name of start-up file

// Get the environment information
if ( GetEnvironment(lenv_env) <> 1 ) then
       MessageBox( "Application: Open", &
               "Unable to get environment information.~nHalting ..." )
       halt
end if

// Select start-up file by operating system
choose case lenv_env.ostype
       case windows!, windowsnt!
   //            ls_startupfile = "car_wiz.ini"
//               if ( lenv_env.charset = charsetunicode! ) then
//                  ls_startupfile = "pbu.ini"
//               end if
   	  case else
	              MessageBox( "Application: Open", &
                       "Unrecognized operating system.~nHalting ..." )
               halt
end choose

 //Populate sqlca from current preference-file settings

sqlca.DBMS       = ProfileString (sys_inifilename, "database", "dbms",       "")
sqlca.database   = ProfileString (sys_inifilename, "database", "database",   "")
sqlca.userid     = ProfileString (sys_inifilename, "database", "userid",     "")
sqlca.dbpass     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
sqlca.logid      = ProfileString (sys_inifilename, "database", "logid",      "")
sqlca.logpass    = f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)
sqlca.servername = ProfileString (sys_inifilename, "database", "servername", "")
sqlca.dbparm     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbparm",     ""),1,sys_power_key)

if sqlca.database='' or sqlca.servername='' then
	Messagebox("提示","连接数据库失败!", Information!, OK! )
//	openWITHPARM(w_set_sqlca,1) //0 只设连接信息  1 并允许自动新建数据库（启动首次调用）
	halt 
end if

connect using sqlca;

If SQLCA.SQLCode<0 Then
	Messagebox("提示","连接数据库失败!", Information!, OK! )
//	openWITHPARM(w_set_sqlca,1) //0 只设连接信息  1 并允许自动新建数据库（启动首次调用）
	halt
End if

execute immediate "set transaction isolation level READ UNCOMMITTED";
//execute immediate "set transaction isolation level REPEATABLE READ";
//messagebox("",sqlca.sqlcode)
if sqlca.sqlcode<>0 then
	messagebox("提示","设置SQL服务器系统属性失败!"+SQLCA.sqlerrtext, Information!, OK! )
	halt;
end if



Open (w_define)	




end event

event close;disconnect;
end event