FXApp/ws_objects/app_cust.pbl.src/app_cust.sra

$PBExportHeader$app_cust.sra
$PBExportComments$Generated Application Object
forward
global type app_cust 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 //供应商类别串

////////注意
int sys_mode = 0 //0全部 1旧版模式，安吉
string Ajstr = ",1,30,60,70,53,41,221,222,"	//过滤权限


long cc = 14215660

String sys_computer_key

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

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

String sys_inifilename = 'ljerp_pulg.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.020805'
String sys_curDB_version=''
String sys_Allow_version = '2.5.060601'
int  sys_version_type = 0 // 1,商业版；0,工业版;2,工业版+
int  sys_if_register = 1  //软件注册标记
int  sys_if_network = 1 // 网络版标记
//419249027573405627908568719049

//系统信息
String sys_message_username = '有限公司'
String sys_message_title = "龙嘉企精灵管理信息系统V3.0"
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_usermtrlmode = ''  //自定义3
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:不约束

string sys_option_change_otheramt_buy = '' //采购收货单优惠金额文本


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       //刷卡等待时间（秒）

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 = ''  //属性计算关键字
String sys_option_change_otheramt = ''	//销售发货单优惠金额文本

int sys_option_packqty_sale = 0 //销售发货单允许手动录入包装数量

//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-不锁
 
 
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

String sys_ServerNameFJ
String sys_DataBaseFJ //附件数据库名称
String sys_LoginIDFJ
String sys_LoginPwdFJ

oleobject AppCom, FXAppCom
string app_token
string app_token_fx // 分销系统的token
int app_cusid
string app_cuscode
string app_cusname
string app_username // 分销系统 与圣萝莎重用
string app_custype
string app_tele // 分销系统 与圣萝莎重用
string app_address // 分销系统 与圣萝莎重用
string app_freight // 分销系统 与圣萝莎重用
string app_freight_tele // 分销系统 与圣萝莎重用
string app_comname // 分销系统企业名
string app_comtele // 分销系统企业电话
long app_usertype // 分销系统用户类型 1-采购人员 2-销售人员 3-管理人员
string app_fx_title_erp // 协同系统对应ERP企业名称

long app_iferpuser // ERP用户

// 停用
string app_myrelcode // 分销系统ERP企业编号
long app_relationtype // 分销系统 本企业类型(0-客户 1-供应商)
// 停用

boolean app_login = false

// 协同系统当前已打开的窗口(以funcid为数组下标)
s_fx_win s_win_open[]
// 协同系统菜单
//datastore ds_menu
datastore sys_func_all // 协同系统全部权限的权限树,不要进行filter sort dertroy操作
datastore sys_func_pwr // sys_func_pwr 存放当前用户的权限树
// 协同系统龙嘉邮件邮箱(当前用户)
datastore sys_ds_ljmailbox
// 协同主界面默认自动刷新频率(秒)
long app_retrieve_interval = 30
// 协同系统配置文件
string sys_fx_ini = 'fx_server.ini'
string sys_fx_positon = 'fx_position.ini'
// dw-F2功能显示窗体对象名用--相当于L1的clname
string sys_dw_f2_win_name

boolean runtimeLog = false // 是否记录日志标记，测试用
string sys_kms_root = "http://kms.longjoe.com:82"  





end variables

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

type prototypes
subroutine keybd_event(uint bvk,uint bscan,long dwflags,long dwextrainfo ) library 'user32.dll'
           
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 GetTempPath (Long nBufferLength, ref string lpBuffer) Library "kernel32" Alias for "GetTempPathA;Ansi"
end prototypes

forward prototypes
public function integer wf_create_fx_ini_file ()
end prototypes

public function integer wf_create_fx_ini_file ();int rslt = 1

// 创建协同系统INI文件
if (not FileExists(sys_fx_ini)) then
	FileOpen(sys_fx_ini, LineMode!, Write!, Shared!, Replace!)
end if
if (not FileExists(sys_fx_positon)) then
	FileOpen(sys_fx_positon, LineMode!, Write!, Shared!, Replace!)
end if

return rslt
end function

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

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

event open;//messagebox('', GetCurrentDirectory())
//return

Int rslt = 1
String arg_msg
Boolean lb_update

// 编译之前进行修改，true为分销系统门店客户端，false为圣萝莎客户端
boolean fxSvr = true
if fxSvr then
	if (f_init_fxappcom() = 1) then
		//Open(w_fx_welcome)
		wf_create_fx_ini_file()
		Open(w_login_fx)
	end if
	return
end if

uo_reghelper ll_reghelper
ll_reghelper = Create uo_reghelper
AppCom = Create oleobject

IF ll_reghelper.ConnectToNewObject("SanrossDll.AppCom", "SanrossDll.dll", AppCom, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

String url
url = ProfileString('sanross.ini', 'sanross', 'url', '')
//url = 'http://127.0.0.1:8087/webapi.ashx'
IF AppCom.SetUrl(url) <> True THEN
	rslt = 0
	arg_msg = '初始化控件失败'
	GOTO ext
END IF

lb_update = AppCom.AutoUpdate(Ref arg_msg)

IF arg_msg <> '' THEN
	MessageBox('提示', '自动更新失败,' + arg_msg)
ELSE
	IF lb_update THEN
		MessageBox('提示', '程序更新成功,程序即将关闭,请手动重新启动')
		rslt = 0
		GOTO ext
	END IF
END IF


ext:
Destroy ll_reghelper
IF rslt = 1 THEN
	app_token = ''
	Open(w_login)
	//rslt = Message.DoubleParm
	IF app_login THEN
		//MessageBox('', 'app_login')
		Open(w_main)
	ELSE
		//MessageBox('', 'not app_login')
	END IF
ELSE
	IF arg_msg <> '' THEN
		MessageBox('Error', arg_msg)
	END IF
END IF

//MessageBox('', 'app_exit')





end event