【正文】 DS , 1LPPA SCRT 程序段 17SCRE程序段 18LSCR 程序段 19LD Always_OnLPSR , 1R , 1S , 1AW= VW103, 0S , 1LRDAW= VW103, 1S , 1LPPA SCRT 程序段 20SCRE程序段 21LSCR 程序段 22LDN LPSR , 1AW= VW103, 1R , 1LRDS , 1LRDS , 1LRDS , 1LRDS , 1LPPA A SCRT 程序段 23SCRE程序段 24LSCR 程序段 25LD Always_OnR , 1R , 1R , 1R , 1程序段 26SCRE程序段 27LSCR 程序段 28LDN LPSR , 1R , 1R , 1R , 1AW= VW103, 0S , 1LRDAW= VW103, 1S , 1LRDS , 1LPPLD O ALDSCRT 程序段 29SCRE程序段 30LSCR 程序段 31LDN LPSAW= VW103, 0R , 1LRDAW= VW103, 1R , 1LRDR , 1LRDS , 1LRDS , 1LPPA SCRT 程序段 32SCRE程序段 33LSCR 程序段 34LD Always_OnLPSR , 1R , 1S , 1AW= VW103, 0S , 1LRDAW= VW103, 1S , 1LPPA SCRT 程序段 35SCRE程序段 36LSCR 程序段 37LD LPSAW= VW103, 1R , 1LRDR , 1LRDS , 1LRDS , 1LRDS , 1LRDS , 1LPPA SCRT 程序段 38SCRE程序段 39LSCR 程序段 40LD R , 1R , 1R , 1R , 1S , 1S , 1A SCRT 程序段 41SCRE程序段 42LSCR 程序段 43LD Always_OnR , 1R , 1S , 1S , 1A SCRT 程序段 44SCRE程序段 45LSCR 程序段 46LDN R , 1R , 1S , 1S , 1A SCRT 程序段 47SCRE程序段 48LSCR 程序段 49LD R , 1S , 1A SCRT 程序段 50SCRE程序段 51LSCR 程序段 52LD T37CRET程序段 53SCRE程序段 54LD AN AN LD O ALDLPSLD A O O ALD= LRDAW= VW100, 1AN C1= LRDAW= VW100, 2LPSAN C2= LPPA C2AN C3= LPPAW= VW100, 3LPSAN C4= LRDA C5AN C5= LPPA C5AN C6= 程序段 55LDW= VW100, 1A AN AN LD T37CTU C1, 2程序段 56LDW= VW100, 2A AN AN LD T37CTU C2, 2程序段 57LDW= VW100, 2A AN AN LD T37CTU C3, 3程序段 58LDW= VW100, 3A AN AN LD T37CTU C4, 2程序段 59LDW= VW100, 3A AN AN LD T37CTU C5, 3程序段 60LDW= VW100, 3A AN AN LD T37CTU C6, 4程序段 61LD Always_OnLD C1O C3O C6ALDS , 1程序段 62LD LD O ALDLPSLD A A LDN A A OLDO ALD= LRDAW= VW101, 1AN C7= LRDAW= VW101, 2LPSAN C8= LPPA C8AN C9= LRDAW= VW101, 3LPSAN C10= LRDA C10AN C11= LPPA C11AN C12= LPPA = 程序段 63LDW= VW101, 1A LD T38CTU C7, 2程序段 64LDW= VW101, 2A LD T38CTU C8, 2程序段 65LDW= VW101, 2A LD T38CTU C9, 3程序段 66LDW= VW101, 3A LD T38CTU C10, 3程序段 67LDW= VW101, 3A LD T38CTU C11, 4程序段 68LDW= VW101, 3A LD T38CTU C12, 5程序段 69LD Always_OnLD C7O C9O C12ALDS , 1程序段 70LD LD O ALDLPSLDN AN LD AN OLDALD= LPPLD O ALDS , 1程序段 71LD AN AN LD O ALDR , 1程序段 72LD A A LD T1CTU C13, 2程序段 73LD C13S , 1程序段 74LD A A A = 程序段 75LDN A A A LPSLD A O O ALD= LRDAW= VW100, 3AN C14= LRDAW= VW100, 2LPSAN C15= LPPA C15AN C16= LPPAW= VW100, 1LPSAN C17= LRDA C17AN C18= LPPA C18AN C19= 程序段 76LDN A AW= VW100, 3A LD T37CTU C14, 2程序段 77LD AW= VW100, 3A AN LD T37CTU C15, 2程序段 78LD AW= VW100, 3A AN LD T37CTU C16, 3程序段 79LD AW= VW100, 3A AN LD T37CTU C17, 2程序段 80LD AW= VW100, 3A AN LD T37CTU C18, 3程序段 81LD AW= VW100, 3A AN LD T37CTU C19, 4程序段 82LD Always_OnLD C14O C16O C19ALDS , 1程序段 83LD A A LPSLD A O O ALD= LPPLPSAN C20= LRDA C20AN C21= LRDA C21AN C22= LPPA C22S , 1程序段 84LD A LD T37CTU C20, 3程序段 85LD A LD T37CTU C21, 4程序段 86LD A LD T37CTU C22, 5程序段 87LDN T37LD LD A OLDLD A OLDALD= TON T37, 20程序段 88LDN T38LD LD A OLDLD A OLDLD LDN A LD A OLDALDOLDALD= TON T38, 20程序段 89LD A LD A OLDLD A OLD= TON T39, 20程序段 90LD Always_OnLPSA AN = LRDA AN = LRDA AN AN = LRDA AN AN = LRDA AN AN = LRDA AN AN = LRDA AN AN = LRDA AN AN = LRDA AN AN = LRDA AN AN = LRDA AN = LRDA = LPPA AN = string sqlstate； long 檢查；\\本站點\堆垛機中叉限位=bit(\\本站點\堆垛機I2,2)；\\本站點\堆垛機手動開關=bit(\\本站點\堆垛機I0,2)；\\本站點\堆垛機前極限=bit(\\本站點\堆垛機I0,1)；\\本站點\堆垛機后極限=bit(\\本站點\堆垛機I2,3)；\\本站點\堆垛機上極限=bit(\\本站點\堆垛機I2,4)；\\本站點\堆垛機下極限=bit(\\本站點\堆垛機I2,5)；\\本站點\堆垛機上址光電=bit(\\本站點\堆垛機I1,1)；\\本站點\堆垛機中址光電=bit(\\本站點\堆垛機I1,2)；\\本站點\堆垛機前址光電=bit(\\本站點\堆垛機I1,4)；\\本站點\堆垛機后址光電=bit(\\本站點\堆垛機I1,5)；SQLDelete( DeviceID, t_barcode_uoter, )；// 清空出口表 ，不然速威會提示出口正忙出口分配()； 檢查=堆垛機監(jiān)測()；if(補貨條碼==)補貨條碼 = 條碼；\\本站點\入貨臺光電=Bit(\\本站點\光電,8)；\\本站點\出貨臺標記=Bit(\\本站點\光電,6)；if(檢查==0) //可以啟動堆垛機{/////入庫作業(yè)if((\\本站點\堆垛機啟動==0)amp。amp。(\\本站點\堆垛機狀態(tài)==0)amp。amp。(\\本站點\當前作業(yè)==入庫)amp。amp。(\\本站點\堆垛機任務==0)amp。amp。(\\本站點\更新貨架==0)amp。amp。(\\本站點\讀入貨物條碼!=)amp。amp。(\\本站點\入貨臺光電==1)){ SQLSelect( DeviceID, t_copy_mand, backup, )； if(SQLNumRows( DeviceID )!=0) {//2 ////查找入庫指令 \\本站點\查詢條件=label_stack=+39。+\\本站點\條碼+39。+ and type=+39。+\\本站點\當前作業(yè)+39。+ and (fault=39。未執(zhí)行39。 or fault=39。出庫完畢39。)； SQLSelect( DeviceID, t_copy_mand, backup,\\本站點\查詢條件, )； if((\\本站點\barcode_backup==\\本站點\條碼)amp。amp。(\\本站點\state_backup==未執(zhí)行)amp。amp。(\\本站點\type_backup==入庫)) {//3 \\本站點\操作倉位地址= \\本站點\to_backup； \\本站點\調(diào)試變量=11； \\本站點\堆垛機取行=1； \\本站點\堆垛機取層=1； \\本站點\堆垛機取列=0； if(StrMid(\\本站點\to_backup, 6, 2 )==01) \\本站點\堆垛機放行=1； if(StrMid(\\本站點\to_backup,6, 2)==02) \\本站點\堆垛機放行=0； \\本站點\堆垛機放層=StrToInt( StrMid(\\本站點\to_backup, 10, 2 ))； \\本站點\堆垛機放列=StrToInt( StrMid(\\本站點\to_backup, 8, 2 ))； \\本站點\堆垛機啟動=1；sqlstate = update t_copy_mand set fault = 39。正在執(zhí)行39。 wher