phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
LSL2/STPROC/NDW_RDS_QUERY_EVENTS.txt
View File

@ -39,11 +39,14 @@ $insert APP_INSERTS
$insert EVENT_SETUP
$insert WO_MAT_EQUATES
$insert MSG_EQUATES
$insert SUPPLEMENTS_EQUATES
equ WOCust$ to 2
Declare subroutine SRP_Show_Window, Rds_Services, ErrMsg, Start_Window, Placedialog
Declare function Database_Services, Material_Services, Rds_Services, RGB, SRP_Array, MemberOf
Declare subroutine SRP_Show_Window, Rds_Services, ErrMsg, Start_Window, Placedialog, Supplement_Services
Declare function Database_Services, Material_Services, Rds_Services, RGB, SRP_Array, MemberOf, Supplement_Services
CRLF = \0D0A\
SubclassInfo = Form_Services('FindSubclassControl')
Subclass = SubclassInfo<1>
@ -74,6 +77,7 @@ Event WINDOW.CREATE(CreateParam)
KeyList = CreateParam<1>
View = CreateParam<2>
View = OConv(View, 'MCT')
Swap @VM with @FM in KeyList
Begin Case
Case RowExists('WO_LOG', KeyList)
@ -344,7 +348,8 @@ Setup_OLE_Controls:
If FormSize<3> > MaxClientWidth then
FormSize<3> = Oconv(MaxClientWidth * '0.9', 'MD0')
end
Set_Property(@Window, '@ORIGSIZE', FormSize)
Set_Property(@Window, '@ORIGSIZE', FormSize)
GoSub GetExistingSupps
// Pull then save original list after formatting for savewarn purposes
Set_Property(RDSRptCtrl, 'OLE.List', RDSList)
RDSList = Get_Property(@Window : '.OLE_RPT_RDS_LIST', 'OLE.List')
@ -446,7 +451,7 @@ GetColumnList:
ColumnList<12> = 'Time Out' : @VM : 'TIME' : @VM : 50 : @VM : @VM : @VM : @VM : @VM : @VM : 60 : @VM : 'Center' : @VM : @VM : 'hh:mmAA': @VM : @VM : 'Segoe UI,9'
ColumnList<13> = 'Cust Part No' : @VM : 'TEXT' : @VM : 75 : @VM : @VM : @VM : @VM : @VM : @VM : 75 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
ColumnList<14> = 'Lot Number' : @VM : 'TEXT' : @VM : 80 : @VM : @VM : @VM : @VM : @VM : @VM : 75 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
ColumnList<15> = 'Supplement' : @VM : 'TEXT' : @VM : 160 : @VM : @VM : @VM : @VM : @VM : @VM : 75 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
ColumnList<15> = 'Supplement' : @VM : 'P' : @VM : 160 : @VM : @VM : @VM : @VM : @VM : @VM : 75 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
end else
ColumnList = ''
ColumnList<1> = 'Customer' : @VM : 'TEXT' : @VM : 120 : @VM : @VM : @VM : @VM : @VM : @VM : 50 : @VM : 'Left' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
@ -468,7 +473,7 @@ GetColumnList:
ColumnList<17> = 'NCR Status' : @VM : 'TEXT' : @VM : 75 : @VM : @VM : @VM : @VM : @VM : @VM : 30 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
ColumnList<18> = 'NCR Wfr Cnt' : @VM : 'NUMBER' : @VM : 75 : @VM : @VM : @VM : @VM : @VM : @VM : 30 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
ColumnList<19> = 'Hold Status' : @VM : 'TEXT' : @VM : 75 : @VM : @VM : @VM : @VM : @VM : @VM : 40 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
ColumnList<20> = 'Supplement' : @VM : 'TEXT' : @VM : 160 : @VM : @VM : @VM : @VM : @VM : @VM : 75 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
ColumnList<20> = 'Supplement' : @VM : 'P' : @VM : 160 : @VM : @VM : @VM : @VM : @VM : @VM : 75 : @VM : 'Center' : @VM : @VM : @VM : @VM : 'Segoe UI,9'
end
return
@ -481,5 +486,37 @@ GetView:
return
GetExistingSupps:
Gosub GetView
NumRDS = DCount(RDSList, @FM)
SuppsWithLots = Supplement_Services('GetLotsWithSupplements', 'RDS')
For I = 1 to NumRDS
RDSSupps = ''
ThisRDS = RDSList<I, 4>
If Count(SuppsWithLots, ThisRDS) NE 0 then
SuppCheck = Supplement_Services('GetSupplementsForLot', 'RDS', ThisRDS)
If SuppCheck NE '' AND SuppCheck NE False$ then
SuppCount = DCount(SuppCheck, @FM)
For J = 1 to SuppCount
CurrSuppStage = Xlate('SUPPLEMENTS', SuppCheck<J>, SUPPLEMENTS_STAGE$, 'X', '')
CurrSuppText = Xlate('SUPPLEMENTS', SuppCheck<J>, SUPPLEMENTS_SUPPL_TEXT$, 'X', '')
If RDSSupps EQ '' then
RDSSupps = CurrSuppStage: ': ' : CurrSuppText
End else
RDSSupps := CRLF : CurrSuppStage: ': ' : CurrSuppText
end
Next J
end
If RDSSupps NE '' then
If CurrentViewSelection _EQC 'quick' then
RDSList<I,15> = RDSSupps
end else
RDSList<I,20> = RDSSupps
end
end
End
Next I
return