POS VB

 

PPSM06S70:  Add  moddate 

EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE

 

4.Test Scenario

(1) :Query SQL

Test DN:8016578337

SELECT CTRN.TKCTID TRUCK_ID,

       CTRN.TKCTID TKNO,

       MAX(HVSP.CONTAINER_ID) CONTAINER_ID,

       MAX(NVL(HVSP.SEAL_ID, ECTH.CONTSNO)) SEAL_NUMBER,

       MAX(NVL(HVSP.SHIP_MODE, C092.DSCA)) SHIP_MODE,

       MAX(C021.CRTE) CRTE,

       MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE,

       TO_CHAR(SYSDATE, ‘YYYYMMDD‘) CURRENT_DATE,

       MAX(HVSP.SHIP_MODE) SHIP_MODE,

       MAX(TO_CHAR(C021.INVD, ‘YYYYMMDD‘)) INVD,

       MAX(TO_CHAR(CTRN.DATETIME, ‘yyyy/mm/dd HH24:MI:SS‘)) DT,

       MAX(NVL(C021.INCOT1, C071.CDEC)) INCOTERM

  FROM CMPPSTRN    CTRN,

       EPPALCTH    ECTH,

       CMPPS021    C021,

       CMPPS092    C092,

       HV_SHIPPLAN HVSP,

       CMPPS071    C071,

       EPCARTRN    ETRN

 WHERE CTRN.DN = ‘8016578337‘

   AND CTRN.NCMP = ‘F715‘

   AND CTRN.CONTNO = ECTH.CONTNO(+)

   AND CTRN.PACKLST = ECTH.PACKLST(+)

   AND C021.PINO = CTRN.DN

   AND C092.NCMP = C021.NCMP

   AND C092.CRTE = C021.CRTE

   AND C071.NCMP = C021.NCMP

   AND C071.ORNO = C021.ORNO

   AND HVSP.NCMP(+) = C021.NCMP

   AND HVSP.ORNO(+) = C021.ORNO

   AND HVSP.INVD(+) = C021.INVD

   AND C021.CORG = ‘1‘

   AND HVSP.PINO(+) = C021.PINO

   AND CTRN.ncmp = ETRN.ncmp

   AND CTRN.tkctid = ETRN.tkctid

   AND ETRN.STATUS = ‘1‘

   AND CTRN.DATETIME = ETRN.DATETIME

 GROUP BY CTRN.TKCTID

 

(2) :Print Test

 

PPS -load to truck 

 

 

UPDATE EPCARTRN

   SET STATUS = 1, MODDATE = SYSDATE, REMARK = ‘WCQ-3-201810100001‘

 WHERE STATUS = 0

   AND TKCTID = ‘YBN9999‘

   AND TO_CHAR(DATETIME, ‘YYYY/MM/DD‘) = ‘2018/04/17‘

   AND TO_CHAR(DATETIME, ‘HH24‘) < ‘12‘

   AND NCMP = ‘F715‘

 

ini设置:station  对应cmpps128

运行job前:

select * from  cmpps128 where station=‘F715TEST‘ and  doc_cat=‘POS‘;

Update  Y --N

CMPPSTRN 

PROBLEM SUMMARY:

1,语言的设置

2,ini ---PPS stationname  JOB stationname  /cmpps128   

3,字体

4,打印机设置

5,模板

6,获取Ship to date必须要在完成实际打包(epcartrn.status=1)数据才有值,

   否则在装车计划时打印cmppstrn没有数据  

SELECT    DISTINCT NVL(HVSP.INTL_CARRIER, C096.CODM) INTL_CARRIER, NVL(HVSP.SHIP_MODE, C092.DSCA) SHIP_MODE, C021.PINO, C021.MPAK  FROM    HV_SHIPPLAN HVSP, CMPPS021 C021,CMPPSTRN CTRN, CMPPS096 C096, CMPPS092 C092  WHERE    HVSP.NCMP(+) = C021.NCMP    AND HVSP.ORNO(+) = C021.ORNO    AND HVSP.PINO(+) = C021.PINO    AND C021.NCMP = ‘F715‘   AND C021.NCMP = CTRN.NCMP    AND C021.PINO = CTRN.DN    AND C021.EPS_PAKNO = CTRN.PACKLST    AND CTRN.DATETIME = TO_DATE(‘2018/05/15 08:30:00‘,‘yyyy/mm/dd HH24:MI:SS‘)    AND CTRN.TKCTID = ‘HDP8301-01‘   AND C021.NCMP = C096.NCMP    AND C021.HCUNO = C096.CUNO    AND C021.CFRW = C096.CFRW    AND C092.NCMP = C021.NCMP    AND C092.CRTE = C021.CRTE    AND C021.CORG = ‘1‘ ORDER BY INTL_CARRIER 

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...