Bill,
As per your suggestion here is the text file of the frmMaster:
This is something new for me, I am interesting in what is what you are looking.
What is the purpose of all this strange characters: 0x00e0fe3f00000000000000003b00000023000000230000000200000000fc5615 ,
Is the form corrupted?
Let me know your comments.
Thanks a lot
Norbert
Version =20
VersionRequired =20
PublishOption =1
Checksum =-1820188393
Begin Form
RecordSelectors = NotDefault
MaxButton = NotDefault
MinButton = NotDefault
AutoCenter = NotDefault
AllowDeletions = NotDefault
DividingLines = NotDefault
AllowAdditions = NotDefault
FilterOn = NotDefault
AllowDesignChanges = NotDefault
DefaultView =0
ScrollBars =0
ViewsAllowed =1
TabularCharSet =204
BorderStyle =3
PictureSizeMode =1
DatasheetGridlinesBehavior =3
Cycle =1
GridX =24
GridY =24
Width =12720
DatasheetFontHeight =11
ItemSuffix =1454
Left =600
Top =60
Right =13320
Bottom =11100
DatasheetGridlinesColor =-1
AfterDelConfirm ="[Event Procedure]"
Filter ="MasterFileNo >=80705 And MasterFileNo<=80745"
RecSrcDt = Begin
0x2fa358ae4e78e440
End
OnDirty ="[Event Procedure]"
GUID = Begin
0x168717763055c643ad480de29a53e93a
End
RecordSource ="qryMaster3"
Caption ="FOUND RANGE OF : 20 MASTERFILES BEFORE AND AFTER "
OnCurrent ="[Event Procedure]"
BeforeUpdate ="[Event Procedure]"
OnClose ="[Event Procedure]"
DatasheetFontName ="Calibri"
PrtMip = Begin
0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
0x010000006801000000000000a10700000100000001000000
End
PrtDevMode = Begin
0x00e0fe3f00000000000000003b00000023000000230000000200000000fc5615 ,
0x010409019c00b407032f000001000100ea0a6f08640001000f00580202000100 ,
0x5802010000004c657474657200000000bb4ab42f1b000000a8131b0023000000 ,
0xa21f000058040000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000200 ,
0x0000000001008804bb0201008804bb0200000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000010000010000000000010000 ,
0x0000010006000000070007000000000000000000010000010001160000000000 ,
0x0000000002000000070000000000000000190000e40c000000000000b80b0000 ,
0x7017000000000000dc05000058020000000000000000000000000000feff0000 ,
0x000000000000000000000000000000000000000000000000370c0000da0c0000 ,
0x10270000102700001027000010270000a00a0000c2060000b80600002c040000 ,
0x40010000d2000000180000000000102710271027000010270000000000000000 ,
0x0000000002000000000002000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000100000000 ,
0x0000010001000100000000000000ffff00000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000001146400000000000000000000000000 ,
0xcccccc0000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x00000100010064008910000089100000bb0288040301000000001027e4040000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x000000004e006f00720062006500720074000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x000000000000490053004d005300450052005600450052000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000500050001000000000002000100010002000000 ,
0x0001010000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x000000000000000024000000f5ffffff00000000000000000000000000000000 ,
0x000000010000000041007200690061006c000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x000000000000000000000000ffffff0001000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000001000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0001010002000000020000000100000010270000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000020000000454e474c4953480000000000 ,
0x0000000000000000b203000054500000bb04000050524956b2c8f1e101ff4d46 ,
0x432d38343830444e0000000000000000
End
PrtDevNames = Begin
0x0800230029000100000000000000000000000000000000000000000000000000 ,
0x00000000000000000042524e3030314241393942413243450000000000000000 ,
0x000000000000000000
End
OnLoad ="[Event Procedure]"
OnError ="[Event Procedure]"
AllowDatasheetView =0
FilterOnLoad =0
ShowPageMargins =0
DatasheetAlternateBackColor =-2147483610
PictureSizeMode =4
DatasheetGridlinesColor12 =-1
PrtDevModeW = Begin
0x000000006928bc2f80641c0000000000778fa4784c5c1c0098641c00a797d12f ,
0x00000000d95abc2fe7c4587560070700e70a00000000000000000000ee572238 ,
0x01040901dc00b407032f000001000100ea0a6f08640001000f00580202000100 ,
0x5802010000004c0065007400740065007200000098000000942b592f01000000 ,
0x010000000400000000000001bc641c0052e4847094000000bc641c0062e48470 ,
0x0ae484707e850000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000200 ,
0x0000000001008804bb0201008804bb0200000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000010000010000000000010000 ,
0x0000010006000000070007000000000000000000010000010001160000000000 ,
0x0000000002000000070000000000000000190000e40c000000000000b80b0000 ,
0x7017000000000000dc05000058020000000000000000000000000000feff0000 ,
0x000000000000000000000000000000000000000000000000370c0000da0c0000 ,
0x10270000102700001027000010270000a00a0000c2060000b80600002c040000 ,
0x40010000d2000000180000000000102710271027000010270000000000000000 ,
0x0000000002000000000002000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000100000000 ,
0x0000010001000100000000000000ffff00000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000001146400000000000000000000000000 ,
0xcccccc0000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x00000100010064008910000089100000bb0288040301000000001027e4040000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x000000004e006f00720062006500720074000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x000000000000490053004d005300450052005600450052000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000500050001000000000002000100010002000000 ,
0x0001010000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x000000000000000024000000f5ffffff00000000000000000000000000000000 ,
0x000000010000000041007200690061006c000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x000000000000000000000000ffffff0001000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000001000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0001010002000000020000000100000010270000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000020000000454e474c4953480000000000 ,
0x0000000000000000b203000054500000bb04000050524956b2c8f1e101ff4d46 ,
0x432d38343830444e0000000000000000
End
PrtDevNamesW = Begin
0x04001f0025000100000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x00000000000000000000420052004e0030003000310042004100390039004200 ,
0x4100320043004500000000000000000000000000000000000000000000000000 ,
0x00000000000000000000
End
NoSaveCTIWhenDisabled =1
Begin
Begin Label
BackStyle =0
TextFontFamily =0
FontSize =9
ForeColor =-2147483615
FontName ="Segoe UI"
End
Begin Rectangle
SpecialEffect =3
BackStyle =0
BorderLineStyle =0
End
Begin CommandButton
AddColon = NotDefault
TextFontCharSet =161
FontSize =9
FontWeight =400
ForeColor =-2147483615
FontName ="Segoe UI"
BorderLineStyle =0
End
Begin OptionButton
AddColon = NotDefault
SpecialEffect =2
BorderLineStyle =0
LabelX =230
LabelY =-30
End
Begin CheckBox
AddColon = NotDefault
SpecialEffect =2
BorderLineStyle =0
LabelX =230
LabelY =-30
End
Begin OptionGroup
SpecialEffect =3
BorderLineStyle =0
End
Begin BoundObjectFrame
SpecialEffect =2
BorderLineStyle =0
End
Begin TextBox
FELineBreak = NotDefault
SpecialEffect =2
BorderLineStyle =0
FontSize =10
FontName ="Arial"
AsianLineBreak =255
End
Begin ListBox
SpecialEffect =2
TextFontCharSet =204
BorderLineStyle =0
FontSize =11
FontName ="Calibri"
End
Begin ComboBox
SpecialEffect =2
TextFontCharSet =204
BorderLineStyle =0
FontSize =11
FontName ="Calibri"
End
Begin Subform
BorderLineStyle =0
BorderColor =-2147483609
End
Begin UnboundObjectFrame
SpecialEffect =2
OldBorderStyle =1
ThemeFontIndex =1
BackThemeColorIndex =1
BorderThemeColorIndex =1
BorderShade =65.0
ForeThemeColorIndex =2
ForeShade =50.0
GridlineThemeColorIndex =1
GridlineShade =65.0
End
Begin ToggleButton
AddColon = NotDefault
TextFontCharSet =161
FontSize =9
FontWeight =400
ForeColor =-2147483630
FontName ="Segoe UI"
BorderLineStyle =0
End
Begin Tab
TextFontFamily =0
FontSize =9
FontName ="Segoe UI"
BorderLineStyle =0
End
Begin Attachment
BackStyle =0
OldBorderStyle =0
BorderLineStyle =0
End
Begin EmptyCell
Height =240
GridlineColor =12632256
GridlineThemeColorIndex =1
GridlineShade =65.0
End
Begin FormHeader
CanGrow = NotDefault
Height =10590
BackColor =14277081
Name ="FormHeader"
GUID = Begin
0xea16afff0143ef4a8412d8ccd03d958d
End
BackThemeColorIndex =1
BackShade =85.0
Begin
Begin TextBox
Visible = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =93
TextAlign =2
IMESentenceMode =3
Left =120
Top =10174
Width =12480
Height =300
ColumnOrder =0
FontSize =12
FontWeight =700
TabIndex =3
BackColor =2366701
ForeColor =16777215
Name ="lblApplication"
GUID = Begin
0xd4cc9f0396c8714abb59fd20f232eb6f
End
LayoutCachedLeft =120
LayoutCachedTop =10174
LayoutCachedWidth =12600
LayoutCachedHeight =10474
ForeThemeColorIndex =1
End
Begin Tab
TabStop = NotDefault
OverlapFlags =247
TextFontFamily =34
BackStyle =0
Width =12720
Height =10590
FontSize =10
FontWeight =700
Name ="tabContacts"
FontName ="Arial"
GUID = Begin
0x0c11caac3c9d3447be725ef46c1c8c04
End
GridlineColor =10921638
LayoutCachedWidth =12720
LayoutCachedHeight =10590
GridlineThemeColorIndex =1
GridlineShade =65.0
Begin
Begin Page
OverlapFlags =247
Left =105
Width =12480
Height =10455
Name ="General_Page"
Caption ="MASTER"
GUID = Begin
0xe33f0eec8d6d324bb7c1436e2b749dd2
End
LayoutCachedLeft =105
LayoutCachedWidth =12585
LayoutCachedHeight =10455
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Begin
Begin EmptyCell
Left =465
Top =360
Name ="EmptyCell1432"
GUID = Begin
0x8d44db3c41aed2439897967c2c4badd3
End
GroupTable =14
GridlineColor =10921638
LayoutCachedLeft =465
LayoutCachedTop =360
LayoutCachedWidth =1905
LayoutCachedHeight =600
LayoutGroup =14
GroupTable =14
End
Begin Rectangle
OverlapFlags =255
Left =195
Top =1950
Width =12384
Height =2370
Name ="Box465"
GUID = Begin
0x31033ac14d3b5849aeab9b2c08ceabbc
End
LayoutCachedLeft =195
LayoutCachedTop =1950
LayoutCachedWidth =12579
LayoutCachedHeight =4320
End
Begin Rectangle
OverlapFlags =255
Left =9648
Top =7632
Width =2895
Height =1020
Name ="Box771"
Tag ="RemitanceInfo"
GUID = Begin
0xabd4961b2227cd4c8f4578e7b46a0c56
End
LayoutCachedLeft =9648
LayoutCachedTop =7632
LayoutCachedWidth =12543
LayoutCachedHeight =8652
End
Begin Rectangle
OverlapFlags =255
Left =195
Top =4485
Width =12384
Height =1875
Name ="boxDirectBill"
GUID = Begin
0xcaed64aa6b190747ae740478cfeb5a75
End
LayoutCachedLeft =195
LayoutCachedTop =4485
LayoutCachedWidth =12579
LayoutCachedHeight =6360
End
Begin Rectangle
Visible = NotDefault
OverlapFlags =255
Left =195
Top =4500
Width =12384
Height =1860
Name ="boxEFT"
GUID = Begin
0x52f66663e67db2488fa62b5cdfaf1383
End
LayoutCachedLeft =195
LayoutCachedTop =4500
LayoutCachedWidth =12579
LayoutCachedHeight =6360
End
Begin Rectangle
OverlapFlags =255
Left =195
Top =6542
Width =12348
Height =915
Name ="boxRemittance"
Tag ="RemitanceInfo"
GUID = Begin
0x1e74c2243dcd6543ab6ffcb50f68df62
End
LayoutCachedLeft =195
LayoutCachedTop =6542
LayoutCachedWidth =12543
LayoutCachedHeight =7457
End
Begin Rectangle
Visible = NotDefault
OverlapFlags =255
Left =195
Top =4488
Width =12384
Height =1875
Name ="boxWDC"
GUID = Begin
0x06bc537f3478c64c9cfcf8d6f25d04bb
End
LayoutCachedLeft =195
LayoutCachedTop =4488
LayoutCachedWidth =12579
LayoutCachedHeight =6363
End
Begin Rectangle
OverlapFlags =255
Left =195
Top =7632
Width =12348
Height =1020
Name ="Box580"
Tag ="RemitanceInfo"
GUID = Begin
0xab4dfae8bd9def40ba6094c9066cac80
End
LayoutCachedLeft =195
LayoutCachedTop =7632
LayoutCachedWidth =12543
LayoutCachedHeight =8652
End
Begin Rectangle
Visible = NotDefault
OverlapFlags =255
Left =195
Top =4500
Width =12384
Height =1860
Name ="boxPRD"
GUID = Begin
0x34b034be09ba9b4481cd233849a1261f
End
LayoutCachedLeft =195
LayoutCachedTop =4500
LayoutCachedWidth =12579
LayoutCachedHeight =6360
End
Begin EmptyCell
Left =405
Top =300
Name ="EmptyCell932"
GUID = Begin
0xd3165a50eb4e6a439662fe4904c8601e
End
GroupTable =1
GridlineColor =10921638
LayoutCachedLeft =405
LayoutCachedTop =300
LayoutCachedWidth =1845
LayoutCachedHeight =540
LayoutGroup =1
GroupTable =1
End
Begin EmptyCell
Left =450
Top =300
Name ="EmptyCell934"
GUID = Begin
0x6b3c1858cc0a5d4db5c43a36aec873b8
End
GroupTable =2
GridlineColor =10921638
LayoutCachedLeft =450
LayoutCachedTop =300
LayoutCachedWidth =1890
LayoutCachedHeight =540
LayoutGroup =2
GroupTable =2
End
Begin EmptyCell
Left =450
Top =300
Name ="EmptyCell936"
GUID = Begin
0xf24b1c1e60fb94429c4712a92f176c45
End
GroupTable =3
GridlineColor =10921638
LayoutCachedLeft =450
LayoutCachedTop =300
LayoutCachedWidth =1890
LayoutCachedHeight =540
LayoutGroup =3
GroupTable =3
End
Begin EmptyCell
Left =450
Top =300
Name ="EmptyCell1324"
GUID = Begin
0x6eb20f338e73864ab405571c682f6587
End
GroupTable =4
GridlineColor =10921638
LayoutCachedLeft =450
LayoutCachedTop =300
LayoutCachedWidth =1890
LayoutCachedHeight =540
LayoutGroup =4
GroupTable =4
End
Begin Rectangle
OverlapFlags =255
Left =194
Top =8640
Width =12348
Height =1503
Name ="Box1417"
Tag ="RemitanceInfo"
GUID = Begin
0xc84ec8b355e08f4da34a00391b23e51e
End
LayoutCachedLeft =194
LayoutCachedTop =8640
LayoutCachedWidth =12542
LayoutCachedHeight =10143
End
Begin EmptyCell
Left =465
Top =360
Name ="EmptyCell1348"
GUID = Begin
0x34f2616c416b6c46917c6a14d57ad030
End
GroupTable =6
GridlineColor =10921638
LayoutCachedLeft =465
LayoutCachedTop =360
LayoutCachedWidth =1905
LayoutCachedHeight =600
LayoutGroup =6
GroupTable =6
End
Begin EmptyCell
Left =465
Top =360
Name ="EmptyCell1401"
GUID = Begin
0x5f2f2bc96cd1e441a87e878afd04067f
End
GroupTable =7
GridlineColor =10921638
LayoutCachedLeft =465
LayoutCachedTop =360
LayoutCachedWidth =1905
LayoutCachedHeight =600
LayoutGroup =7
GroupTable =7
End
Begin EmptyCell
Left =465
Top =360
Name ="EmptyCell1403"
GUID = Begin
0x60ab13c6b8ef994d9d7c9eaa4862c53d
End
GroupTable =8
GridlineColor =10921638
LayoutCachedLeft =465
LayoutCachedTop =360
LayoutCachedWidth =1905
LayoutCachedHeight =600
LayoutGroup =8
GroupTable =8
End
Begin EmptyCell
Left =465
Top =360
Name ="EmptyCell1426"
GUID = Begin
0x3d4d10c347d9014fbd564e190420303d
End
GroupTable =13
GridlineColor =10921638
LayoutCachedLeft =465
LayoutCachedTop =360
LayoutCachedWidth =1905
LayoutCachedHeight =600
LayoutGroup =13
GroupTable =13
End
Begin EmptyCell
Left =540
Top =360
Name ="EmptyCell1424"
GUID = Begin
0xcbbb4bcacf2d4746b7650fedcda2b158
End
GroupTable =12
GridlineColor =10921638
LayoutCachedLeft =540
LayoutCachedTop =360
LayoutCachedWidth =1980
LayoutCachedHeight =600
LayoutGroup =12
GroupTable =12
End
Begin EmptyCell
Left =615
Top =360
Name ="EmptyCell1422"
GUID = Begin
0x6428b32f58e74e4ab78f4799bec2e4b3
End
GroupTable =11
GridlineColor =10921638
LayoutCachedLeft =615
LayoutCachedTop =360
LayoutCachedWidth =2055
LayoutCachedHeight =600
LayoutGroup =11
GroupTable =11
End
Begin EmptyCell
Left =690
Top =360
Name ="EmptyCell1420"
GUID = Begin
0x9a0fa1998e87174d86d66a3dabd955c7
End
GroupTable =10
GridlineColor =10921638
LayoutCachedLeft =690
LayoutCachedTop =360
LayoutCachedWidth =2130
LayoutCachedHeight =600
LayoutGroup =10
GroupTable =10
End
Begin Rectangle
OverlapFlags =255
Left =192
Top =477
Width =12384
Height =1320
Name ="Box385"
GUID = Begin
0x3ff7161da821dd4585d3283c73990970
End
LayoutCachedLeft =192
LayoutCachedTop =477
LayoutCachedWidth =12576
LayoutCachedHeight =1797
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
OverlapFlags =255
TextAlign =2
Left =11208
Top =5592
Width =1260
Height =274
BackColor =14347005
Name ="LastBill"
ControlSource ="LastBill"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xd752d3ed4bc7da45aeb82945ac22d40a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11208
LayoutCachedTop =5592
LayoutCachedWidth =12468
LayoutCachedHeight =5866
BackThemeColorIndex =9
BackTint =20.0
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =9687
Top =5592
Width =1440
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label545"
Caption ="Last Bill Date"
FontName ="Arial"
GUID = Begin
0x32628760f4b6f044821e2d28dc8460b3
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9687
LayoutCachedTop =5592
LayoutCachedWidth =11127
LayoutCachedHeight =5847
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
OverlapFlags =255
TextAlign =2
Left =11208
Top =5232
Width =1260
Height =274
TabIndex =1
BackColor =15261367
Name ="Nextbilldate"
ControlSource ="Nextbilldate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x6dc789b5a0031d41a0a3659af5bcd519
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11208
LayoutCachedTop =5232
LayoutCachedWidth =12468
LayoutCachedHeight =5506
BackThemeColorIndex =8
BackTint =40.0
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =9687
Top =5232
Width =1440
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label541"
Caption ="Next Bill Date"
FontName ="Arial"
GUID = Begin
0xc38bf74b4675084eb38e816e2afb0f6d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9687
LayoutCachedTop =5232
LayoutCachedWidth =11127
LayoutCachedHeight =5487
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
Left =12180
Width =360
Height =274
TabIndex =2
BackColor =14277081
ForeColor =2366701
Name ="txTab"
GUID = Begin
0x1906b5643e39784ca4d7b5038a57c448
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =12180
LayoutCachedWidth =12540
LayoutCachedHeight =274
BackThemeColorIndex =1
BackShade =85.0
End
Begin TextBox
Visible = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =1
Left =8325
Top =8715
Width =1110
Height =274
FontWeight =700
TabIndex =3
ForeColor =16711680
Name ="MSeqNo"
ControlSource ="MseqNo"
GUID = Begin
0x4e0d1e7536739b42bf1539a4d2d029e3
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8325
LayoutCachedTop =8715
LayoutCachedWidth =9435
LayoutCachedHeight =8989
Begin
Begin Label
OverlapFlags =255
TextAlign =1
TextFontFamily =34
Left =7050
Top =8715
Width =1350
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1370"
Caption ="CcardUptake"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x0459f8d32df4c344a14ec22042becfc2
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7050
LayoutCachedTop =8715
LayoutCachedWidth =8400
LayoutCachedHeight =8955
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =2
Left =1452
Top =669
Width =1200
Height =274
FontWeight =700
TabIndex =4
ForeColor =16711680
Name ="MasterfileNo"
ControlSource ="MasterfileNo"
GUID = Begin
0x426f97d4a551064b9a06d513652919c3
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1452
LayoutCachedTop =669
LayoutCachedWidth =2652
LayoutCachedHeight =943
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =267
Top =672
Width =1140
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label327"
Caption ="Master File"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x3be886ed77cb794cb77b064ab914b0e6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =267
LayoutCachedTop =672
LayoutCachedWidth =1407
LayoutCachedHeight =924
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =3822
Top =669
Width =1125
Height =274
TabIndex =5
BackColor =14347005
Name ="Assocmfn"
ControlSource ="Assocmfn"
Tag ="Audit"
GUID = Begin
0x7ba6ed923029fb488de89750577e6a41
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3822
LayoutCachedTop =669
LayoutCachedWidth =4947
LayoutCachedHeight =943
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =2706
Top =672
Width =1116
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label329"
Caption ="Assoc MFN"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xa2311056e506ee44a325381172d8bf9e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2706
LayoutCachedTop =672
LayoutCachedWidth =3822
LayoutCachedHeight =924
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =5427
Top =669
Width =975
Height =274
TabIndex =6
BackColor =14347005
Name ="Assoclev"
ControlSource ="Assoclev"
Format =">"
DefaultValue ="\"BASIC\""
Tag ="Audit"
GUID = Begin
0xb41cf3821a8a944b8dbc30f3a2ce6943
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5427
LayoutCachedTop =669
LayoutCachedWidth =6402
LayoutCachedHeight =943
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =4992
Top =672
Width =435
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label331"
Caption ="Lev"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x04abbbcaecd9914b9c277c0698e4f4a5
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4992
LayoutCachedTop =672
LayoutCachedWidth =5427
LayoutCachedHeight =924
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =7905
Top =669
Width =1260
Height =274
TabIndex =7
BackColor =14347005
Name ="Reqissuedate"
ControlSource ="Reqissuedate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xedf0a920ce0fd845a7c41787300f2f48
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7905
LayoutCachedTop =669
LayoutCachedWidth =9165
LayoutCachedHeight =943
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =6480
Top =672
Width =1380
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label857"
Caption ="Req Issue Dte"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x063869f05b5d5149af352acf3c35b339
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6480
LayoutCachedTop =672
LayoutCachedWidth =7860
LayoutCachedHeight =924
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
Left =10185
Top =669
Width =735
Height =274
FontSize =10
TabIndex =8
BackColor =15523798
GUID = Begin
0x4dcce4cff39c704d8fa76906ff1db53d
End
Name ="ScanYet"
ControlSource ="Scannedyet"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10185
LayoutCachedTop =669
LayoutCachedWidth =10920
LayoutCachedHeight =943
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =9240
Top =672
Width =840
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1"
Caption ="Scanned"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x215aeca2a0b6f24f85ae7e271a9c74ec
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9240
LayoutCachedTop =672
LayoutCachedWidth =10080
LayoutCachedHeight =927
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
TabStop = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =11964
Top =669
Width =510
Height =274
FontSize =10
TabIndex =9
BackColor =14806254
GUID = Begin
0x4a01fce2148d2e42845701061b6bf142
End
Name ="Archivestat"
ControlSource ="Archivestat"
RowSourceType ="Value List"
RowSource ="A;O;S"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11964
LayoutCachedTop =669
LayoutCachedWidth =12474
LayoutCachedHeight =943
BackThemeColorIndex =3
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =210
Top =1053
Width =1218
Height =331
FontWeight =700
TabIndex =10
ForeColor =16777215
Name ="cmdClient"
Caption ="CLIENT SSN"
OnClick ="[Event Procedure]"
GUID = Begin
0x0172160aa4c77e45958061c0da3e1346
End
LeftPadding =72
TopPadding =72
RightPadding =72
BottomPadding =72
LayoutCachedLeft =210
LayoutCachedTop =1053
LayoutCachedWidth =1428
LayoutCachedHeight =1384
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =-2147483619
Shadow =17
SoftEdges =1
WebImagePaddingLeft =5
WebImagePaddingTop =5
WebImagePaddingRight =5
WebImagePaddingBottom =5
Overlaps =1
End
Begin TextBox
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =3
Left =1452
Top =1080
Width =1650
Height =276
FontWeight =700
TabIndex =11
BackColor =14806254
ForeColor =12976693
Name ="txtSSN"
ControlSource ="IsmaId"
Format ="000 00 0000"
DefaultValue ="\"000 00 0000\""
InputMask ="000\\ 00\\ 0000;;#"
Tag ="Audit"
GUID = Begin
0x651f1f469e2cff4696de92838dd703ca
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1452
LayoutCachedTop =1080
LayoutCachedWidth =3102
LayoutCachedHeight =1356
BackThemeColorIndex =3
End
Begin TextBox
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
Left =3162
Top =1080
Width =3312
Height =276
FontWeight =700
TabIndex =12
BackColor =14806254
ForeColor =12976693
Name ="ClientName"
ControlSource ="ClientName"
DefaultValue ="0"
GUID = Begin
0xed216582569c0b4bac38ceb2209693f5
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3162
LayoutCachedTop =1080
LayoutCachedWidth =6474
LayoutCachedHeight =1356
BackThemeColorIndex =3
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =1
Left =7035
Top =1080
Width =420
Height =274
TabIndex =13
BackColor =15921906
Name ="Relatedins"
ControlSource ="Relatedins"
Format =">"
GUID = Begin
0xa04e4b04c5127847a4189917c77228d5
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7035
LayoutCachedTop =1080
LayoutCachedWidth =7455
LayoutCachedHeight =1354
BackThemeColorIndex =1
BackShade =95.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =6600
Top =1074
Width =435
Height =312
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label454"
Caption ="Ins"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x4d529bf6bf4d3742844e8314b5bce4a1
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6600
LayoutCachedTop =1074
LayoutCachedWidth =7035
LayoutCachedHeight =1386
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =8730
Top =1080
Width =1260
Height =274
TabIndex =14
BackColor =14347005
Name ="Fpacwaamt"
ControlSource ="Fpacwaamt"
Format ="$#,##0.00;($#,##0.00)"
Tag ="Audit"
GUID = Begin
0xdfcb82fa92689f459f0c7c496b4688de
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8730
LayoutCachedTop =1080
LayoutCachedWidth =9990
LayoutCachedHeight =1354
BackThemeColorIndex =9
BackTint =20.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =7605
Top =1074
Width =1080
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1329"
Caption ="FPA-CWA"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x9a0eefc799d97544af8ded5332a9933a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7605
LayoutCachedTop =1074
LayoutCachedWidth =8685
LayoutCachedHeight =1314
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
TabStop = NotDefault
OverlapFlags =247
TextAlign =2
Left =11214
Top =1080
Width =1260
Height =274
TabIndex =15
BackColor =7961551
ForeColor =16777215
Name ="Mastcreatedate"
ControlSource ="Mastcreatedate"
Format ="mm/dd/yyyy"
DefaultValue ="Date()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x4a95843a61cf6d43a33999a76bb02038
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11214
LayoutCachedTop =1080
LayoutCachedWidth =12474
LayoutCachedHeight =1354
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10065
Top =1074
Width =1080
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label452"
Caption ="Created Dt"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x3e0849b292d7f24fac2bc6544cba04f3
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10065
LayoutCachedTop =1074
LayoutCachedWidth =11145
LayoutCachedHeight =1374
ForeThemeColorIndex =0
End
End
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =204
Top =1420
Width =1218
Height =331
FontWeight =700
TabIndex =16
ForeColor =16777215
Name ="cmdPayor"
Caption ="PAYOR SSN"
OnClick ="[Event Procedure]"
GUID = Begin
0x965096079b77dd48838538696828d231
End
LayoutCachedLeft =204
LayoutCachedTop =1420
LayoutCachedWidth =1422
LayoutCachedHeight =1751
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin TextBox
OverlapFlags =247
TextAlign =3
Left =1452
Top =1459
Width =1650
Height =285
FontWeight =700
TabIndex =17
BackColor =15523798
Name ="IsmaId2"
ControlSource ="IsmaId2"
Format ="000 00 0000"
AfterUpdate ="[Event Procedure]"
DefaultValue ="\"000 00 0000\""
InputMask ="000\\ 00\\ 0000;;#"
Tag ="Audit"
GUID = Begin
0x61a3761e0408094b9b7dfb9d7757d031
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1452
LayoutCachedTop =1459
LayoutCachedWidth =3102
LayoutCachedHeight =1744
ForeThemeColorIndex =0
End
Begin ComboBox
AutoExpand = NotDefault
OverlapFlags =247
TextFontCharSet =0
ColumnCount =2
Left =3162
Top =1459
Width =3972
Height =285
FontSize =10
FontWeight =700
TabIndex =18
BackColor =15523798
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
GUID = Begin
0x23cecc2bf5a9b44aabd3c48523d29044
End
Name ="PayorName"
ControlSource ="IsmaId2"
RowSourceType ="Table/Query"
RowSource ="qryPayorCbo"
ColumnWidths ="0;3600"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
FontName ="Arial"
OnMouseDown ="[Event Procedure]"
Tag ="Audit"
OnNotInList ="[Event Procedure]"
BaseInfo ="\"qryPayorCbo\";\"tblPayor\";\"\";\"IsmaId\";\"JTXTlASTfIRST\";\"aaaaatblPayor_P"
"K\""
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3162
LayoutCachedTop =1459
LayoutCachedWidth =7134
LayoutCachedHeight =1744
ForeThemeColorIndex =0
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =8730
Top =1470
Width =1260
Height =274
TabIndex =19
BackColor =14347005
Name ="Cwaamtrec"
ControlSource ="Cwaamtrec"
Format ="$#,##0.00;($#,##0.00)"
Tag ="Audit"
GUID = Begin
0x64c03337498aeb4c8be0036d0dd74e96
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8730
LayoutCachedTop =1470
LayoutCachedWidth =9990
LayoutCachedHeight =1744
BackThemeColorIndex =9
BackTint =20.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =7185
Top =1470
Width =1500
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label464"
Caption ="Total CWA Amt"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x20f1315a12ce0a45b9f9ca7f1afc06e6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7185
LayoutCachedTop =1470
LayoutCachedWidth =8685
LayoutCachedHeight =1710
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
TabStop = NotDefault
OverlapFlags =247
TextAlign =2
Left =11214
Top =1491
Width =1260
Height =274
TabIndex =20
BackColor =14806254
Name ="Cwaremitdate"
ControlSource ="Cwaremitdate"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xf5c4ef86361a004d96ad160b2b745b92
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11214
LayoutCachedTop =1491
LayoutCachedWidth =12474
LayoutCachedHeight =1765
BackThemeColorIndex =3
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10245
Top =1491
Width =900
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label921"
Caption =" CWA Dt"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x544f2205d8c1264293b7d869d59efd26
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10245
LayoutCachedTop =1491
LayoutCachedWidth =11145
LayoutCachedHeight =1731
ForeThemeColorIndex =0
End
End
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =210
Top =2130
Width =1218
Height =331
FontWeight =700
TabIndex =21
ForeColor =16777215
Name ="cmdIns"
Caption ="VENDOR"
OnClick ="[Event Procedure]"
GUID = Begin
0xd4149f418f88a947aa6107695192621d
End
LayoutCachedLeft =210
LayoutCachedTop =2130
LayoutCachedWidth =1428
LayoutCachedHeight =2461
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =255
TextFontCharSet =0
Left =6405
Top =2130
Width =663
Height =331
FontWeight =700
TabIndex =22
ForeColor =16777215
Name ="cmdPol"
Caption ="POL #"
OnClick ="[Event Procedure]"
GUID = Begin
0xa64994573814ab48b7df504e3151fc81
End
LayoutCachedLeft =6405
LayoutCachedTop =2130
LayoutCachedWidth =7068
LayoutCachedHeight =2461
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =255
TextFontCharSet =0
Left =8385
Top =2130
Width =303
Height =331
FontWeight =700
TabIndex =23
ForeColor =16777215
Name ="cmdPrintIns"
Caption ="P"
OnClick ="[Event Procedure]"
GUID = Begin
0xd6dcbc8e21917d4f94c0f3d15b9f46e1
End
ImageData = Begin
0x2800000010000000100000000100200000000000000000000000000000000000 ,
0x00000000000000000000000000000000000000000000000000000000a08870ff ,
0x907860ff807060ff807060ff807060ff807060ff000000000000000000000000 ,
0x00000000000000000000000000000000000000000000000000000000a09080ff ,
0xfffffffffffffffffff8fffffff8ffff807060ff000000000000000000000000 ,
0x0000000000000000a098a090908890ff706060ff504850ff505050ffa09080ff ,
0xfffffffff0d8b0fff0d8b0fff0d8b0ff807060ff505050ff504850ff706060ff ,
0x706860ff707070b0909090ff909890ffa0a0a0ff403840ff403840ffa09080ff ,
0xffffffffffe8d0ffe07850fff0d8b0ff807060ff403840ff403840ff909090ff ,
0x909090ff706860ff909090ffa0a0a0ff909890ff403840ff403840ff908870ff ,
0xe0e8e0fff0e0b0fff0d8b0fff0d8b0ff807060ff403840ff403840ffa0a0a0ff ,
0xa0a0a0ff706860ff908890ff908890ff908890ff707070ff707070ff707070ff ,
0x707070ff707070ff707070ff707070ff707070ff707070ff707070ff908890ff ,
0x908080ff706860ff908890ffc0b8c0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
0xb0a8b0ffb0a8b0ffb0b0b0ffb0b0b0ffb0b0b0ffb0b0b0ff807880ffc0c8c0ff ,
0xb0b0b0ff706860ff909090ffd0d0d0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
0xb0a8b0ffb0a8b0ffffa860ffffa860ffffa860ffb0b0b0ff807880ffc0c8c0ff ,
0xc0c0c0ff706860ff909090fff0f8f0fff0f0f0ffa0a0a0ffd0d0d0ffd0d0d0ff ,
0xd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ff909890fff0f0f0ff ,
0xf0e8f0ff706860ffa098a0ffffffffffffffffff909090ffe0d8e0ffe0d8e0ff ,
0xe0d8e0ffe0d8e0ffe0d8e0ffc0d0d0ff80a090ff406850ff205030ffa0b0a0ff ,
0xe0e8e0ff706860ffb0b0b070b0b0b0ffb0b0b0ff909090ff909090ff909090ff ,
0x909090ff909090ff908890ff507060ff307840ff60b080ff50b070ff307840ff ,
0x507060ff80888080000000000000000000000000505050a0706870ffb09080ff ,
0xfffffffffffffffffff8ffff407850ffa0d0b0fff0ffffffc0e0d0ff40b070ff ,
0x004010c00000000000000000000000000000000050505080505850ffb09080ff ,
0xfffffffffffffffffff8ffff508050ffffffffff50b870fffff8ffff90c890ff ,
0x004020c0000000000000000000000000000000000000000000000000b09080ff ,
0xffffffffffffffffffffffffa0b0a0ff308040ff40b070ff40a850ffffffffff ,
0x509860b0000000000000000000000000000000000000000000000000b09080ff ,
0xfffffffffffffffffffffffff0f0f0ff506040ff004010c0004010c060a060b0 ,
0xa0d8a090000000000000000000000000000000000000000000000000b09080ff ,
0xb09080ffb09080ffb09080ffb09080ffb09080ff000000000000000000000000 ,
0x0000000000000000
End
LayoutCachedLeft =8385
LayoutCachedTop =2130
LayoutCachedWidth =8688
LayoutCachedHeight =2461
ForeThemeColorIndex =1
Bevel =2
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =1425
Top =2134
Width =1650
Height =300
FontWeight =700
TabIndex =24
BackColor =13995605
ForeColor =16777215
Name ="CompanycodeLoanNo"
ControlSource ="CompanycodeLoanNo"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0x8caaafaa78778f439e5c3353d08a5df1
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1425
LayoutCachedTop =2134
LayoutCachedWidth =3075
LayoutCachedHeight =2434
BackThemeColorIndex =2
BackTint =60.0
ForeThemeColorIndex =1
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
ColumnCount =2
Left =3120
Top =2134
Width =3300
Height =274
FontSize =10
TabIndex =25
BackColor =15523798
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"70\""
GUID = Begin
0xe9e287921f620345921d164fc340e06e
End
Name ="cboCompanycodeLoanNo"
ControlSource ="CompanycodeLoanNo"
RowSourceType ="Table/Query"
RowSource ="qryVendLendCbo"
ColumnWidths ="0;2160"
DefaultValue ="0"
FontName ="Arial"
OnMouseUp ="[Event Procedure]"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3120
LayoutCachedTop =2134
LayoutCachedWidth =6420
LayoutCachedHeight =2408
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =7065
Top =2134
Width =1335
Height =274
TabIndex =26
BackColor =14347005
Name ="PolicyNo"
ControlSource ="PolicyNo"
AfterUpdate ="[Event Procedure]"
Tag ="Audit"
GUID = Begin
0x0d87a09e32a8c6499ee49af887968e26
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7065
LayoutCachedTop =2134
LayoutCachedWidth =8400
LayoutCachedHeight =2408
BackThemeColorIndex =9
BackTint =20.0
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
Left =9180
Top =2134
Width =1200
Height =274
FontSize =10
TabIndex =27
BackColor =14347005
ColumnInfo ="\"\";\"\";\"10\";\"200\""
GUID = Begin
0x2493cadfa2b92045b9a1e0867363e6fc
End
Name ="ProdCde"
ControlSource ="ProdCde"
RowSourceType ="Table/Query"
RowSource ="qryProductCodeCbo"
ColumnWidths ="1008"
FontName ="Arial"
OnChange ="[Event Procedure]"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9180
LayoutCachedTop =2134
LayoutCachedWidth =10380
LayoutCachedHeight =2408
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =8700
Top =2176
Width =480
Height =234
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label378"
Caption ="Prod"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x246077b69878094e9f7413862cfa339e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8700
LayoutCachedTop =2176
LayoutCachedWidth =9180
LayoutCachedHeight =2410
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =10914
Top =2134
Width =1560
Height =274
FontSize =10
FontWeight =700
TabIndex =28
BackColor =13995605
ForeColor =16777215
ColumnInfo ="\"\";\"\";\"10\";\"200\""
GUID = Begin
0x76d36cc42493f145a70cd384826be27c
End
Name ="IsmaProductCode"
ControlSource ="IsmaProductCode"
RowSourceType ="Table/Query"
RowSource ="qryISMAProductCodeCbo"
ColumnWidths ="1008"
AfterUpdate ="[Event Procedure]"
FontName ="Arial"
OnChange ="[Event Procedure]"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10914
LayoutCachedTop =2134
LayoutCachedWidth =12474
LayoutCachedHeight =2408
BackThemeColorIndex =2
BackTint =60.0
ForeThemeColorIndex =1
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =10377
Top =2163
Width =540
Height =234
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label474"
Caption ="Code"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xb17855fd1c3d0e4a8e03e5aade87d3a0
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10377
LayoutCachedTop =2163
LayoutCachedWidth =10917
LayoutCachedHeight =2397
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =1425
Top =2475
Width =1650
Height =274
FontSize =10
FontWeight =700
TabIndex =29
BackColor =13995605
ForeColor =16777215
ColumnInfo ="\"\";\"\";\"10\";\"200\""
GUID = Begin
0x0692d2b1d71af84492f4bd915358f124
End
Name ="CollectionMode"
ControlSource ="CollectionMode"
RowSourceType ="Table/Query"
RowSource ="qryCollectionModeCbo"
ColumnWidths ="1008"
AfterUpdate ="[Event Procedure]"
FontName ="Arial"
OnChange ="[Event Procedure]"
Tag ="Audit"
Format =">"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1425
LayoutCachedTop =2475
LayoutCachedWidth =3075
LayoutCachedHeight =2749
BackThemeColorIndex =2
BackTint =60.0
ForeThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =405
Top =2475
Width =960
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label478"
Caption ="Coll Mode"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xb9a9a19424fd924797368873a3bf642c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =405
LayoutCachedTop =2475
LayoutCachedWidth =1365
LayoutCachedHeight =2745
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =11298
Top =2477
Width =1176
Height =274
TabIndex =30
BackColor =14347005
Name ="Paidtodate"
ControlSource ="Paidtodate"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x653d8ce103a34f48a119bc3891863cad
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11298
LayoutCachedTop =2477
LayoutCachedWidth =12474
LayoutCachedHeight =2751
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =10440
Top =2460
Width =780
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label888"
Caption ="Paid To "
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xc40f95bf6cceec409235049bf051a664
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10440
LayoutCachedTop =2460
LayoutCachedWidth =11220
LayoutCachedHeight =2760
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
OverlapFlags =255
TextAlign =1
Left =4083
Top =2478
Width =2070
Height =274
TabIndex =31
Name ="IsmaIdAssWeb"
ControlSource ="IsmaId"
GUID = Begin
0x3ec7c5d24c63e6418cd09e6ed012c44d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4083
LayoutCachedTop =2478
LayoutCachedWidth =6153
LayoutCachedHeight =2752
End
Begin TextBox
Visible = NotDefault
OverlapFlags =247
TextAlign =1
Left =4083
Top =2478
Width =2070
Height =274
TabIndex =32
BackColor =14347005
Name ="MembershipNo"
ControlSource ="MembershipNo"
Tag ="Audit"
GUID = Begin
0xd91db47963ccef42a1286ce63a3a17d7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4083
LayoutCachedTop =2478
LayoutCachedWidth =6153
LayoutCachedHeight =2752
BackThemeColorIndex =9
BackTint =20.0
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =7086
Top =2478
Width =1176
Height =274
TabIndex =33
BackColor =14347005
Name ="ApplicationDate"
ControlSource ="ApplicationDate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
GUID = Begin
0x4dfa3c42425dad489f2a2f668f16dbad
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7086
LayoutCachedTop =2478
LayoutCachedWidth =8262
LayoutCachedHeight =2752
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =6171
Top =2478
Width =885
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label476"
Caption ="App Date"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x3d99ff54044dd84eb4063aaf245ed2b7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6171
LayoutCachedTop =2478
LayoutCachedWidth =7056
LayoutCachedHeight =2718
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =9159
Top =2478
Width =1176
Height =274
TabIndex =34
BackColor =14347005
Name ="Effectivedate"
ControlSource ="Effectivedate"
Format ="mm/dd/yyyy"
AfterUpdate ="[Event Procedure]"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xc130a508d501b94dae888e4b80730a11
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9159
LayoutCachedTop =2478
LayoutCachedWidth =10335
LayoutCachedHeight =2752
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =8283
Top =2478
Width =876
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label484"
Caption ="Effective"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x2bc470b80acaaf49bf010f21f5403caf
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8283
LayoutCachedTop =2478
LayoutCachedWidth =9159
LayoutCachedHeight =2733
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =1425
Top =2820
Width =1650
Height =274
FontSize =10
FontWeight =700
TabIndex =35
BackColor =13995605
ForeColor =16777215
ColumnInfo ="\"\";\"\";\"10\";\"200\""
GUID = Begin
0xa9b2b27b357efe41972a9e992134532e
End
Name ="Productstatus"
ControlSource ="Productstatus"
RowSourceType ="Table/Query"
RowSource ="qryProductStatusCbo"
ColumnWidths ="1008"
FontName ="Arial"
OnChange ="[Event Procedure]"
Tag ="Audit"
Format =">"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1425
LayoutCachedTop =2820
LayoutCachedWidth =3075
LayoutCachedHeight =3094
BackThemeColorIndex =2
BackTint =60.0
ForeThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =240
Top =2838
Width =1140
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label488"
Caption ="Prod-Status"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x2845ef190b191843adceeec02bb79ae0
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =240
LayoutCachedTop =2838
LayoutCachedWidth =1380
LayoutCachedHeight =3108
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =4233
Top =2820
Width =1125
Height =274
TabIndex =36
BackColor =14347005
Name ="TransmittalDate"
ControlSource ="TransmittalDate"
Format ="mm/dd/yyyy"
AfterUpdate ="[Event Procedure]"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x9226571629297346b2e15ca966b68e34
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4233
LayoutCachedTop =2820
LayoutCachedWidth =5358
LayoutCachedHeight =3094
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =3153
Top =2838
Width =1035
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label490"
Caption ="NB-TDate"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x15c976a50a27544aa5f079cdad3cebf3
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3153
LayoutCachedTop =2838
LayoutCachedWidth =4188
LayoutCachedHeight =3093
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =6177
Top =2820
Width =960
Height =274
TabIndex =37
BackColor =14347005
Name ="Prodother"
ControlSource ="Prodother"
Tag ="Audit"
GUID = Begin
0x93789d47e576b944aed68c7342cb5675
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6177
LayoutCachedTop =2820
LayoutCachedWidth =7137
LayoutCachedHeight =3094
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =5397
Top =2838
Width =759
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label480"
Caption ="P-Other"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x1de81ab9a77a89469b0f81df2b92fdc7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5397
LayoutCachedTop =2838
LayoutCachedWidth =6156
LayoutCachedHeight =3093
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =7923
Top =2820
Width =675
Height =274
FontSize =10
FontWeight =700
TabIndex =38
BackColor =13995605
ForeColor =16777215
ColumnInfo ="\"\";\"\";\"10\";\"200\""
GUID = Begin
0xae7fc9f307435a48882577feb027f218
End
Name ="Custodialbank"
ControlSource ="Custodialbank"
RowSourceType ="Table/Query"
RowSource ="qryCustodialBankCbo"
ColumnWidths ="1008"
FontName ="Arial"
OnLostFocus ="[Event Procedure]"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7923
LayoutCachedTop =2820
LayoutCachedWidth =8598
LayoutCachedHeight =3094
BackThemeColorIndex =2
BackTint =60.0
ForeThemeColorIndex =1
Begin
Begin Label
OverlapFlags =255
TextAlign =1
TextFontFamily =34
Left =7206
Top =2838
Width =720
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label492"
Caption ="Cst Bk"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x8b8d7d776536994996e115ccc8e32d12
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7206
LayoutCachedTop =2838
LayoutCachedWidth =7926
LayoutCachedHeight =3108
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =9600
Top =2820
Width =1260
Height =274
TabIndex =39
BackColor =14347005
Name ="Fecoll"
ControlSource ="Fecoll"
Format ="$#,##0.00;($#,##0.00)"
Tag ="Audit"
GUID = Begin
0x639fd0688579c347a008210bec0e5d66
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9600
LayoutCachedTop =2820
LayoutCachedWidth =10860
LayoutCachedHeight =3094
BackThemeColorIndex =9
BackTint =20.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =8730
Top =2835
Width =825
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1367"
Caption ="FeColl"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xe74c3f88183d27468e798aea42850af9
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8730
LayoutCachedTop =2835
LayoutCachedWidth =9555
LayoutCachedHeight =3090
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =11739
Top =2820
Width =735
Height =274
FontSize =10
TabIndex =40
BackColor =14347005
GUID = Begin
0xdabfae1b154dbb43a4439501c339f513
End
Name ="Flexoption"
ControlSource ="Flexoption"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
OnChange ="[Event Procedure]"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11739
LayoutCachedTop =2820
LayoutCachedWidth =12474
LayoutCachedHeight =3094
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10980
Top =2838
Width =720
Height =234
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label931"
Caption ="Flex"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xe4b927a166093149bfcf7d2bb4a3ece9
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10980
LayoutCachedTop =2838
LayoutCachedWidth =11700
LayoutCachedHeight =3072
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =1425
Top =3195
Width =780
Height =274
FontSize =10
TabIndex =41
BackColor =15523798
GUID = Begin
0x1f394a96d5b00c4ab8b17af4c16675f8
End
Name ="WantsFund"
ControlSource ="WantsFund"
RowSourceType ="Value List"
RowSource ="Reg;IRA"
ColumnWidths ="1008"
FontName ="Arial"
OnChange ="[Event Procedure]"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1425
LayoutCachedTop =3195
LayoutCachedWidth =2205
LayoutCachedHeight =3469
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =555
Top =3210
Width =810
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1321"
Caption ="Fund"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xaa2f4ff55635334ebce7f5fb411173ab
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =555
LayoutCachedTop =3210
LayoutCachedWidth =1365
LayoutCachedHeight =3465
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =4245
Top =3195
Width =735
Height =274
FontSize =10
TabIndex =42
BackColor =15523798
GUID = Begin
0xfa57545f25120f429cda64ff75a06ef1
End
Name ="freeze"
ControlSource ="freeze"
RowSourceType ="Value List"
RowSource ="Yes;No"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4245
LayoutCachedTop =3195
LayoutCachedWidth =4980
LayoutCachedHeight =3469
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =3390
Top =3210
Width =795
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1323"
Caption ="Freeze"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xa6b8b6f5200a304d87750ebf7917dff1
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3390
LayoutCachedTop =3210
LayoutCachedWidth =4185
LayoutCachedHeight =3465
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =7275
Top =3195
Width =1260
Height =274
TabIndex =43
BackColor =14347005
Name ="Coldolamt"
ControlSource ="Coldolamt"
Format ="$#,##0.00;($#,##0.00)"
Tag ="Audit"
GUID = Begin
0x6ad21d73e4edca43a0165dbe03845a18
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7275
LayoutCachedTop =3195
LayoutCachedWidth =8535
LayoutCachedHeight =3469
BackThemeColorIndex =9
BackTint =20.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =5655
Top =3210
Width =1575
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1333"
Caption ="Col Dol Amt"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x4f35fa2d8b45b543b514221d3a4924c9
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5655
LayoutCachedTop =3210
LayoutCachedWidth =7230
LayoutCachedHeight =3465
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =3
Left =9660
Top =3195
Width =420
Height =274
TabIndex =44
BackColor =14347005
Name ="Colpctincr"
ControlSource ="Colpctincr"
Format ="General Number"
Tag ="Audit"
GUID = Begin
0xdee6a0053bd1734fb41728eb882c8a3b
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9660
LayoutCachedTop =3195
LayoutCachedWidth =10080
LayoutCachedHeight =3469
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =9105
Top =3195
Width =555
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label494"
Caption ="Inc %"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xf5b7c726492e5e4c8d446c1572b9ab76
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9105
LayoutCachedTop =3195
LayoutCachedWidth =9660
LayoutCachedHeight =3465
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =1
Left =11400
Top =3216
Width =1065
Height =274
TabIndex =45
BackColor =14347005
Name ="Parentmseqno"
ControlSource ="Parentmseqno"
Tag ="Audit"
GUID = Begin
0x8b1efcc585e2db4ab818a850a9f64d50
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11400
LayoutCachedTop =3216
LayoutCachedWidth =12465
LayoutCachedHeight =3490
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10605
Top =3231
Width =726
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1331"
Caption ="Par"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x47321c300beac54da044c63d604ff553
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10605
LayoutCachedTop =3231
LayoutCachedWidth =11331
LayoutCachedHeight =3486
ForeThemeColorIndex =0
End
End
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =210
Top =3540
Width =1218
Height =303
FontWeight =700
TabIndex =46
ForeColor =16777215
Name ="cmdTransfer"
Caption ="MOVE"
OnClick ="[Event Procedure]"
GUID = Begin
0x35940f25453dc547a7451a16affe33fc
End
LeftPadding =120
TopPadding =120
RightPadding =132
BottomPadding =132
LayoutCachedLeft =210
LayoutCachedTop =3540
LayoutCachedWidth =1428
LayoutCachedHeight =3843
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =9486586
BorderThemeColorIndex =9
BorderTint =60.0
Shadow =14
SoftEdges =1
WebImagePaddingLeft =8
WebImagePaddingTop =8
WebImagePaddingRight =9
WebImagePaddingBottom =9
Overlaps =1
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =1425
Top =3540
Width =10968
Height =303
TabIndex =47
BackColor =15921906
Name ="Comments"
ControlSource ="Comments"
Tag ="Audit"
GUID = Begin
0x6dbf2344efde2d4695112dc46e8c92e8
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1425
LayoutCachedTop =3540
LayoutCachedWidth =12393
LayoutCachedHeight =3843
BackThemeColorIndex =1
BackShade =95.0
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =1425
Top =3960
Width =1260
Height =274
TabIndex =48
BackColor =14347005
Name ="Lapsedate"
ControlSource ="Lapsedate"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xd0a277daf107a54ab7f83aec75f5e7d4
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1425
LayoutCachedTop =3960
LayoutCachedWidth =2685
LayoutCachedHeight =4234
BackThemeColorIndex =9
BackTint =20.0
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =240
Top =3960
Width =1140
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label727"
Caption ="Status Date"
FontName ="Arial"
GUID = Begin
0x9ac1cf3b9435844e8bf59d5175969cbd
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =240
LayoutCachedTop =3960
LayoutCachedWidth =1380
LayoutCachedHeight =4215
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =255
TextAlign =3
Left =1650
Top =4949
Width =780
Height =274
TabIndex =49
BackColor =15261367
Name ="DbCustodialFee"
ControlSource ="Dbcustodialfee"
Format ="$#,##0.00;($#,##0.00)"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0x609b426dbb841e439ed9fdb9b37abaec
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1650
LayoutCachedTop =4949
LayoutCachedWidth =2430
LayoutCachedHeight =5223
BackThemeColorIndex =8
BackTint =40.0
ForeThemeColorIndex =0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =270
Top =4934
Width =1380
Height =299
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label549"
Caption ="Custodial Fee"
FontName ="Arial"
GUID = Begin
0xb58c764f952f4140b7e63571c2d70a26
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =270
LayoutCachedTop =4934
LayoutCachedWidth =1650
LayoutCachedHeight =5233
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =255
TextAlign =3
Left =3855
Top =4950
Width =1140
Height =274
TabIndex =50
BackColor =15261367
ForeColor =5026082
Name ="Dbgrossbillamt"
ControlSource ="Dbgrossbillamt"
Format ="$#,##0.00;($#,##0.00)"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0xa89c6ba7b2cd4a46a4e468752a96dc0f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3855
LayoutCachedTop =4950
LayoutCachedWidth =4995
LayoutCachedHeight =5224
BackThemeColorIndex =8
BackTint =40.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =3030
Top =4935
Width =825
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label551"
Caption ="Bill Amt"
FontName ="Arial"
GUID = Begin
0x763f2a6beaf9f94c8d08eef1d91bc9bf
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3030
LayoutCachedTop =4935
LayoutCachedWidth =3855
LayoutCachedHeight =5235
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
OverlapFlags =255
TextAlign =2
Left =6441
Top =4701
Width =1260
Height =274
TabIndex =51
BackColor =12444887
Name ="Nextcollectiondate"
ControlSource ="Nextcollectiondate"
Format ="mm/dd/yyyy"
OnExit ="[Event Procedure]"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xaf92b6e0deddce4baacdbbc659c1bd25
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6441
LayoutCachedTop =4701
LayoutCachedWidth =7701
LayoutCachedHeight =4975
BackThemeColorIndex =6
BackTint =40.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =4974
Top =4701
Width =1452
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="lblNextDate"
Caption ="Next Coll Date"
FontName ="Arial"
GUID = Begin
0x70e661320aa5eb418b18e5d3227bb323
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4974
LayoutCachedTop =4701
LayoutCachedWidth =6426
LayoutCachedHeight =4941
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =255
TextAlign =2
Left =11208
Top =4947
Width =1260
Height =274
TabIndex =52
BackColor =15261367
Name ="Dbreceiveddate"
ControlSource ="Dbreceiveddate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x6d018ea12ca92442aa3be28301de005b
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11208
LayoutCachedTop =4947
LayoutCachedWidth =12468
LayoutCachedHeight =5221
BackThemeColorIndex =8
BackTint =40.0
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =10197
Top =4932
Width =930
Height =285
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label555"
Caption ="Received"
FontName ="Arial"
GUID = Begin
0x938065609f316e4a83708d3d374c5375
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10197
LayoutCachedTop =4932
LayoutCachedWidth =11127
LayoutCachedHeight =5217
ForeThemeColorIndex =0
End
End
End
Begin TextBox
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextAlign =2
Left =1650
Top =5340
Width =1260
Height =274
TabIndex =53
BackColor =10257713
BorderColor =15261367
ForeColor =16777215
Name ="Dbnextbilldate"
ControlSource ="Dbnextbilldate"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xcf99a7e79c7ecb4d8a0a2f57c673c1db
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1650
LayoutCachedTop =5340
LayoutCachedWidth =2910
LayoutCachedHeight =5614
BackThemeColorIndex =8
BackShade =75.0
BorderThemeColorIndex =8
BorderTint =40.0
ForeThemeColorIndex =1
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =270
Top =5340
Width =1380
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label559"
Caption ="Next Bill Date"
FontName ="Arial"
GUID = Begin
0x6421e0de9cf9bc4ba725017b0d0b206b
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =270
LayoutCachedTop =5340
LayoutCachedWidth =1650
LayoutCachedHeight =5595
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
OverlapFlags =255
TextAlign =3
Left =5820
Top =5160
Width =1125
Height =274
TabIndex =54
BackColor =15261367
ForeColor =10040879
Name ="Wdcpmtamt"
ControlSource ="Wdcpmtamt"
Format ="$#,##0.00;($#,##0.00)"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0x2a8593f8ae5aeb499bc1e5219e181f32
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5820
LayoutCachedTop =5160
LayoutCachedWidth =6945
LayoutCachedHeight =5434
BackThemeColorIndex =8
BackTint =40.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =5145
Top =5160
Width =675
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label735"
Caption =" Amt"
FontName ="Arial"
GUID = Begin
0x6dc6acf3256e6242b8b282f5a1464b29
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5145
LayoutCachedTop =5160
LayoutCachedWidth =5820
LayoutCachedHeight =5430
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =255
TextAlign =2
Left =6780
Top =5340
Width =1260
Height =274
TabIndex =55
Name ="Dblastbilldate"
ControlSource ="Dblastbilldate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xfb08aaa97f7c3c4b88ae5a1250d6af17
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6780
LayoutCachedTop =5340
LayoutCachedWidth =8040
LayoutCachedHeight =5614
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =5370
Top =5340
Width =1365
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label561"
Caption ="Last Bill Date"
FontName ="Arial"
GUID = Begin
0x5243c6a22ac9d4438eaa452fd01f17a6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5370
LayoutCachedTop =5340
LayoutCachedWidth =6735
LayoutCachedHeight =5595
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
Visible = NotDefault
RowSourceTypeInt =1
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
Left =11223
Top =5157
Width =1245
Height =274
FontSize =10
TabIndex =56
BackColor =15523798
GUID = Begin
0xcfc945a0fd4d064fa3578d1970ba5797
End
Name ="Wdccycle"
ControlSource ="Wdccycle"
RowSourceType ="Value List"
RowSource ="Monthly;Biweekly;WDC;Annual"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11223
LayoutCachedTop =5157
LayoutCachedWidth =12468
LayoutCachedHeight =5431
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =10362
Top =5157
Width =765
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label739"
Caption ="Cycle"
FontName ="Arial"
GUID = Begin
0xa7e64ee0bb510d479ddf53d5711b3f2d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10362
LayoutCachedTop =5157
LayoutCachedWidth =11127
LayoutCachedHeight =5427
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =255
TextAlign =2
Left =11208
Top =5337
Width =1260
Height =274
TabIndex =57
BackColor =15261367
Name ="Dbremitteddate"
ControlSource ="Dbremitteddate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x899511e73fa8a7448d85e1752d2ab401
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11208
LayoutCachedTop =5337
LayoutCachedWidth =12468
LayoutCachedHeight =5611
BackThemeColorIndex =8
BackTint =40.0
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =10197
Top =5337
Width =930
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label557"
Caption ="Remitted"
FontName ="Arial"
GUID = Begin
0x1c198684dbdbe84280d99b39fb89f0c6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10197
LayoutCachedTop =5337
LayoutCachedWidth =11127
LayoutCachedHeight =5637
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =2943
Top =7113
Width =1740
Height =274
FontSize =10
TabIndex =58
BackColor =14347005
ColumnInfo ="\"\";\"\";\"10\";\"200\""
GUID = Begin
0xdc3a87309aa1814bbb0f768820b1ea6d
End
Name ="PaymentStatus"
ControlSource ="PaymentStatus"
RowSourceType ="Table/Query"
RowSource ="qryPaymentStatusCbo"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2943
LayoutCachedTop =7113
LayoutCachedWidth =4683
LayoutCachedHeight =7387
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =480
Top =7095
Width =2406
Height =264
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label569"
Caption ="Payment Status"
FontName ="Arial"
GUID = Begin
0xf5610eb2d6fab749a6170351d151ef47
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =480
LayoutCachedTop =7095
LayoutCachedWidth =2886
LayoutCachedHeight =7359
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =6519
Top =7113
Width =1260
Height =274
TabIndex =59
BackColor =12444887
Name ="Nextremittancedate"
ControlSource ="Nextremittancedate"
Format ="mm/dd/yyyy"
OnExit ="[Event Procedure]"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x5338528d65801646976ea26f4e99d8ce
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6519
LayoutCachedTop =7113
LayoutCachedWidth =7779
LayoutCachedHeight =7387
BackThemeColorIndex =6
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =4860
Top =7095
Width =1620
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="lblFirstRemDate"
Caption ="Next Remit Date"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xaaf6881f35a0f0459366db7f6ff93dd7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4860
LayoutCachedTop =7095
LayoutCachedWidth =6480
LayoutCachedHeight =7365
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =10968
Top =7113
Width =1500
Height =274
TabIndex =60
BackColor =15261367
Name ="Lastremdate"
ControlSource ="Lastremdate"
Format ="mm/dd/yyyy"
AfterUpdate ="[Event Procedure]"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xafbc356a4f9eb74ca54398a6a2cb653a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10968
LayoutCachedTop =7113
LayoutCachedWidth =12468
LayoutCachedHeight =7387
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =8640
Top =7095
Width =2268
Height =264
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label579"
Caption ="Last Remit Date"
FontName ="Arial"
GUID = Begin
0xa64b3391af2d934aa84e375530f232bc
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8640
LayoutCachedTop =7095
LayoutCachedWidth =10908
LayoutCachedHeight =7359
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =11268
Top =6753
Width =1200
Height =274
FontSize =10
TabIndex =61
BackColor =14347005
GUID = Begin
0xe7bce37b6f20de4987148b52abe904e7
End
Name ="Rempmtcycle"
ControlSource ="Rempmtcycle"
RowSourceType ="Value List"
RowSource ="Monthly;Biweekly;WDC;Annual"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11268
LayoutCachedTop =6753
LayoutCachedWidth =12468
LayoutCachedHeight =7027
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =8517
Top =6738
Width =2694
Height =264
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label567"
Caption ="Remittance Payment Cycle"
FontName ="Arial"
GUID = Begin
0xe7e648394d980c4781ca90ca1e4e1561
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8517
LayoutCachedTop =6738
LayoutCachedWidth =11211
LayoutCachedHeight =7002
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
ColumnCount =2
Left =1425
Top =7842
Width =1320
Height =300
FontSize =10
TabIndex =62
BackColor =14347005
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"30\""
GUID = Begin
0x2af222d664556344904e7d2854b1acad
End
Name ="Agentid"
ControlSource ="Agentid"
RowSourceType ="Table/Query"
RowSource ="qryAgentCboM"
ColumnWidths ="1008;0"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
FontName ="Arial"
OnMouseUp ="[Event Procedure]"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1425
LayoutCachedTop =7842
LayoutCachedWidth =2745
LayoutCachedHeight =8142
End
Begin ComboBox
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
ColumnCount =2
ListWidth =3456
Left =2808
Top =7860
Width =3599
Height =300
FontSize =10
TabIndex =63
BackColor =15523798
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"0\""
GUID = Begin
0x59719a0f8ae42742a47ba67c8a75f2d2
End
Name ="AgentName"
ControlSource ="Agentid"
RowSourceType ="Table/Query"
RowSource ="qryAgentCboM"
ColumnWidths ="0;3456"
FontName ="Arial"
OnMouseUp ="[Event Procedure]"
Tag ="Audit"
BaseInfo ="\"qryAgentCboM\";\"tblContractsV2\";\"tblAgentV2\";\"\""
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2808
LayoutCachedTop =7860
LayoutCachedWidth =6407
LayoutCachedHeight =8160
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =3
Left =7530
Top =7860
Width =999
Height =274
TabIndex =64
Name ="PrcBusagent1"
ControlSource ="PrcBusagent1"
Format ="Percent"
AfterUpdate ="[Event Procedure]"
Tag ="Audit"
GUID = Begin
0xc2522a2665385a4ea10b67c01bc7b497
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7530
LayoutCachedTop =7860
LayoutCachedWidth =8529
LayoutCachedHeight =8134
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =6408
Top =7880
Width =1062
Height =261
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label597"
Caption ="% Business"
FontName ="Arial"
GUID = Begin
0x4e2516dd12236747baf8e624b418fe7b
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6408
LayoutCachedTop =7880
LayoutCachedWidth =7470
LayoutCachedHeight =8141
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =11643
Top =7881
Width =825
Height =274
FontSize =10
TabIndex =65
BackColor =14347005
ColumnInfo ="\"\";\"\";\"10\";\"200\""
GUID = Begin
0x3b001fa9e8ef134793032b3db311bcf1
End
Name ="Writingstate"
ControlSource ="Writingstate"
RowSourceType ="Table/Query"
RowSource ="qryStates"
DefaultValue ="\"CA\""
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11643
LayoutCachedTop =7881
LayoutCachedWidth =12468
LayoutCachedHeight =8155
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10008
Top =7886
Width =1500
Height =351
FontSize =10
FontWeight =700
BackColor =14277081
ForeColor =6108695
Name ="Label475"
Caption =" State Issued"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x4e2d0e0e7ad15b41b0692e646202be46
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10008
LayoutCachedTop =7886
LayoutCachedWidth =11508
LayoutCachedHeight =8237
BackThemeColorIndex =1
BackShade =85.0
End
End
End
Begin ComboBox
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
ColumnCount =2
Left =1425
Top =8262
Width =1320
Height =300
FontSize =10
TabIndex =66
BackColor =15523798
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"30\""
GUID = Begin
0x6ce1110a21447f49b64ad29f194e4533
End
Name ="AgentID2"
ControlSource ="Agentid2"
RowSourceType ="Table/Query"
RowSource ="qryAgentCboM"
ColumnWidths ="1008;0"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
FontName ="Arial"
OnMouseUp ="[Event Procedure]"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1425
LayoutCachedTop =8262
LayoutCachedWidth =2745
LayoutCachedHeight =8562
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
ColumnCount =2
ListWidth =3456
Left =2807
Top =8259
Width =3600
Height =300
FontSize =10
TabIndex =67
BackColor =15523798
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"0\""
GUID = Begin
0x3f12dd7ca09cad48a0892883a862979c
End
Name ="AgentName2"
ControlSource ="Agentid2"
RowSourceType ="Table/Query"
RowSource ="qryAgentCboM"
ColumnWidths ="0;3456"
BeforeUpdate ="[Event Procedure]"
FontName ="Arial"
OnMouseDown ="[Event Procedure]"
Tag ="Audit"
BaseInfo ="\"qryAgentCboM\";\"tblContractsV2\";\"tblAgentV2\";\"\""
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2807
LayoutCachedTop =8259
LayoutCachedWidth =6407
LayoutCachedHeight =8559
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
OverlapFlags =247
TextAlign =3
Left =7530
Top =8259
Width =999
Height =274
TabIndex =68
BackColor =12835293
Name ="PrcBusagent2"
ControlSource ="PrcBusagent2"
Format ="Percent"
Tag ="Audit"
GUID = Begin
0x94ee4d90cdfa744ca99d1623b48c2590
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7530
LayoutCachedTop =8259
LayoutCachedWidth =8529
LayoutCachedHeight =8533
BackThemeColorIndex =3
BackShade =90.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =6408
Top =8259
Width =1062
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label602"
Caption ="% Business"
FontName ="Arial"
GUID = Begin
0xe886b8d7d9fb3646b1241d121805b046
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6408
LayoutCachedTop =8259
LayoutCachedWidth =7470
LayoutCachedHeight =8559
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =11643
Top =8259
Width =825
Height =274
FontSize =10
TabIndex =69
BackColor =15523798
GUID = Begin
0xcda977ccd1b2474286f9b04fd77b62ee
End
Name ="Controlledbus"
ControlSource ="Controlledbus"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11643
LayoutCachedTop =8259
LayoutCachedWidth =12468
LayoutCachedHeight =8533
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10008
Top =8272
Width =1500
Height =330
FontSize =10
FontWeight =700
BackColor =14277081
ForeColor =0
Name ="Label963"
Caption ="Controlled Bus"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x19377a7958da114ebc5ddab4d26de730
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10008
LayoutCachedTop =8272
LayoutCachedWidth =11508
LayoutCachedHeight =8602
BackThemeColorIndex =1
BackShade =85.0
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
Left =11208
Top =4698
Width =1260
Height =274
TabIndex =70
BackColor =15261367
Name ="LastCollDate"
ControlSource ="LastCollDate"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x7bd87b9edb411c4d87e48800d1c75838
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11208
LayoutCachedTop =4698
LayoutCachedWidth =12468
LayoutCachedHeight =4972
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =9693
Top =4698
Width =1440
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="lblLastDate"
Caption ="Last Coll Date"
FontName ="Arial"
GUID = Begin
0x3cf38ab2ff21a6459c06e6c976d2d268
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9693
LayoutCachedTop =4698
LayoutCachedWidth =11133
LayoutCachedHeight =4938
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
OverlapFlags =255
TextAlign =3
Left =1755
Top =5055
Width =780
Height =274
TabIndex =71
BackColor =15261367
Name ="Eftcustodialfee"
ControlSource ="Eftcustodialfee"
Format ="$#,##0.00;($#,##0.00)"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0xae05ca6035fad1428372d42b84094a36
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1755
LayoutCachedTop =5055
LayoutCachedWidth =2535
LayoutCachedHeight =5329
BackThemeColorIndex =8
BackTint =40.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =270
Top =5055
Width =1470
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label506"
Caption ="Custodial Fee"
FontName ="Arial"
GUID = Begin
0xeb9330aa8dd4b94bacd929a1ee7f365f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =270
LayoutCachedTop =5055
LayoutCachedWidth =1740
LayoutCachedHeight =5355
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
OverlapFlags =255
TextAlign =3
Left =6450
Top =5055
Width =1260
Height =274
TabIndex =72
BackColor =15261367
Name ="Eftgrosscollamt"
ControlSource ="Eftgrosscollamt"
Format ="$#,##0.00;($#,##0.00)"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0x9f7cbebeb56bee46911a1a00f54973fc
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6450
LayoutCachedTop =5055
LayoutCachedWidth =7710
LayoutCachedHeight =5329
BackThemeColorIndex =8
BackTint =40.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =5325
Top =5055
Width =1125
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label508"
Caption ="Gross Amt"
FontName ="Arial"
GUID = Begin
0x03791c53329e334594ea67d5d74d68ab
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5325
LayoutCachedTop =5055
LayoutCachedWidth =6450
LayoutCachedHeight =5355
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
Visible = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =11223
Top =5052
Width =1245
Height =288
FontSize =10
TabIndex =73
BackColor =15523798
GUID = Begin
0xb6410fb98aca5c4a8b0360b76f09be9d
End
Name ="Eftcollcycle"
ControlSource ="Eftcollcycle"
RowSourceType ="Value List"
RowSource ="Biweekly;Monthly;Annual"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11223
LayoutCachedTop =5052
LayoutCachedWidth =12468
LayoutCachedHeight =5340
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =9747
Top =5052
Width =1380
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label510"
Caption ="Coll Cycle"
FontName ="Arial"
GUID = Begin
0x00dabab6f5fb3744a10b817eb925e22c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9747
LayoutCachedTop =5052
LayoutCachedWidth =11127
LayoutCachedHeight =5322
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
OverlapFlags =255
TextAlign =2
Left =4095
Top =5415
Width =1260
Height =274
TabIndex =74
BackColor =14347005
Name ="ExpLtrSentDate"
ControlSource ="ExpLtrSentDate"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xcca74cf066e4954592083339629716fd
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4095
LayoutCachedTop =5415
LayoutCachedWidth =5355
LayoutCachedHeight =5689
BackThemeColorIndex =9
BackTint =20.0
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =2715
Top =5415
Width =1380
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label702"
Caption ="Letter Sent"
FontName ="Arial"
GUID = Begin
0xde15c95c9ebfe14e9042b2a032f1543c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2715
LayoutCachedTop =5415
LayoutCachedWidth =4095
LayoutCachedHeight =5670
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
OverlapFlags =255
TextAlign =2
Left =7020
Top =5415
Width =1260
Height =274
TabIndex =75
BackColor =14347005
Name ="CCardExpDate"
ControlSource ="CCardExpDate"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x2dbec7d51fc3d846b302bc8b6283aec5
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7020
LayoutCachedTop =5415
LayoutCachedWidth =8280
LayoutCachedHeight =5689
BackThemeColorIndex =9
BackTint =20.0
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =5985
Top =5415
Width =960
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label700"
Caption ="Exp Date"
FontName ="Arial"
GUID = Begin
0xa5acb60d69a6f844916f6f9eb4e94ef3
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5985
LayoutCachedTop =5415
LayoutCachedWidth =6945
LayoutCachedHeight =5670
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
DecimalPlaces =0
OverlapFlags =255
TextAlign =3
Left =10533
Top =5427
Width =1935
Height =274
TabIndex =76
BackColor =14347005
Name ="CCardNo"
ControlSource ="CCardNo"
Format ="General Number"
Tag ="Audit"
GUID = Begin
0xb20461b84b9e204088db394362158496
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10533
LayoutCachedTop =5427
LayoutCachedWidth =12468
LayoutCachedHeight =5701
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =9621
Top =5427
Width =660
Height =285
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label692"
Caption ="Acct #"
FontName ="Arial"
GUID = Begin
0xa07ea92dc6cf604b81349686c9cd0b99
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9621
LayoutCachedTop =5427
LayoutCachedWidth =10281
LayoutCachedHeight =5712
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =2304
Top =6000
Width =8244
Height =274
TabIndex =77
BackColor =14347005
Name ="Eftcomments"
ControlSource ="Eftcomments"
AfterUpdate ="[Event Procedure]"
Tag ="Audit"
GUID = Begin
0x6ad2c7ee2b792347985f53c52c444b37
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2304
LayoutCachedTop =6000
LayoutCachedWidth =10548
LayoutCachedHeight =6274
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
BorderWidth =2
OverlapFlags =247
TextFontFamily =34
Left =315
Top =6026
Width =1965
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label502"
Caption ="Scheduled Change:"
FontName ="Arial"
GUID = Begin
0xe7899878a33a5448b2f982651bbc35b8
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =315
LayoutCachedTop =6026
LayoutCachedWidth =2280
LayoutCachedHeight =6266
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
Visible = NotDefault
RowSourceTypeInt =1
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
Left =4710
Top =5430
Width =1140
Height =274
FontSize =10
TabIndex =78
BackColor =15523798
GUID = Begin
0x4d5cc9dcde4cb647a2fece92e3c2e250
End
Name ="CheckSave"
ControlSource ="CheckSave"
RowSourceType ="Value List"
RowSource ="Checking;Savings"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
InheritValueList =255
LayoutCachedLeft =4710
LayoutCachedTop =5430
LayoutCachedWidth =5850
LayoutCachedHeight =5704
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =3462
Top =5430
Width =1248
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label512"
Caption ="Chekc/Sav"
FontName ="Arial"
GUID = Begin
0x83d1850dd7f0144597bd2b27aee8e23e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3462
LayoutCachedTop =5430
LayoutCachedWidth =4710
LayoutCachedHeight =5700
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
DecimalPlaces =0
OverlapFlags =255
TextAlign =3
Left =7350
Top =5430
Width =960
Height =274
FontWeight =700
TabIndex =79
BackColor =10040879
ForeColor =16777215
Name ="TransitRouteNo"
ControlSource ="TransitRouteNo"
Format ="General Number"
InputMask ="00000000"
Tag ="Audit"
GUID = Begin
0xa0ca9e013ed56e4da351130ce09b915c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7350
LayoutCachedTop =5430
LayoutCachedWidth =8310
LayoutCachedHeight =5704
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =5970
Top =5430
Width =1320
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label519"
Caption ="Trans Route #"
FontName ="Arial"
GUID = Begin
0xa2943ddd2f13814da5a77be60233cb23
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5970
LayoutCachedTop =5430
LayoutCachedWidth =7290
LayoutCachedHeight =5700
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
DecimalPlaces =0
OverlapFlags =247
TextAlign =3
Left =9063
Top =5430
Width =240
Height =274
FontWeight =700
TabIndex =80
BackColor =10040879
ForeColor =16777215
Name ="TRNo"
ControlSource ="TRNo"
Format ="General Number"
InputMask ="0"
Tag ="Audit"
GUID = Begin
0x6969c265984d1b46ba5b0f7348d56c47
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9063
LayoutCachedTop =5430
LayoutCachedWidth =9303
LayoutCachedHeight =5704
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =8403
Top =5430
Width =660
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label517"
Caption ="T/R #"
FontName ="Arial"
GUID = Begin
0x0a302f2e24e2f94b9ab214ac7542b807
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8403
LayoutCachedTop =5430
LayoutCachedWidth =9063
LayoutCachedHeight =5700
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
DecimalPlaces =0
SpecialEffect =0
OverlapFlags =247
TextAlign =3
Left =10362
Top =5427
Width =2106
Height =274
FontWeight =700
TabIndex =81
BackColor =10040879
ForeColor =16777215
Name ="AccountNo"
ControlSource ="AccountNo"
Format ="General Number"
AfterUpdate ="[Event Procedure]"
Tag ="Audit"
GUID = Begin
0xbb34db2a87d5f5408ae53acb2c258b83
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10362
LayoutCachedTop =5427
LayoutCachedWidth =12468
LayoutCachedHeight =5701
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =9543
Top =5427
Width =909
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label521"
Caption ="Acct #"
FontName ="Arial"
GUID = Begin
0x642ee34fda51f340ac0dd1a643d12b34
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9543
LayoutCachedTop =5427
LayoutCachedWidth =10452
LayoutCachedHeight =5697
ForeThemeColorIndex =0
End
End
End
Begin CommandButton
Visible = NotDefault
TabStop = NotDefault
OverlapFlags =255
TextFontCharSet =0
Left =7020
Top =4380
Width =783
Height =241
FontWeight =700
TabIndex =82
ForeColor =16777215
Name ="cmdCCard"
Caption ="CCARD"
OnClick ="[Event Procedure]"
GUID = Begin
0x0431be282424e3408016e2f09bf08b66
End
LayoutCachedLeft =7020
LayoutCachedTop =4380
LayoutCachedWidth =7803
LayoutCachedHeight =4621
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =12349952
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
OverlapFlags =255
TextAlign =2
Left =1761
Top =4701
Width =1260
Height =274
TabIndex =83
BackColor =15261367
Name ="PreNoteDate"
ControlSource ="PreNoteDate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x1838a3b20589b749a4151bf8bcf188e9
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1761
LayoutCachedTop =4701
LayoutCachedWidth =3021
LayoutCachedHeight =4975
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =300
Top =4701
Width =1416
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="lblNoteDate"
Caption ="Pre Note Date"
FontName ="Arial"
GUID = Begin
0x5bf6f72d29dcfc4497110aaf1c901c06
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =300
LayoutCachedTop =4701
LayoutCachedWidth =1716
LayoutCachedHeight =4941
ForeThemeColorIndex =0
End
End
End
Begin CommandButton
Visible = NotDefault
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =225
Top =4815
Width =2013
Height =331
FontWeight =700
TabIndex =84
ForeColor =16777215
Name ="cmdEmp"
Caption ="EMPLOYER GROUP ID"
OnClick ="[Event Procedure]"
GUID = Begin
0x226dbe9435dded408caefa25a90ea1b4
End
LayoutCachedLeft =225
LayoutCachedTop =4815
LayoutCachedWidth =2238
LayoutCachedHeight =5146
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin TextBox
Visible = NotDefault
OverlapFlags =247
TextAlign =3
Left =2235
Top =4860
Width =960
Height =274
FontWeight =700
TabIndex =85
BackColor =14347005
Name ="IsmaId3"
ControlSource ="IsmaId3"
AfterUpdate ="[Event Procedure]"
Tag ="Audit"
GUID = Begin
0x8799c03dc350054aa7b84c35f396bede
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2235
LayoutCachedTop =4860
LayoutCachedWidth =3195
LayoutCachedHeight =5134
BackThemeColorIndex =9
BackTint =20.0
ForeThemeColorIndex =0
End
Begin ComboBox
LimitToList = NotDefault
Visible = NotDefault
OverlapFlags =255
TextFontCharSet =0
ColumnCount =2
Left =3255
Top =4860
Width =4965
Height =274
FontSize =10
TabIndex =86
BackColor =15523798
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"100\""
GUID = Begin
0x4c037231551ef442b58dcbd6809c78a5
End
Name ="IsmaId31"
ControlSource ="IsmaId3"
RowSourceType ="Table/Query"
RowSource ="qryEmployerCbo"
ColumnWidths ="0;2160"
DefaultValue ="[qryPayorCbo]"
FontName ="Arial"
Tag ="Audit"
BaseInfo ="\"qryEmployerCbo\";\"tblEmployer\";\"\";\"GroupId\";\"CompanyName\";\"aaaaatblEm"
"ployer_PK\""
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3255
LayoutCachedTop =4860
LayoutCachedWidth =8220
LayoutCachedHeight =5134
ForeThemeColorIndex =0
End
Begin TextBox
Visible = NotDefault
TabStop = NotDefault
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =6780
Top =4950
Width =1260
Height =274
TabIndex =87
ForeColor =5026082
Name ="Dbremitamt"
ControlSource ="Dbremitamt"
Format ="$#,##0.00;($#,##0.00)"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0xf278373302d1854bb5d6194231a8b302
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6780
LayoutCachedTop =4950
LayoutCachedWidth =8040
LayoutCachedHeight =5224
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =6123
Top =4935
Width =612
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label553"
Caption ="Remit"
FontName ="Arial"
GUID = Begin
0xce0024e5aa0da44f82afb421505b00af
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6123
LayoutCachedTop =4935
LayoutCachedWidth =6735
LayoutCachedHeight =5235
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
OverlapFlags =247
TextAlign =3
Left =4095
Top =5235
Width =780
Height =274
TabIndex =88
BackColor =15261367
Name ="Prdcustodialfee"
ControlSource ="Prdcustodialfee"
Format ="$#,##0.00;($#,##0.00)"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0xcc690c0a43df1f448c280419e49b6022
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4095
LayoutCachedTop =5235
LayoutCachedWidth =4875
LayoutCachedHeight =5509
BackThemeColorIndex =8
BackTint =40.0
ForeThemeColorIndex =0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =270
Top =5235
Width =3780
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label533"
Caption ="Custodial Fee (Limit one per Employee)"
FontName ="Arial"
GUID = Begin
0xaf14eb987c2aa14f84457a7fa47631ef
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =270
LayoutCachedTop =5235
LayoutCachedWidth =4050
LayoutCachedHeight =5535
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
OverlapFlags =247
TextAlign =3
Left =6900
Top =5235
Width =1140
Height =274
TabIndex =89
BackColor =15261367
Name ="Prdgrosscollamt"
ControlSource ="Prdgrosscollamt"
Format ="$#,##0.00;($#,##0.00)"
AfterUpdate ="[Event Procedure]"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0x1bc733ccdc4b9b4fa37ae5c601b1e76d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6900
LayoutCachedTop =5235
LayoutCachedWidth =8040
LayoutCachedHeight =5509
BackThemeColorIndex =8
BackTint =40.0
ForeThemeColorIndex =0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =5805
Top =5235
Width =1080
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label535"
Caption ="Gross Amt"
FontName ="Arial"
GUID = Begin
0x8eea2c00e7831046a6bf5b9b70b92365
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5805
LayoutCachedTop =5235
LayoutCachedWidth =6885
LayoutCachedHeight =5535
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
Visible = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =4380
Top =5580
Width =1200
Height =274
FontSize =10
TabIndex =90
BackColor =15523798
GUID = Begin
0x152a5d8cd75e4b46bfd07669ed5bfb2a
End
Name ="Prdbillingcycle"
ControlSource ="Prdbillingcycle"
RowSourceType ="Value List"
RowSource ="Biweekly;Monthly"
ColumnWidths ="1008"
AfterUpdate ="[Event Procedure]"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4380
LayoutCachedTop =5580
LayoutCachedWidth =5580
LayoutCachedHeight =5854
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =3120
Top =5580
Width =1200
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label539"
Caption ="Billing Cycle"
FontName ="Arial"
GUID = Begin
0x8364db21db63aa48b317381c49efbffd
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3120
LayoutCachedTop =5580
LayoutCachedWidth =4320
LayoutCachedHeight =5850
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
Visible = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =1515
Top =5595
Width =1545
Height =274
FontSize =10
TabIndex =91
BackColor =15523798
GUID = Begin
0x8c37d7292c80d34a806f989b9b5a4c6f
End
Name ="DeductionCycle"
ControlSource ="DeductionCycle"
RowSourceType ="Value List"
RowSource ="Weekly;Biweekly;Semi-Monthly;Monthly"
ColumnWidths ="1008"
AfterUpdate ="[Event Procedure]"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1515
LayoutCachedTop =5595
LayoutCachedWidth =3060
LayoutCachedHeight =5869
ForeThemeColorIndex =0
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =270
Top =5595
Width =1140
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label537"
Caption ="Pay Period"
FontName ="Arial"
GUID = Begin
0x76141d977c595a44a42c09bf2831d17f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =270
LayoutCachedTop =5595
LayoutCachedWidth =1410
LayoutCachedHeight =5865
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =3
Left =6900
Top =5595
Width =1140
Height =274
TabIndex =92
BackColor =14806254
ForeColor =10040879
Name ="Calcbillamt"
ControlSource ="Calcbillamt"
Format ="$#,##0.00;($#,##0.00)"
DefaultValue ="0"
Tag ="Audit"
GUID = Begin
0x73123aa20ec35641bece0dbd0769c389
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6900
LayoutCachedTop =5595
LayoutCachedWidth =8040
LayoutCachedHeight =5869
BackThemeColorIndex =3
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =6108
Top =5595
Width =792
Height =300
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label543"
Caption ="Bill Amt"
FontName ="Arial"
GUID = Begin
0x3db07465687881438ede9d56b1e0c21f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6108
LayoutCachedTop =5595
LayoutCachedWidth =6900
LayoutCachedHeight =5895
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OldBorderStyle =0
OverlapFlags =247
TextAlign =2
Left =11235
Top =6009
Width =1260
Height =274
TabIndex =93
BackColor =14347005
Name ="Eftasofdate"
ControlSource ="Eftasofdate"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x569ba61668c0574f8df4271f552cbbdc
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11235
LayoutCachedTop =6009
LayoutCachedWidth =12495
LayoutCachedHeight =6283
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10575
Top =6026
Width =585
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1327"
Caption ="As Of:"
FontName ="Arial"
GUID = Begin
0x049a24de89cf5f4cac185415c23ad3bd
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10575
LayoutCachedTop =6026
LayoutCachedWidth =11160
LayoutCachedHeight =6266
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =2955
Top =6753
Width =1725
Height =274
FontWeight =700
TabIndex =94
BackColor =15261367
ForeColor =2366701
Name ="RemittancePmtAmt"
ControlSource ="RemittancePmtAmt"
Format ="$#,##0.00;($#,##0.00)"
DefaultValue ="0"
GUID = Begin
0xb27b2f9f914e8943b3b79bf43b060ebe
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2955
LayoutCachedTop =6753
LayoutCachedWidth =4680
LayoutCachedHeight =7027
BackThemeColorIndex =8
BackTint =40.0
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =240
Top =6738
Width =2640
Height =294
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label565"
Caption ="Remittance Payment Amt"
FontName ="Arial"
GUID = Begin
0xf864be2d210be4459a3a9098d4a51216
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =240
LayoutCachedTop =6738
LayoutCachedWidth =2880
LayoutCachedHeight =7032
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
Visible = NotDefault
TabStop = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =7020
Top =6780
FontSize =10
TabIndex =95
BackColor =14347005
GUID = Begin
0x62a53aec8e3e2a4aa4740c9a70eed1f6
End
Name ="Combo"
ControlSource ="Combo"
RowSourceType ="Value List"
RowSource ="Y;N"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
GroupTable =5
GridlineColor =10921638
LayoutCachedLeft =7020
LayoutCachedTop =6780
LayoutCachedWidth =8460
LayoutCachedHeight =7020
ColumnStart =1
ColumnEnd =1
LayoutGroup =5
BackThemeColorIndex =9
BackTint =20.0
GridlineThemeColorIndex =1
GridlineShade =65.0
GroupTable =5
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =5520
Top =6780
Width =1440
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label959"
Caption ="Combo"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x7c9678f76cd8654e908e6bf4d5236788
End
GroupTable =5
GridlineColor =10921638
LayoutCachedLeft =5520
LayoutCachedTop =6780
LayoutCachedWidth =6960
LayoutCachedHeight =7020
LayoutGroup =5
ForeThemeColorIndex =0
GridlineThemeColorIndex =1
GridlineShade =65.0
GroupTable =5
End
End
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =213
Top =7839
Width =1218
Height =331
FontWeight =700
TabIndex =96
ForeColor =16777215
Name ="cmdAgent1"
Caption ="AGENT ID1"
OnClick ="[Event Procedure]"
GUID = Begin
0x11728631e235394cb4bce887edd0fef5
End
LeftPadding =72
TopPadding =72
RightPadding =72
BottomPadding =72
LayoutCachedLeft =213
LayoutCachedTop =7839
LayoutCachedWidth =1431
LayoutCachedHeight =8170
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =-2147483619
Shadow =17
SoftEdges =1
WebImagePaddingLeft =5
WebImagePaddingTop =5
WebImagePaddingRight =5
WebImagePaddingBottom =5
Overlaps =1
End
Begin ComboBox
LimitToList = NotDefault
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
BackStyle =0
ColumnCount =3
ListWidth =432
Left =8688
Top =7860
Width =599
Height =300
FontSize =10
TabIndex =97
BackColor =14277081
ColumnInfo ="\"\";\"\";\"\";\"\";\"\";\"\";\"10\";\"510\""
GUID = Begin
0x81962fb8135f0244bf22f40c36a763fd
End
Name ="AgentStatus"
ControlSource ="Agentid"
RowSourceType ="Table/Query"
RowSource ="qryAgentCboM"
ColumnWidths ="0;0;432"
FontName ="Arial"
BaseInfo ="\"qryAgentCboM\";\"tblContractsV2\";\"tblAgentV2\";\"\""
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8688
LayoutCachedTop =7860
LayoutCachedWidth =9287
LayoutCachedHeight =8160
BackThemeColorIndex =1
BackShade =85.0
End
Begin ComboBox
LimitToList = NotDefault
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
BackStyle =0
ColumnCount =3
ListWidth =432
Left =8688
Top =8220
Width =599
Height =300
FontSize =10
TabIndex =98
BackColor =14277081
ColumnInfo ="\"\";\"\";\"\";\"\";\"\";\"\";\"10\";\"510\""
GUID = Begin
0xaafd8472d47c8f4fbc1d2215682451b4
End
Name ="AgentStatus2"
ControlSource ="Agentid2"
RowSourceType ="Table/Query"
RowSource ="qryAgentCboM"
ColumnWidths ="0;0;432"
FontName ="Arial"
BaseInfo ="\"qryAgentCboM\";\"tblContractsV2\";\"tblAgentV2\";\"\""
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8688
LayoutCachedTop =8220
LayoutCachedWidth =9287
LayoutCachedHeight =8520
BackThemeColorIndex =1
BackShade =85.0
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =213
Top =8247
Width =1218
Height =331
FontWeight =700
TabIndex =99
ForeColor =16777215
Name ="cmdAgent2"
Caption ="AGENT ID2"
OnClick ="[Event Procedure]"
GUID = Begin
0x518208ba12fdf540a638913a86a2c851
End
LayoutCachedLeft =213
LayoutCachedTop =8247
LayoutCachedWidth =1431
LayoutCachedHeight =8578
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =255
TextAlign =2
Left =1938
Top =8700
Width =1260
Height =274
TabIndex =100
BackColor =14347005
Name ="Delreceipt"
ControlSource ="Delreceipt"
Format ="mm/dd/yyyy"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x1b7ff65bb81ba540a611889523440700
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1938
LayoutCachedTop =8700
LayoutCachedWidth =3198
LayoutCachedHeight =8974
BackThemeColorIndex =9
BackTint =20.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =240
Top =8700
Width =1635
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1374"
Caption ="Delivery Receipt"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x4ce859c90441224a9a34d4e55b5f50ab
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =240
LayoutCachedTop =8700
LayoutCachedWidth =1875
LayoutCachedHeight =8955
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =255
TextAlign =3
BackStyle =0
Left =3180
Top =8700
Width =780
Height =274
TabIndex =101
BackColor =2500134
ForeColor =5026082
Name ="PPmt"
ControlSource ="PPmt"
Format ="$#,##0.00;($#,##0.00)"
Tag ="RemitanceInfo"
GUID = Begin
0xe1bb72921ff668409c6f777179f224a4
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3180
LayoutCachedTop =8700
LayoutCachedWidth =3960
LayoutCachedHeight =8974
BackThemeColorIndex =0
BackTint =85.0
CurrencySymbol ="$"
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =3960
Top =8700
Width =780
Height =274
TabIndex =102
BackColor =2500134
ForeColor =5026082
Name ="MEpmt"
ControlSource ="MEpmt"
Format ="$#,##0.00;($#,##0.00)"
Tag ="RemitanceInfo"
GUID = Begin
0xb7b269d1da340349baa5542d134230e4
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3960
LayoutCachedTop =8700
LayoutCachedWidth =4740
LayoutCachedHeight =8974
BackThemeColorIndex =0
BackTint =85.0
CurrencySymbol ="$"
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =4800
Top =8700
Width =840
Height =274
TabIndex =103
BackColor =2500134
ForeColor =5026082
Name ="IEpmt"
ControlSource ="IEpmt"
Format ="$#,##0.00;($#,##0.00)"
Tag ="RemitanceInfo"
GUID = Begin
0xd5bf8691e8a7b346a0cdbd6e6a490ae5
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4800
LayoutCachedTop =8700
LayoutCachedWidth =5640
LayoutCachedHeight =8974
BackThemeColorIndex =0
BackTint =85.0
CurrencySymbol ="$"
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =1
BackStyle =0
Left =5790
Top =8700
Width =1140
Height =274
TabIndex =104
BackColor =2500134
ForeColor =5026082
Name ="Achinitdate"
ControlSource ="Achinitdate"
Format ="mm/dd/yyyy"
Tag ="RemitanceInfo"
GUID = Begin
0x27f04c48f8728d4ea744468585af6861
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5790
LayoutCachedTop =8700
LayoutCachedWidth =6930
LayoutCachedHeight =8974
BackThemeColorIndex =0
BackTint =85.0
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =9645
Top =8700
Width =1125
Height =274
TabIndex =105
BackColor =15527148
ForeColor =9211020
Name ="ClientPayorssn"
ControlSource ="ClientPayorssn"
GUID = Begin
0xa645e6e63aa9944fa1f336e99a45c253
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9645
LayoutCachedTop =8700
LayoutCachedWidth =10770
LayoutCachedHeight =8974
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =11055
Top =8700
Width =1425
Height =274
TabIndex =106
BackColor =15527148
ForeColor =9211020
Name ="Jtxtpolssn"
ControlSource ="Jtxtpolssn"
GUID = Begin
0xe4afefabe00eb946acc2c6724df38ffd
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11055
LayoutCachedTop =8700
LayoutCachedWidth =12480
LayoutCachedHeight =8974
End
Begin Subform
Visible = NotDefault
OverlapFlags =247
OldBorderStyle =0
SpecialEffect =3
Left =3420
Top =9030
Width =9060
Height =1011
TabIndex =107
Name ="fSubDailyACHCcard"
SourceObject ="Form.fSubDailyACHCcard"
LinkChildFields ="MasterFileNo"
LinkMasterFields ="MasterfileNo"
GUID = Begin
0xf38549566770a4469911f0835f429be2
End
LayoutCachedLeft =3420
LayoutCachedTop =9030
LayoutCachedWidth =12480
LayoutCachedHeight =10041
End
Begin CommandButton
OverlapFlags =255
TextFontCharSet =0
Left =240
Top =9375
Width =360
FontWeight =700
TabIndex =108
ForeColor =1643706
Name ="cmdACHDelete"
Caption ="DELETE"
OnClick ="[Event Procedure]"
FontName ="Arial"
Tag ="COMMENTS"
GUID = Begin
0x4b446b125aa55e48aeffb05db90c983e
End
ImageData = Begin
0x2800000010000000100000000100200000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x00000000000000003255d6943255d68300000000000000000000000000000000 ,
0x3255d6043255d681000000000000000000000000000000000000000000000000 ,
0x000000003255d60e3255d6f43255d6f63255d66a000000000000000000000000 ,
0x3255d6c13255d6b7000000000000000000000000000000000000000000000000 ,
0x00000000000000003255d68d3255d6f83255d6f43255d652000000003255d6ba ,
0x3255d6ec3255d618000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000003255d6943255d6f63255d6f43255d6d23255d6f6 ,
0x3255d65900000000000000000000000000000000000000000000000000000000 ,
0x000000000000000000000000000000003255d68d3255d6f83255d6f83255d6cd ,
0x0000000000000000727272ff727272ff727272ff727272ff727272ff727272ff ,
0x727272ff00000000000000003255d6753255d6f13255d6f83255d6eb3255d6f8 ,
0x3255d6c63255d614727272ffffffffffffffffffffffffffffffffffffffffff ,
0xffffffffffffff423255d69b3255d6f83255d6f63255d6a1ffffff033255d65e ,
0x3255d6d93255d6ad727272ffffffffffb17d4affb17d4affb17d4affb17d4aff ,
0xb17d4affcead8da33255d6623255d6bf546acb52c9a582ccb48250ffc9a581cf ,
0xffffff3300000000727272ffffffffffb17d4affb17d4affb17d4affb17d4aff ,
0xb17d4affb58454fecca988bbcdab8bb1ba8c5ffbb17d4affb17d4affb17d4aff ,
0xffffffff727272ff727272ffffffffffb17d4affb17d4affb17d4affb17d4aff ,
0xb17d4affb17d4affb17d4affb17d4affb17d4affb17d4affb17d4affb17d4aff ,
0xffffffff727272ff727272ffffffffffffffffffffffffffffffffffffffffff ,
0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
0xffffffff727272ff727272ff727272ff727272ff727272ff727272ff727272ff ,
0x727272ff727272ff727272ff727272ff727272ff727272ff727272ff727272ff ,
0x727272ff727272ff000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000
End
LayoutCachedLeft =240
LayoutCachedTop =9375
LayoutCachedWidth =600
LayoutCachedHeight =9735
Bevel =1
BackColor =7961551
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
End
Begin ToggleButton
OverlapFlags =255
TextFontCharSet =0
Left =600
Top =9375
Width =2820
Height =360
FontSize =10
FontWeight =700
TabIndex =109
ForeColor =4210752
Name ="tgACHAccard"
Caption ="CWA AND DAILY-ACH/CCARD"
FontName ="Calibri"
OnClick ="[Event Procedure]"
GUID = Begin
0xda1d7fa20d51ae4bb8c0a6bd38ff96a3
End
GridlineColor =10921638
LayoutCachedLeft =600
LayoutCachedTop =9375
LayoutCachedWidth =3420
LayoutCachedHeight =9735
ForeThemeColorIndex =0
ForeTint =75.0
GridlineThemeColorIndex =1
GridlineShade =65.0
UseTheme =1
Shape =2
Bevel =1
BackColor =14136213
BackThemeColorIndex =4
BackTint =60.0
OldBorderStyle =0
BorderColor =14136213
BorderThemeColorIndex =4
BorderTint =60.0
ThemeFontIndex =1
HoverColor =967423
PressedColor =-2147483607
HoverForeColor =-2147483615
PressedForeColor =-2147483612
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =180
Top =10170
Width =2400
Height =274
TabIndex =110
BackColor =15527148
ForeColor =8210719
Name ="PriorCollMode"
GUID = Begin
0x493a7684b95b154d8bceecd295ca01da
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =180
LayoutCachedTop =10170
LayoutCachedWidth =2580
LayoutCachedHeight =10444
ForeThemeColorIndex =2
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
OverlapFlags =247
TextAlign =2
BackStyle =0
Left =6540
Top =10170
Width =1260
Height =274
TabIndex =111
BackColor =14347005
ForeColor =8210719
Name ="Cwaamttoremit"
ControlSource ="Cwaamttoremit"
Format ="$#,##0.00;($#,##0.00)"
GUID = Begin
0x1594de05914f5c45abab11b30913f0e2
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6540
LayoutCachedTop =10170
LayoutCachedWidth =7800
LayoutCachedHeight =10444
BackThemeColorIndex =9
BackTint =20.0
ForeThemeColorIndex =2
CurrencySymbol ="$"
End
Begin TextBox
Visible = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =3
Left =4005
Top =10174
Width =1200
Height =274
TabIndex =112
BackColor =15527148
Name ="txtMasterFileNo"
GUID = Begin
0x652674c4a4d6174c9531e680509fa83c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4005
LayoutCachedTop =10174
LayoutCachedWidth =5205
LayoutCachedHeight =10448
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =2820
Top =10222
Width =1200
Height =192
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label919"
Caption ="Master File"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x3193a163a1fee84bb0dd3cb299284f4a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2820
LayoutCachedTop =10222
LayoutCachedWidth =4020
LayoutCachedHeight =10414
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
TabStop = NotDefault
FELineBreak = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =2
BackStyle =0
IMESentenceMode =3
Left =9060
Top =10189
Height =255
FontSize =8
FontWeight =700
TabIndex =113
ForeColor =8210719
Name ="txtOpenArgHold"
FontName ="MS Sans Serif"
GUID = Begin
0x213a44b0b6fed44fae743f4c103b19c8
End
AsianLineBreak =0
LayoutCachedLeft =9060
LayoutCachedTop =10189
LayoutCachedWidth =10500
LayoutCachedHeight =10444
ForeThemeColorIndex =2
End
Begin TextBox
Visible = NotDefault
TabStop = NotDefault
SpecialEffect =1
OverlapFlags =247
TextAlign =2
Left =10425
Top =3960
Width =1200
Height =274
FontWeight =700
TabIndex =114
BackColor =9974127
ForeColor =16777215
Name ="txtPriorMasterFileNo"
OnClick ="[Event Procedure]"
GUID = Begin
0x4ef9ba510033cf4594d6ce198d26b88d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10425
LayoutCachedTop =3960
LayoutCachedWidth =11625
LayoutCachedHeight =4234
ForeThemeColorIndex =1
Begin
Begin Label
OverlapFlags =255
TextFontFamily =34
Left =7800
Top =3960
Width =2640
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1453"
Caption =" Back To Prior Master File:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xbc8edf56a5bb994ead8bb908f50ed39c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7800
LayoutCachedTop =3960
LayoutCachedWidth =10440
LayoutCachedHeight =4215
ForeThemeColorIndex =0
End
End
End
Begin Label
Visible = NotDefault
BackStyle =1
OverlapFlags =255
TextAlign =2
TextFontFamily =34
Left =5445
Top =4380
Width =1560
Height =245
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =12585491
Name ="lblEFT"
Caption ="CREDIT CARD"
FontName ="Arial"
Tag ="EFT"
GUID = Begin
0xfbcc468415be524e81f9f7eca043aed7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5445
LayoutCachedTop =4380
LayoutCachedWidth =7005
LayoutCachedHeight =4625
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
Visible = NotDefault
BackStyle =1
OverlapFlags =255
TextAlign =2
TextFontFamily =34
Left =5430
Top =4380
Width =2325
Height =245
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =12585491
Name ="lblPRD"
Caption ="Payroll Deduction (PRD)"
FontName ="Arial"
Tag ="PDR"
GUID = Begin
0x265053d228770c49add665830507b951
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5430
LayoutCachedTop =4380
LayoutCachedWidth =7755
LayoutCachedHeight =4625
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
BackStyle =1
OverlapFlags =119
TextAlign =2
TextFontFamily =34
Left =105
Top =300
Width =0
Height =0
FontSize =10
FontWeight =700
BackColor =-2147483633
ForeColor =0
Name ="Label712"
Caption ="Remittance"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0x3a7d31cf00782240ae6683ee6bd9ce03
End
LeftPadding =0
TopPadding =0
RightPadding =0
BottomPadding =0
GridlineColor =10921638
LayoutCachedLeft =105
LayoutCachedTop =300
LayoutCachedWidth =105
LayoutCachedHeight =300
ForeThemeColorIndex =0
GridlineThemeColorIndex =1
GridlineShade =65.0
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5352
Top =342
Width =1845
Height =245
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =12585491
Name ="Label854"
Caption ="Information"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0x9731abcabbf23b40b9612be956d65e46
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5352
LayoutCachedTop =342
LayoutCachedWidth =7197
LayoutCachedHeight =587
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10920
Top =672
Width =960
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1383"
Caption ="Archive"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xf7a455d34ffa5541a6ebf9e073e7e51f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10920
LayoutCachedTop =672
LayoutCachedWidth =11880
LayoutCachedHeight =927
ForeThemeColorIndex =0
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5745
Top =1845
Width =1080
Height =245
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =13382400
Name ="Label384"
Caption ="Product"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x32cb03a0e91b5446a56582ee576ebd8d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5745
LayoutCachedTop =1845
LayoutCachedWidth =6825
LayoutCachedHeight =2090
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
Visible = NotDefault
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =3123
Top =2478
Width =888
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="lblAccnt"
Caption ="Accnt#"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xf02729777d56b346910ada0e6e8d8c7a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3123
LayoutCachedTop =2478
LayoutCachedWidth =4011
LayoutCachedHeight =2730
ForeThemeColorIndex =0
End
Begin Label
BackStyle =1
OverlapFlags =255
TextAlign =2
TextFontFamily =34
Left =5370
Top =4380
Width =2025
Height =245
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =12585491
Name ="lblDirectBill"
Caption ="Annual Direct Bill"
FontName ="Arial"
Tag ="DIRECTBILL"
GUID = Begin
0x9ed434c311342444be104cf246c5d4f3
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5370
LayoutCachedTop =4380
LayoutCachedWidth =7395
LayoutCachedHeight =4625
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
Visible = NotDefault
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5970
Top =4380
Width =810
Height =245
FontSize =10
FontWeight =700
ForeColor =12585491
Name ="lblWDC"
Caption ="WDC"
FontName ="Arial"
Tag ="WDC"
GUID = Begin
0x4faaee003ee32440ac68056862cba8d7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5970
LayoutCachedTop =4380
LayoutCachedWidth =6780
LayoutCachedHeight =4625
BackThemeColorIndex =1
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5028
Top =6420
Width =2640
Height =255
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =12585491
Name ="lblRemittance"
Caption ="Remittance Information"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0x84ce240476441845a9b14d691e5066b7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5028
LayoutCachedTop =6420
LayoutCachedWidth =7668
LayoutCachedHeight =6675
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5520
Top =7500
Width =1740
Height =245
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =12585491
Name ="Label581"
Caption ="Agent Contract"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0xf3a888765071f542984d9898b7c5cddc
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5520
LayoutCachedTop =7500
LayoutCachedWidth =7260
LayoutCachedHeight =7745
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =10128
Top =7500
Width =1845
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483633
ForeColor =12585491
Name ="Label772"
Caption ="Misc"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0xcedf541b217e2e4bad37a50b791374aa
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10128
LayoutCachedTop =7500
LayoutCachedWidth =11973
LayoutCachedHeight =7755
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =9015
Top =7800
Width =450
Height =786
FontSize =10
FontWeight =700
BackColor =14277081
ForeColor =14277081
Name ="Label994"
Caption =" State Issued"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x97a19911ef2783478c1ad1d035b36daa
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9015
LayoutCachedTop =7800
LayoutCachedWidth =9465
LayoutCachedHeight =8586
BackThemeColorIndex =1
BackShade =85.0
ForeThemeColorIndex =1
ForeShade =85.0
End
End
End
Begin Page
OverlapFlags =247
Left =135
Top =450
Width =12450
Height =10005
Name ="Employment Information_Page"
EventProcPrefix ="Employment_Information_Page"
Caption ="RIDERS/BENE"
GUID = Begin
0xc2af31b29bdf7945bb9d223f560db4c1
End
ImageData = Begin
0x00000000
End
LayoutCachedLeft =135
LayoutCachedTop =450
LayoutCachedWidth =12585
LayoutCachedHeight =10455
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Begin
Begin Rectangle
OverlapFlags =255
Left =228
Top =684
Width =12315
Height =420
Name ="Box904"
GUID = Begin
0x6a01cf35d9667449905d4047c2917ade
End
LayoutCachedLeft =228
LayoutCachedTop =684
LayoutCachedWidth =12543
LayoutCachedHeight =1104
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =1
BackStyle =0
Left =7317
Top =744
Width =5004
Height =274
FontWeight =700
BackColor =15527148
ForeColor =12976693
Name ="ClientNameRider"
ControlSource ="ClientName"
GUID = Begin
0x5e30ff9ec005d3428e145eb18a1f8d90
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7317
LayoutCachedTop =744
LayoutCachedWidth =12321
LayoutCachedHeight =1018
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =6084
Top =744
Width =1188
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label906"
Caption ="Client Name"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xa162b2008b0e3d4a9adda023feb6c89f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6084
LayoutCachedTop =744
LayoutCachedWidth =7272
LayoutCachedHeight =996
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =1497
Top =756
Width =1200
Height =274
FontWeight =700
TabIndex =1
BackColor =15527148
ForeColor =12976693
Name ="Text902"
ControlSource ="MasterfileNo"
GUID = Begin
0x3cc2f9faac403a4f80be47f86486d143
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1497
LayoutCachedTop =756
LayoutCachedWidth =2697
LayoutCachedHeight =1030
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =312
Top =759
Width =1140
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label903"
Caption ="Master File"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x965bd03fb20cb94e86efcc7d852a8e6d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =312
LayoutCachedTop =759
LayoutCachedWidth =1452
LayoutCachedHeight =1011
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
DecimalPlaces =0
OverlapFlags =255
TextAlign =1
BackStyle =0
Left =12180
Top =8160
Width =360
TabIndex =2
BackColor =15261367
ForeColor =255
Name ="txtCtLetters"
Format ="Fixed"
GUID = Begin
0x8eb6b9bc3afce24f94c1869ff3e7728a
End
GroupTable =9
GridlineColor =10921638
LayoutCachedLeft =12180
LayoutCachedTop =8160
LayoutCachedWidth =12540
LayoutCachedHeight =8400
LayoutGroup =9
BackThemeColorIndex =8
BackTint =40.0
GridlineThemeColorIndex =1
GridlineShade =65.0
GroupTable =9
End
Begin TextBox
Visible = NotDefault
AutoTab = NotDefault
OverlapFlags =255
TextAlign =1
Left =8898
Top =1260
Width =675
Height =274
TabIndex =3
Name ="txtNew"
DefaultValue ="0"
GUID = Begin
0x954047d05dfcc3448771e91ab7a65ac5
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8898
LayoutCachedTop =1260
LayoutCachedWidth =9573
LayoutCachedHeight =1534
End
Begin Rectangle
OverlapFlags =255
Left =228
Top =1389
Width =12315
Height =1365
Name ="Box741"
Tag ="RemitanceInfo"
GUID = Begin
0x6966e524c8d01a43b54b75e05650f6ea
End
LayoutCachedLeft =228
LayoutCachedTop =1389
LayoutCachedWidth =12543
LayoutCachedHeight =2754
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =8220
Top =1665
Width =918
Height =331
FontWeight =700
TabIndex =4
ForeColor =16777215
Name ="cmdCRider"
Caption ="C-RIDER"
OnClick ="[Event Procedure]"
GUID = Begin
0x3f576bca5e7d3a458b6781bbc890694e
End
LayoutCachedLeft =8220
LayoutCachedTop =1665
LayoutCachedWidth =9138
LayoutCachedHeight =1996
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =12349952
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =2316
Top =1680
Width =675
Height =274
FontSize =10
TabIndex =5
BackColor =15523798
GUID = Begin
0x12e3033d872d30458f955e8c6d8df8ea
End
Name ="Adb"
ControlSource ="Adb"
RowSourceType ="Value List"
RowSource ="0;1;2"
ColumnWidths ="1008"
DefaultValue ="0"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =2316
LayoutCachedTop =1680
LayoutCachedWidth =2991
LayoutCachedHeight =1954
Begin
Begin Label
OverlapFlags =255
TextAlign =3
TextFontFamily =34
Left =1620
Top =1680
Width =696
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label744"
Caption ="ADB:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xe7b934a00e15484aa6acd3789304db73
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1620
LayoutCachedTop =1680
LayoutCachedWidth =2316
LayoutCachedHeight =1950
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =3735
Top =1680
Width =735
Height =274
FontSize =10
TabIndex =6
BackColor =15523798
GUID = Begin
0x3d9e8f67e67ca445a78f7676e9096dae
End
Name ="Critillrider"
ControlSource ="Critillrider"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
AfterUpdate ="[Event Procedure]"
DefaultValue ="\"NO\""
FontName ="Arial"
Tag ="Audit"
Format =">"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3735
LayoutCachedTop =1680
LayoutCachedWidth =4470
LayoutCachedHeight =1954
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =3120
Top =1695
Width =570
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label974"
Caption ="CIR:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xfe4662a36ada4b4882f2c96ac37f413c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3120
LayoutCachedTop =1695
LayoutCachedWidth =3690
LayoutCachedHeight =1950
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =255
TextFontCharSet =0
TextAlign =1
Left =5415
Top =1680
Width =735
Height =274
FontSize =10
TabIndex =7
BackColor =15523798
GUID = Begin
0x29b9be6fb54a1242b6d7772280c14309
End
Name ="Wpwpp"
ControlSource ="Wpwpp"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5415
LayoutCachedTop =1680
LayoutCachedWidth =6150
LayoutCachedHeight =1954
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =4740
Top =1695
Width =630
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label970"
Caption ="WPP:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x234c415633efed4dab442b551011baac
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4740
LayoutCachedTop =1695
LayoutCachedWidth =5370
LayoutCachedHeight =1950
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =1
Left =7488
Top =1680
Width =675
Height =274
TabIndex =8
Name ="Childrider"
ControlSource ="Childrider"
ValidationRule =">=10 And <=50 Or Is Null"
ValidationText ="OUT OF RANGE (10-50)"
Tag ="Audit"
GUID = Begin
0x4142f5a2b9e93b44805c04c7b6f40e5b
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7488
LayoutCachedTop =1680
LayoutCachedWidth =8163
LayoutCachedHeight =1954
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =6150
Top =1680
Width =1290
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label750"
Caption ="Child Rider:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x0bb0c63e52874d4ca9fde86b1e330825
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6150
LayoutCachedTop =1680
LayoutCachedWidth =7440
LayoutCachedHeight =1950
ForeThemeColorIndex =0
End
End
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =11520
Top =1680
Width =963
Height =331
FontWeight =700
TabIndex =9
ForeColor =16777215
Name ="cmdOwner"
Caption ="OWNER"
OnClick ="[Event Procedure]"
GUID = Begin
0x4b5bb1e2e93eed43af7cede336ac0e2a
End
LayoutCachedLeft =11520
LayoutCachedTop =1680
LayoutCachedWidth =12483
LayoutCachedHeight =2011
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =12349952
OldBorderStyle =0
BorderColor =-2147483619
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =10755
Top =1695
Width =735
Height =274
FontSize =10
TabIndex =10
BackColor =15523798
GUID = Begin
0x7493e6a0682d524db8900eff5c45e927
End
Name ="Otherowner"
ControlSource ="Otherowner"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10755
LayoutCachedTop =1695
LayoutCachedWidth =11490
LayoutCachedHeight =1969
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =9360
Top =1710
Width =1350
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label966"
Caption ="Other Owner:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xba4307de3edaea4fa27e3b7ee8d4bdc4
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9360
LayoutCachedTop =1710
LayoutCachedWidth =10710
LayoutCachedHeight =1965
ForeThemeColorIndex =0
End
End
End
Begin TextBox
OverlapFlags =247
TextAlign =3
Left =3099
Top =2074
Width =1449
Height =300
TabIndex =11
Name ="Insured10yrtermamt"
ControlSource ="Insured10yrtermamt"
Format ="$#,##0.00;($#,##0.00)"
Tag ="Audit"
GUID = Begin
0x89d5ae11b385a047a7b54d70da290918
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3099
LayoutCachedTop =2074
LayoutCachedWidth =4548
LayoutCachedHeight =2374
CurrencySymbol ="$"
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =564
Top =2079
Width =2424
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label754"
Caption ="Insured 10 YR Term Amt:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x0fc4f9b04671fa4d9b7b144b6adcfd2a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =564
LayoutCachedTop =2079
LayoutCachedWidth =2988
LayoutCachedHeight =2334
ForeThemeColorIndex =0
End
End
End
Begin TextBox
AutoTab = NotDefault
OverlapFlags =247
TextAlign =3
Left =7494
Top =2074
Width =669
Height =300
TabIndex =12
Name ="Mdib"
ControlSource ="Mdib"
ValidationRule ="<501"
ValidationText ="MUST BE 000 TO 500!"
DefaultValue ="0"
InputMask ="000"
Tag ="Audit"
GUID = Begin
0xe1238216d4508143877302a4f0fdb22a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7494
LayoutCachedTop =2074
LayoutCachedWidth =8163
LayoutCachedHeight =2374
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =6282
Top =2079
Width =1161
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label758"
Caption ="MDIB:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x691125c02b16914eaa937edceb9a43b1
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6282
LayoutCachedTop =2079
LayoutCachedWidth =7443
LayoutCachedHeight =2334
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =5415
Top =2100
Width =735
Height =274
FontSize =10
TabIndex =13
BackColor =15523798
GUID = Begin
0x5642c50825f1564d8afd37bccb23d467
End
Name ="Apo"
ControlSource ="Apo"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5415
LayoutCachedTop =2100
LayoutCachedWidth =6150
LayoutCachedHeight =2374
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =4800
Top =2115
Width =570
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label972"
Caption ="APO:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x76f3f385db16784f934f9ee0d76a8e6a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4800
LayoutCachedTop =2115
LayoutCachedWidth =5370
LayoutCachedHeight =2370
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =8970
Top =2100
Width =735
Height =274
FontSize =10
TabIndex =14
BackColor =15523798
GUID = Begin
0x9516e23d86c779499a3f324e54156cdc
End
Name ="Wfpaunits"
ControlSource ="Wfpaunits"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8970
LayoutCachedTop =2100
LayoutCachedWidth =9705
LayoutCachedHeight =2374
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =8205
Top =2115
Width =720
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label976"
Caption ="WFPA:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xd3285e625586614a91ed3f4ae4a7f937
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8205
LayoutCachedTop =2115
LayoutCachedWidth =8925
LayoutCachedHeight =2370
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =10755
Top =2115
Width =735
Height =274
FontSize =10
TabIndex =15
BackColor =15523798
GUID = Begin
0x21e6cbe82fd0cc4ba90ae4da124ad4bd
End
Name ="acc"
ControlSource ="acc"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10755
LayoutCachedTop =2115
LayoutCachedWidth =11490
LayoutCachedHeight =2389
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =10140
Top =2130
Width =570
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label968"
Caption ="ACC:"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x4cb627f75f00aa4bab39228af1ce3ca7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10140
LayoutCachedTop =2130
LayoutCachedWidth =10710
LayoutCachedHeight =2385
ForeThemeColorIndex =0
End
End
End
Begin Rectangle
OverlapFlags =255
Left =240
Top =3087
Width =12315
Height =1725
Name ="Box773"
Tag ="RemitanceInfo"
GUID = Begin
0x9aae6b46d3030947ba21b2b043a1b90d
End
LayoutCachedLeft =240
LayoutCachedTop =3087
LayoutCachedWidth =12555
LayoutCachedHeight =4812
End
Begin Subform
TabStop = NotDefault
OverlapFlags =247
SpecialEffect =2
Left =357
Top =3372
Width =12147
Height =1260
TabIndex =16
Name ="TERM RIDER"
SourceObject ="Form.fsubTermRider"
LinkChildFields ="PolNumber"
LinkMasterFields ="PolicyNo"
EventProcPrefix ="TERM_RIDER"
GUID = Begin
0x1a5781ec2fe4454183e8d73e761b4390
End
LayoutCachedLeft =357
LayoutCachedTop =3372
LayoutCachedWidth =12504
LayoutCachedHeight =4632
End
Begin Rectangle
OverlapFlags =255
Left =240
Top =5040
Width =12315
Height =4914
Name ="Box831"
GUID = Begin
0x6ffeced82dd98d469c002b7e4c2411d3
End
LayoutCachedLeft =240
LayoutCachedTop =5040
LayoutCachedWidth =12555
LayoutCachedHeight =9954
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =8124
Top =5280
Width =1260
Height =274
TabIndex =17
Name ="Clientresprec"
ControlSource ="Clientresprec"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x01f3f28fba20e04688045bb411992b37
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8124
LayoutCachedTop =5280
LayoutCachedWidth =9384
LayoutCachedHeight =5554
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =6384
Top =5280
Width =1680
Height =285
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label836"
Caption ="Client Resp Rec"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xf0d2f323dbbe6d4b80b5e2447d993882
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6384
LayoutCachedTop =5280
LayoutCachedWidth =8064
LayoutCachedHeight =5565
ForeThemeColorIndex =0
End
End
End
Begin TextBox
EnterKeyBehavior = NotDefault
OverlapFlags =247
TextAlign =2
Left =1917
Top =5295
Width =1260
Height =274
TabIndex =18
Name ="Cdltrsent"
ControlSource ="Cdltrsent"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x834da314edbca74cb9de00fecfe76f2f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1917
LayoutCachedTop =5295
LayoutCachedWidth =3177
LayoutCachedHeight =5569
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =420
Top =5295
Width =1380
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label834"
Caption ="CDL Sent"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x256743a61427784ab8945202eba0d007
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =420
LayoutCachedTop =5295
LayoutCachedWidth =1800
LayoutCachedHeight =5535
ForeThemeColorIndex =0
End
End
End
Begin TextBox
EnterKeyBehavior = NotDefault
OverlapFlags =247
TextAlign =2
Left =5061
Top =5295
Width =1260
Height =274
TabIndex =19
Name ="Cdltr2sent"
ControlSource ="Cdltr2sent"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x8c37d1d8ea145747a05a287d4016b869
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5061
LayoutCachedTop =5295
LayoutCachedWidth =6321
LayoutCachedHeight =5569
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =3216
Top =5295
Width =1800
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label848"
Caption ="CDL 2 Sent"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x954317a3d3bfa84c913946fda6264c1b
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3216
LayoutCachedTop =5295
LayoutCachedWidth =5016
LayoutCachedHeight =5535
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =11130
Top =5295
Width =1260
Height =274
FontSize =10
TabIndex =20
BackColor =15523798
GUID = Begin
0x12e5c8355cf7a049af192f55b0a998fd
End
Name ="Clientresp"
ControlSource ="Clientresp"
RowSourceType ="Value List"
RowSource ="Agent;Recind;Cancel"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11130
LayoutCachedTop =5295
LayoutCachedWidth =12390
LayoutCachedHeight =5569
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =9780
Top =5280
Width =1320
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label669"
Caption ="Clt Response"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x0d93f98dbc0f294bb84d55e5284532b6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9780
LayoutCachedTop =5280
LayoutCachedWidth =11100
LayoutCachedHeight =5550
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
ColumnCount =2
ListWidth =4507
Left =1917
Top =5715
Width =4977
Height =274
FontSize =10
TabIndex =21
BackColor =15523798
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
GUID = Begin
0x926917064eaa62498ae4f8a973c47b8d
End
Name ="Prodtxtcde"
ControlSource ="Prodtxtcde"
RowSourceType ="Table/Query"
RowSource ="qryProductTextCode"
ColumnWidths ="0;4320"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1917
LayoutCachedTop =5715
LayoutCachedWidth =6894
LayoutCachedHeight =5989
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =420
Top =5700
Width =1380
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label850"
Caption ="Product Code"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xd28596e2fb51a846a707d89cd3987270
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =420
LayoutCachedTop =5700
LayoutCachedWidth =1800
LayoutCachedHeight =5970
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
ColumnCount =2
Left =9600
Top =5715
Width =2787
Height =274
FontSize =10
TabIndex =22
BackColor =15261367
ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
GUID = Begin
0xea7adababf03cb40bb0ff194b92887c4
End
Name ="Policycancelreason"
ControlSource ="Policycancelreason"
RowSourceType ="Table/Query"
RowSource ="qryPolicyCancelReasonCbo"
ColumnWidths ="0;2880"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9600
LayoutCachedTop =5715
LayoutCachedWidth =12387
LayoutCachedHeight =5989
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =7230
Top =5700
Width =2280
Height =270
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label673"
Caption ="Policy Cancel Reason"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xad4c6525d7fdab47b7145be96d57f92d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7230
LayoutCachedTop =5700
LayoutCachedWidth =9510
LayoutCachedHeight =5970
ForeThemeColorIndex =0
End
End
End
Begin Rectangle
OverlapFlags =255
Left =240
Top =6240
Width =12315
Height =714
Name ="Box881"
Tag ="RemitanceInfo"
GUID = Begin
0x5249662ffcf6fb47a7eff10a46306f6d
End
LayoutCachedLeft =240
LayoutCachedTop =6240
LayoutCachedWidth =12555
LayoutCachedHeight =6954
End
Begin TextBox
OverlapFlags =247
TextAlign =1
Left =450
Top =6480
Width =11985
Height =304
TabIndex =23
BackColor =14347005
Name ="Lastknownbene"
ControlSource ="Lastknownbene"
Tag ="Audit"
GUID = Begin
0x9b557b296e402d498f79eca3fb2da68e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =450
LayoutCachedTop =6480
LayoutCachedWidth =12435
LayoutCachedHeight =6784
BackThemeColorIndex =9
BackTint =20.0
End
Begin Rectangle
OverlapFlags =255
Left =240
Top =7320
Width =12315
Height =1680
Name ="Box1307"
GUID = Begin
0x6460226bb4523b4cb3a65f7b79fbf270
End
LayoutCachedLeft =240
LayoutCachedTop =7320
LayoutCachedWidth =12555
LayoutCachedHeight =9000
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =1752
Top =7620
Width =795
Height =274
FontSize =10
TabIndex =24
BackColor =15261367
GUID = Begin
0x9b6e476ca28a814a866004def6432a30
End
Name ="Potentialrefund"
ControlSource ="Potentialrefund"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
AfterUpdate ="[Event Procedure]"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1752
LayoutCachedTop =7620
LayoutCachedWidth =2547
LayoutCachedHeight =7894
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =480
Top =7635
Width =1260
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1313"
Caption ="RefDue?"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xe68ab37192fe274c8cd34dcc7caff459
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =480
LayoutCachedTop =7635
LayoutCachedWidth =1740
LayoutCachedHeight =7890
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
Enabled = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =4860
Top =7620
Width =795
Height =274
FontSize =10
TabIndex =25
BackColor =15261367
GUID = Begin
0xd254e6326392c74aa18da430d87b3f0e
End
Name ="Prevremit"
ControlSource ="Prevremit"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4860
LayoutCachedTop =7620
LayoutCachedWidth =5655
LayoutCachedHeight =7894
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =3420
Top =7635
Width =1380
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1315"
Caption ="Prev-Remit"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x3035737b288d2140ab7734f533c1ae20
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3420
LayoutCachedTop =7635
LayoutCachedWidth =4800
LayoutCachedHeight =7890
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Enabled = NotDefault
DecimalPlaces =2
OverlapFlags =247
TextAlign =3
Left =7485
Top =7620
Width =1275
Height =274
TabIndex =26
BackColor =15261367
Name ="AmountToRefund"
ControlSource ="AmountToRefund"
Format ="Standard"
Tag ="Audit"
GUID = Begin
0xd3894867f2af944baa00968eb86500a9
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7485
LayoutCachedTop =7620
LayoutCachedWidth =8760
LayoutCachedHeight =7894
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =6120
Top =7635
Width =1290
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1317"
Caption ="Ref Amount"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x4f8cbce24036c34b8135eb96835fda58
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6120
LayoutCachedTop =7635
LayoutCachedWidth =7410
LayoutCachedHeight =7875
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Enabled = NotDefault
DecimalPlaces =2
OverlapFlags =247
TextAlign =3
Left =11025
Top =7620
Width =1275
Height =274
TabIndex =27
BackColor =15261367
Name ="Custfeerefamt"
ControlSource ="Custfeerefamt"
Format ="Standard"
Tag ="Audit"
GUID = Begin
0x3e28837683a0cb4a9c70155dbd457c1e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11025
LayoutCachedTop =7620
LayoutCachedWidth =12300
LayoutCachedHeight =7894
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =9471
Top =7635
Width =1485
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1319"
Caption ="Custodial Fee"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x581012cf74921849a92649dcafc08274
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9471
LayoutCachedTop =7635
LayoutCachedWidth =10956
LayoutCachedHeight =7890
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Enabled = NotDefault
OverlapFlags =247
TextAlign =1
TextFontFamily =49
Left =480
Top =8100
Width =11700
Height =319
FontSize =12
TabIndex =28
BackColor =16051931
Name ="Refundcomments"
ControlSource ="Refundcomments"
FontName ="Courier New"
OnChange ="[Event Procedure]"
Tag ="Audit"
GUID = Begin
0xbe85989f50a3f64b94624e0f496bff58
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =480
LayoutCachedTop =8100
LayoutCachedWidth =12180
LayoutCachedHeight =8419
BackThemeColorIndex =8
BackTint =20.0
End
Begin TextBox
OverlapFlags =247
TextAlign =1
TextFontFamily =49
Left =480
Top =8460
Width =11700
Height =319
FontSize =12
TabIndex =29
BackColor =16051931
Name ="RefundComments1"
ControlSource ="RefundComments1"
FontName ="Courier New"
Tag ="Audit"
GUID = Begin
0xc67e99a81dd4974885838cb1f32efe1e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =480
LayoutCachedTop =8460
LayoutCachedWidth =12180
LayoutCachedHeight =8779
BackThemeColorIndex =8
BackTint =20.0
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =3
Left =5871
Top =9195
Width =669
Height =300
TabIndex =30
BackColor =15261367
Name ="Ccode"
ControlSource ="Ccode"
Tag ="Audit"
GUID = Begin
0x04deceba50922948928c416f35e3c7ce
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5871
LayoutCachedTop =9195
LayoutCachedWidth =6540
LayoutCachedHeight =9495
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =4680
Top =9210
Width =1071
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label913"
Caption ="CCode"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x01986051381072469f78dbda51b08793
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4680
LayoutCachedTop =9210
LayoutCachedWidth =5751
LayoutCachedHeight =9465
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =3
Left =7911
Top =9195
Width =669
Height =300
TabIndex =31
BackColor =15261367
Name ="Revinit"
ControlSource ="Revinit"
Tag ="Audit"
GUID = Begin
0xb4317d4266a5f347800602c8cb091e94
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7911
LayoutCachedTop =9195
LayoutCachedWidth =8580
LayoutCachedHeight =9495
BackThemeColorIndex =8
BackTint =40.0
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =6720
Top =9210
Width =1071
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label915"
Caption ="RevInit"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xb15dcfbb1d73fe40a3c88a8de2bab458
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6720
LayoutCachedTop =9210
LayoutCachedWidth =7791
LayoutCachedHeight =9465
ForeThemeColorIndex =0
End
End
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =4905
Top =7200
Width =3075
Height =330
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =13568788
Name ="Label1309"
Caption ="Client Refund Information"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x63eef968e76ec841ab4ad7b2a99928d7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4905
LayoutCachedTop =7200
LayoutCachedWidth =7980
LayoutCachedHeight =7530
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =4188
Top =6120
Width =4380
Height =276
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =13568788
Name ="Label882"
Caption ="Last Known Beneficiary"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0x30cc84f40979c6449ae2742840c5d4bd
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4188
LayoutCachedTop =6120
LayoutCachedWidth =8568
LayoutCachedHeight =6396
BackThemeColorIndex =2
BackTint =20.0
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =4980
Top =4920
Width =2985
Height =270
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =12585491
Name ="Label832"
Caption ="CONSERVATION DEPARTMENT"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x13faba52332bc1468c05604684d553fc
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =4980
LayoutCachedTop =4920
LayoutCachedWidth =7965
LayoutCachedHeight =5190
BackThemeColorIndex =2
BackTint =20.0
End
Begin CommandButton
TabStop = NotDefault
OverlapFlags =247
TextFontCharSet =0
Left =5532
Top =2940
Width =2223
Height =331
FontWeight =700
TabIndex =32
ForeColor =16777215
Name ="cmdSecIns"
Caption ="SECONDARY INSURED"
OnClick ="[Event Procedure]"
GUID = Begin
0x83de2ad39160314a847e78d9a306ef57
End
LayoutCachedLeft =5532
LayoutCachedTop =2940
LayoutCachedWidth =7755
LayoutCachedHeight =3271
ForeThemeColorIndex =1
UseTheme =1
Bevel =2
BackColor =12419407
BackThemeColorIndex =4
OldBorderStyle =0
BorderColor =-2147483619
HoverColor =12419407
HoverThemeColorIndex =4
PressedColor =12419407
PressedThemeColorIndex =4
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Overlaps =1
End
Begin TextBox
Locked = NotDefault
AutoTab = NotDefault
TabStop = NotDefault
OverlapFlags =247
TextAlign =2
Left =10500
Top =9221
Width =1980
Height =274
TabIndex =33
BackColor =13995605
ForeColor =16777215
Name ="ShredListDate"
ControlSource ="ShredListDate"
Format ="Long Time"
Tag ="Audit"
GUID = Begin
0xc9e309d478f5a04690f968a0cc667938
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =10500
LayoutCachedTop =9221
LayoutCachedWidth =12480
LayoutCachedHeight =9495
BackThemeColorIndex =2
BackTint =60.0
ForeThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =3
TextFontFamily =34
Left =8925
Top =9210
Width =1530
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1413"
Caption ="Time of Refund"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x83ce29889f67b44ab36e1ff882a21a10
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8925
LayoutCachedTop =9210
LayoutCachedWidth =10455
LayoutCachedHeight =9465
ForeThemeColorIndex =0
End
End
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5388
Top =1269
Width =1785
Height =270
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =10040879
Name ="Label742"
Caption ="RIDERS"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0xdc1435f8c6b6f14cb2f75efbd977f54a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5388
LayoutCachedTop =1269
LayoutCachedWidth =7173
LayoutCachedHeight =1539
BackThemeColorIndex =2
BackTint =20.0
End
End
End
Begin Page
OverlapFlags =247
Left =135
Top =450
Width =12450
Height =10005
Name ="Emergency Information_Page"
EventProcPrefix ="Emergency_Information_Page"
Caption ="LETTERS"
GUID = Begin
0xd37aa4948b41c94fa2f343e6975c5ee8
End
ImageData = Begin
0x00000000
End
LayoutCachedLeft =135
LayoutCachedTop =450
LayoutCachedWidth =12585
LayoutCachedHeight =10455
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Begin
Begin Rectangle
BackStyle =1
OverlapFlags =255
Left =288
Top =3072
Width =12180
Height =780
BackColor =11916796
Name ="Box874"
GUID = Begin
0x5ab132846fecfb44b2b1fb41796cff82
End
LayoutCachedLeft =288
LayoutCachedTop =3072
LayoutCachedWidth =12468
LayoutCachedHeight =3852
BackThemeColorIndex =9
BackTint =40.0
End
Begin Rectangle
OverlapFlags =255
Left =183
Top =1194
Width =12285
Height =3429
Name ="Box627"
GUID = Begin
0xa7d413719ee31040b59593bb18f7a1c7
End
LayoutCachedLeft =183
LayoutCachedTop =1194
LayoutCachedWidth =12468
LayoutCachedHeight =4623
End
Begin Rectangle
OverlapFlags =255
Left =195
Top =600
Width =12285
Height =420
Name ="Box899"
GUID = Begin
0x68796caf5b18df4894ee3cb98a170390
End
LayoutCachedLeft =195
LayoutCachedTop =600
LayoutCachedWidth =12480
LayoutCachedHeight =1020
End
Begin TextBox
TabStop = NotDefault
EnterKeyBehavior = NotDefault
OverlapFlags =247
TextAlign =2
Left =1905
Top =3951
Width =1260
Height =274
Name ="Fa1ltrsent"
ControlSource ="Fa1ltrsent"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x73aecfdc6b111842b0c1169b7bdcdbf0
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1905
LayoutCachedTop =3951
LayoutCachedWidth =3165
LayoutCachedHeight =4225
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =360
Top =3951
Width =1500
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label653"
Caption ="FA 1 Sent"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xcd6beef8fd6ddd45ad4974d26195869c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =360
LayoutCachedTop =3951
LayoutCachedWidth =1860
LayoutCachedHeight =4191
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =1905
Top =1500
Width =1260
Height =274
TabIndex =1
Name ="Text605"
ControlSource ="Welcltrins"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xd2288a219b757140bedd218fbd9ae116
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1905
LayoutCachedTop =1500
LayoutCachedWidth =3165
LayoutCachedHeight =1774
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =300
Top =1500
Width =1560
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label606"
Caption ="Welcome Client"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xbf566ea0a229da4885fd448fd0f7d81d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =300
LayoutCachedTop =1500
LayoutCachedWidth =1860
LayoutCachedHeight =1740
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =5049
Top =1440
Width =1260
Height =274
TabIndex =2
Name ="Welcltrmort"
ControlSource ="Welcltrmort"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xa8fbef059f2d424e964ef388b8e4f908
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5049
LayoutCachedTop =1440
LayoutCachedWidth =6309
LayoutCachedHeight =1714
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =3204
Top =1440
Width =1800
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label776"
Caption ="Welcome Mort"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x6205444d00413544a03959e38063d178
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3204
LayoutCachedTop =1440
LayoutCachedWidth =5004
LayoutCachedHeight =1680
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =8112
Top =1440
Width =1260
Height =274
TabIndex =3
Name ="Dbrequesteddate"
ControlSource ="Dbrequesteddate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x0eb841bf9041ef408e14bed0775ffa94
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8112
LayoutCachedTop =1440
LayoutCachedWidth =9372
LayoutCachedHeight =1714
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =6372
Top =1440
Width =1683
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label778"
Caption ="DB Req"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x987c291efbcd8541924ec94984538405
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6372
LayoutCachedTop =1440
LayoutCachedWidth =8055
LayoutCachedHeight =1680
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =11103
Top =1434
Width =1260
Height =274
TabIndex =4
Name ="Lenderltr"
ControlSource ="Lenderltr"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x1a8e9211cf096045be3a8507c8941fc4
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11103
LayoutCachedTop =1434
LayoutCachedWidth =12363
LayoutCachedHeight =1708
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =9462
Top =1434
Width =1596
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label780"
Caption ="Lender"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x35c900d2d3abcd43b2e105582ffe86f7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9462
LayoutCachedTop =1434
LayoutCachedWidth =11058
LayoutCachedHeight =1674
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =1905
Top =1905
Width =1260
Height =274
TabIndex =5
Name ="FundNo1ltr"
ControlSource ="FundNo1ltr"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x260ac04dd3c58c429c683c4134991805
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1905
LayoutCachedTop =1905
LayoutCachedWidth =3165
LayoutCachedHeight =2179
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =360
Top =1905
Width =1500
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label782"
Caption ="Fund No 1"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x4eeae9b7975275459933176259757e21
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =360
LayoutCachedTop =1905
LayoutCachedWidth =1860
LayoutCachedHeight =2145
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =5049
Top =1845
Width =1260
Height =274
TabIndex =6
Name ="FundNo2ltr"
ControlSource ="FundNo2ltr"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x976c5b87f0d94249aa493791ba6ee041
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5049
LayoutCachedTop =1845
LayoutCachedWidth =6309
LayoutCachedHeight =2119
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =3204
Top =1845
Width =1800
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label784"
Caption ="Fund No 2"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x2f95446e1d66804794e3af4735209309
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3204
LayoutCachedTop =1845
LayoutCachedWidth =5004
LayoutCachedHeight =2085
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =8112
Top =1845
Width =1260
Height =274
TabIndex =7
Name ="FundNo3ltr"
ControlSource ="FundNo3ltr"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x2baacdda68c38943b7632d3d76436dc7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8112
LayoutCachedTop =1845
LayoutCachedWidth =9372
LayoutCachedHeight =2119
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =6372
Top =1845
Width =1683
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label786"
Caption ="Fund No 3"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xa63d91777956f74e8dcdfdbb1fa1001e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6372
LayoutCachedTop =1845
LayoutCachedWidth =8055
LayoutCachedHeight =2085
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =11103
Top =1839
Width =1260
Height =274
TabIndex =8
Name ="Elevenyroptltr"
ControlSource ="Elevenyroptltr"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x216e18db473a3047b9baadc3fbd4c873
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11103
LayoutCachedTop =1839
LayoutCachedWidth =12363
LayoutCachedHeight =2113
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =9462
Top =1839
Width =1596
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label788"
Caption ="11 Year Opt"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x39f1cd99d66d434aa132c3da05dcb173
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9462
LayoutCachedTop =1839
LayoutCachedWidth =11058
LayoutCachedHeight =2094
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =1905
Top =2325
Width =1260
Height =274
TabIndex =9
Name ="Rslregdate"
ControlSource ="Rslregdate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xfdcd87362cbbb0478dc830c80cd548c0
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1905
LayoutCachedTop =2325
LayoutCachedWidth =3165
LayoutCachedHeight =2599
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =360
Top =2325
Width =1500
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label790"
Caption ="RSL Reg"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x5036b1a15eda434cb18507964fbbd575
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =360
LayoutCachedTop =2325
LayoutCachedWidth =1860
LayoutCachedHeight =2565
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =5049
Top =2265
Width =1260
Height =274
TabIndex =10
Name ="Freezesent"
ControlSource ="Freezesent"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xc5f899e0d7536b49853ba324d5f06700
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5049
LayoutCachedTop =2265
LayoutCachedWidth =6309
LayoutCachedHeight =2539
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =3204
Top =2265
Width =1800
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label792"
Caption ="Freeze Sent"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xe500f11bdf78494e81365d3b395aa076
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3204
LayoutCachedTop =2265
LayoutCachedWidth =5004
LayoutCachedHeight =2505
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =8112
Top =2265
Width =1260
Height =274
TabIndex =11
Name ="Priorcoll"
ControlSource ="Priorcoll"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x3a2c0e87293d224ba36f1991d7d6b5b2
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8112
LayoutCachedTop =2265
LayoutCachedWidth =9372
LayoutCachedHeight =2539
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =6372
Top =2265
Width =1683
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label794"
Caption ="Prior Coll"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x61f0ecabd2edf040a21a085b6272024f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6372
LayoutCachedTop =2265
LayoutCachedWidth =8055
LayoutCachedHeight =2505
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =1905
Top =2760
Width =1260
Height =274
TabIndex =12
Name ="Bascltrdate"
ControlSource ="Bascltrdate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xe09b22f54117d64fbbff933fff1a61eb
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1905
LayoutCachedTop =2760
LayoutCachedWidth =3165
LayoutCachedHeight =3034
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =360
Top =2760
Width =1500
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label800"
Caption ="Basic"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x4b692268cd48f342afa3ac188806c5ae
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =360
LayoutCachedTop =2760
LayoutCachedWidth =1860
LayoutCachedHeight =3000
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =5049
Top =2700
Width =1260
Height =274
TabIndex =13
Name ="Priorrempmtcyc"
ControlSource ="Priorrempmtcyc"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x145707b34335fc41a759381d31017a0d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5049
LayoutCachedTop =2700
LayoutCachedWidth =6309
LayoutCachedHeight =2974
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =3204
Top =2700
Width =1800
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label802"
Caption ="Prim Rem Pmt Cyc"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x19fd9037fe9e644f97387d11cf986a67
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3204
LayoutCachedTop =2700
LayoutCachedWidth =5004
LayoutCachedHeight =2955
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =8112
Top =2700
Width =1260
Height =274
TabIndex =14
Name ="Ndcapsent"
ControlSource ="Ndcapsent"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x57a7cedeb10f9f49a75f6bcea21d7c29
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8112
LayoutCachedTop =2700
LayoutCachedWidth =9372
LayoutCachedHeight =2974
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =6372
Top =2700
Width =1683
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label804"
Caption ="ND Cap"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xada20b112b1b1e479bf46097d39b9a1e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6372
LayoutCachedTop =2700
LayoutCachedWidth =8055
LayoutCachedHeight =2940
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =11103
Top =2694
Width =1320
Height =274
TabIndex =15
Name ="Transmitdate"
ControlSource ="Transmitdate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x57022f2311703748a9f2b7f0ca8f3516
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11103
LayoutCachedTop =2694
LayoutCachedWidth =12423
LayoutCachedHeight =2968
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =9462
Top =2694
Width =1596
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label806"
Caption ="Transmit"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xfb4cc9d24e654c479bcdd57359a25c09
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9462
LayoutCachedTop =2694
LayoutCachedWidth =11058
LayoutCachedHeight =2934
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =1905
Top =3201
Width =1260
Height =274
TabIndex =16
Name ="nsfltr1"
ControlSource ="Nsfltr1"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xebd407ded0442e4c9b8b0d9a1cd1f38f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1905
LayoutCachedTop =3201
LayoutCachedWidth =3165
LayoutCachedHeight =3475
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =360
Top =3201
Width =1500
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label808"
Caption ="NSF No 1"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x76dea28c6742d84bb24d0d897c755ef6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =360
LayoutCachedTop =3201
LayoutCachedWidth =1860
LayoutCachedHeight =3441
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =5049
Top =3132
Width =1260
Height =274
TabIndex =17
Name ="Nsf1pmtrecd"
ControlSource ="Nsf1pmtrecd"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x56ceea2d69f8ed4586df70c2ef5c3c10
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5049
LayoutCachedTop =3132
LayoutCachedWidth =6309
LayoutCachedHeight =3406
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =3204
Top =3132
Width =1800
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label810"
Caption ="Pmt Recieved"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x0c0df4fd8bc6424e850a5c6a0765f700
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3204
LayoutCachedTop =3132
LayoutCachedWidth =5004
LayoutCachedHeight =3372
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =8112
Top =3138
Width =1260
Height =274
TabIndex =18
Name ="Nsf13060d"
ControlSource ="Nsf13060d"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xe4dd7474eea9734dabc4707142544b5d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8112
LayoutCachedTop =3138
LayoutCachedWidth =9372
LayoutCachedHeight =3412
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =6372
Top =3138
Width =1683
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label812"
Caption ="NSF No 1 30 D"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x0bbe91db21995a4b9fa4a3ba0e5552c9
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6372
LayoutCachedTop =3138
LayoutCachedWidth =8055
LayoutCachedHeight =3393
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =1905
Top =3510
Width =1260
Height =274
TabIndex =19
Name ="Nsfltr3"
ControlSource ="Nsfltr3"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xb92a0afb2c0284409e4b763ac16838d6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1905
LayoutCachedTop =3510
LayoutCachedWidth =3165
LayoutCachedHeight =3784
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =360
Top =3510
Width =1500
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label814"
Caption ="NSF No 3"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x24e8d646b80c414bbff11d22d01450ff
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =360
LayoutCachedTop =3510
LayoutCachedWidth =1860
LayoutCachedHeight =3765
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =5064
Top =3531
Width =1260
Height =274
TabIndex =20
Name ="Nsfltr4"
ControlSource ="Nsfltr4"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xe47fdda6fe5b1545b5d8811227603dbf
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5064
LayoutCachedTop =3531
LayoutCachedWidth =6324
LayoutCachedHeight =3805
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =3204
Top =3531
Width =1800
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label816"
Caption ="NSF No 4"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x3cfe4235aefe474bb91f2b408e180b70
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3204
LayoutCachedTop =3531
LayoutCachedWidth =5004
LayoutCachedHeight =3771
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Visible = NotDefault
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =11103
Top =3516
Width =1260
Height =274
TabIndex =21
Name ="Nsfltr7"
ControlSource ="Nsfltr7"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x71595d9169b93a48912d5364abe00307
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11103
LayoutCachedTop =3516
LayoutCachedWidth =12363
LayoutCachedHeight =3790
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =9492
Top =3516
Width =1536
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label818"
Caption ="NSF No 7"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x7a3c0d768c16834cb074fc8591ff676c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9492
LayoutCachedTop =3516
LayoutCachedWidth =11028
LayoutCachedHeight =3771
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =11103
Top =3144
Width =1260
Height =274
TabIndex =22
Name ="Nsf160d"
ControlSource ="Nsf160d"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xc6f80309c5aae54389c20a08fdff5b44
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11103
LayoutCachedTop =3144
LayoutCachedWidth =12363
LayoutCachedHeight =3418
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =9492
Top =3144
Width =1515
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label820"
Caption ="NSF No 1 60 D"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xd0c9e84e3984b74983b0819e80742da6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9492
LayoutCachedTop =3144
LayoutCachedWidth =11007
LayoutCachedHeight =3399
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =8112
Top =3534
Width =1260
Height =274
TabIndex =23
Name ="Nsfltr6"
ControlSource ="Nsfltr6"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x5e901b7065b64b43882f9901e050cf71
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8112
LayoutCachedTop =3534
LayoutCachedWidth =9372
LayoutCachedHeight =3808
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =6372
Top =3534
Width =1683
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label822"
Caption ="NSF No 6"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x21b45dd276f9494da97c9bfea13b704a
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6372
LayoutCachedTop =3534
LayoutCachedWidth =8055
LayoutCachedHeight =3774
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =5049
Top =3936
Width =1260
Height =274
TabIndex =24
Name ="Fa2ltrsent"
ControlSource ="Fa2ltrsent"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x9d7dffb0e9f5a344b077371119969564
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5049
LayoutCachedTop =3936
LayoutCachedWidth =6309
LayoutCachedHeight =4210
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =3204
Top =3936
Width =1800
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label826"
Caption ="FA 2 Sent"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xdb84102621153a4b90ee637f53654afb
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3204
LayoutCachedTop =3936
LayoutCachedWidth =5004
LayoutCachedHeight =4176
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =8112
Top =3936
Width =1260
Height =274
TabIndex =25
Name ="Nxtcolincr"
ControlSource ="Nxtcolincr"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x08344155298e3648a87d7461c99a29f6
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8112
LayoutCachedTop =3936
LayoutCachedWidth =9372
LayoutCachedHeight =4210
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =6372
Top =3936
Width =1683
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label828"
Caption ="Next Col Incr"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x8ae78a637b6add489941060b097aa72b
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6372
LayoutCachedTop =3936
LayoutCachedWidth =8055
LayoutCachedHeight =4176
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =11103
Top =3930
Width =1260
Height =274
TabIndex =26
Name ="Screenprtdate"
ControlSource ="Screenprtdate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xa76e98fe9096364690149a74b8135922
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11103
LayoutCachedTop =3930
LayoutCachedWidth =12363
LayoutCachedHeight =4204
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =9462
Top =3930
Width =1596
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label830"
Caption ="Screen Print"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xff1d164658f03047b85d47e5f5bbf66c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9462
LayoutCachedTop =3930
LayoutCachedWidth =11058
LayoutCachedHeight =4185
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
EnterKeyBehavior = NotDefault
OverlapFlags =255
TextAlign =2
Left =5157
Top =6315
Width =1260
Height =274
TabIndex =27
Name ="W9Sent"
ControlSource ="W9Sent"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xdfbe57606696b447b35e87c89b6f7b2e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5157
LayoutCachedTop =6315
LayoutCachedWidth =6417
LayoutCachedHeight =6589
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =255
TextAlign =3
TextFontFamily =34
Left =3660
Top =6315
Width =1335
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label840"
Caption ="W9 Sent"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x934e16e79296ac4594fd4fdd2be1af2f
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =3660
LayoutCachedTop =6315
LayoutCachedWidth =4995
LayoutCachedHeight =6555
ForeThemeColorIndex =0
End
End
End
Begin TextBox
TabStop = NotDefault
OverlapFlags =255
TextAlign =1
Left =8625
Top =6300
Width =1260
Height =274
TabIndex =28
Name ="W9Received"
ControlSource ="W9Received"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0x148f524e2739da40910f9cceb4085b69
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =8625
LayoutCachedTop =6300
LayoutCachedWidth =9885
LayoutCachedHeight =6574
BackThemeColorIndex =1
Begin
Begin Label
OverlapFlags =255
TextAlign =3
TextFontFamily =34
Left =6780
Top =6300
Width =1755
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label842"
Caption ="W9 Received"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x243a236197f73d4cb1b05bf60da2f9ce
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6780
LayoutCachedTop =6300
LayoutCachedWidth =8535
LayoutCachedHeight =6555
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =1569
Top =672
Width =1200
Height =274
FontWeight =700
TabIndex =29
BackColor =15527148
ForeColor =12976693
Name ="Text897"
ControlSource ="MasterfileNo"
GUID = Begin
0x57c51c88d5dc154db5449e9cc6b81986
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1569
LayoutCachedTop =672
LayoutCachedWidth =2769
LayoutCachedHeight =946
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =384
Top =675
Width =1140
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label898"
Caption ="Master File"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xe12150aff2a34d4188f7c9386ff12f9b
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =384
LayoutCachedTop =675
LayoutCachedWidth =1524
LayoutCachedHeight =927
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =1
BackStyle =0
Left =7389
Top =660
Width =5004
Height =274
FontWeight =700
TabIndex =30
BackColor =15527148
ForeColor =12976693
Name ="ClientNameLtr"
ControlSource ="ClientName"
GUID = Begin
0xe9362cb595bcc24391c95a36d18ff6f8
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7389
LayoutCachedTop =660
LayoutCachedWidth =12393
LayoutCachedHeight =934
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =6156
Top =660
Width =1188
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label901"
Caption ="Client Name"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x19da12080987c34babaa9af37e8b9557
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6156
LayoutCachedTop =660
LayoutCachedWidth =7344
LayoutCachedHeight =912
ForeThemeColorIndex =0
End
End
End
Begin ComboBox
LimitToList = NotDefault
RowSourceTypeInt =1
OverlapFlags =247
TextFontCharSet =0
TextAlign =1
Left =11625
Top =2280
Width =735
Height =274
FontSize =10
TabIndex =31
BackColor =15523798
GUID = Begin
0x8a8dba162da62240a900d58845e7af65
End
Name ="Combo980"
ControlSource ="Folderlabelsptd"
RowSourceType ="Value List"
RowSource ="YES;NO"
ColumnWidths ="1008"
FontName ="Arial"
Tag ="Audit"
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11625
LayoutCachedTop =2280
LayoutCachedWidth =12360
LayoutCachedHeight =2554
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =9480
Top =2295
Width =2100
Height =255
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label981"
Caption ="Folder Labels Ptd"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x6c93bdf861300a4db37a0972e2503b3d
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9480
LayoutCachedTop =2295
LayoutCachedWidth =11580
LayoutCachedHeight =2550
ForeThemeColorIndex =0
End
End
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5493
Top =1074
Width =2565
Height =270
FontSize =10
FontWeight =700
BackColor =15918812
ForeColor =10040879
Name ="Label628"
Caption ="LETTERS"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x447588ba3ae2e8479765883d824feaae
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5493
LayoutCachedTop =1074
LayoutCachedWidth =8058
LayoutCachedHeight =1344
BackThemeColorIndex =4
BackTint =20.0
End
Begin Rectangle
OverlapFlags =255
Left =183
Top =5709
Width =12285
Height =1074
Name ="Box1334"
GUID = Begin
0xc37055887c3ba94fa125c17277c26111
End
LayoutCachedLeft =183
LayoutCachedTop =5709
LayoutCachedWidth =12468
LayoutCachedHeight =6783
End
Begin Label
BackStyle =1
OldBorderStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5490
Top =5580
Width =2625
Height =270
FontSize =10
FontWeight =700
BackColor =15849926
BorderColor =14922894
ForeColor =10040879
Name ="Label1335"
Caption ="W9"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x05746244cd9d514cb12a2323ed60d426
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5490
LayoutCachedTop =5580
LayoutCachedWidth =8115
LayoutCachedHeight =5850
BackThemeColorIndex =2
BackTint =20.0
BorderThemeColorIndex =2
BorderTint =40.0
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
OverlapFlags =247
TextAlign =1
Left =11061
Top =4260
Width =1320
Height =274
TabIndex =32
BackColor =14277081
Name ="LastLookedAtDate"
ControlSource ="LastLookedAtDate"
Format ="mm/dd/yyyy"
DefaultValue ="=GetSystemDate()"
InputMask ="99/99/9999;0;#"
Tag ="Audit"
GUID = Begin
0xe3fbb6592ae47448bb43dcd69b855b96
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =11061
LayoutCachedTop =4260
LayoutCachedWidth =12381
LayoutCachedHeight =4534
BackThemeColorIndex =1
BackShade =85.0
Begin
Begin Label
OverlapFlags =247
TextAlign =1
TextFontFamily =34
Left =9255
Top =4260
Width =1761
Height =240
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1387"
Caption ="Last LookUp Date"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x78d1610800d1af46a5001bca09848501
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =9255
LayoutCachedTop =4260
LayoutCachedWidth =11016
LayoutCachedHeight =4500
ForeThemeColorIndex =0
End
End
End
End
End
Begin Page
OverlapFlags =247
Left =135
Top =450
Width =12450
Height =10005
Name ="Comments_Page"
Caption ="COMMENTS"
GUID = Begin
0xc7cf9d0cad4a3a479ae12b22e8da4800
End
LayoutCachedLeft =135
LayoutCachedTop =450
LayoutCachedWidth =12585
LayoutCachedHeight =10455
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =2
WebImagePaddingBottom =2
Begin
Begin Rectangle
OverlapFlags =255
Left =180
Top =1143
Width =12363
Height =6420
Name ="Box851"
Tag ="RemitanceInfo"
GUID = Begin
0xe23659145b346146aa88b7fe1d806c75
End
LayoutCachedLeft =180
LayoutCachedTop =1143
LayoutCachedWidth =12543
LayoutCachedHeight =7563
End
Begin Subform
TabStop = NotDefault
OverlapFlags =247
Left =270
Top =1290
Width =12174
Height =6027
Name ="fSubMasterComments"
SourceObject ="Form.fSubMasterComments"
LinkChildFields ="MastseqNo"
LinkMasterFields ="MasterfileNo"
Tag ="Audit"
GUID = Begin
0xbc8c562b2f6c2c4ea5ae96b5f3aef3bc
End
LayoutCachedLeft =270
LayoutCachedTop =1290
LayoutCachedWidth =12444
LayoutCachedHeight =7317
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5172
Top =1020
Width =1845
Height =245
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =10040879
Name ="lblComments"
Caption ="Tl Comments=1"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0xe819b0cade777d45add6a080282fc6b5
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5172
LayoutCachedTop =1020
LayoutCachedWidth =7017
LayoutCachedHeight =1265
BackThemeColorIndex =2
BackTint =20.0
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextAlign =1
Left =255
Top =7920
Width =12180
Height =319
TabIndex =1
BackColor =15918812
Name ="LongWorkingcomments"
ControlSource ="LongWorkingcomments"
Tag ="Audit"
GUID = Begin
0x26c893d139cf9c48a168b1dd49b1f76e
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =255
LayoutCachedTop =7920
LayoutCachedWidth =12435
LayoutCachedHeight =8239
BackThemeColorIndex =4
BackTint =20.0
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextAlign =1
Left =255
Top =8250
Width =12180
Height =319
TabIndex =2
BackColor =15918812
Name ="LongWorkingcomment2"
ControlSource ="LongWorkingcomment2"
Tag ="Audit"
GUID = Begin
0x4c5f8a894fc6234d9d03711f3edce8f7
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =255
LayoutCachedTop =8250
LayoutCachedWidth =12435
LayoutCachedHeight =8569
BackThemeColorIndex =4
BackTint =20.0
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextAlign =1
Left =255
Top =8580
Width =12180
Height =319
TabIndex =3
BackColor =15918812
Name ="LongWorkingcomment3"
ControlSource ="LongWorkingcomment3"
Tag ="Audit"
GUID = Begin
0x0cfa3056c1472b49b9c3a84edd555941
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =255
LayoutCachedTop =8580
LayoutCachedWidth =12435
LayoutCachedHeight =8899
BackThemeColorIndex =4
BackTint =20.0
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextAlign =1
Left =255
Top =8910
Width =12180
Height =319
TabIndex =4
BackColor =15918812
Name ="LongWorkingcomments4"
ControlSource ="LongWorkingcomments4"
Tag ="Audit"
GUID = Begin
0x7e2b4a1e0110b94b98f20934653474dc
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =255
LayoutCachedTop =8910
LayoutCachedWidth =12435
LayoutCachedHeight =9229
BackThemeColorIndex =4
BackTint =20.0
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextAlign =1
Left =255
Top =9240
Width =12180
Height =319
TabIndex =5
BackColor =15918812
Name ="LongWorkingcomment5"
ControlSource ="LongWorkingcomment5"
Tag ="Audit"
GUID = Begin
0xf74a207401d43542b833841b7f726f1c
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =255
LayoutCachedTop =9240
LayoutCachedWidth =12435
LayoutCachedHeight =9559
BackThemeColorIndex =4
BackTint =20.0
End
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =255
TextAlign =1
Left =255
Top =9570
Width =12180
Height =319
TabIndex =6
BackColor =15918812
Name ="LongWorkingcomment6"
ControlSource ="LongWorkingcomment6"
Tag ="Audit"
GUID = Begin
0x524c68877090d24fbfae110b63a108c0
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =255
LayoutCachedTop =9570
LayoutCachedWidth =12435
LayoutCachedHeight =9889
BackThemeColorIndex =4
BackTint =20.0
End
Begin Rectangle
OverlapFlags =255
Left =180
Top =7740
Width =12348
Height =2340
Name ="Box1359"
Tag ="RemitanceInfo"
GUID = Begin
0xe2e7583045003d4a8213fe84d1ed0c56
End
LayoutCachedLeft =180
LayoutCachedTop =7740
LayoutCachedWidth =12528
LayoutCachedHeight =10080
End
Begin Rectangle
OverlapFlags =255
Left =240
Top =525
Width =12180
Height =420
Name ="Box1360"
GUID = Begin
0x71750b1f561abc4ea5683d9538c2dad6
End
LayoutCachedLeft =240
LayoutCachedTop =525
LayoutCachedWidth =12420
LayoutCachedHeight =945
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =3
BackStyle =0
Left =1509
Top =597
Width =1200
Height =274
FontWeight =700
TabIndex =7
BackColor =15527148
ForeColor =12976693
Name ="MasterfileNo1"
ControlSource ="MasterfileNo"
GUID = Begin
0x780d65bece4e6a40ad4719ac36eb23a0
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =1509
LayoutCachedTop =597
LayoutCachedWidth =2709
LayoutCachedHeight =871
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =324
Top =600
Width =1140
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1362"
Caption ="Master File"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0xc19711f1075ba94f99f53debb0bd22a0
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =324
LayoutCachedTop =600
LayoutCachedWidth =1464
LayoutCachedHeight =852
ForeThemeColorIndex =0
End
End
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OldBorderStyle =0
OverlapFlags =247
TextAlign =1
BackStyle =0
Left =7329
Top =585
Width =5004
Height =274
FontWeight =700
TabIndex =8
BackColor =15527148
ForeColor =12976693
Name ="Text1363"
ControlSource ="ClientName"
GUID = Begin
0x67931020f1132741b175b8ac8537f373
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =7329
LayoutCachedTop =585
LayoutCachedWidth =12333
LayoutCachedHeight =859
Begin
Begin Label
OverlapFlags =247
TextFontFamily =34
Left =6096
Top =585
Width =1188
Height =252
FontSize =10
FontWeight =700
BackColor =-2147483613
ForeColor =0
Name ="Label1364"
Caption ="Client Name"
FontName ="Arial"
Tag =";RegenerateCaption;"
GUID = Begin
0x0427b5e259941c47a850f6217b697f73
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =6096
LayoutCachedTop =585
LayoutCachedWidth =7284
LayoutCachedHeight =837
ForeThemeColorIndex =0
End
End
End
Begin Label
BackStyle =1
OverlapFlags =247
TextAlign =2
TextFontFamily =34
Left =5475
Top =7620
Width =1935
Height =255
FontSize =10
FontWeight =700
BackColor =15849926
ForeColor =12585491
Name ="Label1365"
Caption ="Working Comments"
FontName ="Arial"
Tag ="RemitanceInfo"
GUID = Begin
0x89bd982e8857904f837fe42931e62733
End
TopPadding =23
BottomPadding =23
LayoutCachedLeft =5475
LayoutCachedTop =7620
LayoutCachedWidth =7410
LayoutCachedHeight =7875
BackThemeColorIndex =2
BackTint =20.0
End
End
End
End
End
Begin TextBox
Visible = NotDefault
TabStop = NotDefault
FELineBreak = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =2
BackStyle =0
IMESentenceMode =3
Left =11040
Top =10189
Height =255
ColumnOrder =1
FontSize =8
TabIndex =1
ForeColor =8210719
Name ="txtProcess"
FontName ="MS Sans Serif"
GUID = Begin
0xd674fb91af8157438763a5d3481d3266
End
AsianLineBreak =0
LayoutCachedLeft =11040
LayoutCachedTop =10189
LayoutCachedWidth =12480
LayoutCachedHeight =10444
ForeThemeColorIndex =2
End
Begin TextBox
Locked = NotDefault
TabStop = NotDefault
SpecialEffect =0
OverlapFlags =247
TextAlign =2
IMESentenceMode =3
Left =4860
Width =7800
Height =300
ColumnOrder =2
FontSize =12
FontWeight =700
TabIndex =2
BackColor =13995605
ForeColor =16777215
Name ="txtProcessMsg"
GUID = Begin
0x4a1b9cd58c8f5641a181630e9a8a7cd6
End
LayoutCachedLeft =4860
LayoutCachedWidth =12660
LayoutCachedHeight =300
BackThemeColorIndex =2
BackTint =60.0
ForeThemeColorIndex =1
Begin
Begin Label
OverlapFlags =247
Left =3420
Width =720
Height =270
Name ="Label911"
Caption ="Text910:"
GUID = Begin
0xd114c5269108b242b61e443dd337a125
End
LayoutCachedLeft =3420
LayoutCachedWidth =4140
LayoutCachedHeight =270
End
End
End
End
End
Begin Section
CanGrow = NotDefault
SpecialEffect =1
Height =0
BackColor =-2147483633
Name ="Detail"
GUID = Begin
0x865c06c4db3f0e4b9dea5a26707d0715
End
AlternateBackColor =-2147483617
End
Begin FormFooter
SpecialEffect =2
Height =465
BackColor =13995605
Name ="FormFooter"
GUID = Begin
0x60b938c4beb566468ec6ef3554e6a13a
End
BackThemeColorIndex =2
BackTint =60.0
Begin
Begin Rectangle
Visible = NotDefault
OverlapFlags =93
Top =30
Width =4440
Height =435
Name ="BoxC"
Tag ="COMMENTS"
GUID = Begin
0x23d1218fbe1602499dbc8ada7e6e684d
End
LayoutCachedTop =30
LayoutCachedWidth =4440
LayoutCachedHeight =465
End
Begin Rectangle
OverlapFlags =93
Left =10440
Top =30
Width =2220
Height =435
Name ="Box450"
Tag ="COMMENTS"
GUID = Begin
0xb03074a607722f4cbd68fd31a5c14d29
End
LayoutCachedLeft =10440
LayoutCachedTop =30
LayoutCachedWidth =12660
LayoutCachedHeight =465
End
Begin CommandButton
Visible = NotDefault
OverlapFlags =223
TextFontCharSet =0
Left =1440
Top =120
Width =300
Height =285
FontWeight =700
TabIndex =1
ForeColor =0
Name ="cmdOK"
Caption ="OK"
OnClick ="[Event Procedure]"
FontName ="Arial"
Tag ="COMMENTS"
GUID = Begin
0x207402baf258704396ae21f16eb36712
End
ImageData = Begin
0x2800000010000000100000000100200000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000030b0200030a080 ,
0x1030a0d01030a0f01028a0f01028a0d01028a0801028a0200000000000000000 ,
0x00000000000000000000000000000000000000000030b0600030b0f00038c0ff ,
0x0038c0ff0040d0ff0040c0ff0038c0ff0038b0ff1028a0f01028a06000000000 ,
0x0000000000000000000000000038b0000030b0b00038c0ff0040d0ff0040d0ff ,
0x0040d0ff0040d0ff0040d0ff0040d0ff0040c0ff0038c0ff0030b0ff1028a0b0 ,
0x1028a00000000000000000000038b0900038c0ff0040e0ff0040e0ff0040d0ff ,
0x0040d0ff0040d0ff0040d0ff0040d0ff0040d0ff0040c0ff0040c0ff0030b0ff ,
0x1028a090000000000038c0200038c0ff0040e0ff0040e0ff3068e0ffc0d0f0ff ,
0x2050e0ff0040d0ff0040d0ff2050d0ffd0d8f0ff3060d0ff0040c0ff0040c0ff ,
0x1028a0ff1028a0200038c0800040d0ff0040e0ff0040e0ffc0d0f0fff0f8f0ff ,
0xc0d0f0ff2050e0ff2050d0ffc0d0f0fff0f8f0ffc0d0f0ff0040d0ff0040c0ff ,
0x0038b0ff1028a0800038c0d00040e0ff0040e0ff0040e0ff2050e0ffc0d0f0ff ,
0xf0f8f0ffc0d0f0ffc0d0f0fff0f8f0ffc0d0f0ff2050d0ff0040d0ff0040d0ff ,
0x0038c0ff1028a0e00038c0ff0048f0ff0048e0ff0040e0ff0040e0ff2050e0ff ,
0xc0d0f0fff0f8f0fff0f8f0ffc0d0f0ff2050d0ff0040d0ff0040d0ff0040d0ff ,
0x0040d0ff1028a0ff0038c0ff0048f0ff0048f0ff0048e0ff0040e0ff2050e0ff ,
0xc0d0f0fff0f8f0fff0f8f0ffc0d0f0ff2050e0ff0040d0ff0040d0ff0040d0ff ,
0x0040d0ff1030a0f00038c0e00048e0ff0048f0ff0048f0ff2058f0ffc0d0f0ff ,
0xf0f8f0ffc0d0f0ffc0d0f0fff0f8f0ffc0d0f0ff2050e0ff0040d0ff0040d0ff ,
0x0040c0ff1030a0d00040c0900040e0ff0048f0ff0048f0ffc0d0f0fff0f8f0ff ,
0xc0d0f0ff2050e0ff2050e0ffc0d0f0fff0f8f0ffc0d0f0ff0040d0ff0040d0ff ,
0x0038c0ff0030a0900040c0300040c0ff0048f0ff0048f0ff3068f0ffc0d0f0ff ,
0x2058f0ff0040e0ff0040e0ff2050e0ffc0d0f0ff3068e0ff0040e0ff0040d0ff ,
0x0030b0ff0030b030000000000040c0a00040d0ff0048f0ff0048f0ff0048f0ff ,
0x0048f0ff0048e0ff0040e0ff0040e0ff0040e0ff0040e0ff0040e0ff0038c0ff ,
0x0030b09000000000000000000040d0000040c0c00040d0ff0048f0ff0048f0ff ,
0x0048f0ff0048f0ff0048e0ff0040e0ff0040e0ff0040e0ff0038c0ff0030b0c0 ,
0x0030b0000000000000000000000000000040d0000040c0900040d0ff0040e0ff ,
0x0048e0ff0048f0ff0048f0ff0040e0ff0040d0ff0038c0ff0038b0900030b000 ,
0x0000000000000000000000000000000000000000000000000040c0300040c090 ,
0x0038c0e00038c0ff0038c0ff0038c0e00038c0900038c0300000000000000000 ,
0x0000000000000000
End
LayoutCachedLeft =1440
LayoutCachedTop =120
LayoutCachedWidth =1740
LayoutCachedHeight =405
ForeThemeColorIndex =0
Bevel =1
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin CommandButton
Visible = NotDefault
OverlapFlags =223
TextFontCharSet =0
Left =2280
Top =60
Width =675
FontWeight =700
TabIndex =2
ForeColor =16777215
Name ="cmdADDC"
Caption ="ADD"
OnClick ="[Event Procedure]"
FontName ="Arial"
Tag ="COMMENTS"
GUID = Begin
0x29f7c77814f4934e9ff6f22b55b8eeb6
End
LayoutCachedLeft =2280
LayoutCachedTop =60
LayoutCachedWidth =2955
LayoutCachedHeight =420
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin CommandButton
Visible = NotDefault
OverlapFlags =223
AccessKey =69
TextFontCharSet =0
Left =2955
Top =60
Width =615
FontWeight =700
TabIndex =3
ForeColor =16777215
Name ="cmdEditC"
Caption ="&EDIT"
OnClick ="[Event Procedure]"
FontName ="Arial"
Tag ="COMMENTS"
GUID = Begin
0xab9d0d4e5d2ae44c8b839e2edaeeb9c4
End
UnicodeAccessKey =69
LayoutCachedLeft =2955
LayoutCachedTop =60
LayoutCachedWidth =3570
LayoutCachedHeight =420
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin CommandButton
Visible = NotDefault
OverlapFlags =215
TextFontCharSet =0
Left =3570
Top =60
Width =840
FontWeight =700
TabIndex =4
ForeColor =1643706
Name ="cmdDeleteC"
Caption ="DELETE"
OnClick ="[Event Procedure]"
FontName ="Arial"
Tag ="COMMENTS"
GUID = Begin
0x05e99c052e05b749815ff09ce7020f83
End
LayoutCachedLeft =3570
LayoutCachedTop =60
LayoutCachedWidth =4410
LayoutCachedHeight =420
UseTheme =1
Bevel =1
BackColor =14536083
BackThemeColorIndex =8
BackTint =60.0
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin Label
Visible = NotDefault
OverlapFlags =215
TextAlign =2
TextFontFamily =34
Left =1440
Top =120
Width =840
Height =300
FontSize =12
FontWeight =700
BackColor =-2147483605
ForeColor =15266810
Name ="lblWarning"
FontName ="Arial"
Tag ="COMMENTS"
GUID = Begin
0x7f4bfb5930b0764faf624fbb968b4802
End
LayoutCachedLeft =1440
LayoutCachedTop =120
LayoutCachedWidth =2280
LayoutCachedHeight =420
End
Begin CommandButton
OverlapFlags =93
AccessKey =68
TextFontCharSet =0
Left =4485
Top =60
Width =900
FontWeight =700
TabIndex =5
ForeColor =16777215
Name ="cmdDelete"
Caption ="&DELETE"
OnClick ="[Event Procedure]"
FontName ="Arial"
GUID = Begin
0x8ea4b1828d451a47a687fc590d9eab22
End
UnicodeAccessKey =68
LayoutCachedLeft =4485
LayoutCachedTop =60
LayoutCachedWidth =5385
LayoutCachedHeight =420
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =2366701
HoverColor =2366701
PressedColor =2366701
HoverForeThemeColorIndex =1
PressedForeThemeColorIndex =1
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin CommandButton
OverlapFlags =215
AccessKey =69
TextFontCharSet =0
Left =11250
Top =60
Width =660
FontWeight =700
TabIndex =6
ForeColor =5026082
Name ="cmdEdit"
Caption ="&EDIT"
OnClick ="[Event Procedure]"
FontName ="Arial"
GUID = Begin
0x6d4d9a2d913f3e45ac92c5047ed804e3
End
UnicodeAccessKey =69
LayoutCachedLeft =11250
LayoutCachedTop =60
LayoutCachedWidth =11910
LayoutCachedHeight =420
UseTheme =1
Bevel =1
BackColor =12835293
BackThemeColorIndex =3
BackShade =90.0
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin CommandButton
OverlapFlags =215
AccessKey =83
TextFontCharSet =0
Left =10500
Top =60
Width =705
FontWeight =700
TabIndex =7
ForeColor =8210719
Name ="cmdSave"
Caption ="&SAVE"
OnClick ="[Event Procedure]"
FontName ="Arial"
GUID = Begin
0x13ed8ea3553e364a8ddc568342427820
End
UnicodeAccessKey =83
LayoutCachedLeft =10500
LayoutCachedTop =60
LayoutCachedWidth =11205
LayoutCachedHeight =420
UseTheme =1
Bevel =1
BackColor =12835293
BackThemeColorIndex =3
BackShade =90.0
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin CommandButton
Cancel = NotDefault
OverlapFlags =215
AccessKey =88
TextFontCharSet =0
Left =11940
Top =60
Width =705
FontWeight =700
TabIndex =8
ForeColor =0
Name ="cmdClose1"
Caption ="E&XIT"
OnClick ="[Event Procedure]"
FontName ="Arial"
GUID = Begin
0x0f931c29a01e1d4ea57ce7ace7a7c769
End
UnicodeAccessKey =88
LayoutCachedLeft =11940
LayoutCachedTop =60
LayoutCachedWidth =12645
LayoutCachedHeight =420
ForeThemeColorIndex =0
UseTheme =1
Bevel =1
BackColor =12835293
BackThemeColorIndex =3
BackShade =90.0
Shadow =14
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin CommandButton
OverlapFlags =215
TextFontCharSet =0
Left =60
Top =60
Width =1320
FontWeight =700
ForeColor =16777215
Name ="cmdGoto"
Caption ="MASTER"
OnClick ="[Event Procedure]"
FontName ="Arial"
GUID = Begin
0x42b6eb1e7da705499bf5bb18eb81de92
End
LayoutCachedLeft =60
LayoutCachedTop =60
LayoutCachedWidth =1380
LayoutCachedHeight =420
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin Label
SpecialEffect =1
BackStyle =1
OldBorderStyle =1
BorderWidth =3
OverlapFlags =85
TextAlign =2
TextFontFamily =34
Left =9405
Top =90
Width =1005
Height =330
FontSize =12
FontWeight =700
BackColor =6684672
BorderColor =15709952
ForeColor =65280
Name ="lblWarningMaster"
Caption ="EDIT!"
FontName ="Arial"
Tag ="COMMENTS"
GUID = Begin
0x9ba3cb6e16a29040b3f3011d8bce56ca
End
LayoutCachedLeft =9405
LayoutCachedTop =90
LayoutCachedWidth =10410
LayoutCachedHeight =420
End
Begin CommandButton
OverlapFlags =85
AccessKey =80
TextFontCharSet =0
Left =6375
Top =60
Width =966
FontWeight =700
TabIndex =9
ForeColor =16777215
Name ="cmdPDFFiles"
Caption ="&PDF FILES"
OnClick ="[Event Procedure]"
FontName ="Arial"
GUID = Begin
0x5cd59049e60b7542b9591e5853820765
End
UnicodeAccessKey =80
LayoutCachedLeft =6375
LayoutCachedTop =60
LayoutCachedWidth =7341
LayoutCachedHeight =420
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin CommandButton
OverlapFlags =87
AccessKey =72
TextFontCharSet =0
Left =5385
Top =60
Width =942
FontWeight =700
TabIndex =10
ForeColor =16777215
Name ="cmdMulti"
Caption ="&HISTORY"
OnClick ="[Event Procedure]"
GUID = Begin
0x521502c321703840ac189c5a99b3396e
End
UnicodeAccessKey =72
LayoutCachedLeft =5385
LayoutCachedTop =60
LayoutCachedWidth =6327
LayoutCachedHeight =420
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =6838561
BackThemeColorIndex =8
BackShade =50.0
BorderColor =2770250
BorderThemeColorIndex =3
BorderShade =25.0
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
Begin Label
Visible = NotDefault
SpecialEffect =1
BackStyle =1
OldBorderStyle =1
BorderWidth =3
OverlapFlags =85
TextAlign =2
TextFontFamily =34
Left =8055
Top =90
Width =1320
Height =330
FontSize =12
FontWeight =700
BackColor =16711680
BorderColor =15709952
ForeColor =16777215
Name ="lblWarningChange"
Caption =" CHANGED"
FontName ="Arial"
Tag ="COMMENTS"
GUID = Begin
0xe32303c5f086b74a9655f689b3e72d20
End
LayoutCachedLeft =8055
LayoutCachedTop =90
LayoutCachedWidth =9375
LayoutCachedHeight =420
ForeThemeColorIndex =1
End
Begin CommandButton
OverlapFlags =85
AccessKey =65
TextFontCharSet =0
Left =7365
Top =60
Width =660
FontWeight =700
TabIndex =11
ForeColor =16777215
Name ="cmdAdd"
Caption ="&ADD"
OnClick ="[Event Procedure]"
FontName ="Arial"
GUID = Begin
0xf64bdfda46ada94b9cf53121add08019
End
UnicodeAccessKey =65
LayoutCachedLeft =7365
LayoutCachedTop =60
LayoutCachedWidth =8025
LayoutCachedHeight =420
ForeThemeColorIndex =1
UseTheme =1
Bevel =1
BackColor =477336
BackThemeColorIndex =9
BackShade =50.0
BorderColor =10040879
WebImagePaddingLeft =2
WebImagePaddingTop =2
WebImagePaddingRight =1
WebImagePaddingBottom =1
Overlaps =1
End
End
End
End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
Dim intMasterComments As Integer
Public intPopulate As Integer
Public lgPriorMasterFileNo As Long
Private Sub AgentFirstName_AfterUpdate()
On Error GoTo PROC_ERR
'Me.ActiveControl = SetUpper(Me.ActiveControl)
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub AgentLastName_AfterUpdate()
On Error GoTo PROC_ERR
'Me.ActiveControl = SetUpper(Me.ActiveControl)
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub BusStreet_AfterUpdate()
On Error GoTo PROC_ERR
'Me.ActiveControl = SetUpper(Me.ActiveControl)
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub BusStreet2_AfterUpdate()
On Error GoTo PROC_ERR
'Me.ActiveControl = SetUpper(Me.ActiveControl)
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AccountNo_AfterUpdate
' Author : Norbert
' Date : 11/17/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub AccountNo_AfterUpdate()
On Error GoTo AccountNo_AfterUpdate_Error
If IsNothing(Me.AccountNo) Then
MsgBox "Missing AccountNo", vbCritical, "ISM"
Me.AccountNo.SetFocus
Exit Sub
End If
If IsNothing(Me.TRNo) Then
MsgBox "Missing TRNo", vbCritical, "ISM"
Me.TRNo.SetFocus
Exit Sub
End If
If Nz(DCount("*", "QS_TransRouteTRAcct")) > 0 Then
DoCmd.OpenForm "frmTransRouteTRAcct", acNormal, , , , acDialog, Me.Name
End If
On Error GoTo 0
Exit Sub
AccountNo_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure AccountNo_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Agentid_AfterUpdate
' Author : Norbert
' Date : 5/14/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Agentid_AfterUpdate()
On Error GoTo Agentid_AfterUpdate_Error
If Me.lblWarningMaster.Caption = "NEW" Then
If Me.AgentID.Column(2) = "T" Then
MsgBox "AGENT " & Me.AgentID & " - " & UCase(Me.AgentID.Column(1)) & vbCrLf & vbCrLf & "IS TERMINATED!", vbCritical, "ISM WARNING"
Me.AgentID = ""
Me.AgentID.SetFocus
End If
End If
On Error GoTo 0
Exit Sub
Agentid_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Agentid_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Agentid_MouseUp
' Author : Norbert
' Date : 5/11/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Agentid_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Agentid_MouseUp_Error
If X >= 1095 And X <= 1290 Then
'Me.CompanycodeLoanNo.Dropdown
Me.AgentName.SetFocus
'You can use the line below to determine the coordinates. Remove the comment, go to Access and switch the form to form view.
'carefully click around the left and right edges of the drop-down square to determine its left and right extremes
End If
'MsgBox X
On Error GoTo 0
Exit Sub
Agentid_MouseUp_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Agentid_MouseUp of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AgentID2_AfterUpdate
' Author : Norbert
' Date : 5/14/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub AgentID2_AfterUpdate()
On Error GoTo AgentID2_AfterUpdate_Error
If Me.lblWarningMaster.Caption = "NEW" Then
If Me.AgentID2.Column(2) = "T" Then
MsgBox "AGENT " & Me.AgentID2 & " - " & UCase(Me.AgentID2.Column(1)) & vbCrLf & vbCrLf & "IS TERMINATED!", vbCritical, "ISM WARNING"
Me.AgentID2 = ""
Me.AgentID2.SetFocus
End If
End If
On Error GoTo 0
Exit Sub
AgentID2_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure AgentID2_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AgentID2_MouseUp
' Author : Norbert
' Date : 5/11/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub AgentID2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo AgentID2_MouseUp_Error
If X >= 1095 And X <= 1275 Then
'Me.CompanycodeLoanNo.Dropdown
Me.AgentName2.SetFocus
'You can use the line below to determine the coordinates. Remove the comment, go to Access and switch the form to form view.
'carefully click around the left and right edges of the drop-down square to determine its left and right extremes
End If
On Error GoTo 0
Exit Sub
AgentID2_MouseUp_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure AgentID2_MouseUp of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AgentName_MouseUp
' Author : Norbert
' Date : 5/11/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub AgentName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo AgentName_MouseUp_Error
If X >= 3360 And X <= 3555 Then
'Me.CompanycodeLoanNo.Dropdown
Me.PrcBusagent1.SetFocus
'You can use the line below to determine the coordinates. Remove the comment, go to Access and switch the form to form view.
'carefully click around the left and right edges of the drop-down square to determine its left and right extremes
End If
'MsgBox X
On Error GoTo 0
Exit Sub
AgentName_MouseUp_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure AgentName_MouseUp of VBA Document Form_frmMaster"
End Sub
Private Sub AgentName2_BeforeUpdate(Cancel As Integer)
On Error GoTo cmdClient_Click_Err
If IsNothing(Me.AgentID2) Then Exit Sub
'DoCmd.OpenForm "frmPayor", acNormal, "", "IsmaId=" & Me.IsmaId2, , acDialog, Me.Name
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AgentName2_MouseDown
' Author : Norbert
' Date : 5/11/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub AgentName2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo AgentName2_MouseDown_Error
If X >= 3360 And X <= 3585 Then
'Me.CompanycodeLoanNo.Dropdown
Me.Controlledbus.SetFocus
'You can use the line below to determine the coordinates. Remove the comment, go to Access and switch the form to form view.
'carefully click around the left and right edges of the drop-down square to determine its left and right extremes
End If
On Error GoTo 0
Exit Sub
AgentName2_MouseDown_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure AgentName2_MouseDown of VBA Document Form_frmMaster"
End Sub
Private Sub cboCompanycodeLoanNo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= 3045 And X <= 3240 Then
'Me.CompanycodeLoanNo.Dropdown
Me.PolicyNo.SetFocus
'You can use the line below to determine the coordinates. Remove the comment, go to Access and switch the form to form view.
'carefully click around the left and right edges of the drop-down square to determine its left and right extremes
End If
'MsgBox X
End Sub
Private Sub ClientName_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo PROC_ERR
'Static intPopulate As Integer
If Me.AllowEdits Then
If intPopulate = 0 Then
'Me.ClientName.RowSource = "SELECT * FROM qryClientCbo"
intPopulate = 1
End If
End If
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub ClientName_LostFocus()
On Error GoTo PROC_ERR
intPopulate = 0
'Me.ClientName.RowSource = "SELECT * FROM qryClientCbo WHERE IsmaID=" & Me.IsmaId
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub ClientName_NotInList(NewData As String, Response As Integer)
On Error GoTo PROC_ERR
Dim strName As String
Dim intReturn As Integer
strName = StrConv(NewData, vbProperCase)
intReturn = MsgBox("Client " & strName & _
" is not in the system. Do you want to add this Client?", _
vbQuestion + vbYesNo, "ISM")
If intReturn = vbYes Then
DoCmd.OpenForm "frmClient", , , , acFormAdd, , Me.Name
'FormName:="frmInterpreterAdd", _
'DataMode:=acAdd, WindowMode:=acDialog, OpenArgs:=strInterpreterID
If IsNothing(DLookup("ClientName", "qryClientNotInList", "ClientName = """ & strName & """")) Then
Response = acDataErrContinue
Else
Response = acDataErrAdded
End If
Exit Sub
End If
Response = acDataErrDisplay
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdACHDelete_Click
' Author : norbert
' Date : 7/24/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub cmdACHDelete_Click()
On Error GoTo cmdACHDelete_Click_Error
If Me.AllowEdits = False Then Exit Sub
If Me.fSubDailyACHCcard.Visible = False Then Exit Sub
If vbCancel = MsgBox("PLEASE CONFIRM TO DELETE DAILY ACH/Ccard Transaction", vbCritical + vbOKCancel, "ISM") Then
Exit Sub
End If
DoCmd.RunSQL "DELETE * FROM tblAFInsuranceExp WHERE Masterfileno=" & Me.MasterfileNo
Me.fSubDailyACHCcard.Visible = False
Refresh
On Error GoTo 0
Exit Sub
cmdACHDelete_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdACHDelete_Click of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdAdd_Click
' Author : norbert
' Date : 5/3/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub cmdAdd_Click()
On Error GoTo cmdAdd_Click_Error
If vbCancel = MsgBox("PLEASE CONFIRM THAT YOU WANT TO COPY THIS MASTERFILE TO A NEW ONE", vbCritical + vbOKCancel, "ISM") Then
Exit Sub
End If
'Me.AllowAdditions = True
'DoCmd.GoToRecord , , acNewRec
'If Me.IsmaId = 999999999 Then Exit Sub
'If Forms!frmClient!NoNewMaster = True Then Exit Sub
'Me.chkCopyRecord = True
DoCmd.OpenForm "frmMasterAddRepeatNo", acNormal, , , , , Me.Name
'20140318
'If Me.NoNewMaster Then Exit Sub
'If Not IsNothing(Me.txtMasterFileNo) Then
' DoCmd.OpenForm "frmMaster", acNormal, , "MasterFileNo=" & Me.txtMasterFileNo, , acHidden, Me.Name
'Else
'If Me.chkCopyRecord = False Then
' Exit Sub
'End If
'DoCmd.OpenForm "frmMaster", acNormal, , "MasterFileNo=" & Me.NewMasterFileNo, , , Me.Name
'With Forms!FRMmaster
' !txtProcessMsg = "CAUTION THIS IS A NEW MASTERFILE"
' .AllowEdits = True
' !lblWarningMaster.Visible = True
' !lblWarningMaster.Caption = "NEW"
' '!Assoclev = "BASIC"
' !TransmittalDate = GetSystemDate
' .Visible = True
'End With
'Me.Refresh
'Me.chkCopyRecord = True
On Error GoTo 0
Exit Sub
cmdAdd_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdAdd_Click of VBA Document Form_frmMaster"
End Sub
Private Sub cmdADDC_Click()
On Error GoTo PROC_ERR
GetUserName
With Forms!frmMaster!fSubMasterComments
.SetFocus
.Form.AllowEdits = True
.Form.AllowAdditions = True
Me.AllowAdditions = True
DoCmd.GoToRecord , "", acNewRec
!MastseqNo = [Forms]![frmMaster]![MasterfileNo]
'.Refresh
!UserNameID = Nz(DLookup("UserNameID", "tbl_LogIn"))
!CommentsDate = Now
'Me.fSubMasterComments!Comments.SetFocus
!Comments.SetFocus
.Form.AllowAdditions = False
'!UserNameID.SetFocus
End With
Me.lblWarning.Visible = True
Me.lblWarning.Caption = "ADD!"
intMasterComments = Nz(DCount("*", "tblMastComments", "MastSeqNo=" & Me.MasterfileNo))
'Me.cmdGoto.Enabled = False
Me.lblComments.Caption = "Tl Comments= " & Nz(DCount("*", "tblMastComments", "MastSeqNo=" & Me.MasterfileNo))
'Me.Painting = True
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub cmdAgent1_Click()
On Error GoTo cmdClient_Click_Err
If IsNothing(Me.AgentID) Then Exit Sub
DoCmd.OpenForm "frmContracts", acNormal, "", "AgentCode='" & Me.AgentID & "'", , acDialog, Me.Name
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
Private Sub cmdColl_Click()
On Error GoTo cmdClient_Click_Err
If Nz(DCount("*", "tblCollectionHist", "MasterFileNo=" & Me.MasterfileNo)) = 0 Then
MsgBox "COLLECTION HISTORY HAS NO RECORDS!", vbInformation, "NO RECORDS"
Exit Sub
End If
DoCmd.OpenForm "frmEFTHistSummary", acNormal, "", "MasterFileNo=" & Me.MasterfileNo, , acDialog, Me.Name
With Forms!frmEFTHistSummary
!ClientName = Me.ClientName
End With
'SELECT tblCollectionHist.CollectionID, tblCollectionHist.MasterFileNo, tblCollectionHist.ColDate, tblCollectionHist.ColAmt, tblCollectionHist.ColMode, tblCollectionHist.RemitDate, tblCollectionHist.Comments
'FROM tblCollectionHist
'WHERE (((tblCollectionHist.MasterFileNo)=135629));
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdAgent2_Click
' Author : Norbert
' Date : 4/6/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub cmdAgent2_Click()
On Error GoTo cmdAgent2_Click_Error
If IsNothing(Me.AgentID2) Then Exit Sub
DoCmd.OpenForm "frmContracts", acNormal, "", "AgentCode='" & Me.AgentID2 & "'", , acDialog, Me.Name
On Error GoTo 0
Exit Sub
cmdAgent2_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdAgent2_Click of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdCCard_Click
' Author : Norbert
' Date : 7/16/2013
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub cmdCCard_Click()
On Error GoTo cmdCCard_Click_Error
If Nz(DCount("*", "tblCCardUptake", "[MSeqNo]=" & Me.MasterfileNo)) > 0 Then
DoCmd.OpenForm "frmCCardUptake", acNormal, , "[MSeqNo]=" & Me.MasterfileNo, , , Me.Name
Else
DoCmd.OpenForm "frmCCardUptake", acNormal, , , acFormAdd, , Me.Name
With Forms!frmOwner
.AllowEdits = True
!lblWarningMaster.Visible = True
!txtRecord.SetFocus
!txtRecord = Me.MasterfileNo
End With
End If
On Error GoTo 0
Exit Sub
cmdCCard_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdCCard_Click of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdCRider_Click
' Author : Norbert
' Date : 4/9/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub cmdCRider_Click()
On Error GoTo cmdCRider_Click_Error
If Nz(DCount("*", "tblChildRider", "[ChildRiderPolicyNo]='" & Nz(Me.PolicyNo, "") & "'")) > 0 Then
Me.txtNew = 0
DoCmd.OpenForm "frmChildRider", acNormal, , "[ChildRiderPolicyNo]='" & Me.PolicyNo & "'", , , Me.Name
Else
Me.txtNew = 1
DoCmd.OpenForm "frmChildRider", acNormal, , , acFormAdd, , Me.Name
With Forms!frmChildRider
'.AllowEdits = True
'.AllowAdditions = True
!ChildriderpolicyNo = Me.PolicyNo
!DayTel = Nz(DLookup("DayTel", "tblClient", "IsmaID=" & Me.IsmaId))
!EveTel = Nz(DLookup("EveTel", "tblClient", "IsmaID=" & Me.IsmaId))
!street = Nz(DLookup("Street", "tblClient", "IsmaID=" & Me.IsmaId))
!Addr2 = Nz(DLookup("addr2", "tblClient", "IsmaID=" & Me.IsmaId))
!city = Nz(DLookup("City", "tblClient", "IsmaID=" & Me.IsmaId))
!State = Nz(DLookup("State", "tblClient", "IsmaID=" & Me.IsmaId))
!zip = Nz(DLookup("Zip", "tblClient", "IsmaID=" & Me.IsmaId))
End With
End If
On Error GoTo 0
Exit Sub
cmdCRider_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdCRider_Click of VBA Document Form_frmMaster"
End Sub
Private Sub cmdDelete_Click()
On Error GoTo cmdDelete_Click_Err
Dim intRecords As Integer
'If Me.txtProcess = "MASTINAC" Or Me.txtProcess = "MASTINACVIEW" Then
' MsgBox "NOT AVAILABLE IN MASTER INACTIVE PROCESS", vbCritical, "ISM"
' Exit Sub
'End If
Me.RecordsetClone.MoveLast
intRecords = Me.RecordsetClone.RecordCount
If vbCancel = MsgBox("PLEASE CONFIRM TO DELETE THIS MASTER FILE", vbCritical + vbOKCancel, "DELETE MASTER FILE") Then
Exit Sub
End If
On Error Resume Next
Me.SetFocus
DoCmd.GoToControl Screen.PreviousControl.Name
Err.Clear
Me.AllowDeletions = True
If (Not Me.NewRecord) Then
DoCmd.RunCommand acCmdDeleteRecord
If intRecords = 1 Then DoCmd.Close acForm, Me.Name
End If
If (Me.NewRecord And Not Me.Dirty) Then
DoCmd.RunCommand acCmdDeleteRecord
If intRecords = 1 Then DoCmd.Close acForm, Me.Name
Beep
End If
If (Me.NewRecord And Me.Dirty) Then
DoCmd.RunCommand acCmdUndo
End If
Exit Sub
cmdDelete_Click_Exit:
Exit Sub
cmdDelete_Click_Err:
MsgBox Error$
Resume cmdDelete_Click_Exit
End Sub
Private Sub cmdDeleteC_Click()
On Error GoTo cmdDelete_Click_Err
If vbCancel = MsgBox("PLEASE CONFIRM TO DELETE THIS COMMENT", vbCritical + vbOKCancel, "DELETE COMMENT") Then
Exit Sub
End If
With Forms!frmMaster!fSubMasterComments.Form
On Error Resume Next
.SetFocus
DoCmd.GoToControl Screen.PreviousControl.Name
Err.Clear
.AllowDeletions = True
If (Not .NewRecord) Then
DoCmd.RunCommand acCmdDeleteRecord
End If
If (.NewRecord And Not .Dirty) Then
DoCmd.RunCommand acCmdDeleteRecord
Beep
End If
If (.NewRecord And .Dirty) Then
DoCmd.RunCommand acCmdUndo
End If
If (MacroError <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End If
Me.lblComments.Caption = "Tl Comments= " & Nz(DCount("*", "tblMastComments", "MastSeqNo=" & Me.MasterfileNo))
End With
Exit Sub
cmdDelete_Click_Exit:
Exit Sub
cmdDelete_Click_Err:
MsgBox Error$
Resume cmdDelete_Click_Exit
End Sub
Private Sub cmdEdit_Click()
On Error GoTo cmdClient_Click_Err
If Me.AllowEdits Then Exit Sub
'If Me.txtProcess = "MASTINACVIEW" Then
' MsgBox "NOT AVAILABLE IN MASTER INACTIVE VIEW PROCESS", vbCritical, "ISM"
' Exit Sub
'End If
'If Me.Productstatus <> "INFORCE" Then
' MsgBox "MASTERFILE INFORMATION:" & vbCrLf & _
' vbCrLf & "PRODUCT STATUS: " & UCase(Me.Productstatus), vbCritical, "NOT INFORCE ISM WARNINIG!"
'ElseIf Me.IsmaProductCode <> "INSURANCE" Then
' MsgBox "MASTERFILE INFORMATION:" & vbCrLf & _
' vbCrLf & "PRODUCT CODE: " & UCase(Me.IsmaProductCode), vbCritical, "NOT INSURANCE ISM WARNINIG!"
'End If
'DISABLE AS PER BRENDA 051013
'If vbYes = MsgBox("NOT 'INFORCE' IS NOT AVAILABLE IN MASTER INACTIVE VIEW PROCESS" & vbCrLf & _
' "DO YOU STILL WANT TO EDIT IT?", vbCritical + vbYesNo, "ISM") Then
'
' Me.AllowEdits = True
' Else
' Exit Sub
' End If
'End If
'
'If Me.IsmaProductCode <> "INSURANCE" Then
' If vbYes = MsgBox("NOT 'INSURANCE' IS NOT AVAILABLE IN MASTER INACTIVE VIEW PROCESS" & _
' "DO YOU STILL WANT TO EDIT IT?", vbCritical + vbYesNo, "ISM") Then
' Me.AllowEdits = True
' Else
' Exit Sub
'
' End If
'End If
'If Me.AgentStatus.Column(2) = "T" Then
' MsgBox "AGENT1 (" & UCase(Me.AgentID.Column(1)) & ") IS TERMINATED" & vbCrLf & vbCrLf & "MASTERFILE#: " & Me.MasterfileNo, vbCritical, "EDIT MASTERFILE"
'
' 'If vbYes = MsgBox("AGENT (" & UCase(Me.AgentID.Column(1)) & ") IS TERMINATED" & vbCrLf & vbCrLf _
' ' & "DO YOU WANT TO DELETE MASTERFILE#: " & Me.MasterfileNo & "?", vbCritical + vbYesNo, "ISM") Then
' ' Call cmdDelete_Click
' ' Exit Sub
' 'End If
'ElseIf Me.AgentStatus2.Column(2) = "T" Then
' MsgBox "AGENT2 (" & UCase(Me.AgentID2.Column(1)) & ") IS TERMINATED" & vbCrLf & vbCrLf & "MASTERFILE#: " & Me.MasterfileNo, vbCritical, "EDIT MASTERFILE"
' 'If vbYes = MsgBox("AGENT (" & UCase(Me.AgentID2.Column(1)) & ") IS TERMINATED" & vbCrLf & vbCrLf _
' ' & "DO YOU WANT TO DELETE THIS MASTERFILE#: " & Me.MasterfileNo & "?", vbCritical + vbYesNo, "ISM") Then
' ' Call cmdDelete_Click
' 'Exit Sub
' 'End If
'
'End If
'---------------------------------------------------------------------------------------------------------------------------------------------------------
Me.AllowEdits = True
Me.cmdSave.Visible = True
Me.lblWarningMaster.Visible = True
Me.lblWarningMaster.Caption = "EDIT!"
Me.cmdSave.Visible = True
'Me.Assocmfn.SetFocus
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
Private Sub cmdEditC_Click()
On Error GoTo PROC_ERR
Dim intLenght As Integer
With Forms!frmMaster!fSubMasterComments
.SetFocus
.Form.AllowEdits = True
intLenght = Nz(Len(!Comments) + 1)
!Comments.SetFocus
!Comments.SelStart = intLenght
!Comments.SetFocus
'!UserNameID.SetFocus
End With
Me.lblWarning.Visible = True
Me.lblWarning.Caption = "EDIT"
'Me.cmdGoto.Enabled = False
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub cmdFA_Click()
On Error GoTo cmdClient_Click_Err
If Nz(DCount("*", "tblFAHistory", "MasterseqNo=" & Me.MasterfileNo)) = 0 Then
MsgBox "FA HISTORY HAS NO RECORDS!", vbInformation, "NO RECORDS"
Exit Sub
End If
DoCmd.OpenForm "frmFAHistSummary", acNormal, "", "[MasterseqNo]=" & Me.MasterfileNo, , , Me.Name
With Forms!frmFAHistSummary
!ClientName = Me.ClientName
End With
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdEmp_Click
' Author : Norbert
' Date : 5/31/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub cmdEmp_Click()
On Error GoTo cmdEmp_Click_Error
If IsNothing(Me.IsmaId3) Then
DoCmd.OpenForm "frmEmployer", acNormal, "", , , acDialog, Me.Name
Else
DoCmd.OpenForm "frmEmployer", acNormal, "", "GroupID=" & Me.IsmaId3, , acDialog, Me.Name
End If
On Error GoTo 0
Exit Sub
cmdEmp_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdEmp_Click of VBA Document Form_frmMaster"
End Sub
Private Sub cmdGoto_Click()
On Error GoTo PROC_ERR
Dim intCt As Integer
'DoCmd.Echo False
Static staticCt
intCt = 0
staticCt = 0
'DoEvents
'DoCmd.Echo False
'Application.Echo False
'Me.Painting = False
'DoCmd.Hourglass True
'Me.Application.ScreenUpdating = False
'Me.Painting = False
'Me.Application.Screen False
'onload caption is Comments and can't have all the other comments functions
intMasterComments = Nz(DCount("*", "tblMastComments", "MastSeqNo=" & Me.MasterfileNo))
If Me.cmdGoto.Caption = "MASTER" Then
CommentsMaster (1)
Me.cmdGoto.Caption = "COMMENTS"
If intMasterComments = 0 Then
Call cmdADDC_Click
Forms!frmMaster!fSubMasterComments.SetFocus
On Error Resume Next
Forms!frmMaster!fSubMasterComments!Comments.SetFocus
Else
DoEvents
Forms!frmMaster!fSubMasterComments.SetFocus
Forms!frmMaster!fSubMasterComments!Comments.SetFocus
DoCmd.GoToRecord , , acFirst
Forms!frmMaster!fSubMasterComments!Comments.SelStart = Nz(Len(Forms!frmMaster!fSubMasterComments!Comments))
End If
Else
CommentsMaster (0)
Me.cmdGoto.Caption = "MASTER"
Me.Assocmfn.SetFocus
'Call cmdOK_Click
End If
'DoCmd.Echo True
'Application.Echo True
'Exit Sub
'If Me.cmdGoto.Caption = "COMMENTS" And Me.BoxC.Visible = True Then
' Call cmdOK_Click
'End If
' Me.SetFocus
' Me.Assocmfn.SetFocus
' Me.cmdGoto.Caption = "MASTER"
' CommentsMaster (0)
'
'ElseIf Me.cmdGoto.Caption = "COMMENTS" And intMasterComments = 0 Then
' With Forms!frmMaster!fSubMasterComments
' .SetFocus
'
' On Error Resume Next
' .AllowAdditions = True
' DoCmd.GoToRecord , "", acNewRec
' 'DoCmd.GoToRecord , , acNewRec
' !UserNameID.SetFocus
' Me.cmdGoto.Caption = "COMMENTS"
' If GetUserPermission(GetUserName) = 1 Then
' CommentsMaster (1)
' Else
' CommentsMaster (0)
' End If
' DoCmd.GoToRecord , , acLast
'End With
'End If
'Me.Painting = True
'DoCmd.Hourglass False
Exit Sub
PROC_ERR:
If Err = 2105 Then
Me.Assocmfn.SetFocus
Exit Sub
End If
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub cmdIns_Click()
On Error GoTo cmdClient_Click_Err
If IsNothing(Me.CompanycodeLoanNo) Then Exit Sub
DoCmd.OpenForm "frmVendorLender", acNormal, "", "CompanycodeLoanNo='" & Me.CompanycodeLoanNo & "'", , acDialog, Me.Name
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdMulti_Click
' Author : Norbert
' Date : 4/3/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub cmdMulti_Click()
On Error GoTo cmdMulti_Click_Error
DoCmd.OpenForm "frmMultiSearch", , , , , , Me.Name
On Error GoTo 0
Exit Sub
cmdMulti_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdMulti_Click of VBA Document Form_frmMaster"
End Sub
Private Sub cmdOK_Click()
On Error GoTo PROC_ERR
With Forms!frmMaster!fSubMasterComments.Form
'.SetFocus
.AllowEdits = False
Me.AllowDeletions = True
If Nz(Len(Forms!frmMaster!fSubMasterComments.Form!Comments)) = 0 Then
DoCmd.GoToControl Screen.PreviousControl.Name
Err.Clear
.AllowDeletions = True
DoCmd.RunCommand acCmdDeleteRecord
End If
' If (Not .NewRecord) Then
' ' .SetFocus
' DoCmd.GoToControl Screen.PreviousControl.Name
' Err.Clear
' .AllowDeletions = True
' DoCmd.RunCommand acCmdDeleteRecord
' End If
' If IsNothing(!Comments) Then
' If (.NewRecord And .Dirty) Then
' DoCmd.RunCommand acCmdUndo
' End If
'
' End If
' .Undo
' If Nz(Len(!Comments)) = 0 Then
' .AllowDeletions = True
' .SetFocus
' DoCmd.RunCommand acCmdDeleteRecord
' End If
'DoCmd.RunCommand acCmdUndo
Me.AllowDeletions = False
.AllowEdits = False
.AllowDeletions = False
.AllowAdditions = False
End With
Me.lblWarning.Visible = False
Me.Assocmfn.SetFocus
Me.cmdGoto.Caption = "MASTER"
Me.cmdGoto.Enabled = True
CommentsMaster (0)
Me.lblComments.Caption = "Tl Comments= " & Nz(DCount("*", "tblMastComments", "MastSeqNo=" & Me.MasterfileNo))
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdOwner_Click
' Author : Norbert
' Date : 4/9/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub cmdOwner_Click()
On Error GoTo cmdOwner_Click_Error
If Nz(DCount("*", "tblOwner", "[OwnerPolicyNo]='" & Nz(Me.PolicyNo, "") & "'")) > 0 Then
DoCmd.OpenForm "frmOwner", acNormal, , "[OwnerPolicyNo]='" & Me.PolicyNo & "'", , acDialog, Me.Name
Else
DoCmd.OpenForm "frmOwner", acNormal, , , acFormAdd, , Me.Name
With Forms!frmOwner
.AllowEdits = True
!lblWarningMaster.Visible = True
!OwnerID.SetFocus
!OwnerpolicyNo = Me.PolicyNo
End With
End If
On Error GoTo 0
Exit Sub
cmdOwner_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdOwner_Click of VBA Document Form_frmMaster"
End Sub
Private Sub cmdPayor_Click()
On Error GoTo cmdClient_Click_Err
If IsNothing(Me.IsmaId2) Then Exit Sub
If Nz(DCount("*", "tblPayor", "IsmaID=" & Me.IsmaId2)) = 0 Then Exit Sub
DoCmd.OpenForm "frmPayor", acNormal, , "IsmaId=" & Me.IsmaId2 ', , , Me.Name
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
Private Sub cmdPDFFiles_Click()
On Error GoTo cmdClient_Click_Err
If Nz(DCount("*", "qryEODReportsPDFMasterFiles", "FileID='" & Me.MasterfileNo & "'")) = 0 Then
DoCmd.OpenForm "frmScanMasterfile", acNormal, , , acFormAdd, , Me.Name
If Me.lblApplication.Visible = True Then
With Forms!FRMSCANMASTERFILE
!cboScanType = 4
!NBAppsClientName = JoinNBAPPSName(Nz(DLookup("LastName", "tblClient", "IsmaID=" & Me.txtSSN)), Nz(DLookup("MiddleName", "tblClient", "IsmaID=" & Me.txtSSN), ""), Nz(DLookup("FirstName", "tblClient", "IsmaID=" & Me.txtSSN)))
!nbaappspolicyno = Me.PolicyNo
!cmdScan.SetFocus
End With
End If
Else
DoCmd.OpenForm "frmScanMasterfile", acNormal, "", "FileID='" & Me.MasterfileNo & "'", , , Me.Name
End If
With Forms!FRMSCANMASTERFILE
!NBAppsClientName = JoinNBAPPSName(Nz(DLookup("LastName", "tblClient", "IsmaID=" & Me.txtSSN)), Nz(DLookup("MiddleName", "tblClient", "IsmaID=" & Me.txtSSN), ""), Nz(DLookup("FirstName", "tblClient", "IsmaID=" & Me.txtSSN)))
!NBAppsPolicyNo = Me.PolicyNo
End With
'With Forms!frmScanMasterfile
'.AllowAdditions = True
'!ClientName = Me.ClientName
' !MasterfileNo = Me.MasterfileNo
' !ClientName = "CLIENT NAME: " & Me.ClientName
'End With
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
Private Sub cmdRemitHist_Click()
On Error GoTo cmdClient_Click_Err
If Nz(DCount("*", "tblRemitHist", "MSeqNo=" & Me.MasterfileNo)) = 0 Then
MsgBox "REMIT HISTORY HAS NO RECORDS!", vbInformation, "NO RECORDS"
Exit Sub
End If
DoCmd.OpenForm "frmRemitHistSummary", acNormal, "", "[MseqNo]=" & Me.MasterfileNo, , acDialog, Me.Name
With Forms!frmRemitHistSummary
!ClientName = Me.ClientName
End With
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdPol_Click
' Author : norbert
' Date : 4/24/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub cmdPol_Click()
On Error GoTo cmdPol_Click_Error
DoCmd.OpenForm "frmPolicyNumber", , , , , , Me.Name
On Error GoTo 0
Exit Sub
cmdPol_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdPol_Click of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdPrintIns_Click
' Author : norbert
' Date : 5/7/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub cmdPrintIns_Click()
On Error GoTo cmdPrintIns_Click_Error
DoCmd.OpenReport "rptFSLCerPolPrtLbl", acViewPreview, , , , Me.PolicyNo
'20141003 AS per Zulema, Carlos, Vicky
DoCmd.PrintOut , , , acHigh, 2
DoCmd.Close acReport, "rptFSLCerPolPrtLbl", acSaveYes
If vbYes = MsgBox("PLEASE CONFIRM THAT POLICY# " & Me.PolicyNo & " LABEL IS PRINTED FOR MASTERFILENO= " & Me.MasterfileNo _
, vbYesNo + vbInformation, "ISM") Then
End If
On Error GoTo 0
Exit Sub
cmdPrintIns_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdPrintIns_Click of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdSave_Click
' Author : Norbert
' Date : 4/7/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub cmdSave_Click()
On Error GoTo cmdSave_Click_Error
'Dim lgAmt As Long
If NeedInfo Then Exit Sub
DerivedMasterFields
If Not Me.Dirty Then
Exit Sub
Else
If Me.AllowEdits Then
'derived field 20140109
' lgAmt = Nz(Me.Cwaamtrec, 0) - Nz(Me.EFTCustodialFee, 0) - Nz(Me.Prdcustodialfee, 0) - Nz(Me.DBCustodialFee, 0) - Nz(Me.Bookmark, 0)
'Me.Cwaamttoremit = IIf(Me.IsmaProductCode <> "Association", IIf(lgAmt > 0 And Me.Cwaremitdate = "", lgAmt, ""), Me.Cwaamtrec)
'If Me.lblSaved.Caption = "RECORD DELETED" Then Exit Sub
'DoCmd.Save acForm, Me.Name
RunCommand acCmdSaveRecord
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.lblWarningMaster.Visible = True
Me.lblWarningMaster.ForeColor = vbGreen
Me.lblWarningMaster.Caption = "SAVED"
Me.AllowEdits = False
End If
'this command refresh and clears Openargs
'DoCmd.RunCommand acCmdSave
End If
On Error GoTo 0
Exit Sub
cmdSave_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdSave_Click of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdSecIns_Click
' Author : Norbert
' Date : 4/9/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub cmdSecIns_Click()
On Error GoTo cmdSecIns_Click_Error
If Nz(DCount("*", "tblTermrider", "[PolNumber]='" & Nz(Me.PolicyNo, "") & "'")) > 0 Then
DoCmd.OpenForm "frmTermRider", acNormal, , "[PolNumber]='" & Me.PolicyNo & "'", , acDialog, Me.Name
Else
DoCmd.OpenForm "frmTermRider", acNormal, , , acFormAdd, , Me.Name
With Forms!frmTermRider
!RelMSeq = Me.MasterfileNo
!PolNumber = Me.PolicyNo
.SetFocus
End With
End If
On Error GoTo 0
Exit Sub
cmdSecIns_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdSecIns_Click of VBA Document Form_frmMaster"
End Sub
Private Sub cmdTransfer_Click()
On Error GoTo cmdClient_Click_Err
Dim intUserID As Integer
Dim dbsDB As Database
Dim rstRS As DAO.Recordset
Dim strWhere As String
Dim strSQL As String
If IsNothing(Me.Comments) Then Exit Sub
Set dbsDB = CurrentDb
strSQL = "SELECT * FROM qryMasterComments where Mastseqno=" & Me.MasterfileNo
Set rstRS = dbsDB.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
With rstRS
If .RecordCount > 0 Then
.FindFirst "Comments ='" & Me.Comments & "'"
If Not .NoMatch Then
If vbYes = MsgBox("COMMENT(s): " & Me.Comments & vbCrLf & vbCrLf & " ALREADY IN 'MASTER COMMENTS' DATED: " _
& !CommentsDate & vbCrLf & vbCrLf & "ENTER 'YES' TO REMOVE COMMENT(s) HERE", vbCritical + vbYesNo, "DUPLICATE COMMENT(s)") Then
Me.Comments = ""
Refresh
End If
Else
' If vbYes = MsgBox("COMMENT(s): " & Me.Comments & vbCrLf & vbCrLf & " WILL BE MOVED TO THE MASTER COMMENTS" _
' & vbCrLf & vbCrLf & "ENTER 'YES' TO REMOVE COMMENT(s) HERE", vbCritical + vbYesNo, "MOVE COMMENT(s) TO 'MASTER COMMENTS'") Then
' Me.Comments = ""
' 'Refresh
'
' End If
' intUserID = Nz(DLookup("UserNameID", "tbl_LogIn"))
DoCmd.RunSQL "INSERT INTO tblmastcomments ( MastseqNo, UserNameID, CommentsDate, Comments ) SELECT " _
& (Me.MasterfileNo & "," & intUserID & ",#" & Date & "#," & "'" & Me.Comments & "'")
Me.Comments = ""
Refresh
End If
ElseIf .RecordCount = 0 Then
intUserID = Nz(DLookup("UserNameID", "tbl_LogIn"))
DoCmd.RunSQL "INSERT INTO tblmastcomments ( MastseqNo, UserNameID, CommentsDate, Comments ) SELECT " _
& (Me.MasterfileNo & "," & intUserID & ",#" & Date & "#," & "'" & Me.Comments & "'")
Me.Comments = ""
Refresh
End If
.Close
End With
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
Private Sub CollectionMode_AfterUpdate()
On Error GoTo cmdClient_Click_Err
'Procedure to load the dif collection modes 10/3/11
Me.PriorCollMode = Me.ActiveControl.OldValue
CollectionModes
'derived field 10140109
DoCmd.RunSQL "UPDATE tblPRDBillingHistory SET CollectMode='" & Me.CollectionMode & "' WHERE MasterSeqNo=" & Me.MasterfileNo
'If Me.CompanycodeLoanNo = "FSL" Or Me.CompanycodeLoanNo = "APL" Or Me.CompanycodeLoanNo = "PNC" Then
' If Me.CollectionMode = "EFT" Or Me.CollectionMode = "CCard" Then
' Me.CustodialBank = "AF"
' Else
' MsgBox "SELECT A DIFFERENT CUSTODIAL BANK", vbCritical, "ISM"
' Me.CustodialBank.SetFocus
'
' End If
'End If
If Me.CompanycodeLoanNo = "FSL" Or Me.CompanycodeLoanNo = "APL" Or Me.CompanycodeLoanNo = "PNC" Then
If Me.CollectionMode = "EFT" Or Me.CollectionMode = "CCard" Or Me.CollectionMode = "Direct Bill" Or Me.CollectionMode = "PRD" Then
Me.CustodialBank = "AF"
' Else
' MsgBox "SELECT A DIFFERENT CUSTODIAL BANK", vbCritical, "ISM"
' Me.CustodialBank.SetFocus
' Exit Sub
End If
End If
'072213 default today() as per Sue to eliminate Scan Text for not equal...... changed 20140325
'Me.TransmittalDate = Date
'Me.PreNoteDate = Date
'---------------------------------------------
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
'---------------------------------------------------------------------------------------
' Procedure : CollectionMode_Change
' Author : Norbert
' Date : 5/14/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub CollectionMode_Change()
On Error GoTo CollectionMode_Change_Error
If Me.IsmaIdAssWeb.Visible = True Then
Me.IsmaIdAssWeb.SetFocus
Else
Me.ApplicationDate.SetFocus
End If
On Error GoTo 0
Exit Sub
CollectionMode_Change_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CollectionMode_Change of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : CompanycodeLoanNo_AfterUpdate
' Author : Norbert
' Date : 5/12/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub CompanycodeLoanNo_AfterUpdate()
Dim strName As String
On Error GoTo CompanycodeLoanNo_AfterUpdate_Error
Me.ActiveControl = StrConv(Me.ActiveControl, vbUpperCase)
strName = Nz(DLookup("CompanyName", "tblVendLend", "CompanycodeLoanNo='" & Me.ActiveControl & "'"))
'If Not IsNothing(strName) Then
' MsgBox "VENDOR: " & UCase(Me.ActiveControl) & " IS ASSIGNED TO " & UCase(strName) & vbCrLf & vbCrLf & _
' "PLEASE!-ENTER A DIFFERENT CODE FOR VENDOR: " & UCase(Me.ActiveControl) & " AGAIN OR EXIT", vbCritical, "WARNING DUPLICATE VENDOR!"
'
' Me.ActiveControl = ""
' Me.ActiveControl.SetFocus
' Exit Sub
'End If
If Nz(DCount("CompanyName", "tblVendLend", "CompanycodeLoanNo='" & Me.ActiveControl & "'")) > 0 Then
'Cancel = True
If Me.ActiveControl = Me.ActiveControl.OldValue Then
If MsgBox("THIS CODE BELONGS TO: " & vbCrLf & strName & vbCrLf & _
"CONFIRM IF CORRECT", vbQuestion + vbYesNo, "ISM") = vbYes Then
Else
Me.ActiveControl = ""
Me.ActiveControl.SetFocus
End If
Else
If Not IsNothing(Me.ActiveControl.OldValue) Then
If MsgBox("VENDOR CODE WILL BE CHANGED" & vbCrLf & vbCrLf & "FROM: " & Me.ActiveControl.OldValue & "----TO: " & Me.ActiveControl & "?" & _
vbCrLf & vbCrLf & "IS THIS CORRECT?", vbQuestion + vbYesNo, "ISM") = vbYes Then
Refresh
If Me.CompanycodeLoanNo = "FSL" Or Me.CompanycodeLoanNo = "APL" Or Me.CompanycodeLoanNo = "PNC" Then
If Me.CollectionMode = "EFT" Or Me.CollectionMode = "CCard" Then
Me.CustodialBank = "AF"
End If
End If
Exit Sub
End If
End If
End If
Else
DoCmd.OpenForm "frmVendorLender", , , , acFormAdd, acDialog, Me.ActiveControl
End If
If Me.CompanycodeLoanNo = "FSL" Or Me.CompanycodeLoanNo = "APL" Or Me.CompanycodeLoanNo = "PNC" Then
If Me.CollectionMode = "EFT" Or Me.CollectionMode = "CCard" Then
Me.CustodialBank = "AF"
End If
End If
On Error GoTo 0
Exit Sub
CompanycodeLoanNo_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CompanycodeLoanNo_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : CompanycodeLoanNo_MouseUp
' Author : Norbert
' Date : 5/11/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub CompanycodeLoanNo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo CompanycodeLoanNo_MouseUp_Error
If X >= 1410 And X <= 1605 Then
'Me.CompanycodeLoanNo.Dropdown
Me.cboCompanycodeLoanNo.SetFocus
'You can use the line below to determine the coordinates. Remove the comment, go to Access and switch the form to form view.
'carefully click around the left and right edges of the drop-down square to determine its left and right extremes
End If
'MsgBox X
On Error GoTo 0
Exit Sub
CompanycodeLoanNo_MouseUp_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CompanycodeLoanNo_MouseUp of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Critillrider_AfterUpdate
' Author : norbert
' Date : 5/1/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub Critillrider_AfterUpdate()
On Error GoTo Critillrider_AfterUpdate_Error
If IsNothing(Me.Critillrider) Then Me.Critillrider = "NO"
On Error GoTo 0
Exit Sub
Critillrider_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Critillrider_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Custodialbank_LostFocus
' Author : norbert
' Date : 9/23/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub Custodialbank_LostFocus()
On Error GoTo Custodialbank_LostFocus_Error
If Me.CompanycodeLoanNo = "FSL" Or Me.CompanycodeLoanNo = "APL" Or Me.CompanycodeLoanNo = "PNC" Then
If Me.CollectionMode = "EFT" Or Me.CollectionMode = "CCard" Then
Me.CustodialBank = "AF"
Else
If Me.CustodialBank = "AF" Then
MsgBox "SELECT A DIFFERENT CUSTODIAL BANK NOT 'AF'", vbCritical, "ISM"
Me.CustodialBank.SetFocus
Exit Sub
End If
End If
End If
On Error GoTo 0
Exit Sub
Custodialbank_LostFocus_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Custodialbank_LostFocus of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : DbCustodialFee_AfterUpdate
' Author : Norbert
' Date : 10/12/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub DbCustodialFee_AfterUpdate()
On Error GoTo DbCustodialFee_AfterUpdate_Error
'20140815
Me.RemittancePmtAmt = Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0)
Me.Dbremitamt = IIf(Me.prodcde <> "Association", IIf((Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0)) > 0 And IsNothing(Me.Dbremitteddate) _
, Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0), 0), Nz(Me.DBGrossBillAmt, 0))
On Error GoTo 0
Exit Sub
DbCustodialFee_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DbCustodialFee_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Dbgrossbillamt_AfterUpdate
' Author : Norbert
' Date : 5/31/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Dbgrossbillamt_AfterUpdate()
On Error GoTo Dbgrossbillamt_AfterUpdate_Error
'20140814
Me.RemittancePmtAmt = Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0)
Me.Dbremitamt = IIf(Me.prodcde <> "Association", IIf((Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0)) > 0 And IsNothing(Me.Dbremitteddate) _
, Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0), 0), Nz(Me.DBGrossBillAmt, 0))
On Error GoTo 0
Exit Sub
Dbgrossbillamt_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Dbgrossbillamt_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : DeductionCycle_AfterUpdate
' Author : Norbert
' Date : 2/6/2014
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub DeductionCycle_AfterUpdate()
On Error GoTo DeductionCycle_AfterUpdate_Error
DerivedMasterFields
On Error GoTo 0
Exit Sub
DeductionCycle_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DeductionCycle_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Effectivedate_AfterUpdate
' Author : norbert
' Date : 8/8/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub Effectivedate_AfterUpdate()
On Error GoTo Effectivedate_AfterUpdate_Error
Me.DBNextBillDate = IIf(Not IsNothing(Me.Effectivedate), IIf(IsNothing(Me.Dblastbilldate), DateAdd("m", 11, Me.Effectivedate), DateAdd("yyyy", 1, Me.Dblastbilldate)), Null)
On Error GoTo 0
Exit Sub
Effectivedate_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Effectivedate_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Eftcomments_AfterUpdate
' Author : Norbert
' Date : 5/8/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Eftcomments_AfterUpdate()
On Error GoTo Eftcomments_AfterUpdate_Error
Me.Eftasofdate.Visible = True
Me.Eftasofdate = Date
On Error GoTo 0
Exit Sub
Eftcomments_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Eftcomments_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Eftcustodialfee_AfterUpdate
' Author : Norbert
' Date : 10/6/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Eftcustodialfee_AfterUpdate()
On Error GoTo Eftcustodialfee_AfterUpdate_Error
'20140814
Me.RemittancePmtAmt = Nz(Me.Eftgrosscollamt, 0) - Nz(Me.EFTCustodialFee, 0)
On Error GoTo 0
Exit Sub
Eftcustodialfee_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Eftcustodialfee_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Eftgrosscollamt_AfterUpdate
' Author : Norbert
' Date : 5/31/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Eftgrosscollamt_AfterUpdate()
On Error GoTo Eftgrosscollamt_AfterUpdate_Error
Me.RemittancePmtAmt = Nz(Me.Eftgrosscollamt, 0) - Nz(Me.EFTCustodialFee, 0)
On Error GoTo 0
Exit Sub
Eftgrosscollamt_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Eftgrosscollamt_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Flexoption_Change
' Author : Norbert
' Date : 5/14/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Flexoption_Change()
On Error GoTo Flexoption_Change_Error
Me.WantsFund.SetFocus
On Error GoTo 0
Exit Sub
Flexoption_Change_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Flexoption_Change of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_BeforeUpdate
' Author : Norbert
' Date : 5/19/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Form_BeforeUpdate_Error
If Me.Dirty Then Me.lblWarningChange.Visible = False
'If Me.AllowEdits Then Me.lblWarningMaster.Caption = "EDIT!"
If Me.NewRecord Then
Call AuditChanges("MasterFileNo", "NEW", "Audit")
Else
Call AuditChanges("MasterFileNo", "EDIT", "Audit")
End If
On Error GoTo 0
Exit Sub
Form_BeforeUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_BeforeUpdate of VBA Document Form_frmMaster"
End Sub
Private Sub Form_Close()
On Error GoTo PROC_ERR
'MsgBox "hola"
If IsLoaded("frmPrtCWANSFLtrSearch") Then
With Forms!frmPrtCWANSFLtrSearch
!txtMasterFileNo = Me.MasterfileNo
!txtClientName = Me.ClientName
If IsLoaded("frmMasterSummary") Then DoCmd.Close acForm, "frmMasterSummary"
.SetFocus
'!CollectionMode = Me.CollectionMode
'!PolicyNo = Me.PolicyNo
!txtMsg = "PRINT SIX CWA NSF LETTER FOR MASTERFILENO: " & Me.MasterfileNo
End With
Exit Sub
'GoTo PRIORFRM
End If
If IsLoaded("frmSixYrEFTLtrSearch") Then
With Forms!frmSixYrEFTLtrSearch
!MasterfileNo = Me.MasterfileNo
!Productstatus = Me.Productstatus
!CollectionMode = Me.CollectionMode
!PolicyNo = Me.PolicyNo
!txtMsg = "PRINT SIX YEAR LETTER FOR POLICY# " & !PolicyNo
End With
GoTo PRIORFRM
End If
If IsLoaded("frmFSLTenYrCtl") Then
With Forms!frmFSLTenYrCtl
'20140502
!MasterfileNo = Me.MasterfileNo
!txtNxtCollDate1 = Me.Nextcollectiondate
!CustodialFee = Me.EFTCustodialFee
!ISMCollMode = Me.CollectionMode
If Me.CollectionMode = "Fed Allot" Then
!txtNxtCollDate1.Visible = False
Else
!txtNxtCollDate1.Visible = True
End If
'!txtMsg = "PRINT FSL TEN YEAR LETTER FOR POLICY# " & !PolPrefix
End With
End If
'20140529
If IsLoaded("frmProTenYrSingCtlSearch") Then
With Forms!frmProTenYrSingCtlSearch
!MasterfileNo = Me.MasterfileNo
!MasterfileNo = Me.MasterfileNo
!txtNxtCollDate = Me.Nextcollectiondate
!CustodialFee = Me.EFTCustodialFee
!txtMsg = "PRINT YEAR LETTER(s) FOR POLICY# " & !PolicyNo
End With
End If
'If IsLoaded("frmProTenYrCtl") Then
' With Forms!frmProTenYrCtl
' '!MasterFileNo = Me.MasterFileNo
' !txtMsg = "PRINT TEN YEAR LETTER FOR POLICY# " & !PolicyNo
' End With
'End If
If IsLoaded("frmComboSixYrPrm") Then
With Forms!frmComboSixYrPrm
'!MasterFileNo = Me.MasterFileNo
!DBGrossBillAmt = Me.DBGrossBillAmt
!DBNextBillDate = Me.DBNextBillDate
!txtMsg = "PRINT SIX YEAR LETTER FOR POLICY# " & !PolicyNo
End With
End If
If IsLoaded("frmMakeMastInacCtlSummary") Then
If Forms!frmMakeMastInacctlSummary!txtProcess = "MASTINACVIEW" Then
GoTo PRIORFRM
End If
End If
If IsLoaded("frmMasterClientSearch") Then
If Forms!frmMasterClientSearch!txtProcess = "MASTINAC" Then
If IsLoaded("frmMasterSummary") Then
DoCmd.Close acForm, "frmMasterSummary"
End If
'NOT NECESSARY JUST TO REVIEW THE MASTER FILE 050113
' If Nz(DCount("*", "tblInactiveMast", "MasterSeqNo=" & Me.MasterfileNo)) > 0 Then
' MsgBox "THIS IS A DUPLICATE ENTRY." & vbCrLf & "PLEASE TRY AGAIN.", vbCritical, "ISM"
' GoTo PRIORFRM
' Exit Sub
' End If
If IsLoaded("frmMasterClientSearch") Then
POPULATEFRMMASTERCLIENTSEARCH '--------------------20140411
Exit Sub
'as per Sue does not need this condition 051613
'If Me.Productstatus = "Withdrawn" And Not IsNothing(Me.Policycancelreason) Then
'GoTo PRIORFRM
'Else
'added 043013
' If Forms!frmMasterclientSearch.Visible = True Then Forms!frmMasterclientSearch.Visible = False
' MsgBox "POLICY MUST BE 'Withdrawn' with a POLICY CANCEL REASEON", vbCritical, "ISM"
' GoTo PRIORFRM
'Exit Sub
'End If
End If
End If
End If
If IsLoaded("frmMasterSummary") Then
With Forms!frmMasterSummary
.SetFocus
!cmdContract.SetFocus
End With
Else
'When press cmdSave clears the OpenArg use txtOpenArgHold
If Not IsNothing(Me.OpenArgs) Then
If Me.OpenArgs = "frmMasterClientSearch" Then Forms!frmMasterClientSearch!lblMaster.Caption _
= "MASTER-Last Master File No=" & NowMasterfileNo
Else
If Me.txtOpenArgHold = "frmMasterClientSearch" Then Forms!frmMasterClientSearch!lblMaster.Caption _
= "MASTER-Last Master File No=" & NowMasterfileNo
End If
End If
PRIORFRM:
'To take care of HL02-Onl-NSF-LTR
If IsLoaded("frmHL02OnlNSFLtrSearch") Then
FocusFrm ("frmHL02OnlNSFLtrSearch")
'To take care of PA03-Onl-STOP-LTR
ElseIf IsLoaded("frmPA03OnlStopLtrSearch") Then
FocusFrm ("frmPA03OnlStopLtrSearch")
'To take care of PA04-Onl-closed-AC
ElseIf IsLoaded("frmPA04OnlClosedAcSearch") Then
FocusFrm ("frmPA04OnlClosedAcSearch")
ElseIf IsLoaded("frmSelFSLRelRecsSearch") Then
FocusFrm ("frmSelFSLRelRecsSearch")
ElseIf IsLoaded("frmOnlFSLNewBkXtraSearch") Then
FocusFrm ("frmOnlFSLNewBkXtraSearch")
Else
If Not IsNothing(Me.OpenArgs) Then
FocusFrm (Me.OpenArgs)
If IsLoaded("frmClient") Then Forms!FRMCLIENT.Form.fSubAgentsContracts!cmdContract.SetFocus
ElseIf Not IsNothing(Me.txtOpenArgHold) Then
FocusFrm (Me.txtOpenArgHold)
ElseIf IsLoaded("frmMasterClientSearch") Then
FocusFrm ("frmMasterClientSearch")
End If
End If
'--------------------------------------------------------------
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub Form_Current()
On Error GoTo PROC_ERR
'20140116 in AA trip to Miam
'If Nz(DCount("*", "tblAFInsuranceExp", "MasterfileNo=" & Me.MasterFileNo)) > 0 Then
' Me.tgACHAccard.Caption = "DAILY ACH/Ccard"
' Me.fSubDailyACHCcard.Form.Visible = True
'Else
' Me.tgACHAccard.Caption = "NOT DAILY ACH/Ccard"
' Me.fSubDailyACHCcard.Form.Visible = False
'End If
'If Forms!frmmaster!fSubDailyACHCcard!ACHCcard = True Then
' Forms!frmmaster!fSubDailyACHCcard.Visible = True
'Else
' Forms!frmmaster!fSubDailyACHCcard.Visible = False
'End If
'If Me.CollectionMode = "EFT" Or Me.CollectionMode = "CCard" Then
' If !ACHCcard = True Then Exit Sub
'20140808------------update dbnextbilldate
'20140814
If Me.CollectionMode = "EFT" Or Me.CollectionMode = "Fed Allot" Or Me.CollectionMode = "CCard" Then
If Me.RemittancePmtAmt <> Nz(Me.Eftgrosscollamt, 0) - Nz(Me.EFTCustodialFee, 0) Then Me.RemittancePmtAmt = Nz(Me.Eftgrosscollamt, 0) - Nz(Me.EFTCustodialFee, 0)
ElseIf Me.CollectionMode = "PRD" Then
If Me.RemittancePmtAmt <> Nz(Me.Prdgrosscollamt, 0) - Nz(Me.Prdcustodialfee, 0) Then Me.RemittancePmtAmt = Nz(Me.Prdgrosscollamt, 0) - Nz(Me.Prdcustodialfee, 0)
Else
If Me.RemittancePmtAmt <> Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0) Then Me.RemittancePmtAmt = Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0)
If Me.Dbremitamt <> IIf(Me.prodcde <> "Association", IIf((Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0)) > 0 And IsNothing(Me.Dbremitteddate) _
, Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0), 0), Nz(Me.DBGrossBillAmt, 0)) Then Me.Dbremitamt = IIf(Me.prodcde <> "Association", IIf((Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0)) > 0 And IsNothing(Me.Dbremitteddate) _
, Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0), 0), Nz(Me.DBGrossBillAmt, 0))
End If
If Me.DBNextBillDate <> IIf(Not IsNothing(Me.Effectivedate), IIf(IsNothing(Me.Dblastbilldate), DateAdd("m", 11, Me.Effectivedate), DateAdd("yyyy", 1, Me.Dblastbilldate)), Null) Then
Me.DBNextBillDate = IIf(Not IsNothing(Me.Effectivedate), IIf(IsNothing(Me.Dblastbilldate), DateAdd("m", 11, Me.Effectivedate), DateAdd("yyyy", 1, Me.Dblastbilldate)), Null)
End If
'----------------------------------------------------
If Me.MasterfileNo = Me.txtMasterFileNo Then
Me.MasterfileNo.BackColor = vbWhite
Me.MasterfileNo.ForeColor = vbBlue
Else
Me.MasterfileNo.BackColor = vbRed
Me.MasterfileNo.ForeColor = vbWhite
End If
'for missing fields when save or exit 050713
'AS PER BRENDA 051013 DON'T NEED IT
'If Not IsNothing(Me.Lastremittancedate) Then
' Me.lblFirstRemDate.Visible = False
'Else
' Me.lblFirstRemDate.Visible = True
'End If
'-------------------------------------------------
'as per Brenda needs the comments 070513
'If IsNothing(Me.Comments) Then
' Me.cmdTransfer.Visible = False
' Me.Comments.Visible = False
'Else
' Me.cmdTransfer.Visible = True
' Me.Comments.Visible = True
'End If
'Procedure to load the dif collection modes 10/3/11
CollectionModes
'Procedure to load the dif Product Codes 10/4/11
ProductCodeCases
Refresh
'Me.Painting = True
Me.Assocmfn.SetFocus
'DoCmd.Hourglass False
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Dirty
' Author : Norbert
' Date : 5/12/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Form_Dirty(Cancel As Integer)
On Error GoTo Form_Dirty_Error
'MsgBox "dirty"
'If Me.Dirty Then
Me.lblWarningChange.Visible = True
'Else
' Me.lblWarningChange.Visible = False
'End If
On Error GoTo 0
Exit Sub
Form_Dirty_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Dirty of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Error
' Author : Norbert
' Date : 2/18/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo Form_Error_Error
If DataErr = 7787 Then
MsgBox "This record was edited by someone while you " _
& "were making edits." & _
"Your edits cannot be saved. Please try again."
Response = acDataErrContinue
Me.Undo
End If
On Error GoTo 0
Exit Sub
Form_Error_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Error of VBA Document Form_frmMaster"
End Sub
Private Sub Form_Load()
On Error GoTo PROC_ERR
Dim intComments As Integer
Me.lblWarningChange.Visible = False
Me.lblWarningMaster.Visible = False
Me.lblApplication.Visible = False
'20141119
Me.txtPriorMasterFileNo.Visible = False
'If Me.fSubDailyACHCcard.Form!ACHCcard = True Then
'for missing fields when save or exit 050713
'AS PER BRENDA 051013 DON'T NEED IT
'If Not IsNothing(Me.Lastremittancedate) Then
' Me.lblFirstRemDate.Visible = False
'Else
' Me.lblFirstRemDate.Visible = True
'End If
'-------------------------------------------------
'as per Brenda they need this comments 070513
'If IsNothing(Me.Comments) Then
' Me.cmdTransfer.Visible = False
' Me.Comments.Visible = False
'Else
' Me.cmdTransfer.Visible = True
' Me.Comments.Visible = True
'End If
'-----------------------------------------------------------------------
'20140402------------------as per Sue
If IsNothing(Me.Mastcreatedate) Then Me.Mastcreatedate = Date
'----------------------------------------------------------------------
Me.cmdSave.Visible = False
'Me.Painting = False
'DoCmd.Hourglass True
'Procedure to load the dif collection modes 10/3/11
CollectionModes
'Procedure to load the dif Product Codes 10/4/11 add Client Cancellation Information 043013
ProductCodeCases
'------------------------------------MASTER INACTIVE PROCESS --------------------------------021313
If IsLoaded("frmMasterClientSearch") Then
If Forms!frmMasterClientSearch!txtProcess = "MASTINAC" Then
Me.txtProcessMsg = "MASTER INACTIVE PROCESS"
Me.txtProcessMsg.Visible = True
'------------------------------------FSL IRS FORM W-9 REQ LETTER PROCESS --------------------------------022513
ElseIf IsLoaded("frmMasterClientSearch") Then
If Forms!frmMasterClientSearch!txtProcess = "W9REQLTR" Then
Me.txtProcessMsg = "FSL IRS FORM W-9 REQ LETTER PROCESS"
Me.txtProcessMsg.Visible = True
End If
Else
Me.txtProcessMsg.Visible = False
End If
End If
'9/13/11 comments count
intMasterComments = Nz(DCount("*", "tblMastComments", "MastSeqNo=" & Me.MasterfileNo))
Me.lblComments.Caption = "Tl Comments=" & intMasterComments
Me.Assocmfn.SetFocus
CommentsMaster (0)
Me.cmdGoto.Caption = "MASTER"
Me.AllowDeletions = False
Me.AllowEdits = False
Me.lblWarningMaster.Visible = False
Me.AllowAdditions = False
Me.Refresh
Me.Assocmfn.SetFocus
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub InCareOf_AfterUpdate()
On Error GoTo PROC_ERR
''Me.ActiveControl = SetUpper(Me.ActiveControl)
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub Principals_AfterUpdate()
On Error GoTo PROC_ERR
'Me.ActiveControl = SetUpper(Me.ActiveControl)
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub Street_AfterUpdate()
On Error GoTo PROC_ERR
'Me.ActiveControl = SetUpper(Me.ActiveControl)
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub Street2_AfterUpdate()
On Error GoTo PROC_ERR
'Me.ActiveControl = SetUpper(Me.ActiveControl)
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Private Sub cmdClose1_Click()
On Error GoTo cmdClose1_Click_Err
Dim lgNowMasterFileNo As Long
Dim lgNextMasterfile As Long
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
'add this procedure due to CWA Insurance missing as per Brenda 20140522
If NeedInfo Then Exit Sub
'-------------------------------------------------------------------------
If Me.lblWarningMaster.Caption <> "NEW" Then
If Me.Dirty Then
If vbNo = MsgBox("CHANGES WERE MADE!" & vbCrLf & vbCrLf & _
"ARE YOU SURE THAT YOU WANT TO EXIT WITHOUT SAVING?", vbCritical + vbYesNo, "ISM WARNING!") Then
Exit Sub
End If
Me.Undo
Me.Dirty = False
End If
Me.txtOpenArgHold = Me.OpenArgs
If Not Me.Dirty Then DoCmd.Close acDefault, Me.Name, acSaveNo
'If MissingMasterInfo = True Then Exit Sub
End If
intPopulate = 0
'check if Agents are terminated
lgNowMasterFileNo = Me.MasterfileNo
lgNextMasterfile = NowMasterfileNo
'CHANGED 043013 due to conflict with cx masterfile
If Left(Me.txtProcessMsg, 7) = "CAUTION" Then
If vbNo = MsgBox("THIS A NEW MASTER FILE NO =" & lgNowMasterFileNo & vbCrLf & _
"PLEASE MAKE SURE THAT ALL THE INFORMATION IS CORRECT" & vbCrLf & _
"DO YOU WANT TO SAVE THIS NEW MASTER FILE?", vbQuestion + vbYesNo, "CONFIRM NEW MASTER FILE!") Then
If lgNowMasterFileNo <> lgNextMasterfile Then
If vbOK = MsgBox("WARNING!...." & "OTHER USER OPEN A MASTERFILE " & lgNextMasterfile & vbCrLf & _
"IF YOU SELECT 'OK' THIS MASTERFILE # " & lgNowMasterFileNo & " WILL NOT BE AVAILABLE ANYMORE", vbCritical + vbOKCancel, "DELETE MASTERFILENO " & lgNowMasterFileNo) Then
Me.AllowDeletions = True
DoCmd.RunCommand acCmdDeleteRecord
lgNowMasterFileNo = NowMasterfileNo
GoTo MASTERCLOSE
Else
End If
Else
Me.AllowDeletions = True
DoCmd.RunCommand acCmdDeleteRecord
lgNowMasterFileNo = NowMasterfileNo
GoTo MASTERCLOSE
End If
End If
Msg = "WARNING!....DID YOU SCAN THE APPLICATION FOR INSURANCE WITH THE INSURANCE # LABEL ASSIGNED?" & vbCrLf & _
"IF THIS MASTERFILE DOES NOT NEED AN INSURANCE APPLICATION PRESS CANCEL"
Style = vbYesNoCancel + vbCritical + vbDefaultButton2
Title = "SCAN APPLICATION"
'Help = "DEMO.HLP"
'Ctxt = 1000
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Me.lblApplication.Visible = False
ElseIf Response = vbNo Then
Me.lblApplication = "PLEASE MAKE THE LABEL WITH THE POLICY # AND SCAN THE APPLICATION FOR INSURANCE"
Me.lblApplication.Visible = True
Me.cmdPDFFiles.SetFocus
Exit Sub
ElseIf Response = vbCancel Then
Me.lblApplication.Visible = False
End If
End If
If Me.IsmaId = 0 Or IsNothing(Me.IsmaId) Then
If vbYes = MsgBox("THIS A NEW MASTER FILE NO =" & lgNowMasterFileNo & vbCrLf & _
"PLEASE MAKE SURE THAT ALL THE INFORMATION IS CORRECT" & vbCrLf & _
"DO YOU WANT TO SAVE MASTERFILE# " & Me.MasterfileNo & "?" & vbCrLf & vbCrLf & "BY DELETING MASTERFILE #: " & lgNowMasterFileNo & " WILL NOT BE AVAILABLE..." _
, vbQuestion + vbYesNo, "ISM") Then
Else
Me.AllowDeletions = True
DoCmd.RunCommand acCmdDeleteRecord
lgNowMasterFileNo = NowMasterfileNo
GoTo MASTERCLOSE
End If
End If
'410 HL02-ONL-NSF-CTL PROCESS TO PRINT LETTER THIS IS NOT THE WHOLE PROCEDURE ONLY PREPARATION
If Me.txtProcess = "HL02" Then
If Me.CompanycodeLoanNo = "GTL-AM" Or Me.CompanycodeLoanNo = "CLIC" Or Me.CompanycodeLoanNo = "FSF" Or Me.CompanycodeLoanNo = "AIG" Then
With Forms!frmHL02OnlNSFLtrSearch
!txtMasterFileNo = Me.MasterfileNo
!txtClientName = Me.ClientName
End With
Else
MsgBox (" MastSeq# " & Me.MasterfileNo & " is not a Health/FCHS product." & vbCrLf & _
"Please try again. "), vbCritical, "ISM"
End If
If IsLoaded("frmMasterSummary") Then
DoCmd.Close acForm, "frmMasterSummary"
End If
GoTo MASTERCLOSE
End If
'402 PA03 PROCESS TO PRINT LETTER THIS IS NOT THE WHOLE PROCEDURE ONLY PREPARATION
If Me.txtProcess = "PA03" Then
If Me.IsmaProductCode = "FCHS" Or Me.IsmaProductCode = "HEALTH" Then
With Forms!frmPA03OnlStopLtrSearch
!txtMasterFileNo = Me.MasterfileNo
!txtClientName = Me.ClientName
End With
Else
MsgBox (" MastSeq# " & Me.MasterfileNo & " is not a Health/FCHS product." & vbCrLf & _
"Please try again. "), vbCritical, "ISM"
End If
If IsLoaded("frmMasterSummary") Then
DoCmd.Close acForm, "frmMasterSummary"
End If
GoTo MASTERCLOSE
End If
'--------------------------------------------------------------------------------------------------------------
'403 PA04 PROCESS TO PRINT LETTER THIS IS NOT THE WHOLE PROCEDURE ONLY PREPARATION
If Me.txtProcess = "PA04" Then
If Me.IsmaProductCode = "FCHS" Or Me.IsmaProductCode = "HEALTH" Then
With Forms!frmPA04OnlClosedAcSearch
!txtMasterFileNo = Me.MasterfileNo
!txtClientName = Me.ClientName
End With
Else
MsgBox (" MastSeq# " & Me.MasterfileNo & " is not a Health/FCHS product." & vbCrLf & _
"Please try again. "), vbCritical, "ISM"
End If
If IsLoaded("frmMasterSummary") Then
DoCmd.Close acForm, "frmMasterSummary"
End If
GoTo MASTERCLOSE
End If
'--------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------
'496 CWA9 SEL-FSL-REL-RECS
If Me.txtProcess = "CWA9" Then
If Me.CompanycodeLoanNo = "FSL" Then
With Forms!frmSelFSLRelRecsSearch
!txtMasterFileNo = Me.MasterfileNo
!txtClientName = Me.ClientName
!txtAssocMFN = Me.Assocmfn
!txtCompanycodeLoanNo = Me.CompanycodeLoanNo
End With
Else
MsgBox (" MastSeq# " & Me.MasterfileNo & " is not a FSL." & vbCrLf & _
"Please try again. "), vbCritical, "ISM"
End If
If IsLoaded("frmMasterSummary") Then
DoCmd.Close acForm, "frmMasterSummary"
End If
GoTo MASTERCLOSE
End If
'--------------------------------------------------------------------------------------------------------------
'503 onl-fsl-new-bk-xtra
If Me.txtProcess = "BKXTRA" Then
Select Case Forms!frmOnlFSLNewBkXtraSearch!txtProcedure
Case 503
If Me.CompanycodeLoanNo = "FSL" And Me.CollectionMode = "EFT" Then
With Forms!frmOnlFSLNewBkXtraSearch
!txtMasterFileNo = Me.MasterfileNo
!txtClientName = Me.ClientName
!txtAssocMFN = Me.Assocmfn
!txtCompanycodeLoanNo = Me.CompanycodeLoanNo
End With
Else
MsgBox UCase((" MastSeq# " & Me.MasterfileNo & " Comp.Code or Coll.Mode not valid." & vbCrLf & _
"Please try again. ")), vbCritical, "ISM"
End If
Case 508
If Me.CompanycodeLoanNo = "FSL" Then
With Forms!frmOnlFSLNewBkXtraSearch
!txtMasterFileNo = Me.MasterfileNo
!txtClientName = Me.ClientName
!txtAssocMFN = Me.Assocmfn
!txtCompanycodeLoanNo = Me.CompanycodeLoanNo
End With
Else
MsgBox UCase((" MastSeq# " & Me.MasterfileNo & " Insurance Company not FSL" & vbCrLf & _
"Please try again. ")), vbCritical, "ISM"
End If
Case 1392
If IsNothing(Me.W9Sent) Then
With Forms!frmOnlFSLNewBkXtraSearch
!txtMasterFileNo = Me.MasterfileNo
!txtClientName = Me.ClientName
!txtAssocMFN = Me.Assocmfn
!txtCompanycodeLoanNo = Me.CompanycodeLoanNo
End With
Else
MsgBox UCase((" MastSeq# " & Me.MasterfileNo & " W9 previously sent on " & Me.W9Sent & vbCrLf & _
"To re-send it again blank out W9 sent Date!")), vbCritical, "ISM"
End If
End Select
If IsLoaded("frmMasterSummary") Then
DoCmd.Close acForm, "frmMasterSummary"
End If
GoTo MASTERCLOSE
End If
'--------------------------------------------------------------------------------------------------------------
If IsLoaded("frmMasterClientSearch") Then
If Forms!frmMasterClientSearch!txtProcess = "MASTINAC" Then GoTo MASTERCLOSE
If Forms!frmMasterClientSearch!txtProcess = "W9REQLTR" Then
If (Me.CompanycodeLoanNo = "FSL" Or Me.CompanycodeLoanNo = "APL" Or Me.CompanycodeLoanNo = "PNC") And Me.Flexoption = "yes" Then
If Not IsNothing(Me.W9Sent) Then
MsgBox "W9 PREVIOUSLY SENT ON " & Me.W9Sent & vbCrLf & _
"PROCESSING CANCELLED", vbCritical, "ISM"
GoTo MASTERCLOSE
Else
'OnlW9DplxEngSpanLtr----------------------1392-----------------PROCESS LETTER 022513
Dim rpt As Report
Dim strRpt As String
strQry = "qryrptOnlW9DplxEngSpanLtr"
strRpt = "rptOnlW9DplxEngSpanLtr"
strWhere = "MasterFileNo=" & Me.MasterfileNo
lgEODRecords = Nz(DCount("*", strQry, strWhere))
If lgEODRecords > 0 Then
strRpt = "rptOnlW9DplxEngSpanLtr"
'090513 this is a prior way to print duplex
'PrinterDuplex (strRpt)
'---------------------------------------------
'New way to print files if is duplex then bolDuplex=True 090513
'Prints individual MasterFileno reports to convert to PDF 11/19/11----ScanreportID=2
bolDuplex = True
Call PrtIndividualReport(strProc, strRpt, strQry, 274, "MasterFolder", 2, 3, 7, , , , , , , , "Default")
bolDuplex = False
'-------------------------------------------------------------------------------------
'Update Masterfile W9Sent date-------------------------------022513
Me.AllowEdits = False
DoCmd.RunSQL "UPDATE tblMaster SET W9Sent =" & "#" & Grdate & "# WHERE MasterFileNo=" & Me.MasterfileNo
End If
End If
Else
MsgBox "Company needs to be FSL , APL or PNC ..." & vbCrLf & _
"PROCESSING CANCELLED", vbCritical, "ISM"
GoTo MASTERCLOSE
End If
End If
End If
If IsLoaded("frmMasterSummary") Then
With Forms!frmMasterSummary
'.cmdMaster.Caption = "NEW MFile#: " & lgNowMasterFileNo + 1
'Call FrmRequery(Forms!frmMasterSummary, Me.MasterfileNo)
'NEW MFile#:140619
'.Requery
End With
Else
If IsLoaded("frmMasterClientSearch") Then
With Forms!frmMasterClientSearch
!lblMaster.Caption = "LAST MFile#:" & NowMasterfileNo
'.Requery
End With
End If
End If
MASTERCLOSE:
'pass the prior collection mode 20140211
If IsLoaded("frmMasterClientSearch") Then
With Forms!frmMasterClientSearch
'20140303
If Not IsNothing(!PriorCollMode) Then
!PriorCollMode = Me.PriorCollMode
!PresentCollectionMode = Me.CollectionMode
If Not IsNothing(Me.PriorCollMode) And (Me.PriorCollMode <> Nz(DLookup("PriorCollectionMode", "tblInactiveMast", "MasterSeqno=" & Me.MasterfileNo))) Then
DoCmd.RunSQL "UPDATE tblInactiveMast SET PriorCollectionMode='" & Me.PriorCollMode & "' WHERE MasterSeqno=" & Me.MasterfileNo
End If
End If
End With
End If
On Error Resume Next
DoCmd.Close acForm, Me.Name
cmdClose1_Click_Exit:
Exit Sub
cmdClose1_Click_Err:
MsgBox Error$
Resume cmdClose1_Click_Exit
End Sub
Private Sub cmdClient_Click()
On Error GoTo cmdClient_Click_Err
'If IsLoaded("frmClient") Then
' MsgBox "MASTERFILE IS OPEN BY CLIENT....", vbInformation, "ISM"
' Exit Sub
'End If
' Forms!frmClient.SetFocus
'Else
' DoCmd.OpenForm "frmClient", acNormal, , "[IsmaId]=" & Me.IsmaId, , acDialog, Me.Name
DoCmd.OpenForm "frmClient", acNormal, , "[IsmaId]=" & Me.IsmaId, , , Me.Name
'End If
Me.Visible = False
cmdClient_Click_Exit:
Exit Sub
cmdClient_Click_Err:
MsgBox Error$
Resume cmdClient_Click_Exit
End Sub
Public Sub CommentsMaster(intC As Integer)
On Error GoTo PROC_ERR
'Onload is
If intC = 0 Then
Me.BoxC.Visible = False
Me.cmdADDC.Visible = False
Me.cmdEditC.Visible = False
Me.cmdDeleteC.Visible = False
'Me.cmdOK.Visible = False
Me.lblWarning.Visible = False
Me.lblWarning.Caption = ""
'Me.cmdAdd.Visible = True
Me.cmdEdit.Visible = True
Me.cmdDelete.Visible = True
If Forms!frmMaster!fSubMasterComments.Form.AllowEdits = True Then
Me.lblWarning.Visible = False
Forms!frmMaster!fSubMasterComments.Form.AllowEdits = False
'Me.cmdGoto.Enabled = True
End If
Else
Me.BoxC.Visible = True
Me.cmdADDC.Visible = True
Me.cmdEditC.Visible = True
Me.cmdDeleteC.Visible = True
'Me.cmdOK.Visible = True
Me.lblWarning.Visible = True
Me.lblWarning.Caption = ""
'Me.cmdAdd.Visible = False
Me.cmdEdit.Visible = False
Me.cmdDelete.Visible = False
End If
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox Err.Description
Resume PROC_EXIT
End Sub
Private Sub Form_Open(Cancel As Integer)
On Error GoTo PROC_ERR
Dim rs As Object
Dim Frm As Form
Dim Frm1 As Form
Dim ctrl As Control
'If IsLoaded("frmMasterSummary") Then
' Set frm = Forms!frmMasterSummary
' Set ctrl = frm.MasterFileNo
'ElseIf IsLoaded("frmMasterClientSearch") Then
'
' Set frm = Forms!frmMasterClientSearch
' Set ctrl = frm.MasterFileNo
' If IsNothing(frm.MasterFileNo) Then GoTo EndSub
'End If
'
'If Not IsNothing(ctrl) Then
' Set RS = Me.Recordset.Clone
' RS.FindFirst "MasterFileNo =" & ctrl
'
' If Not RS.EOF Then Me.Bookmark = RS.Bookmark
'Else
' Set RS = Me.Recordset.Clone
' RS.FindFirst "MasterFileNo =" & ctrl
' Me.Bookmark = RS.Bookmark
'End If
EndSub:
Set rs = Nothing
Me.AllowDeletions = False
Me.AllowEdits = False
Me.lblWarningMaster.Visible = False
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Public Sub CollectionModes_temp()
On Error GoTo PROC_ERR
Me.lblEFT.Visible = False
Me.cmdCCard.Visible = False
Me.boxEFT.Visible = False
Me.PreNoteDate.Visible = False
Me.Nextcollectiondate.Visible = False
Me.LastCollDate.Visible = False
Me.EFTCustodialFee.Visible = False
Me.Eftgrosscollamt.Visible = False
Me.EFTCollCycle.Visible = False
Me.CheckSave.Visible = False
Me.TransitRouteNo.Visible = False
Me.TRNo.Visible = False
Me.AccountNo.Visible = False
Me.Eftcomments.Visible = True
Me.lblPRD.Visible = False
Me.boxPRD.Visible = False
Me.IsmaId3.Visible = False
Me.cmdEmp.Visible = False
Me.IsmaId31.Visible = False
Me.cmdEmp.Visible = False
Me.Prdcustodialfee.Visible = False
Me.Prdgrosscollamt.Visible = False
Me.DeductionCycle.Visible = False
Me.Prdbillingcycle.Visible = False
Me.Calcbillamt.Visible = False
Me.Nextbilldate.Visible = False
Me.LastBill.Visible = False
Me.lblDirectBill.Visible = False
Me.boxDirectBill.Visible = False
'Me.DBCustodialFee.Visible = False
Me.DBGrossBillAmt.Visible = False
Me.Dbremitamt.Visible = False
Me.Dbreceiveddate.Visible = False
Me.Dbremitteddate.Visible = False
Me.DBNextBillDate.Visible = False
Me.Dblastbilldate.Visible = False
Me.CCardNo.Visible = False
Me.CCardExpDate.Visible = False
Me.ExpLtrSentDate.Visible = False
Me.lblRemittance.Visible = True
Me.boxRemittance.Visible = True
'Me.RemittancePmtAmt.Visible = True
Me.RemPmtCycle.Visible = True
Me.PaymentStatus.Visible = True
Me.NextRemittanceDate.Visible = True
Me.LastRemDate.Visible = True
Me.lblWDC.Visible = False
Me.boxWDC.Visible = False
'Me.Lapsedate.Visible = False
Me.Wdcpmtamt.Visible = False
Me.Wdccycle.Visible = False
Me.Eftasofdate.Visible = False
'way to disable a control 10/3/11
Me.RemittancePmtAmt.Enabled = False
Me.RemittancePmtAmt.Locked = True
Me.RemittancePmtAmt.BackStyle = 0
Select Case Me.CollectionMode
Case "Fed Allot"
Me.PreNoteDate.Visible = False
Me.Nextcollectiondate.Visible = False
Me.LastCollDate.Visible = False
Me.CheckSave.Visible = False
Me.TransitRouteNo.Visible = False
Me.TRNo.Visible = False
Me.AccountNo.Visible = False
Me.EFTCustodialFee.Visible = True
Me.Eftgrosscollamt.Visible = True
Me.EFTCollCycle.Visible = True
Me.lblEFT.Visible = True
Me.lblEFT.Caption = "Fed Allot"
Me.boxEFT.Visible = True
Case "EFT", "CCard"
'changed to visible as per Sue 072213
Me.PreNoteDate.Visible = True
Me.lblEFT.Visible = True
Me.boxEFT.Visible = True
Me.Nextcollectiondate.Visible = True
Me.LastCollDate.Visible = True
Me.EFTCustodialFee.Visible = True
Me.Eftgrosscollamt.Visible = True
Me.EFTCollCycle.Visible = True
Me.CheckSave.Visible = True
Me.TransitRouteNo.Visible = True
Me.TRNo.Visible = True
Me.AccountNo.Visible = True
Me.Eftcomments.Visible = True
If Not IsNothing(Me.Eftasofdate) Then Me.Eftasofdate.Visible = True
If Me.CollectionMode = "CCard" Then
Me.lblEFT.Caption = "CREDIT CARD"
Me.PreNoteDate.Visible = False
'Me.lblNoteDate.Caption = "Card Exp Date"
Me.lblNextDate.Caption = "Next Coll Date"
Me.lblLastDate.Caption = "Last Coll Date"
Me.CCardNo.Visible = True
Me.CCardExpDate.Visible = True
Me.ExpLtrSentDate.Visible = True
Me.AccountNo.Visible = False
Me.TRNo.Visible = False
Me.TransitRouteNo.Visible = False
Me.CheckSave.Visible = False
Else
Me.lblEFT.Caption = "EFT"
'changed to visible as per Sue 072213
Me.PreNoteDate.Visible = True
Me.lblNoteDate.Caption = "Pre Note Date"
Me.lblNextDate.Caption = "Next EFT Date"
Me.lblLastDate.Caption = "Last EFT Date"
Me.CCardNo.Visible = False
Me.CCardExpDate.Visible = False
Me.ExpLtrSentDate.Visible = False
Me.AccountNo.Visible = True
Me.TRNo.Visible = True
Me.TransitRouteNo.Visible = True
Me.CheckSave.Visible = True
End If
Case "PRD"
Me.lblPRD.Visible = True
Me.boxPRD.Visible = True
Me.IsmaId3.Visible = True
Me.cmdEmp.Visible = True
Me.IsmaId31.Visible = True
Me.Prdcustodialfee.Visible = True
Me.Prdgrosscollamt.Visible = True
Me.DeductionCycle.Visible = True
Me.Prdbillingcycle.Visible = True
Me.Calcbillamt.Visible = True
Me.Nextbilldate.Visible = True
Me.LastBill.Visible = True
'PRD/FA don't enter 1st Remit date 8/31/11
'Me.Nextremittancedate.Visible = False
Me.RemittancePmtAmt.Enabled = False
Me.RemittancePmtAmt.Locked = True
Me.RemittancePmtAmt.BackStyle = 0
Case "Direct Bill"
Me.lblDirectBill.Visible = True
Me.boxDirectBill.Visible = True
Me.DBCustodialFee.Visible = True
Me.DBGrossBillAmt.Visible = True
Me.Dbremitamt.Visible = False
Me.Dbreceiveddate.Visible = True
Me.Dbremitteddate.Visible = True
Me.DBNextBillDate.Visible = True
Me.Dblastbilldate.Visible = True
Me.Dbremitamt.Visible = False
'Me.RemittancePmtAmt.Visible = False
Case "10YR Prepay"
Me.lblRemittance.Visible = False
Me.boxRemittance.Visible = False
'Me.RemittancePmtAmt.Visible = False
Me.RemPmtCycle.Visible = False
Me.PaymentStatus.Visible = False
Me.NextRemittanceDate.Visible = False
Me.LastRemDate.Visible = False
Case "WDC", "NBC", "LUMP", "TBC"
Me.lblWDC.Visible = True
Me.boxWDC.Visible = True
'Me.Lapsedate.Visible = True
Me.Wdcpmtamt.Visible = True
Me.Wdccycle.Visible = True
'Me.Wdccycle = "WDC"
Me.lblRemittance.Visible = True
Me.boxRemittance.Visible = True
'Me.RemittancePmtAmt.Visible = False
Me.RemPmtCycle.Visible = True
Me.PaymentStatus.Visible = False
Me.NextRemittanceDate.Visible = False
Me.LastRemDate.Visible = False
'Me.Rempmtcycle = "WDC"
End Select
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Public Sub CollectionModes()
On Error GoTo PROC_ERR
Dim intTabIndex As Integer
intTabIndex = Me.Lapsedate.TabIndex
Me.txTab = intTabIndex
Me.IsmaIdAssWeb.Visible = False
Me.lblAccnt.Visible = False
Me.lblEFT.Visible = False
Me.cmdCCard.Visible = False
Me.boxEFT.Visible = False
Me.PreNoteDate.Visible = False
Me.Nextcollectiondate.Visible = False
Me.LastCollDate.Visible = False
Me.EFTCustodialFee.Visible = False
Me.Eftgrosscollamt.Visible = False
Me.EFTCollCycle.Visible = False
Me.CheckSave.Visible = False
Me.TransitRouteNo.Visible = False
Me.TRNo.Visible = False
Me.AccountNo.Visible = False
Me.Eftcomments.Visible = True
Me.lblPRD.Visible = False
Me.boxPRD.Visible = False
Me.IsmaId3.Visible = False
Me.cmdEmp.Visible = False
Me.IsmaId31.Visible = False
Me.Prdcustodialfee.Visible = False
Me.Prdgrosscollamt.Visible = False
Me.DeductionCycle.Visible = False
Me.Prdbillingcycle.Visible = False
Me.Calcbillamt.Visible = False
Me.Nextbilldate.Visible = False
Me.LastBill.Visible = False
Me.lblDirectBill.Visible = False
Me.boxDirectBill.Visible = False
Me.DBCustodialFee.Visible = False
Me.DBGrossBillAmt.Visible = False
Me.Dbremitamt.Visible = False
Me.Dbreceiveddate.Visible = False
Me.Dbremitteddate.Visible = False
Me.DBNextBillDate.Visible = False
Me.Dblastbilldate.Visible = False
Me.CCardNo.Visible = False
Me.CCardExpDate.Visible = False
Me.ExpLtrSentDate.Visible = False
Me.lblRemittance.Visible = True
Me.boxRemittance.Visible = True
'Me.RemittancePmtAmt.Visible = True
Me.RemPmtCycle.Visible = True
Me.PaymentStatus.Visible = True
Me.NextRemittanceDate.Visible = True
Me.LastRemDate.Visible = True
Me.lblWDC.Visible = False
Me.boxWDC.Visible = False
'Me.Lapsedate.Visible = False
Me.Wdcpmtamt.Visible = False
Me.Wdccycle.Visible = False
'way to disable a control 10/3/11
Me.RemittancePmtAmt.Enabled = False
Me.RemittancePmtAmt.Locked = True
Me.RemittancePmtAmt.BackStyle = 0
If Not IsNothing(Me.CollectionMode) Then
Select Case Me.CollectionMode
Case "Fed Allot"
Me.PreNoteDate.Visible = False
Me.Nextcollectiondate.Visible = False
Me.LastCollDate.Visible = False
Me.CheckSave.Visible = False
Me.TransitRouteNo.Visible = False
Me.TRNo.Visible = False
Me.AccountNo.Visible = False
Me.EFTCustodialFee.Visible = True
intTabIndex = intTabIndex + 1
Me.EFTCustodialFee.TabIndex = intTabIndex
Me.Eftgrosscollamt.Visible = True
intTabIndex = intTabIndex + 1
Me.Eftgrosscollamt.TabIndex = intTabIndex
Me.EFTCollCycle.Visible = True
intTabIndex = intTabIndex + 1
Me.EFTCollCycle.TabIndex = intTabIndex
'got to the next-----------------------------------------------------
intTabIndex = intTabIndex + 1
Me.PaymentStatus.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.NextRemittanceDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.LastRemDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.RemPmtCycle.TabIndex = intTabIndex
'------------------------------------------------------------------------
Me.lblEFT.Visible = True
Me.lblEFT.Caption = "Fed Allot"
Me.boxEFT.Visible = True
Case "CCard"
Me.lblEFT.Caption = "CREDIT CARD"
Me.cmdCCard.Visible = True
Me.PreNoteDate.Visible = False
Me.lblNextDate.Caption = "Next Coll Date"
Me.lblLastDate.Caption = "Last Coll Date"
Me.CCardNo.Visible = True
Me.AccountNo.Visible = False
Me.TRNo.Visible = False
Me.TransitRouteNo.Visible = False
Me.CheckSave.Visible = False
Me.lblEFT.Visible = True
Me.boxEFT.Visible = True
'1
Me.Nextcollectiondate.Visible = True
intTabIndex = intTabIndex + 1
Me.Nextcollectiondate.TabIndex = intTabIndex
'2
Me.LastCollDate.Visible = True
intTabIndex = intTabIndex + 1
Me.LastCollDate.TabIndex = intTabIndex
'3
Me.EFTCustodialFee.Visible = True
intTabIndex = intTabIndex + 1
Me.EFTCustodialFee.TabIndex = intTabIndex
'4
Me.Eftgrosscollamt.Visible = True
intTabIndex = intTabIndex + 1
Me.Eftgrosscollamt.TabIndex = intTabIndex
'5
Me.EFTCollCycle.Visible = True
intTabIndex = intTabIndex + 1
Me.EFTCollCycle.TabIndex = intTabIndex
'6
Me.ExpLtrSentDate.Visible = True
intTabIndex = intTabIndex + 1
Me.ExpLtrSentDate.TabIndex = intTabIndex
'7
Me.ExpLtrSentDate.Visible = True
intTabIndex = intTabIndex + 1
Me.ExpLtrSentDate.TabIndex = intTabIndex
'8
Me.CCardExpDate.Visible = True
intTabIndex = intTabIndex + 1
Me.CCardExpDate.TabIndex = intTabIndex
'9
Me.CCardNo.Visible = True
intTabIndex = intTabIndex + 1
Me.CCardNo.TabIndex = intTabIndex
'10
Me.Eftcomments.Visible = True
intTabIndex = intTabIndex + 1
Me.Eftcomments.TabIndex = intTabIndex
If Not IsNothing(Me.Eftasofdate) Then Me.Eftasofdate.Visible = True
'got to the next
intTabIndex = intTabIndex + 1
Me.PaymentStatus.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.NextRemittanceDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.LastRemDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.RemPmtCycle.TabIndex = intTabIndex
'intTabIndex = intTabIndex + 1
'Me.PaymentStatus.TabIndex = intTabIndex
'intTabIndex = intTabIndex + 1
'Me.PaymentStatus.TabIndex = intTabIndex
Case "EFT"
Me.lblEFT.Caption = "EFT"
Me.lblEFT.Visible = True
Me.boxDirectBill.Visible = True
Me.lblNoteDate.Caption = "Pre Note Date"
Me.lblNextDate.Caption = "Next EFT Date"
Me.lblLastDate.Caption = "Last EFT Date"
Me.CCardNo.Visible = False
Me.CCardExpDate.Visible = False
Me.ExpLtrSentDate.Visible = False
'changed to visible as per Sue 072213
Me.PreNoteDate.Visible = True
'1
Me.Nextcollectiondate.Visible = True
intTabIndex = intTabIndex + 1
Me.Nextcollectiondate.TabIndex = intTabIndex
'2
Me.LastCollDate.Visible = True
intTabIndex = intTabIndex + 1
Me.LastCollDate.TabIndex = intTabIndex
'2
Me.EFTCustodialFee.Visible = True
intTabIndex = intTabIndex + 1
Me.EFTCustodialFee.TabIndex = intTabIndex
'3
Me.Eftgrosscollamt.Visible = True
intTabIndex = intTabIndex + 1
Me.Eftgrosscollamt.TabIndex = intTabIndex
'4
Me.EFTCollCycle.Visible = True
intTabIndex = intTabIndex + 1
Me.EFTCollCycle.TabIndex = intTabIndex
'5
Me.CheckSave.Visible = True
intTabIndex = intTabIndex + 1
Me.CheckSave.TabIndex = intTabIndex
'6
Me.TransitRouteNo.Visible = True
intTabIndex = intTabIndex + 1
Me.TransitRouteNo.TabIndex = intTabIndex
'7
Me.TRNo.Visible = True
intTabIndex = intTabIndex + 1
Me.TRNo.TabIndex = intTabIndex
'8
Me.AccountNo.Visible = True
intTabIndex = intTabIndex + 1
Me.AccountNo.TabIndex = intTabIndex
'9
Me.Eftcomments.Visible = True
intTabIndex = intTabIndex + 1
Me.Eftcomments.TabIndex = intTabIndex
If Not IsNothing(Me.Eftasofdate) Then Me.Eftasofdate.Visible = True
'got to the next-----------------------------------------------------
intTabIndex = intTabIndex + 1
Me.PaymentStatus.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.NextRemittanceDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.LastRemDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.RemPmtCycle.TabIndex = intTabIndex
'20140402----------as per Sue-------------------------------------------
If IsNothing(Me.PreNoteDate) Then Me.PreNoteDate = Date
'------------------------------------------------------------------------
'
'
' If Me.CollectionMode = "CCard" Then
' Me.lblEFT.Caption = "CREDIT CARD"
' Me.PreNoteDate.Visible = False
' Me.lblNextDate.Caption = "Next Coll Date"
' Me.lblLastDate.Caption = "Last Coll Date"
' Me.CCardNo.Visible = True
'
' Me.CCardExpDate.Visible = True
' intTabIndex = intTabIndex + 1
' Me.CCardExpDate.TabIndex = intTabIndex
'
' Me.ExpLtrSentDate.Visible = True
' intTabIndex = intTabIndex + 1
' Me.ExpLtrSentDate.TabIndex = intTabIndex
'
' Me.AccountNo.Visible = False
' Me.TRNo.Visible = False
' Me.TransitRouteNo.Visible = False
' Me.CheckSave.Visible = False
'
' Else
' Me.AccountNo.Visible = True
' intTabIndex = intTabIndex + 1
' Me.AccountNo.TabIndex = intTabIndex
'
' Me.TRNo.Visible = True
' intTabIndex = intTabIndex + 1
' Me.TRNo.TabIndex = intTabIndex
'
' Me.TransitRouteNo.Visible = True
' intTabIndex = intTabIndex + 1
' Me.TransitRouteNo.TabIndex = intTabIndex
'
' Me.CheckSave.Visible = True
' intTabIndex = intTabIndex + 1
' Me.CheckSave.TabIndex = intTabIndex
'End If
Case "PRD"
Me.lblPRD.Visible = True
Me.boxPRD.Visible = True
Me.IsmaId3.Visible = True
Me.cmdEmp.Visible = True
intTabIndex = intTabIndex + 1
Me.IsmaId3.TabIndex = intTabIndex
Me.IsmaId31.Visible = True
intTabIndex = intTabIndex + 1
Me.IsmaId31.TabIndex = intTabIndex
Me.Prdcustodialfee.Visible = True
intTabIndex = intTabIndex + 1
Me.Prdcustodialfee.TabIndex = intTabIndex
Me.Prdgrosscollamt.Visible = True
intTabIndex = intTabIndex + 1
Me.Prdgrosscollamt.TabIndex = intTabIndex
Me.Nextbilldate.Visible = True
intTabIndex = intTabIndex + 1
Me.Nextbilldate.TabIndex = intTabIndex
Me.DeductionCycle.Visible = True
intTabIndex = intTabIndex + 1
Me.DeductionCycle.TabIndex = intTabIndex
Me.Prdbillingcycle.Visible = True
intTabIndex = intTabIndex + 1
Me.Prdbillingcycle.TabIndex = intTabIndex
Me.Calcbillamt.Visible = True
intTabIndex = intTabIndex + 1
Me.Calcbillamt.TabIndex = intTabIndex
Me.LastBill.Visible = True
intTabIndex = intTabIndex + 1
Me.LastBill.TabIndex = intTabIndex
'got to the next-----------------------------------------------------
intTabIndex = intTabIndex + 1
Me.PaymentStatus.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.NextRemittanceDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.LastRemDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.RemPmtCycle.TabIndex = intTabIndex
'------------------------------------------------------------------------
'PRD/FA don't enter 1st Remit date 8/31/11
'Me.Nextremittancedate.Visible = False
Me.DBCustodialFee.Visible = False
Me.RemittancePmtAmt.Enabled = False
Me.RemittancePmtAmt.Locked = True
Me.RemittancePmtAmt.BackStyle = 0
Case "Direct Bill"
Me.lblDirectBill.Visible = True
Me.boxDirectBill.Visible = True
Me.DBCustodialFee.Visible = True
intTabIndex = intTabIndex + 1
Me.DBCustodialFee.TabIndex = intTabIndex
Me.DBGrossBillAmt.Visible = True
intTabIndex = intTabIndex + 1
Me.DBGrossBillAmt.TabIndex = intTabIndex
Me.Dbremitamt.Visible = False
intTabIndex = intTabIndex + 1
'Me.Dbremitamt.TabIndex = intTabIndex
Me.Dbreceiveddate.Visible = True
intTabIndex = intTabIndex + 1
Me.Dbreceiveddate.TabIndex = intTabIndex
Me.DBNextBillDate.Visible = True
intTabIndex = intTabIndex + 1
Me.DBNextBillDate.TabIndex = intTabIndex
Me.Dblastbilldate.Visible = True
intTabIndex = intTabIndex + 1
Me.Dblastbilldate.TabIndex = intTabIndex
Me.Dbremitteddate.Visible = True
intTabIndex = intTabIndex + 1
Me.Dbremitteddate.TabIndex = intTabIndex
'got to the next-----------------------------------------------------
intTabIndex = intTabIndex + 1
Me.PaymentStatus.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.NextRemittanceDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.LastRemDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.RemPmtCycle.TabIndex = intTabIndex
'------------------------------------------------------------------------
'changed to true 20140502
Me.Dbremitamt.Visible = False
'Me.RemittancePmtAmt.Visible = False
Case "10YR Prepay"
Me.lblRemittance.Visible = False
Me.boxRemittance.Visible = False
'Me.RemittancePmtAmt.Visible = False
Me.DBCustodialFee.Visible = False
Me.RemPmtCycle.Visible = False
Me.PaymentStatus.Visible = False
Me.NextRemittanceDate.Visible = False
Me.LastRemDate.Visible = False
intTabIndex = Me.Comments.TabIndex
Case "WDC", "NBC", "LUMP", "TBC"
Me.lblWDC.Visible = True
Me.boxWDC.Visible = True
'Me.Lapsedate.Visible = True
intTabIndex = intTabIndex + 1
'Me.Lapsedate.TabIndex = intTabIndex
Me.Wdcpmtamt.Visible = True
intTabIndex = intTabIndex + 1
Me.Wdcpmtamt.TabIndex = intTabIndex
Me.Wdccycle.Visible = True
intTabIndex = intTabIndex + 1
Me.Wdccycle.TabIndex = intTabIndex
Me.RemPmtCycle.Visible = True
intTabIndex = intTabIndex + 1
Me.RemPmtCycle.TabIndex = intTabIndex
'got to the next-----------------------------------------------------
intTabIndex = intTabIndex + 1
Me.PaymentStatus.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.NextRemittanceDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.LastRemDate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.RemPmtCycle.TabIndex = intTabIndex
'------------------------------------------------------------------------
'Me.Wdccycle = "WDC"
Me.DBCustodialFee.Visible = False
Me.lblRemittance.Visible = True
'Me.RemittancePmtAmt.Visible = False
Me.boxRemittance.Visible = True
Me.PaymentStatus.Visible = False
Me.NextRemittanceDate.Visible = False
Me.LastRemDate.Visible = False
'Me.Rempmtcycle = "WDC"
End Select
End If
'--------------------------------------------------------
intTabIndex = intTabIndex + 1
Me.AgentID.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.AgentName.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.PrcBusagent1.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.Writingstate.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.AgentID2.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.AgentName2.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.PrcBusagent2.TabIndex = intTabIndex
intTabIndex = intTabIndex + 1
Me.Controlledbus.TabIndex = intTabIndex
'---------------------------------------------------------
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
Public Sub ProductCodeCases()
On Error GoTo PROC_ERR
'-----------------------------------------------------Membership # as per Brenda 10/3/11-------------------------------------
If Not IsNothing(Me.IsmaProductCode) Then
Select Case Me.IsmaProductCode
Case "Association"
Me.lblAccnt.Visible = True
Me.lblAccnt.Caption = "Member#"
Case "Mutual Fund", "Website", "Credit Union"
Me.lblAccnt.Visible = True
Me.lblAccnt.Caption = "Accnt#"
Case Else
Me.lblAccnt.Visible = False
End Select
Select Case Me.IsmaProductCode
Case "Association", "Website"
Me.MembershipNo.Visible = False
Me.IsmaIdAssWeb.Visible = True
Case "Mutual Fund", "Credit Union"
Me.MembershipNo.Visible = True
Me.IsmaIdAssWeb.Visible = False
Case Else
Me.MembershipNo.Visible = False
Me.IsmaIdAssWeb.Visible = False
End Select
End If
'043013 missing from original Brendas Master design
If Not IsNothing(Me.Potentialrefund) Then
If Me.Potentialrefund = "YES" Then
Me.Prevremit.Enabled = True
Me.AmountToRefund.Enabled = True
Me.Custfeerefamt.Enabled = True
Me.Refundcomments.Enabled = True
Else
Me.Prevremit.Enabled = False
Me.AmountToRefund.Enabled = False
Me.Custfeerefamt.Enabled = False
Me.Refundcomments.Enabled = False
End If
End If
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
'-----------------------------------------------------------------------------------------------------------------------------
End Sub
'---------------------------------------------------------------------------------------
' Procedure : IsmaID_AfterUpdate
' Author : Norbert
' Date : 5/8/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub IsmaId_AfterUpdate()
On Error GoTo IsmaId_AfterUpdate_Error
Me.ClientName = Me.IsmaId
Me.ClientName.Requery
On Error GoTo 0
Exit Sub
IsmaId_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure IsmaID_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : IsmaId2_AfterUpdate
' Author : Norbert
' Date : 5/12/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub IsmaID2_AfterUpdate()
Dim strName As String
On Error GoTo IsmaID2_AfterUpdate_Error
If Not IsNothing(Me.ActiveControl) Then
strName = Nz(DLookup("jtxtLastFirst", "tblPayor", "IsmaID=" & Nz(Me.ActiveControl, 0)))
Else
Exit Sub
End If
If Not IsNothing(strName) Then
If vbYes = MsgBox("SSN: " & Format(Me.ActiveControl, "000-00-0000") & " IS ASSIGNED TO " & UCase(strName) & vbCrLf & vbCrLf & _
"DO YOU WANT TO SELECT THIS SSN?", vbCritical + vbYesNo, "ISM") Then
Exit Sub
Else
Me.IsmaId2 = ""
Me.IsmaId2.SetFocus
Exit Sub
End If
Else
DoCmd.OpenForm "frmPayor", , , , acFormAdd, acDialog, Me.Name
End If
'If Nz(DCount("ISMAID", "tblPayor", "ISMAID=" & Nz(Me.ActiveControl, 0))) = 0 Then
' 'Cancel = True
' If MsgBox("THIS SSN BELONGS TO: " & vbCrLf & Nz(DLookup("jTxtLastFirst", "tblPayor", "ISMAID=" & Nz(Me.ActiveControl, 0))) & vbCrLf & _
' "CONFIRM IF CORRECT", vbQuestion + vbYesNo, "ISM") = vbYes Then
' Else
' 'Me.PayorName.SetFocus
'
' 'DoCmd.OpenForm "frmPayorSSN", acNormal, , "ISMAID=" & Me.ActiveControl
' Me.ActiveControl = ""
' Me.ActiveControl.SetFocus
'
' End If
'Else
' DoCmd.OpenForm "frmPayor", , , , acFormAdd, acDialog, Me.Name
'End If
On Error GoTo 0
Exit Sub
IsmaID2_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure IsmaId2_AfterUpdate of VBA Document Form_frmMaster"
End Sub
Private Sub IsmaID3_AfterUpdate()
Me.IsmaId31.SetFocus
End Sub
Private Sub IsmaProductCode_AfterUpdate()
On Error GoTo PROC_ERR
'Procedure to load the dif Product Codes 10/4/11
ProductCodeCases
Exit Sub
PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
'---------------------------------------------------------------------------------------
' Procedure : POPULATEFRMMASTERCLIENTSEARCH
' Author : Norbert
' Date : 2/13/2013
' Purpose : W-TPA------86-----SEL-MAST-FOR-INACTIVE
'---------------------------------------------------------------------------------------
Public Sub POPULATEFRMMASTERCLIENTSEARCH()
On Error GoTo POPULATEFRMMASTERCLIENTSEARCH_Error
Dim pot_refund As String
Select Case (Me.CollectionMode)
Case "EFT", "CCard", "NBC"
'20140717 change lastremdate from lastremittancedate ?????
If Me.LastCollDate > Me.LastRemDate And Me.LastCollDate <> Me.PreNoteDate Then
pot_refund = "y"
End If
Case "Direct Bill"
If Not IsNothing(Me.Dbreceiveddate) And IsNothing(Me.Dbremitteddate) Then
pot_refund = "y"
End If
Case "Fed Allot"
If Nz(DCount("*", "QS_FaHistoryInactiveMast", "MasterSeqNo=" & Me.MasterfileNo)) Then
pot_refund = "y"
End If
Case "PRD", "TBC"
If Nz(DCount("*", "QS_PrdBillingHistoryInactiveMast", "MasterSeqNo=" & Me.MasterfileNo)) Then
pot_refund = "y"
End If
End Select
With Forms!frmMasterClientSearch
!MasterseqNo = Me.MasterfileNo
!CompCode = Me.CompanycodeLoanNo
!NewStatus = Me.Productstatus
!CancelCode = Me.Ccode
!Comments = Me.Comments
!AssCancel = Me.Revinit
!ClientSsn = Me.IsmaId
!CollectMode = IIf(Me.CollectionMode = "NBC", "NBC", IIf(Me.CollectionMode = "BAC", "BAC", ""))
!DollarAmt = IIf(Me.CollectionMode = "Direct Bill", Nz(Me.DBGrossBillAmt, 0) - Nz(Me.DBCustodialFee, 0), _
IIf(Me.CollectionMode = "WDC", Nz(Me.Wdcpmtamt, 0), Nz(Me.RemittancePmtAmt, 0)))
!PotRef = IIf(pot_refund = "y", "yes", "")
'!Policycancelreason = Me.Policycancelreason
!txtClientName = Me.ClientName
.SetFocus
End With
On Error GoTo 0
Exit Sub
POPULATEFRMMASTERCLIENTSEARCH_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure POPULATEFRMMASTERCLIENTSEARCH of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : IsmaProductCode_Change
' Author : Norbert
' Date : 5/14/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub IsmaProductCode_Change()
On Error GoTo IsmaProductCode_Change_Error
Me.CollectionMode.SetFocus
On Error GoTo 0
Exit Sub
IsmaProductCode_Change_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure IsmaProductCode_Change of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Lastremittancedate_AfterUpdate
' Author : Norbert
' Date : 5/8/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Lastremittancedate_AfterUpdate()
On Error GoTo Lastremittancedate_AfterUpdate_Error
'not need it as per Sue 080513
'If Not IsNothing(Me.Lastremittancedate) Then
' Me.lblFirstRemDate.Visible = False
'Else
' Me.lblFirstRemDate.Visible = True
'End If
On Error GoTo 0
Exit Sub
Lastremittancedate_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Lastremittancedate_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Nextcollectiondate_AfterUpdate
' Author : Norbert
' Date : 7/22/2013
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub Nextcollectiondate_AfterUpdate()
Dim intDay As Integer
Dim intMonth As Integer
On Error GoTo Nextcollectiondate_AfterUpdate_Error
intDay = Day(Me.Nextcollectiondate)
intMonth = Month(Me.Nextcollectiondate)
If intDay = 2 Or intDay = 7 Or intDay = 12 Or intDay = 17 Then
Me.Nextcollectiondate.SetFocus
Exit Sub
End If
If intDay = 27 And intMonth = Month(Date) - 1 Then
Me.Nextcollectiondate.SetFocus
Exit Sub
End If
MsgBox "PLEASE VERIFY DRAFT DATE FOR 'EFT'!" & vbCrLf & _
"NEW DRAFT DATES: 27th of prior month" & vbCrLf & _
"2nd or 7th or 12th or 17th", vbCritical, "ISM"
Me.Nextcollectiondate.SetFocus
On Error GoTo 0
Exit Sub
Nextcollectiondate_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Nextcollectiondate_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Nextcollectiondate_Exit
' Author : Norbert
' Date : 7/22/2013
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub Nextcollectiondate_Exit(Cancel As Integer)
Dim intDay As Integer
Dim intMonth As Integer
On Error GoTo Nextcollectiondate_Exit_Error
If IsNothing(Me.ActiveControl) Then Exit Sub
intDay = Day(Me.Nextcollectiondate)
intMonth = Month(Me.Nextcollectiondate)
If intDay = 2 Or intDay = 7 Or intDay = 12 Or intDay = 17 Or intDay = 27 Then
'092713 take out as per Brenda
'And (intMonth = Month(Me.NextRemittanceDate) - 1
Exit Sub
End If
'If intDay = 27 And intMonth = Month(Me.Nextcollectiondate) - 1 Then
'
' Exit Sub
'End If
MsgBox "PLEASE VERIFY DRAFT DATES!" & vbCrLf & _
"27th-2nd-7th-12th-17th", vbCritical, "ISM"
Me.Nextcollectiondate.SetFocus
On Error GoTo 0
Exit Sub
Nextcollectiondate_Exit_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Nextcollectiondate_Exit of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Nextremittancedate_Exit
' Author : Norbert
' Date : 7/22/2013
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub Nextremittancedate_Exit(Cancel As Integer)
On Error GoTo Nextremittancedate_Exit_Error
If IsNothing(Me.ActiveControl) Then Exit Sub
'20140821
If Me.CollectionMode = "Fed Allot" Then Exit Sub
If Me.CompanycodeLoanNo = "APL" Or Me.CompanycodeLoanNo = "PNC" Then
If Me.CollectionMode = "EFT" Or Me.CollectionMode = "CCard" Then
If Day(Me.NextRemittanceDate) <> 25 Then
MsgBox "PLEASE VERIFY REMIT DATE-DAY SHOULD BE THE 25th", vbCritical, "ISM"
Me.NextRemittanceDate.SetFocus
End If
End If
ElseIf Me.CompanycodeLoanNo = "PHL" Or Me.CompanycodeLoanNo = "SMA" Then
If Day(Me.NextRemittanceDate) <> 6 Then
If Me.RemPmtCycle <> "Annual" Then
MsgBox "PLEASE VERIFY REMIT DATE-DAY SHOULD BE THE 6th", vbCritical, "ISM"
Me.NextRemittanceDate.SetFocus
End If
End If
End If
On Error GoTo 0
Exit Sub
Nextremittancedate_Exit_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Nextremittancedate_Exit of VBA Document Form_frmMaster"
End Sub
Private Sub PayorName_AfterUpdate()
On Error GoTo PayorName_AfterUpdate_Error
Me.Cwaamtrec.SetFocus
On Error GoTo 0
Exit Sub
PayorName_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure PayorName_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : PayorName_MouseDown
' Author : Norbert
' Date : 5/11/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub PayorName_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo PayorName_MouseDown_Error
If X >= 3735 And X <= 3945 Then
Me.Cwaamtrec.SetFocus
'You can use the line below to determine the coordinates. Remove the comment, go to Access and switch the form to form view.
'carefully click around the left and right edges of the drop-down square to determine its left and right extremes
End If
'MsgBox X
On Error GoTo 0
Exit Sub
PayorName_MouseDown_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure PayorName_MouseDown of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : PayorName_NotInList
' Author : Norbert
' Date : 5/7/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub PayorName_NotInList(pstrNewData As String, pintResponse As Integer)
Dim strPayor As String
Dim intReturn As Integer
On Error GoTo PayorName_NotInList_Error
strPayor = StrConv(pstrNewData, vbProperCase)
intReturn = MsgBox("PAYOR " & strPayor & _
" IS NOT IN ISM DATABASE. DO YOU WANT TO ADD THIS PAYOR?", _
vbQuestion + vbYesNo, "ISM")
If intReturn = vbYes Then
DoCmd.OpenForm "frmPayor", acNormal, , , acFormAdd, , strPayor
'Forms!frmPayor!txtGoTo = Me.Name
If IsNothing(DLookup("JTXTlASTfIRST", "tblPayor", "JTXTlASTfIRST = """ & strPayor & """")) Then
pintResponse = acDataErrContinue
Else
pintResponse = acDataErrAdded
End If
'Me.Cwaamtrec.SetFocus
Exit Sub
End If
pintResponse = acDataErrDisplay
'Me.Cwaamtrec.SetFocus
On Error GoTo 0
Exit Sub
PayorName_NotInList_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure PayorName_NotInList of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : PolicyNo_AfterUpdate
' Author : Norbert
' Date : 10/23/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub PolicyNo_AfterUpdate()
On Error GoTo PolicyNo_AfterUpdate_Error
Me.PolicyNo = UCase(Me.PolicyNo)
Me.Jtxtpolssn = Me.PolicyNo & Me.IsmaId
On Error GoTo 0
Exit Sub
PolicyNo_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure PolicyNo_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Potentialrefund_AfterUpdate
' Author : Norbert
' Date : 4/30/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Potentialrefund_AfterUpdate()
On Error GoTo Potentialrefund_AfterUpdate_Error
If Me.Potentialrefund = "YES" Then
Me.Prevremit.Enabled = True
Me.AmountToRefund.Enabled = True
Me.ShredListDate = Now
Me.Custfeerefamt.Enabled = True
Me.Refundcomments.Enabled = True
Me.RefundComments1.Enabled = True
Else
Me.Prevremit.Enabled = False
Me.ShredListDate = ""
Me.AmountToRefund.Enabled = False
Me.Custfeerefamt.Enabled = False
Me.Refundcomments.Enabled = False
Me.RefundComments1.Enabled = True
End If
On Error GoTo 0
Exit Sub
Potentialrefund_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Potentialrefund_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : PrcBusagent1_AfterUpdate
' Author : Norbert
' Date : 4/6/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub PrcBusagent1_AfterUpdate()
On Error GoTo PrcBusagent1_AfterUpdate_Error
Me.PrcBusagent2 = 1 - Me.ActiveControl
On Error GoTo 0
Exit Sub
PrcBusagent1_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure PrcBusagent1_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : MissingMasterInfo
' Author : Norbert
' Date : 5/8/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Public Function MissingMasterInfo() As Boolean
'as per Brenda 051013 changes
Dim bResult As Boolean
Dim strMissing As String
strMissing = ""
Select Case Me.CollectionMode
Case "EFT", "Fed Allot", "PRD", "Direct Bill", "CCard"
If IsNothing(Me.Wdccycle) Then strMissing = "Coll Cycle"
If IsNothing(Me.RemPmtCycle) Then strMissing = "Remittance Payment Cycle"
If IsNothing(Me.PaymentStatus) Then strMissing = "Payment Status"
Case Else
If Me.RemPmtCycle <> "WDC" Then strMissing = "Remmittance Payment Cycle<>WDC"
End Select
If IsNothing(Me.ReqIssueDate) Then strMissing = "Req Issue Date"
If IsNothing(Me.Cwaamtrec) Then strMissing = strMissing & ",Total CWA Amt"
If IsNothing(Me.CompanycodeLoanNo) Then strMissing = strMissing & ",Vendor"
If IsNothing(Me.PolicyNo) Then strMissing = strMissing & ",Pol No"
If IsNothing(Me.prodcde) Then strMissing = strMissing & ",Prod"
If IsNothing(Me.IsmaProductCode) Then strMissing = strMissing & ",Code"
If IsNothing(Me.CollectionMode) Then strMissing = strMissing & ",Coll Mode"
If IsNothing(Me.ApplicationDate) Then strMissing = strMissing & ",App Date"
If IsNothing(Me.Productstatus) Then strMissing = strMissing & ",Prod,Status"
If IsNothing(Me.TransmittalDate) Then strMissing = strMissing & ",NB,TDate"
If IsNothing(Me.CustodialBank) Then strMissing = strMissing & ",Cst Bk"
'If IsNothing(Me.Flex) Then strMissing = strMissing & ",Flex"
If IsNothing(Me.Combo) Then strMissing = strMissing & ",Combo"
If IsNothing(Me.RemPmtCycle) Then strMissing = strMissing & ",Remittance Payment Cycle"
If IsNothing(Me.PaymentStatus) Then strMissing = strMissing & ",Payment Status"
If IsNothing(Me.Writingstate) Then strMissing = strMissing & ",State Issued"
If IsNothing(Me.Lastknownbene) Then strMissing = strMissing & ",Last Known Beneficiary"
If IsNothing(Me.AgentID) Then strMissing = strMissing & ",AGENT ID1"
If Left(strMissing, 1) = "," Then
strMissing = Mid(strMissing, 2)
End If
If Not IsNothing(strMissing) Then
MsgBox "MISSING INFORMATION IN: " & vbCrLf & vbCrLf & _
UCase(strMissing), vbCritical, "REQUIERD FIELDS MUST BE FILLED OUT"
End If
On Error GoTo MissingMasterInfo_Error
MissingMasterInfo = bResult
On Error GoTo 0
Exit Function
MissingMasterInfo_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure MissingMasterInfo of VBA Document Form_frmMaster"
End Function
'---------------------------------------------------------------------------------------
' Procedure : Prdbillingcycle_AfterUpdate
' Author : Norbert
' Date : 2/6/2014
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Prdbillingcycle_AfterUpdate()
On Error GoTo Prdbillingcycle_AfterUpdate_Error
DerivedMasterFields
On Error GoTo 0
Exit Sub
Prdbillingcycle_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Prdbillingcycle_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Prdcustodialfee_AfterUpdate
' Author : Norbert
' Date : 10/12/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Prdcustodialfee_AfterUpdate()
On Error GoTo Prdcustodialfee_AfterUpdate_Error
Me.RemittancePmtAmt = Nz(Me.Prdgrosscollamt, 0) - Nz(Me.Prdcustodialfee, 0)
On Error GoTo 0
Exit Sub
Prdcustodialfee_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Prdcustodialfee_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Prdgrosscollamt_AfterUpdate
' Author : Norbert
' Date : 5/31/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Prdgrosscollamt_AfterUpdate()
On Error GoTo Prdgrosscollamt_AfterUpdate_Error
'20140814
Me.RemittancePmtAmt = Nz(Me.Prdgrosscollamt, 0) - Nz(Me.Prdcustodialfee, 0)
On Error GoTo 0
Exit Sub
Prdgrosscollamt_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Prdgrosscollamt_AfterUpdate of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : ProdCde_Change
' Author : Norbert
' Date : 5/14/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub ProdCde_Change()
On Error GoTo ProdCde_Change_Error
Me.IsmaProductCode.SetFocus
On Error GoTo 0
Exit Sub
ProdCde_Change_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ProdCde_Change of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Productstatus_Change
' Author : Norbert
' Date : 5/14/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub Productstatus_Change()
On Error GoTo Productstatus_Change_Error
Me.TransmittalDate.SetFocus
On Error GoTo 0
Exit Sub
Productstatus_Change_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Productstatus_Change of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Refundcomments_Change
' Author : norbert
' Date : 6/10/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub Refundcomments_Change()
On Error GoTo Refundcomments_Change_Error
Me.txtCtLetters = Len(Me.Refundcomments.Text)
If Me.txtCtLetters > 70 Then
MsgBox "PLEASE CONTINUE TYPING IN THE THE LINE!", vbCritical, "ISM"
Me.RefundComments1.SetFocus
End If
On Error GoTo 0
Exit Sub
Refundcomments_Change_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Refundcomments_Change of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : tgACHAccard_Click
' Author : norbert
' Date : 7/24/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub tgACHAccard_Click()
On Error GoTo tgACHAccard_Click_Error
If Me.lblWarningMaster.Caption <> "EDIT!" Then
MsgBox "PLEASE SAVE THE NEW RECORD AND THEN EDIT IT THEN PERFORM THIS PROCESS", vbCritical, "ISM"
Exit Sub
End If
'20141211--------------------------------------------
If Me.CustodialBank = "AF" Then
With Forms!frmMaster!fSubDailyACHCcard
If Me.CollectionMode = "EFT" Or Me.CollectionMode = "CCard" Then
.Visible = True
.SetFocus
.Form.AllowEdits = True
.Form.AllowAdditions = True
Me.AllowAdditions = True
If !ACHCcard = True Then Exit Sub
DoCmd.GoToRecord , "", acNewRec
!MasterfileNo = [Forms]![frmMaster]![MasterfileNo]
!CustodialFee = Format(IIf(IsNothing(Forms!frmMaster!EFTCustodialFee), 0, Forms!frmMaster!EFTCustodialFee), "0.00")
!Fecoll = Format(IIf(IsNothing(Forms!frmMaster!Fecoll), 0, Forms!frmMaster!Fecoll), "0.00")
!ClientName = Forms!frmMaster!ClientName
!Vendorname = Forms!frmMaster!PayorName.Column(1)
!Premium = Format(Forms!frmMaster!RemittancePmtAmt, "0.00")
!ACHCcard = True
!PolicyNo = Me.PolicyNo
!TranDate = Date
!cboApply.SetFocus
.Form.AllowAdditions = False
End If
End With
End If
On Error GoTo 0
Exit Sub
tgACHAccard_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure tgACHAccard_Click of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : txtPriorMasterFileNo_Click
' Author : Norbert
' Date : 11/18/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Private Sub txtPriorMasterFileNo_Click()
On Error GoTo txtPriorMasterFileNo_Click_Error
DoCmd.OpenForm "frmMaster", , , "MasterFileNo=" & Forms!frmMaster!txtPriorMasterFileNo, , , Me.Name
Me.txtPriorMasterFileNo.Visible = False
If Nz(DCount("*", "QS_TransRouteTRAcct")) > 1 Then
DoCmd.OpenForm "frmTransRouteTRAcct", acNormal, , , , acDialog, Me.Name
End If
If Nz(DCount("*", "QS_TransCcardAcct")) > 1 Then
'Forms!frmTransCcardAcct.Visible = True
DoCmd.OpenForm "frmTransCcardAcct", acNormal, , , , acDialog, Me.Name
'Forms!frmTransCcardAcct.Visible = True
End If
On Error GoTo 0
Exit Sub
txtPriorMasterFileNo_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure txtPriorMasterFileNo_Click of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : WantsFund_Change
' Author : Norbert
' Date : 5/14/2013
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Private Sub WantsFund_Change()
On Error GoTo WantsFund_Change_Error
Me.freeze.SetFocus
On Error GoTo 0
Exit Sub
WantsFund_Change_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure WantsFund_Change of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : DerivedMasterFields
' Author : Norbert
' Date : 2/6/2014
' Purpose : W-TPA
'---------------------------------------------------------------------------------------
Public Sub DerivedMasterFields()
On Error GoTo DerivedMasterFields_Error
Dim Epmt As Currency
Dim PPmt As Currency
Dim IPmt As Currency
'20140414
Me.AllowEdits = True
If IsNothing(Me.Adb) Then Me.Adb = 0
Me.LastLookedAtDate = Date
If IsNothing(Me.Mastcreatedate) Then Me.Mastcreatedate = Date
If Me.PreNoteDate.Visible = True Then
If IsNothing(Me.PreNoteDate) Then
Me.PreNoteDate = Date
End If
End If
'20140316
Me.ClientPayorSSN = IIf(Not IsNothing(Me.IsmaId2), Me.IsmaId2, IsmaId)
'20140408 derived fields for PPMT MEPMT IEPMT------------------------------
'MEPMT------
Epmt = Nz(Me.Eftgrosscollamt, 0) - Nz(Me.EFTCustodialFee, 0)
If Nz(Me.EFTCollCycle = "BiWeekly", Null) Then
If Nz(Me.RemPmtCycle = "BiWeekly", Null) Then
Me.MEpmt = (Epmt * 26) / 26
Else
Me.MEpmt = (Epmt * 26) / 13
End If
Else
If Nz(Me.EFTCollCycle = "Monthly", Null) Then
If Nz(Me.RemPmtCycle, Null) = "BiWeekly" Then
Me.MEpmt = (Epmt * 12) / 26
Else
Me.MEpmt = (Epmt * 12) / 13
End If
End If
End If
'PPMT------------
PPmt = Nz(Me.Prdgrosscollamt, 0) - Nz(Me.Prdcustodialfee, 0)
If Me.IsmaProductCode <> "Association" Then
If Nz(Me.DeductionCycle, Null) = "Weekly" Then
If Nz(Me.Prdbillingcycle, Null) = "Biweekly" Then
Me.PPmt = (PPmt * 52) / 26
Else
Me.PPmt = (PPmt * 52) / 12
End If
ElseIf Nz(Me.DeductionCycle, Null) = "BiWeekly" Then
If Nz(Me.Prdbillingcycle, Null) = "Biweekly" Then
Me.PPmt = (PPmt * 26) / 26
Else
Me.PPmt = (PPmt * 26) / 12
End If
ElseIf Nz(Me.DeductionCycle, Null) = "Semi-Monthly" Then
If Nz(Me.Prdbillingcycle, Null) = "Biweekly" Then
Me.PPmt = (PPmt * 24) / 26
Else
Me.PPmt = (PPmt * 24) / 12
End If
ElseIf Nz(Me.DeductionCycle, Null) = "Monthly" Then
If Nz(Me.Prdbillingcycle, Null) = "Biweekly" Then
Me.PPmt = (PPmt * 12) / 26
Else
Me.PPmt = (PPmt * 12) / 12
End If
ElseIf Nz(Me.DeductionCycle, Null) = "Weekly" Then
If Nz(Me.Prdbillingcycle, Null) = "Biweekly" Then
Me.PPmt = (PPmt * 52) / 12
Else
Me.PPmt = (PPmt * 52) / 12
End If
ElseIf Nz(Me.DeductionCycle, Null) = "BiWeekly" Then
If Nz(Me.Prdbillingcycle, Null) = "Biweekly" Then
Me.PPmt = (PPmt * 26) / 12
Else
Me.PPmt = (PPmt * 26) / 12
End If
ElseIf Nz(Me.DeductionCycle, Null) = "Semi-Monthly" Then
If Nz(Me.Prdbillingcycle, Null) = "Biweekly" Then
Me.PPmt = (PPmt * 24) / 12
Else
Me.PPmt = (PPmt * 24) / 12
End If
ElseIf Nz(Me.DeductionCycle, Null) = "Monthly" Then
If Nz(Me.Prdbillingcycle, Null) = "Biweekly" Then
Me.PPmt = (PPmt * 12) / 12
Else
Me.PPmt = (PPmt * 12) / 12
End If
Else
Me.PPmt = Null
End If
End If
'IPMT------------
IPmt = Nz(Me.Eftgrosscollamt, 0) - Nz(Me.EFTCustodialFee, 0)
If Nz(Me.EFTCollCycle = "BiWeekly", Null) Then
If Nz(Me.RemPmtCycle = "BiWeekly", Null) Then
Me.IEpmt = (Epmt * 26) / 26
Else
Me.IEpmt = (Epmt * 26) / 12
End If
Else
If Nz(Me.EFTCollCycle = "Monthly", Null) Then
If Nz(Me.RemPmtCycle, Null) = "BiWeekly" Then
Me.IEpmt = (Epmt * 12) / 26
Else
Me.IEpmt = (Epmt * 12) / 12
End If
End If
End If
'Me.MEpmt = IIf(Nz(Me.EFTCollCycle = "BiWeekly", ""), IIf(Nz(Me.RemPmtCycle = "Biweekly", ""), ((Me.Eftgrosscollamt - Me.EFTCustodialFee) * 26) / 26, ((Me.Eftgrosscollamt - Me.EFTCustodialFee) * 26) / 13), IIf(Nz(Me.EFTCollCycle = "Monthly", ""), IIf(Nz(Me.RemPmtCycle = "Biweekly", ""), ((Me.Eftgrosscollamt - Me.EFTCustodialFee) * 12) / 26, ((Me.Eftgrosscollamt - Me.EFTCustodialFee) * 12) / 13), Null))
Me.RemittancePmtAmt = IIf(Me.CollectionMode = "PRD" Or Me.CollectionMode = "Payrec", Me.PPmt, IIf(Me.CollectionMode = "EFT", IIf(Me.IsmaProductCode = "Mortgage", Nz(Me.MEpmt, 0), Nz(Me.IEpmt, 0)), _
IIf(Me.CollectionMode = "Fed Allot", Nz(Me.IEpmt, 0), IIf(Me.CollectionMode = "CCard", Nz(Me.Eftgrosscollamt, 0) - Nz(Me.EFTCustodialFee, 0), Nz(Me.RemittancePmtAmt, 0)))))
Me.Calcbillamt = IIf(Me.DeductionCycle = "weekly", IIf(Me.Prdbillingcycle = "Biweekly", (Me.Prdgrosscollamt * 52) / 26, (Me.Prdgrosscollamt * 52) / 12), _
IIf(Me.DeductionCycle = "Biweekly", IIf(Me.Prdbillingcycle = "Biweekly", (Me.Prdgrosscollamt * 26) / 26, (Me.Prdgrosscollamt * 26) / 12), _
IIf(Me.DeductionCycle = "Semi-Monthly", IIf(Me.Prdbillingcycle = "Biweekly", (Me.Prdgrosscollamt * 24) / 26, (Me.Prdgrosscollamt * 24) / 12), _
IIf(Me.DeductionCycle = "Monthly", IIf(Me.Prdbillingcycle = "Biweekly", (Me.Prdgrosscollamt * 12) / 26, Me.Prdgrosscollamt), Null))))
'20140227---due to labels
Me.Mastcreatedate = IIf(IsNothing(Me.Mastcreatedate), Date, Me.Mastcreatedate)
On Error GoTo 0
Exit Sub
DerivedMasterFields_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DerivedMasterFields of VBA Document Form_frmMaster"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : NeedInfo
' Author : norbert
' Date : 5/22/2014
' Purpose :
'---------------------------------------------------------------------------------------
'
Public Function NeedInfo() As Boolean
Dim bResult As Boolean
On Error GoTo NeedInfo_Error
If Me!fSubDailyACHCcard.Form.Visible Then
If IsNothing(Me!fSubDailyACHCcard.Form.Amt) Then
MsgBox "MISSING INFORMATION IN FORM: 'CWA AND DAILY-ACH/CCARD'" & vbCrLf & "PLEASE FILL THE MISSING INFORMATION OR DELETE THE FORM", vbCritical, "ISM"
bResult = True
GoTo ExitNeedInfo
End If
End If
If Me.Otherowner = "YES" Then
If Nz(DCount("*", "qryOwnerInfo", "OwnerPolicyNo='" & Me.PolicyNo & "'")) > 0 Then
MsgBox "MISSING OWNER INFORMATION" & vbCrLf & "EITHER LAST OR FIRST NAME, ANY ADDRESS INFORMATION" & vbCrLf & "UNTIL ALL INFORMATION IS CORRECT CHANGE Other Owner to 'NO'", vbCritical, "ISM"
Me.Otherowner.SetFocus
bResult = True
GoTo ExitNeedInfo
Else
If Nz(DCount("*", "tblOwner", "OwnerPolicyNo='" & Me.PolicyNo & "'")) = 0 Then
MsgBox "NO OTHER OWNER!" & vbCrLf & "OTHER OWNER WILL BE CHANGE TO 'NO'", vbCritical, "ISM"
Me.Otherowner = "NO"
RunCommand acCmdSaveRecord
bResult = True
GoTo ExitNeedInfo
End If
End If
End If
If IsNothing(Me.ClientName) Then
MsgBox "NEED CLIENT NAME", vbCritical, "ISM"
Me.cmdClient.SetFocus
bResult = True
GoTo ExitNeedInfo
End If
If IsNothing(Me.CompanycodeLoanNo) Then
MsgBox "NEED VENDOR NAME", vbCritical, "ISM"
Me.cmdIns.SetFocus
bResult = True
GoTo ExitNeedInfo
End If
If IsNothing(Me.CollectionMode) Then
MsgBox "NEED COLLECTION MODE", vbCritical, "ISM"
Me.CollectionMode.SetFocus
bResult = True
GoTo ExitNeedInfo
End If
If IsNothing(Me.Productstatus) Then
MsgBox "NEED PRODUCT STATUS", vbCritical, "ISM"
Me.Productstatus.SetFocus
bResult = True
GoTo ExitNeedInfo
End If
If IsNothing(Me.CustodialBank) Then
MsgBox "NEED CUSTODIAL BANK", vbCritical, "ISM"
Me.CustodialBank.SetFocus
bResult = True
GoTo ExitNeedInfo
End If
If IsNothing(Me.Productstatus) Then
MsgBox "NEED PRODUCT STATUS", vbCritical, "ISM"
Me.Productstatus.SetFocus
bResult = True
GoTo ExitNeedInfo
End If
If IsNothing(Me.IsmaProductCode) Then
MsgBox "NEED PRODUCT CODE", vbCritical, "ISM"
Me.IsmaProductCode.SetFocus
bResult = True
GoTo ExitNeedInfo
End If
'---------------------------------------------------------------------------------
ExitNeedInfo:
NeedInfo = bResult
On Error GoTo 0
Exit Function
NeedInfo_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure NeedInfo of VBA Document Form_frmMaster"
End Function
Posted by: drnorbert@msn.com
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (11) |
Tidak ada komentar:
Posting Komentar