2025年3月3日
零售加postopen事件 ,打开窗口 弹出来近效期商品 String ls_dyc010,ls_days String ls_sql[],ls_err str_exec_args lstr_args[] Long ll_busno Long ll_number ll_busno = Long(gnvo_app.of_getini("posset","busno","0")) ls_dyc010 = String(gf_get_sys_inicode(gl_compid,'DYC010', gl_userid)) ls_days = String(gf_get_sys_inicode(gl_compid,'DYC011', gl_userid)) If ls_dyc010 = '1' Then ls_sql[1] = "select count(distinct A.wareid) from t_store_d A "+& "left join t_store_i B on A.warei…
2025年2月28日库存导入
实库存导入 select * from T_CT_STORE_NEW_hjx SELECT * FROM T_CT_STORE_NEW_hjx; delete from T_CT_STORE_NEW_hjx update T_CT_STORE_NEW_hjx set FACTORYID = '01' where nvl(FACTORYID,'0') = 0 ; ---SELECT * FROM t_ct_store_new --delete from T_CT_STORE_NEW_hjx;--真几把慢 --truncate table T_CT_STORE_NEW_hjx; SELECT * FROM T_CT_STORE_NEW_hjx where WAREQTY < 0 ; delete from T_CT_STORE_NEW_hjx where WAREQTY < 0 ; SELECT count(1) FROM T_CT_STORE_NEW_hjx where MAKEDATE is null ; SELECT count(1) FROM T_CT_STORE_NE…
2025年2月27日
药师帮销售转单流程 CREATE OR REPLACE PROCEDURE P_HC_BATSALE_GSP(an_billsource in varchar2) AS v_procname t_proc_rep.procrepname%TYPE; v_batsaleno t_batsale_h.batsaleno%type; v_para2825 s_sys_ini.inipara%TYPE; --前台销售按批次还是效期出库存 0:按批次,1:按效期 v_para2778 s_sys_ini.inipara%TYPE; --前台销售按批次还是效期出库存 0:按批次,1:按效期 v_para8139 s_sys_ini.inipara%TYPE; --是否开启整件优先 v_para2975 s_sys_ini.inipara%TYPE; --批发销售限制货位 v_para2976 s_sys_ini.inipara%TYPE; --批发销售限制,批发申请转批发需要过滤的商品类别 v_para2977 s_sys_ini.inipara%TYPE; --控制批发申请转批发,多少天以内的批…
数据库导出
以root用户登录主库所在服务器,执行 su - oracle 再执行 export ORACLE_SID=主库实例名 然后执行 sqlplus / as sysdba 进入数据库; 查看数据库名,确定没进错库 show parameter db_name; 查看空间权限: col directory_path for a60 col directory_name for a30 set line 300 select * from dba_directories; 如上,可以直接使用DUMP_CHUSHI 的文件夹 进行导出; 下面需要先退出Oracle模式 exit; 在Linux命令下执行导出 导出命令如下: expdp system/**********(密码) directory=DUMP_CHUSHI dumpfile=H2.dmp logfile=H2.log full=y 也可以修改导出文件的名字 避免重复或者文件找不到的情况 例如: expdp system/**********(密码) directory=DUMP_CHUSHI dumpfile=H2_202502…
2025年2月26日
选择商品 窗体增加排序 47.1、选择商品前执行的脚本(ads)_pre(事件执行前客户化) ads.setsort("") ads.setsort("purstatus A,warecode A,wareqty_store D") ads.sort() 数据库创建高权限用户 -- 使用 DBA 用户登录数据库 --CONNECT DB_ADMIN/your_password; -- 创建 ZKZX 用户 CREATE USER ZKZX IDENTIFIED BY your_password DEFAULT TABLESPACE users TEMPORARY TABLESPACE temp; -- 授予创建会话的权限 GRANT CREATE SESSION TO ZKZX; -- 授予无限表空间的权限 GRANT UNLIMITED TABLESPACE TO ZKZX; -- 授予系统权限 GRANT CREATE TABLE TO ZKZX; GRANT INSERT ANY TABLE TO ZKZX; GRANT UPDATE AN…
2025年2月25日
按照商品信息更新证照效期 INSERT INTO t_ware_certificate (compid, wareid, certificateid, lastmodify, lasttime, status) SELECT 2, w.wareid, c.certificateid, 168, SYSDATE, -1 FROM t_ware w CROSS JOIN (SELECT LEVEL AS certificateid FROM dual CONNECT BY LEVEL <= (SELECT COUNT(1) FROM t_ware_certificate_set)) c LEFT JOIN t_ware_certificate wc ON w.wareid = wc.wareid AND c.certificateid = wc.certificateid WHERE wc.wareid IS NULL; INSERT INTO t_ware_certificate_image (compid, wareid, filetype , lastmodify, lastt…
2025年2月24日
导会员销售数据: --------------------U_SALE_C------------------ create table U_SALE_C ( saleno VARCHAR2(24) not null, row_id NUMBER not null, busno VARCHAR2(10) not null, accdate DATE not null, wareid VARCHAR2(13) not null, batchno VARCHAR2(30) not null, idno VARCHAR2(12) not null, stallno VARCHAR2(10) not null, makeno VARCHAR2(100), stdprice NUMBER(16,6) not null, netprice NUMBER(16,6) not null, minprice NUMBER(16,6) not null, wareqty NUMBER(16,6) not null, groupid NUMBER not null, saler VARCHAR2(10), …
2025年2月22日
收货单生成验收入库 CREATE OR REPLACE PROCEDURE CPROC_收货单生成验收入库(p_noticeno IN t_notice_accept_h.noticeno%TYPE, p_out OUT t_accept_h.acceptno%TYPE) IS v_checkno t_accept_h.acceptno%TYPE; v_acceptno t_accept_h.acceptno%TYPE; v_userid s_user_base.userid%TYPE; v_wareid t_accept_d.wareid%TYPE; v_stallno t_accept_d.stallno%TYPE; v_compid t_accept_h.compid%TYPE; v_status t_notice_accept_h.status%TYPE; v_intentno t_notice_accept_h.intentno%TYPE; v_acceptuser s_user_base.userid%TYPE; v_tallyuser s_user_base.userid…
上线切换计划
一、总部切换事项: 1、差异处理:==2月28日17:00==点前仓库相关的业务差异(包括但不限于负库存、批号库存)全部处理完毕。 2、总部单据:==2月28号17:00==点前,总部把所有挂单全部处理完成(配送单、入库单、采购退货单、铺货单、损溢单等)。待处理库 单据和库存清理完成 3、基础数据:==2月25号17:00==点后,基础数据不在老系统内进行新增添加,等系统切换后,新系统内进行统一添加(期初批量更新,近一年内有经营过以及有库存的品种) 4、基础数据:==2月27号08:00==点后,总部人员登录海典H2系统,进行基础数据核对,包括但不限于(商品信息、门店信息、往来单位、商品最新进价、商品零售价、促销方案等) 5、门店数据:==2月28号晚20:30==点进行门店库存切换及会员信息、储值卡、代金券信息导入,库存及会员储值卡信息导入完成,需核对各门店库存品种、数量、金额以及门店会员信息。 需安排人员核对数据 二、门店切换事项: 门店请货截至时间==2月26日12:00== 1、店间调拨:==2月28号15:00==开始,店间调拔关闭。 2、差异处理:==2月28日15:00=…
2025年2月20日
视图 CREATE OR REPLACE VIEW CV_阿斯利康_采购 AS SELECT a.execdate AS 日期, d.vencuscode AS 销售方代码, d.vencusname AS 销售方名称, '' AS 采购方代码, 'XXX有限公司' AS 采购方名称, c.warecode AS 产品代码, c.warename AS 产品名称, c.warespec AS 产品规格, b.makeno AS 批号, b.wareqty AS 数量, c.wareunit AS 单位, b.purprice AS 单价, b.purprice * b.wareqty AS 金额,d.vencusname as 渠道外标识 FROM t_accept_h a JOIN t_accept_d b ON a.acceptno = b.acceptno JOIN t_ware c ON b.wareid = c.wareid and a.compid = c.compid JOIN t_vencus d ON a.vencusno = d.vencusno and a.com…