diff --git a/.tmp-xen-token.py b/.tmp-xen-token.py new file mode 100644 index 0000000..a705cd9 --- /dev/null +++ b/.tmp-xen-token.py @@ -0,0 +1,18 @@ +import os, paramiko +host="192.168.0.104"; user="root"; pw=os.environ["XEN_PW"] +c=paramiko.SSHClient(); c.set_missing_host_key_policy(paramiko.AutoAddPolicy()) +c.connect(host, username=user, password=pw, timeout=20, + disabled_algorithms={'pubkeys': ['rsa-sha2-256','rsa-sha2-512']}, + look_for_keys=False, allow_agent=False) +def run(cmd): + i,o,e=c.exec_command(cmd,timeout=60); return (o.read().decode(errors="replace")+e.read().decode(errors="replace")).strip() +# Generate a temporary XenAPI session ref for the HTTP export (avoids putting root pw in the RMM command log) +pyc = ( +"import XenAPI;" +"s=XenAPI.Session('https://localhost');" +"s.login_with_password('root', __import__('os').environ['XPW'], '1.0', 'g-migration');" +"print(s._session)" +) +out=run(f"XPW='{pw}' python -c \"{pyc}\"") +print("SESSION_REF:", out) +c.close() diff --git a/clients/peaceful-spirit/AD-DC2-REBUILD-RUNBOOK.md b/clients/peaceful-spirit/AD-DC2-REBUILD-RUNBOOK.md new file mode 100644 index 0000000..d04944e --- /dev/null +++ b/clients/peaceful-spirit/AD-DC2-REBUILD-RUNBOOK.md @@ -0,0 +1,72 @@ +# Peaceful Spirit — PST-SERVER2 evict + re-promote runbook + +**Created:** 2026-06-13 by Mike Swanson (GURU-5070) +**Why:** PST-SERVER2 is a past-tombstone-lifetime DC. AD replication dead both directions +(err 8614 "exceeded tombstone lifetime"; err 0x8009030C broken secure channel). SYSVOL + +data DFS-R in State 5 (InError), stale 200-224 days. A past-TSL DC must NOT be allowed to +resume replication (lingering-object reanimation risk). So: evict SERVER2, metadata-clean, +re-promote fresh. + +**Authoritative/healthy DC:** PST-SERVER (192.168.0.2) — holds ALL 5 FSMO. Server 2016 +Essentials. Domain PEACEFULSPIRIT.local (Win2016 functional level). +**DC to rebuild:** PST-SERVER2 (192.168.1.127, NW site) — Server 2019 Standard, additional DC only. + +**Execution channel:** GuruRMM (SYSTEM context). PST-SERVER `87293069-33b6-45e8-a68f-6811216cdb96`, +PST-SERVER2 `5d2d7ba0-3903-4aa3-9e97-6ca4424ffe65`. Domain admin = `sysadmin` (vault: +clients/peaceful-spirit/server.sops.yaml). NOTE: promotion needs Domain Admin creds passed in +the RMM command — that password lands in RMM command_text/history (internal). Consider rotation +after if RMM DB exposure is a concern. + +--- + +## Gates (confirm with Mike before each) + +### Gate 0 — Pre-flight + safety backup (SAFE: read-only + backup) +- Confirm PST-SERVER is a Global Catalog. (If SERVER2 were the only GC, must GC-flag SERVER first.) +- Confirm all 5 FSMO on PST-SERVER (done: yes). +- dcdiag focused (Advertising/FSMOCheck/Services) on PST-SERVER — must be clean. +- Enable Strict Replication Consistency on PST-SERVER (protective; reg key) — *change, but safe/recommended*. +- BACK UP authoritative SYSVOL: robocopy `C:\Windows\SYSVOL\domain\Policies` -> `C:\PST-Backup\SYSVOL-Policies` + and `Backup-GPO -All`. Insurance before any AD change. + +### Gate 1 — Force-demote PST-SERVER2 (DESTRUCTIVE to SERVER2; reboots SERVER2) +- On SERVER2: `Uninstall-ADDSDomainController -ForceRemoval -DemoteOperationMasterRole -Force + -LocalAdministratorPassword ` (graceful demote impossible — replication dead). +- SERVER2 becomes a member/standalone server and reboots. Blast radius = SERVER2 only. +- Risk: AD changes made ONLY on SERVER2 during isolation are lost (already stranded; PDC authoritative). + +### Gate 2 — Metadata cleanup on PST-SERVER (DESTRUCTIVE to AD metadata for SERVER2) +- Remove SERVER2 NTDS Settings / server object (ntdsutil metadata cleanup, or Remove-ADObject of the + NTDS Settings object with -Credential domain admin). +- Remove SERVER2 from AD Sites & Services (NW site server object). +- DNS cleanup: SERVER2 host A, _msdcs CNAME/GUID, NS records, SRV records. +- DFSR cleanup: remove SERVER2 member from "Domain System Volume" (SYSVOL) and "PST-DFS" groups. +- Verify: `repadmin /viewlist *` shows only PST-SERVER; dcdiag clean. + +### Gate 3 — Re-promote PST-SERVER2 (re-introduces a DC) +- Ensure SERVER2 DNS points to PST-SERVER (192.168.0.2) primary. (Currently 192.168.0.2,192.168.1.5,8.8.8.8,1.1.1.1.) +- `Install-ADDSDomainController -DomainName PEACEFULSPIRIT.local -Credential -InstallDns + -SiteName NW -SafeModeAdministratorPassword ` — fresh promotion. +- SYSVOL initializes clean via DFSR initial sync from PST-SERVER (no D2/D4 needed). +- Verify: repadmin /replsummary 0% fails; SYSVOL+NETLOGON shared on SERVER2; dcdiag clean; + GPO count matches SERVER (11). + +### Gate 4 — Rebuild data DFS-R (deferred — separate decision) +- Provision SERVER2 data volume (shrink C: / add disk / folder-on-C: — TBD after G: cleanup + sizing). +- Recreate `Shares` folder target on SERVER2 + re-establish PST-DFS replication. +- Add PST-SERVER2 as 2nd namespace ROOT target (namespace HA for VPN-outage resilience). +- Confirm backlog drains to 0. + +### Gate 5 — G: cleanup on PST-SERVER (separate) +- ~160 GB candidates: G:\Windows (32), G:\Program Files (x86) (13), G:\ProgramData (10), + G:\Users (51), G:\$Recycle.Bin (5.6), VSS in System Volume Information (~46). Confirm junk first. +- D: recovery junk (~700 GB): Recovery-EXT, Recovery2019, "Unknown folder" — confirm before delete. + +--- + +## Rollback notes +- Gate 0 changes (strict consistency reg) are trivially reversible. +- After Gate 1 demotion, SERVER2 is a plain member server — re-promotion (Gate 3) restores it. + No rollback needed for the eviction itself; the domain runs fine on PST-SERVER alone meanwhile. +- The SYSVOL/GPO backup from Gate 0 is the restore point if PST-SERVER's SYSVOL were ever harmed + (it should not be touched by this procedure). diff --git a/clients/peaceful-spirit/session-logs/2026-06/2026-06-13-mike-pst-server2-dc-rebuild-and-g-cleanup.md b/clients/peaceful-spirit/session-logs/2026-06/2026-06-13-mike-pst-server2-dc-rebuild-and-g-cleanup.md new file mode 100644 index 0000000..b6deeb6 --- /dev/null +++ b/clients/peaceful-spirit/session-logs/2026-06/2026-06-13-mike-pst-server2-dc-rebuild-and-g-cleanup.md @@ -0,0 +1,171 @@ +## User +- **User:** Mike Swanson (mike) +- **Machine:** GURU-5070 +- **Role:** admin + +## Session Summary + +Resumed the Peaceful Spirit multi-site AD+DFS work from the 2026-06-11 plan. Read-only recon +(via GuruRMM) revealed the environment was far past the plan baseline AND broken: PST-SERVER2 +had already been promoted as a second DC with DFS roles ~200+ days ago, then the site +disconnected for ~7 months. PST-SERVER2 was a **past-tombstone-lifetime DC** — AD replication +dead both directions (err 8614 "exceeded tombstone lifetime", err 0x8009030C broken secure +channel), SYSVOL DFSR stale 224 days (Event 4012), data DFS-R (`PST-DFS`/`Shares`) stale 200 +days, and its DFS-R data target drive (a dynamic disk holding `D:\Shares`) was physically +**missing** (`diskpart` showed "Disk M0 Missing"). A past-TSL DC must never resume replication +(lingering-object reanimation risk), so the plan shifted from "fix SYSVOL" to **evict + rebuild +SERVER2**. + +Executed a gated runbook (`clients/peaceful-spirit/AD-DC2-REBUILD-RUNBOOK.md`): Gate 0 pre-flight ++ SYSVOL/GPO backup; Gate 1 force-demote PST-SERVER2; Gate 2 metadata cleanup on PST-SERVER; an +authoritative **D4 SYSVOL restore** on PST-SERVER; Gate 3 re-join + re-promote PST-SERVER2 as a +fresh DC, then a **D2 non-authoritative SYSVOL sync** to fix its stale leftover DFSR database. +End state: **two healthy DCs**, AD replication 0 errors both directions, SYSVOL DFSR State 4 +Normal on both (11 GPOs each), both GC, both advertising as logon servers. The 224-day-broken AD +is fully repaired and NW now has a local DC surviving a VPN outage. + +Then did Gate 5 — **G: cleanup on PST-SERVER**. Investigation showed G: is the OLD server's +former C: drive (live OS runs from C:; everything OS-related on G: dated 2009-2018, profiles named +`*.NEWSERVER`). Deleted the entire dead old-OS install (~99 GB: Windows, Users, Program Files*, +ProgramData, $Recycle.Bin, 13 misc folders) using takeown + robocopy-mirror for +TrustedInstaller-protected files, and bounded G: VSS shadow storage from UNBOUNDED to 25 GB +(trimmed 41 GB -> 9.6 GB). G: free went **51 GB -> 182 GB** (~131 GB reclaimed). Live data +(`G:\Shares`, `ServerFolders`, `System Volume Information`) untouched. + +Gate 4 (data DFS-R rebuild + SERVER2 data-volume decision) and several follow-ups remain. + +## Key Decisions + +- **Evict + rebuild SERVER2 (not repair).** Past tombstone lifetime -> resuming replication risks + lingering-object reanimation. Force-demote -> metadata cleanup -> clean re-promote sidesteps the + whole stale-AD/SYSVOL mess. Safe because PST-SERVER holds ALL 5 FSMO + is GC; SERVER2 was only + an additional DC. +- **D4 authoritative on PST-SERVER, D2 non-authoritative on SERVER2.** PST-SERVER's SYSVOL was + State 5 (InError) from the old 4012; D4 made it the authoritative source. After re-promotion, + SERVER2's SYSVOL hit 4012 again from a **leftover DFSR database** from its prior DC life -> D2 + forced it to discard the stale DB and re-sync fresh. +- **Forced-removal method.** `Uninstall-ADDSDomainController -ForceRemoval` is blocked by a + non-skippable test (General.21) while the DC is a DNS server + GC. Fix: clear the GC flag + (nTDSDSA options=0) and uninstall the DNS role (reboot), THEN force-remove. `-SkipPreChecks` / + `-Force` / `-Confirm:$false` do NOT bypass General.21. +- **AD writes need DA creds via FQDN.** Agent SYSTEM context can't do metadata cleanup. Use + `-Credential sysadmin -Server PST-SERVER.PEACEFULSPIRIT.local` (FQDN, valid SPN). `-Server + localhost` fails with a Kerberos SPN error; WinRM loopback with creds also failed. +- **G: cleanup confirmed as old-OS drive.** Live OS on C:; G: = old server's C: (2009-2018 dates, + `*.NEWSERVER` profiles). Deleted whole old OS; kept Shares/ServerFolders/SVI. Bounded VSS rather + than clearing (keep recent Previous-Versions history). + +## Problems Encountered + +- **`get-field` dot-notation bug:** `vault.sh get-field clients/peaceful-spirit/server credentials.password` + returned the literal string **"null"** -> every DA attempt sent password "null" -> auth rejected + (~6 bad attempts; harmless, domain LockoutThreshold=0). Real password `r3tr0gradE99!` was read + from the full `vault.sh get`. **Use full `get` (or verify the field path) for nested creds.** +- **PowerShell-over-RMM quoting traps (recurring):** scripts are wrapped in bash single quotes, so + (a) can't use single quotes inside (property names like `$obj."prop"` must use double quotes), + (b) `\"` over-escaping breaks `-join`, (c) `$g:` parsed as a drive ref -> use `${g}`. Several + commands failed to parse (no-ops) until fixed. +- **`Uninstall-ADDSDomainController` parameter-set / General.21** — see Key Decisions. +- **AV grabbed mingw curl** ("curl: Permission denied") intermittently; Mike disabled AV. +- **SERVER2 slow reboots** — DNS-role removal + DC promotion finalize add several minutes to boot; + RMM `last_seen` gave false "online" before the real reboot took hold (verify actual state, not + just the timestamp). +- **dcdiag SysVolCheck/NetLogons failed** right after SYSVOL init -> fixed by `Restart-Service + Netlogon` (re-advertise). +- **Stubborn OS files** survived `rd /s /q` even after takeown -> robocopy-mirror-from-empty + + `rd` cleared them. +- **Free-space readout bug:** WMI filter `DeviceID=''G:''` (doubled quotes) returned 0; used + `(Get-PSDrive G).Free` / `Get-Volume` instead. + +## Configuration Changes + +AD / DC (domain PEACEFULSPIRIT.local, via GuruRMM): +- PST-SERVER: SYSVOL backup -> `C:\PST-Backup\SYSVOL-Policies-20260613-1611`; GPO backup -> + `C:\PST-Backup\GPO-20260613-1611` (11 GPOs). Strict Replication Consistency already =1. +- PST-SERVER: **D4 authoritative SYSVOL restore** (msDFSR-Enabled FALSE+options=1, then TRUE) -> + Event 4602, SYSVOL State 4. +- PST-SERVER: metadata cleanup of PST-SERVER2 (server object + NTDS Settings + computer account + removed; DNS A/NS/CNAME/7xSRV removed in both zones). +- PST-SERVER2: cleared GC flag (nTDSDSA options 1->0); uninstalled DNS Server role; force-removed + AD DS (became WORKGROUP member); re-joined PEACEFULSPIRIT.local; **re-promoted** as DC (site NW, + InstallDns, GC); **D2 non-authoritative SYSVOL sync** (Event 4604) -> State 4, 11 GPOs, SYSVOL+ + NETLOGON shared; Netlogon restarted (dcdiag green); DNS client set to 192.168.0.2. +- PST-SERVER: **G: cleanup** — deleted old-OS dirs (Windows, Users, Program Files, Program Files + (x86), ProgramData, $Recycle.Bin, MSOCache, v12, v13, RAPID, 8x8, Brother, Intel, inetpub, + Support, BackupTemp, Documents and Settings, $WINDOWS.~BT). VSS shadow storage for G: resized + to maxsize=25GB. G: free 51 -> 182 GB. + +Repo / vault: +- Created `clients/peaceful-spirit/AD-DC2-REBUILD-RUNBOOK.md`. +- Vault: created `clients/peaceful-spirit/server2.sops.yaml` with `local_admin_password` and + `dsrm_password` (see below). **Pending publish** via sync. + +## Credentials & Secrets + +- **PST domain admin:** `PEACEFULSPIRIT\sysadmin` / `r3tr0gradE99!` (vault + `clients/peaceful-spirit/server`, field `credentials.password`). NOTE the get-field dot bug above. +- **PST-SERVER2 new local admin + DSRM:** generated this session, stored in vault + `clients/peaceful-spirit/server2` (`local_admin_password`, `dsrm_password`). Values are in the + vault only (not pasted here per policy); entry is **not yet pushed** to Gitea. +- **[WARNING] DA password exposure:** the sysadmin password was passed (base64-wrapped) in RMM + command_text for the cleanup/D4/D2/promote/join commands, so it is recoverable from the GuruRMM + command history/DB. RMM is internal; consider rotating `sysadmin` if RMM DB exposure is a concern. + +## Infrastructure & Servers + +- Domain **PEACEFULSPIRIT.local** (NetBIOS PEACEFULSPIRIT? -> uses PEACEFULSPIRIT\). Win2016 + domain/forest functional level. LockoutThreshold=0 (lockout disabled). +- **PST-SERVER** — 192.168.0.2, site **CC**, holds all 5 FSMO, GC, DNS, Server 2016 Essentials. + GuruRMM `87293069-33b6-45e8-a68f-6811216cdb96` (v0.6.66). G: 465.7 GB (182 GB free post-cleanup); + C: 931 GB; D: 931 GB (Recovery-EXT/Recovery2019/"Unknown folder" ~700 GB of old backup junk). +- **PST-SERVER2** — 192.168.1.127 (DHCP), site **NW**, GC, DNS, Server 2019 Standard. GuruRMM + `5d2d7ba0-3903-4aa3-9e97-6ca4424ffe65` (v0.6.66). Single 1 TB NVMe (Crucial P2), C: only (no + D:); old dynamic data disk is MISSING. +- AD Sites & Services (pre-existing, correct): sites CC + NW; subnets 192.168.0.0/24 -> CC, + 192.168.1.0/24 -> NW. S2S VPN between sites is UP (389/445/135/88 reachable SERVER2->SERVER). +- DFS namespace `\\PEACEFULSPIRIT.local\PST-Files` -> folder `Shares` (root target only on + PST-SERVER). DFS-R group `PST-DFS` replicated `Shares` (G:\Shares <-> D:\Shares) — currently + broken/stale, to be rebuilt at Gate 4. +- Business data on PST-SERVER `G:\Shares`: Private ~154 GB, Scanned ~105 GB, ITServices ~5 GB + (~265 GB). A service `SshWiaRestart` runs from `G:\Shares\ITServices\...` (Fujitsu scanner). + +## Commands & Outputs + +- Tombstone evidence: `repadmin /replsummary` -> 8614 / 0x8009030C, 100% fails (pre-rebuild). +- Force-demote (after clearing GC + DNS role): `Uninstall-ADDSDomainController -ForceRemoval + -LocalAdministratorPassword -NoRebootOnCompletion -Force` -> Status=Success. +- Metadata cleanup: `Remove-ADObject -Recursive -Server PST-SERVER.PEACEFULSPIRIT.local -Credential + $cred` on `CN=PST-SERVER2,CN=Servers,CN=NW,CN=Sites,...` + computer object; DNS via + `Remove-DnsServerResourceRecord`. +- D4/D2: `Set-ADObject -Replace @{ "msDFSR-Enabled"=$false/$true; + "msDFSR-options"=1 (D4 only) }` + `net stop/start dfsr` + `dfsrdiag pollad`. Events 4114 -> 4602 + (D4) / 4614 -> 4604 (D2). +- Re-promote: `Install-ADDSDomainController -DomainName PEACEFULSPIRIT.local -Credential $cred + -SafeModeAdministratorPassword $dsrm -SiteName NW -InstallDns -Force -NoRebootOnCompletion`. +- Final health: `repadmin /replsummary` 0/5 fails both DCs; dcdiag PST-SERVER2 passed + Advertising/SysVolCheck/NetLogons after `Restart-Service Netlogon`. +- G: cleanup: takeown /f /r /d y; icacls grant; robocopy /MIR; rd /s /q. + `vssadmin resize shadowstorage /for=G: /on=G: /maxsize=25GB`. + +## Pending / Incomplete Tasks + +- **Gate 4 — data DFS-R rebuild:** decide PST-SERVER2 data volume (shrink C: / add disk / + folder-on-C:), recreate `Shares` folder target on SERVER2, re-establish PST-DFS replication, + and ADD PST-SERVER2 as a 2nd **namespace root target** (namespace HA for VPN-outage). Clean the + orphaned PST-DFS member left from metadata cleanup. +- **PST-SERVER2 static IP** — currently DHCP 192.168.1.127; DCs should be static (dcpromo warned). +- **Stale DNS tidy:** extra `192.168.1.5` A record for PEACEFULSPIRIT.local; `.240` RRAS-pool + registration on PST-SERVER. Identify what 192.168.1.5 is (a resolver in SERVER2's DNS list). +- **Vault publish:** push `clients/peaceful-spirit/server2.sops.yaml` (handled by this save's sync). +- **Optional:** rotate `sysadmin` (RMM command_text exposure); clean D: backup junk on PST-SERVER + (~700 GB) if not needed; remove `C:\PST-Backup\*` once rebuild confirmed stable. +- **Wiki:** update `wiki/clients/peaceful-spirit.md` (now 2 DCs; SERVER2 rebuilt; G: cleaned). + +## Reference Information + +- Runbook: `clients/peaceful-spirit/AD-DC2-REBUILD-RUNBOOK.md`. +- Backups on PST-SERVER: `C:\PST-Backup\SYSVOL-Policies-20260613-1611`, `C:\PST-Backup\GPO-20260613-1611`. +- Vault: `clients/peaceful-spirit/server` (DA), `clients/peaceful-spirit/server2` (new local admin+DSRM). +- GuruRMM agents: PST-SERVER `87293069-33b6-45e8-a68f-6811216cdb96`; PST-SERVER2 + `5d2d7ba0-3903-4aa3-9e97-6ca4424ffe65`. RMM API `http://172.16.3.30:3001`. +- KB 2218556 (authoritative/non-authoritative DFSR SYSVOL D4/D2). diff --git a/clients/valleywide/app-modernization/CONTEXT.md b/clients/valleywide/app-modernization/CONTEXT.md index c686004..8db44ec 100644 --- a/clients/valleywide/app-modernization/CONTEXT.md +++ b/clients/valleywide/app-modernization/CONTEXT.md @@ -49,3 +49,27 @@ Visual FoxPro EOL was 2015. MS Access Jet/.mdb is still technically supported bu ## Session Logs - `session-logs/` — work logs for this sub-project + +--- + +## Update 2026-06-13 — Darv source recovery from migrated G: drive + +During the G: file-share migration (SERVER3 -> VWP-FILES, Hyper-V), Darv's full user +profile was found on the G: volume at `G:\Users\Darv` (now `\VWP-FILES\G-drive\Users\Darv`). + +**Source code status — still effectively lost:** `G:\Users\Darv\Source\VWP` contains ONLY +`frmPayroll.frm` (+ `.frx`, 32 KB, 2017) — the same single form found earlier on ADSRVR. +No `.vbp` project file, no other forms/modules. The 19 `.vbp` / 44 `.frm` elsewhere under +`Darv` are Crystal Reports 8.5 SDK samples (`Darv\Installs\SCR85Dev`), not the app. + +**New compiled/data artifacts recovered** (staged to `source-analysis/darv-G-finds/`): +- `ORDERS0727-2015.exe` (7.3 MB, built 2015-07-27) — from `Darv\OrdersPkg\Package1508\Support\`. + Newer compiled build than `Orders_10A.exe`; primary VB Decompiler target. +- `ORDERS-2005.exe` (5.2 MB, 2005) — older build. +- `Package1508/` (60 MB, 88 files) — the InstallShield/PDW deployment package for the 2015 build. +- `frmPayroll.frm` / `.frx` — the one surviving source form. + +**On G: but NOT pulled (large):** `G:\Users\Darv\VWP\db1.mdb` (120 MB, 2017) — likely VWP +data DB; plus other Darv-project DBs (HealthCare/ACA). Pull on demand. + +**Next:** run VB Decompiler Pro against `ORDERS0727-2015.exe` (P-Code -> ~70-80% recovery). diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/ORDERS0727.CAB b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/ORDERS0727.CAB new file mode 100644 index 0000000..1018d44 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/ORDERS0727.CAB differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/SETUP.LST b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/SETUP.LST new file mode 100644 index 0000000..319fc90 --- /dev/null +++ b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/SETUP.LST @@ -0,0 +1,146 @@ +[Bootstrap] +SetupTitle=Install +SetupText=Copying Files, please stand by. +CabFile=ORDERS0727.CAB +Spawn=Setup1.exe +Uninstal=st6unst.exe +TmpDir=msftqws.pdw +Cabs=1 + +[Bootstrap Files] +File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3/26/99 12:00:00 AM,101888,6.0.84.50 +File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 12:00:00 AM,22288,4.71.1460.1 +File3=@olepro32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/4/04 5:00:00 AM,83456,5.1.2600.2180 +File4=@stdole2.tlb,$(WinSysPathSysFile),$(TLBRegister),,8/4/04 5:00:00 AM,17920,3.50.5014.0 +File5=@asycfilt.dll,$(WinSysPathSysFile),,,8/4/04 5:00:00 AM,65024,5.1.2600.2180 +File6=@oleaut32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/4/04 5:00:00 AM,553472,5.1.2600.2180 +File7=@MSVBVM60.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,7/14/09 3:15:50 AM,1386496,6.0.98.15 + +[IconGroups] +Group0=ORDERS +PrivateGroup0=True +Parent0=$(Programs) + +[ORDERS] +Icon1="ORDERS0727.exe" +Title1=ORDERS +StartIn1=$(AppPath) + +[Setup] +Title=ORDERS +DefaultDir=$(ProgramFiles)\ORDERS +AppExe=ORDERS0727.exe +AppToUninstall=ORDERS0727.exe + +[Setup1 Files] +File1=@MDAC_TYP.EXE,$(AppPath),,,6/26/98 12:00:00 AM,8124720,4.71.1015.0 +File2=@Flp32a30.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/1/00 3:30:00 PM,652184,3.0.0.7 +File3=@EasyP.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/31/01 9:42:34 AM,98304,2.0.0.3 +File4=@MSCOMCT2.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/26/98 12:00:00 AM,644400,6.0.81.77 +File5=@comdlg32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/20/08 2:27:46 PM,152848,6.1.97.82 +File6=@mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/20/08 2:27:42 PM,1071088,6.1.97.86 +File7=@SSCSDK80.DLL,$(WinSysPath),,$(Shared),11/16/00 11:54:18 AM,1163264,2.2.9.4 +File8=@U252000.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.0 +File9=@U2LSAMP1.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.1 +File10=@U2LDTS.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.0 +File11=@U2LCOM.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,45056,8.0.0.0 +File12=@U2LBAR.DLL,$(AppPath),,,12/14/98 9:00:00 AM,40960,0.0.0.0 +File13=@U2L2000.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.0 +File14=@u25total.dll,$(AppPath),,,6/25/98 9:00:00 AM,59904,0.0.0.0 +File15=@U25STORE.DLL,$(AppPath),,,3/9/97 6:00:00 AM,61440,0.0.0.0 +File16=@U25DTS.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.0 +File17=@crxf_pdf.dll,$(WinSysPath),,$(Shared),2/2/01 11:22:28 PM,270336,8.5.0.37 +File18=@U2FXLS.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,212992,8.5.0.99 +File19=@U2FWORDW.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,106496,8.5.0.92 +File20=@U2FWKS.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,40960,8.0.0.4 +File21=@U2FTEXT.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,90112,8.5.0.98 +File22=@U2FSEPV.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,36864,8.0.0.9 +File23=@crxf_rtf.dll,$(WinSysPath),,$(Shared),2/2/01 11:22:48 PM,200755,8.5.0.32 +File24=@U2FREC.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,36864,8.5.0.27 +File25=@U2FODBC.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,49152,8.5.0.10 +File26=@U2FHTML.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,45056,8.5.0.77 +File27=@U2FCR.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,28672,8.5.0.3 +File28=@U2DAPP.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,28672,8.0.0.0 +File29=@U2DVIM.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,57344,8.0.0.0 +File30=@U2DPOST.DLL,$(WinSysPath),,$(Shared),4/26/00 3:28:26 PM,49152,8.0.0.0 +File31=@U2DNOTES.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,53248,8.0.100.2 +File32=@U2DMAPI.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,40960,8.0.0.0 +File33=@U2DDISK.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,28672,8.5.0.1 +File34=@p2soledb.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:50 AM,204800,8.5.0.20 +File35=@p2ssyb10.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:50 AM,159744,8.5.0.18 +File36=@p2ssql.dll,$(WinSysPath),,$(Shared),2/2/01 11:26:50 PM,168000,8.5.0.19 +File37=@p2sora7.dll,$(WinSysPath),,$(Shared),2/2/01 11:26:50 PM,167936,8.5.0.21 +File38=@p2sodbc.dll,$(WinSysPath),,$(Shared),4/5/01 1:47:38 AM,286720,8.6.0.3 +File39=@p2sifmx.dll,$(WinSysPath),,$(Shared),2/2/01 11:26:50 PM,167936,8.5.0.19 +File40=@p2irdao.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:54 AM,65536,8.5.0.6 +File41=@p2ctdao.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:54 AM,53248,8.5.0.6 +File42=@p2bxbse.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:48 AM,249856,8.5.0.7 +File43=@p2bdao.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:54 AM,94208,8.5.0.7 +File44=@P2bbnd.dll,$(WinSysPath),,$(Shared),11/8/00 2:46:00 PM,23040,8.0.0.1 +File45=@p2bbde.dll,$(WinSysPath),,$(Shared),2/2/01 11:26:48 PM,77824,8.5.0.17 +File46=@CRXLAT32.DLL,$(WinSysPath),,$(Shared),10/25/00 10:15:00 AM,24576,8.0.0.0 +File47=@mfc42.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/4/04 5:00:00 AM,1028096,6.2.4131.0 +File48=@msvcrt.dll,$(WinSysPath),,$(Shared),8/4/04 5:00:00 AM,343040,7.0.2600.2180 +File49=@Crpaig80.dll,$(WinSysPath),,$(Shared),11/9/00 11:52:00 AM,618496,8.0.1.3 +File50=@P2smon.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:54 AM,163840,8.5.0.12 +File51=@IMPLODE.DLL,$(AppPath),,,10/25/00 10:15:00 AM,17920,0.0.0.0 +File52=@Crpe32.dll,$(WinSysPath),,$(Shared),2/9/01 10:43:52 AM,4587577,8.5.0.217 +File53=@Crystl32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/30/00 4:12:00 PM,847324,8.0.0.4 +File54=@tdbgpp7.dll,$(WinSysPath),,$(Shared),8/24/00 7:00:00 AM,283120,7.0.20.5 +File55=@todgub7.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/24/00 7:00:00 AM,238072,7.0.0.11 +File56=@todg7.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/24/00 7:00:00 AM,950768,7.0.0.249 +File57=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00 12:00:00 AM,118784,6.0.88.4 +File58=@MSADODC.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,118976,6.0.88.4 +File59=@TABCTL32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 1:02:36 PM,209608,6.0.90.43 +File60=@SSCSDK32.DLL,$(WinSysPath),,$(Shared),10/29/98 9:02:34 AM,901120,1.0.3.7 +File61=@crpaig32.dll,$(WinSysPath),,$(Shared),11/8/98 9:00:00 AM,229888,5.0.0.2 +File62=@craxdrt.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/8/98 9:00:00 AM,4822528,7.0.1.183 +File63=@RDOCURS.DLL,$(WinSysPath),,$(Shared),6/18/98 12:00:00 AM,151552,5.0.81.69 +File64=@MSRDO20.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/18/98 12:00:00 AM,393216,6.0.81.69 +File65=@MSCDRUN.DLL,$(CommonFiles)\Designer,$(DLLSelfRegister),$(Shared),6/18/98 12:00:00 AM,49152,6.0.81.69 +File66=@MSDBRPTR.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/18/98 12:00:00 AM,299008,6.0.81.69 +File67=@tdbg7da.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/24/00 7:00:00 AM,209400,7.0.0.7 +File68=@msadox.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/4/04 5:00:00 AM,200704,2.81.1117.0 +File69=@msado21.tlb,$(WinSysPath),,$(Shared),8/4/04 5:00:00 AM,61440,2.81.1117.0 +File70=@MSBIND.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/18/98 12:00:00 AM,77824,6.0.81.69 +File71=@tdc.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/4/04 5:00:00 AM,61440,1.3.0.3130 +File72=@ORDERS0727.exe,$(AppPath),,,7/27/15 7:37:13 PM,7327744,3.7.0.5 + +; The following lines may be deleted in order to obtain extra +; space for customizing this file on a full installation diskette. +; +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Crystl32.OCX b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Crystl32.OCX new file mode 100644 index 0000000..426e693 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Crystl32.OCX differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/EasyP.ocx b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/EasyP.ocx new file mode 100644 index 0000000..88147d2 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/EasyP.ocx differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Flp32a30.ocx b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Flp32a30.ocx new file mode 100644 index 0000000..1080487 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Flp32a30.ocx differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/MSADODC.OCX b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/MSADODC.OCX new file mode 100644 index 0000000..b1e462a Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/MSADODC.OCX differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/MSCOMCT2.OCX b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/MSCOMCT2.OCX new file mode 100644 index 0000000..c34b591 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/MSCOMCT2.OCX differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/ORDERS0727.BAT b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/ORDERS0727.BAT new file mode 100644 index 0000000..7eaa53f --- /dev/null +++ b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/ORDERS0727.BAT @@ -0,0 +1,4 @@ +@echo off +ECHO Use this batch file to make a new cab file. Press CTRL-C to cancel, or +pause +"C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\MAKECAB.EXE" /f "Orders.DDF" diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Orders.DDF b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Orders.DDF new file mode 100644 index 0000000..ba151cf --- /dev/null +++ b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Orders.DDF @@ -0,0 +1,95 @@ +.OPTION EXPLICIT +.Set Cabinet=off +.Set Compress=off +.Set MaxDiskSize=CDROM +.Set ReservePerCabinetSize=6144 +.Set DiskDirectoryTemplate=".." +.Set CompressionType=MSZIP +.Set CompressionLevel=7 +.Set CompressionMemory=21 +.Set CabinetNameTemplate="ORDERS0727.CAB" +"Setup.Lst" +"setup.exe" +.Set Cabinet=on +.Set Compress=on +"ORDERS0727.exe" +"MSVBVM60.DLL" +"oleaut32.dll" +"olepro32.dll" +"asycfilt.dll" +"stdole2.tlb" +"COMCAT.DLL" +"tdc.ocx" +"MSBIND.DLL" +"MSSTDFMT.DLL" +"msado21.tlb" +"msadox.dll" +"tdbg7da.dll" +"MSDBRPTR.DLL" +"MSCDRUN.DLL" +"MSRDO20.DLL" +"RDOCURS.DLL" +"craxdrt.dll" +"IMPLODE.DLL" +"crpaig32.dll" +"SSCSDK32.DLL" +"P2smon.dll" +"TABCTL32.OCX" +"MSADODC.OCX" +"todg7.ocx" +"todgub7.dll" +"tdbgpp7.dll" +"Crystl32.OCX" +"Crpe32.dll" +"Crpaig80.dll" +"msvcrt.dll" +"mfc42.dll" +"CRXLAT32.DLL" +"p2bbde.dll" +"P2bbnd.dll" +"p2bdao.dll" +"p2bxbse.dll" +"p2ctdao.dll" +"p2irdao.dll" +"p2sifmx.dll" +"p2sodbc.dll" +"p2sora7.dll" +"p2ssql.dll" +"p2ssyb10.dll" +"p2soledb.dll" +"U2DDISK.DLL" +"U2DMAPI.DLL" +"U2DNOTES.DLL" +"U2DPOST.DLL" +"U2DVIM.DLL" +"U2DAPP.DLL" +"U2FCR.DLL" +"U2FHTML.DLL" +"U2FODBC.DLL" +"U2FREC.DLL" +"crxf_rtf.dll" +"U2FSEPV.DLL" +"U2FTEXT.DLL" +"U2FWKS.DLL" +"U2FWORDW.DLL" +"U2FXLS.DLL" +"crxf_pdf.dll" +"U25DTS.DLL" +"U25STORE.DLL" +"u25total.dll" +"U2L2000.DLL" +"U2LBAR.DLL" +"U2LCOM.DLL" +"U2LDTS.DLL" +"U2LSAMP1.DLL" +"U252000.DLL" +"SSCSDK80.DLL" +"mscomctl.ocx" +"comdlg32.ocx" +"MSCOMCT2.OCX" +"EasyP.ocx" +"Flp32a30.ocx" +"MDAC_TYP.EXE" +"SETUP1.EXE" +"VB6STKIT.DLL" +"ST6UNST.EXE" diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Setup.Lst b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Setup.Lst new file mode 100644 index 0000000..319fc90 --- /dev/null +++ b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/Setup.Lst @@ -0,0 +1,146 @@ +[Bootstrap] +SetupTitle=Install +SetupText=Copying Files, please stand by. +CabFile=ORDERS0727.CAB +Spawn=Setup1.exe +Uninstal=st6unst.exe +TmpDir=msftqws.pdw +Cabs=1 + +[Bootstrap Files] +File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3/26/99 12:00:00 AM,101888,6.0.84.50 +File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 12:00:00 AM,22288,4.71.1460.1 +File3=@olepro32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/4/04 5:00:00 AM,83456,5.1.2600.2180 +File4=@stdole2.tlb,$(WinSysPathSysFile),$(TLBRegister),,8/4/04 5:00:00 AM,17920,3.50.5014.0 +File5=@asycfilt.dll,$(WinSysPathSysFile),,,8/4/04 5:00:00 AM,65024,5.1.2600.2180 +File6=@oleaut32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/4/04 5:00:00 AM,553472,5.1.2600.2180 +File7=@MSVBVM60.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,7/14/09 3:15:50 AM,1386496,6.0.98.15 + +[IconGroups] +Group0=ORDERS +PrivateGroup0=True +Parent0=$(Programs) + +[ORDERS] +Icon1="ORDERS0727.exe" +Title1=ORDERS +StartIn1=$(AppPath) + +[Setup] +Title=ORDERS +DefaultDir=$(ProgramFiles)\ORDERS +AppExe=ORDERS0727.exe +AppToUninstall=ORDERS0727.exe + +[Setup1 Files] +File1=@MDAC_TYP.EXE,$(AppPath),,,6/26/98 12:00:00 AM,8124720,4.71.1015.0 +File2=@Flp32a30.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/1/00 3:30:00 PM,652184,3.0.0.7 +File3=@EasyP.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/31/01 9:42:34 AM,98304,2.0.0.3 +File4=@MSCOMCT2.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/26/98 12:00:00 AM,644400,6.0.81.77 +File5=@comdlg32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/20/08 2:27:46 PM,152848,6.1.97.82 +File6=@mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/20/08 2:27:42 PM,1071088,6.1.97.86 +File7=@SSCSDK80.DLL,$(WinSysPath),,$(Shared),11/16/00 11:54:18 AM,1163264,2.2.9.4 +File8=@U252000.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.0 +File9=@U2LSAMP1.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.1 +File10=@U2LDTS.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.0 +File11=@U2LCOM.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,45056,8.0.0.0 +File12=@U2LBAR.DLL,$(AppPath),,,12/14/98 9:00:00 AM,40960,0.0.0.0 +File13=@U2L2000.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.0 +File14=@u25total.dll,$(AppPath),,,6/25/98 9:00:00 AM,59904,0.0.0.0 +File15=@U25STORE.DLL,$(AppPath),,,3/9/97 6:00:00 AM,61440,0.0.0.0 +File16=@U25DTS.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,24576,8.0.0.0 +File17=@crxf_pdf.dll,$(WinSysPath),,$(Shared),2/2/01 11:22:28 PM,270336,8.5.0.37 +File18=@U2FXLS.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,212992,8.5.0.99 +File19=@U2FWORDW.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,106496,8.5.0.92 +File20=@U2FWKS.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,40960,8.0.0.4 +File21=@U2FTEXT.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,90112,8.5.0.98 +File22=@U2FSEPV.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,36864,8.0.0.9 +File23=@crxf_rtf.dll,$(WinSysPath),,$(Shared),2/2/01 11:22:48 PM,200755,8.5.0.32 +File24=@U2FREC.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,36864,8.5.0.27 +File25=@U2FODBC.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,49152,8.5.0.10 +File26=@U2FHTML.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,45056,8.5.0.77 +File27=@U2FCR.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,28672,8.5.0.3 +File28=@U2DAPP.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,28672,8.0.0.0 +File29=@U2DVIM.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,57344,8.0.0.0 +File30=@U2DPOST.DLL,$(WinSysPath),,$(Shared),4/26/00 3:28:26 PM,49152,8.0.0.0 +File31=@U2DNOTES.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,53248,8.0.100.2 +File32=@U2DMAPI.DLL,$(WinSysPath),,$(Shared),11/8/00 6:46:00 AM,40960,8.0.0.0 +File33=@U2DDISK.DLL,$(WinSysPath),,$(Shared),2/2/01 11:05:56 PM,28672,8.5.0.1 +File34=@p2soledb.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:50 AM,204800,8.5.0.20 +File35=@p2ssyb10.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:50 AM,159744,8.5.0.18 +File36=@p2ssql.dll,$(WinSysPath),,$(Shared),2/2/01 11:26:50 PM,168000,8.5.0.19 +File37=@p2sora7.dll,$(WinSysPath),,$(Shared),2/2/01 11:26:50 PM,167936,8.5.0.21 +File38=@p2sodbc.dll,$(WinSysPath),,$(Shared),4/5/01 1:47:38 AM,286720,8.6.0.3 +File39=@p2sifmx.dll,$(WinSysPath),,$(Shared),2/2/01 11:26:50 PM,167936,8.5.0.19 +File40=@p2irdao.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:54 AM,65536,8.5.0.6 +File41=@p2ctdao.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:54 AM,53248,8.5.0.6 +File42=@p2bxbse.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:48 AM,249856,8.5.0.7 +File43=@p2bdao.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:54 AM,94208,8.5.0.7 +File44=@P2bbnd.dll,$(WinSysPath),,$(Shared),11/8/00 2:46:00 PM,23040,8.0.0.1 +File45=@p2bbde.dll,$(WinSysPath),,$(Shared),2/2/01 11:26:48 PM,77824,8.5.0.17 +File46=@CRXLAT32.DLL,$(WinSysPath),,$(Shared),10/25/00 10:15:00 AM,24576,8.0.0.0 +File47=@mfc42.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/4/04 5:00:00 AM,1028096,6.2.4131.0 +File48=@msvcrt.dll,$(WinSysPath),,$(Shared),8/4/04 5:00:00 AM,343040,7.0.2600.2180 +File49=@Crpaig80.dll,$(WinSysPath),,$(Shared),11/9/00 11:52:00 AM,618496,8.0.1.3 +File50=@P2smon.dll,$(WinSysPath),,$(Shared),2/3/01 2:26:54 AM,163840,8.5.0.12 +File51=@IMPLODE.DLL,$(AppPath),,,10/25/00 10:15:00 AM,17920,0.0.0.0 +File52=@Crpe32.dll,$(WinSysPath),,$(Shared),2/9/01 10:43:52 AM,4587577,8.5.0.217 +File53=@Crystl32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/30/00 4:12:00 PM,847324,8.0.0.4 +File54=@tdbgpp7.dll,$(WinSysPath),,$(Shared),8/24/00 7:00:00 AM,283120,7.0.20.5 +File55=@todgub7.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/24/00 7:00:00 AM,238072,7.0.0.11 +File56=@todg7.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/24/00 7:00:00 AM,950768,7.0.0.249 +File57=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00 12:00:00 AM,118784,6.0.88.4 +File58=@MSADODC.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,118976,6.0.88.4 +File59=@TABCTL32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 1:02:36 PM,209608,6.0.90.43 +File60=@SSCSDK32.DLL,$(WinSysPath),,$(Shared),10/29/98 9:02:34 AM,901120,1.0.3.7 +File61=@crpaig32.dll,$(WinSysPath),,$(Shared),11/8/98 9:00:00 AM,229888,5.0.0.2 +File62=@craxdrt.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/8/98 9:00:00 AM,4822528,7.0.1.183 +File63=@RDOCURS.DLL,$(WinSysPath),,$(Shared),6/18/98 12:00:00 AM,151552,5.0.81.69 +File64=@MSRDO20.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/18/98 12:00:00 AM,393216,6.0.81.69 +File65=@MSCDRUN.DLL,$(CommonFiles)\Designer,$(DLLSelfRegister),$(Shared),6/18/98 12:00:00 AM,49152,6.0.81.69 +File66=@MSDBRPTR.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/18/98 12:00:00 AM,299008,6.0.81.69 +File67=@tdbg7da.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/24/00 7:00:00 AM,209400,7.0.0.7 +File68=@msadox.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/4/04 5:00:00 AM,200704,2.81.1117.0 +File69=@msado21.tlb,$(WinSysPath),,$(Shared),8/4/04 5:00:00 AM,61440,2.81.1117.0 +File70=@MSBIND.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/18/98 12:00:00 AM,77824,6.0.81.69 +File71=@tdc.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/4/04 5:00:00 AM,61440,1.3.0.3130 +File72=@ORDERS0727.exe,$(AppPath),,,7/27/15 7:37:13 PM,7327744,3.7.0.5 + +; The following lines may be deleted in order to obtain extra +; space for customizing this file on a full installation diskette. +; +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/TABCTL32.OCX b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/TABCTL32.OCX new file mode 100644 index 0000000..a276033 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/TABCTL32.OCX differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/comdlg32.ocx b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/comdlg32.ocx new file mode 100644 index 0000000..84022fb Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/comdlg32.ocx differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/msado21.tlb b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/msado21.tlb new file mode 100644 index 0000000..c87d6f3 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/msado21.tlb differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/mscomctl.ocx b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/mscomctl.ocx new file mode 100644 index 0000000..da62815 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/mscomctl.ocx differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/stdole2.tlb b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/stdole2.tlb new file mode 100644 index 0000000..25ac65b Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/stdole2.tlb differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/tdc.ocx b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/tdc.ocx new file mode 100644 index 0000000..870fb7c Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/tdc.ocx differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/todg7.ocx b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/todg7.ocx new file mode 100644 index 0000000..6b6154e Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/Package1508/Support/todg7.ocx differ diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/frmPayroll.frm b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/frmPayroll.frm new file mode 100644 index 0000000..a2d78cb --- /dev/null +++ b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/frmPayroll.frm @@ -0,0 +1,1140 @@ +VERSION 5.00 +Begin VB.Form frmPayroll + Caption = "Payroll Information" + ClientHeight = 4920 + ClientLeft = 60 + ClientTop = 345 + ClientWidth = 11880 + KeyPreview = -1 'True + LinkTopic = "Form1" + ScaleHeight = 4920 + ScaleWidth = 11880 + StartUpPosition = 3 'Windows Default + Begin VB.TextBox txtStone + BackColor = &H00C0FFFF& + Enabled = 0 'False + Height = 315 + Left = 11010 + TabIndex = 42 + Top = 60 + Width = 855 + End + Begin VB.TextBox txtLotNotes + Height = 795 + Left = 6960 + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 39 + Top = 4020 + Width = 4815 + End + Begin VB.CheckBox chkLook + Caption = "Look" + Height = 315 + Left = 240 + TabIndex = 38 + Top = 3900 + Visible = 0 'False + Width = 315 + End + Begin VB.TextBox txtOffice + Height = 795 + Left = 6960 + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 30 + Top = 3180 + Width = 4815 + End + Begin VB.ListBox lstCrew + Height = 1425 + Left = 6960 + Sorted = -1 'True + TabIndex = 36 + Top = 900 + Visible = 0 'False + Width = 4815 + End + Begin VB.CommandButton cmdExit + Caption = "&Exit" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 495 + Left = 0 + TabIndex = 35 + Top = 4380 + Width = 1155 + End + Begin VB.TextBox txtVerify + Enabled = 0 'False + Height = 315 + Left = 2340 + TabIndex = 34 + Top = 3240 + Width = 1095 + End + Begin VB.CommandButton cmdAddPay + Caption = "&Add Payroll" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 495 + Left = 1780 + TabIndex = 33 + Top = 4380 + Width = 1275 + End + Begin VB.CommandButton cmdSavePay + Caption = "&Save Payroll" + Enabled = 0 'False + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 495 + Left = 3680 + TabIndex = 31 + Top = 4380 + Width = 1275 + End + Begin VB.CommandButton cmdDelPay + Caption = "&Delete Payroll" + Enabled = 0 'False + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 495 + Left = 5580 + TabIndex = 32 + Top = 4380 + Width = 1275 + End + Begin VB.CommandButton cmdFindCrew + Height = 435 + Left = 1080 + Picture = "frmPayroll.frx":0000 + Style = 1 'Graphical + TabIndex = 25 + Top = 3900 + Visible = 0 'False + Width = 435 + End + Begin VB.TextBox txtNotes + Height = 735 + Left = 6960 + MaxLength = 255 + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 29 + Top = 2400 + Width = 4815 + End + Begin VB.ComboBox cboWorkType + Height = 315 + ItemData = "frmPayroll.frx":0442 + Left = 1620 + List = "frmPayroll.frx":046A + Style = 2 'Dropdown List + TabIndex = 22 + Top = 2880 + Width = 1815 + End + Begin VB.ComboBox cboCrewType + Height = 315 + ItemData = "frmPayroll.frx":04D5 + Left = 1620 + List = "frmPayroll.frx":04E8 + Style = 2 'Dropdown List + TabIndex = 21 + Top = 2520 + Width = 1815 + End + Begin VB.TextBox txtPayAmt + Alignment = 1 'Right Justify + Height = 315 + Left = 4800 + MaxLength = 10 + TabIndex = 28 + Top = 3240 + Width = 1035 + End + Begin VB.TextBox txtCheckNo + Height = 315 + Left = 4800 + MaxLength = 8 + TabIndex = 27 + Top = 2880 + Width = 1035 + End + Begin VB.TextBox txtPayDate + Height = 315 + Left = 4800 + MaxLength = 10 + TabIndex = 26 + Top = 2520 + Width = 1035 + End + Begin VB.TextBox txtCrewName + Height = 315 + Left = 1620 + TabIndex = 20 + Top = 3960 + Width = 3255 + End + Begin VB.TextBox txtCrewNo + Alignment = 1 'Right Justify + Height = 315 + Left = 1620 + MaxLength = 4 + TabIndex = 24 + Top = 3600 + Width = 675 + End + Begin VB.TextBox txtPercentDone + Alignment = 1 'Right Justify + Height = 315 + Left = 1620 + MaxLength = 3 + TabIndex = 23 + Top = 3240 + Width = 675 + End + Begin VB.TextBox txtMatYds + Alignment = 1 'Right Justify + BackColor = &H00C0FFFF& + Enabled = 0 'False + Height = 315 + Left = 9270 + TabIndex = 19 + Top = 60 + Width = 855 + End + Begin VB.TextBox txtCMUYds + Alignment = 1 'Right Justify + BackColor = &H00C0FFFF& + Enabled = 0 'False + Height = 315 + Left = 7410 + TabIndex = 18 + Top = 60 + Width = 855 + End + Begin VB.TextBox txtMetalFt + Alignment = 1 'Right Justify + BackColor = &H00C0FFFF& + Enabled = 0 'False + Height = 285 + Left = 5715 + TabIndex = 17 + Top = 60 + Width = 855 + End + Begin VB.TextBox txtLathYds + Alignment = 1 'Right Justify + BackColor = &H00C0FFFF& + Enabled = 0 'False + Height = 285 + Left = 4095 + TabIndex = 16 + Top = 60 + Width = 855 + End + Begin VB.TextBox txtModel + BackColor = &H00C0FFFF& + Enabled = 0 'False + Height = 285 + Left = 2400 + TabIndex = 15 + Top = 60 + Width = 855 + End + Begin VB.TextBox txtProjLot + BackColor = &H00C0FFFF& + Enabled = 0 'False + Height = 285 + Left = 600 + TabIndex = 14 + Top = 60 + Width = 1695 + End + Begin VB.ListBox lstPayInfo + Height = 1425 + Left = 120 + Sorted = -1 'True + TabIndex = 0 + Top = 900 + Width = 6735 + End + Begin VB.Label lblScaf + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Scaffolding Frames:" + Height = 195 + Left = 7380 + TabIndex = 47 + Top = 480 + Width = 1395 + End + Begin VB.Label lbl68 + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "6'8"" :" + Height = 195 + Left = 8880 + TabIndex = 46 + Top = 480 + Width = 375 + End + Begin VB.Label lblD68 + BackColor = &H00C0FFFF& + BorderStyle = 1 'Fixed Single + Height = 315 + Left = 9270 + TabIndex = 45 + Top = 420 + Width = 855 + End + Begin VB.Label lbl108 + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "10'8"" :" + Height = 195 + Left = 10500 + TabIndex = 44 + Top = 480 + Width = 465 + End + Begin VB.Label lblD108 + BackColor = &H00C0FFFF& + BorderStyle = 1 'Fixed Single + Height = 315 + Left = 11010 + TabIndex = 43 + Top = 420 + Width = 855 + End + Begin VB.Label lblStone + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Stone SqFt:" + Height = 195 + Left = 10155 + TabIndex = 41 + Top = 135 + Width = 840 + End + Begin VB.Label lblLotNotes + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Lot Notes:" + Height = 195 + Left = 6150 + TabIndex = 40 + Top = 4020 + Width = 735 + End + Begin VB.Label lblOffice + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Office Notes:" + Height = 195 + Left = 5955 + TabIndex = 37 + Top = 3180 + Width = 930 + End + Begin VB.Line Line1 + BorderWidth = 2 + X1 = 60 + X2 = 11880 + Y1 = 780 + Y2 = 780 + End + Begin VB.Label lblMaterial + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Material Yds:" + Height = 195 + Left = 8310 + TabIndex = 13 + Top = 120 + Width = 915 + End + Begin VB.Label lblCMU + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "CMU Yds:" + Height = 195 + Left = 6630 + TabIndex = 12 + Top = 120 + Width = 720 + End + Begin VB.Label lblMetal + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Metal Ft:" + Height = 195 + Left = 4995 + TabIndex = 11 + Top = 120 + Width = 615 + End + Begin VB.Label lblLath + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Lath Yds:" + Height = 195 + Left = 3315 + TabIndex = 10 + Top = 120 + Width = 675 + End + Begin VB.Label lblLotNo + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Lot #:" + Height = 195 + Left = 120 + TabIndex = 9 + Top = 120 + Width = 420 + End + Begin VB.Label lblNotes + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "PR Notes:" + Height = 195 + Left = 6150 + TabIndex = 8 + Top = 2400 + Width = 735 + End + Begin VB.Label lblPayAmt + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Check Amt:" + Height = 195 + Left = 3885 + TabIndex = 7 + Top = 3300 + Width = 825 + End + Begin VB.Label lblCheck + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Check #:" + Height = 195 + Left = 4050 + TabIndex = 6 + Top = 2940 + Width = 660 + End + Begin VB.Label lblPayDate + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Check Date:" + Height = 195 + Left = 3810 + TabIndex = 5 + Top = 2580 + Width = 900 + End + Begin VB.Label lblCrew + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Crew:" + Height = 195 + Left = 1125 + TabIndex = 4 + Top = 3660 + Width = 405 + End + Begin VB.Label lblPercent + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Percentage Done:" + Height = 195 + Left = 225 + TabIndex = 3 + Top = 3300 + Width = 1305 + End + Begin VB.Label lblWorkType + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Type of Work Done:" + Height = 195 + Left = 75 + TabIndex = 2 + Top = 2940 + Width = 1455 + End + Begin VB.Label lblCrewType + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Crew Type:" + Height = 195 + Left = 720 + TabIndex = 1 + Top = 2580 + Width = 810 + End +End +Attribute VB_Name = "frmPayroll" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Option Explicit +Dim moRS As Recordset +Dim moRSTIME As Recordset +Dim moRSProj As Recordset +Dim moRSMemo As Recordset + +Dim mboolSHOW As Boolean +Dim mboolAdding As Boolean, mboolSAVE As Boolean +Dim mstrType As String, mstrCREW As String +Dim mlngFind As Long, mboolLOOK As Boolean +Dim mlngTIME As Long +Dim mintCREW As Integer + +Private Sub cmdDelPay_Click() + cmdSavePay.Enabled = False + cmdDelPay.Enabled = False + cmdAddPay.Enabled = True + moRSTIME.Delete + Call PayLoad +End Sub + +Private Sub cmdFindCrew_Click() + Dim oRS As Recordset + Dim strSQL As String, lngFind As Long + + strSQL = "SELECT * from tblcrew WHERE crew_id = " & Field2Integer(txtCrewNo) & " and type = '" & Left(Str2Field(cboCrewType.Text), 1) & "'" + + Set oRS = New Recordset + + oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly + + If Not oRS.EOF Then + If oRS!inactive Then + MsgBox "This Crew - " & oRS!crew_boss & " - Is Inactive - Select an Active Crew", vbOKOnly, "Inactive Crew" + txtCrewNo.SetFocus +' cmdAdd.Enabled = True + Exit Sub + End If + End If + + If Not oRS.EOF Then + mstrCREW = oRS!crew_boss + txtCrewName = mstrCREW + txtPayDate.SetFocus + Else + Call CrewLoad + lstCrew.SetFocus + End If + + oRS.Close + +End Sub + +Private Sub Form_Activate() + Dim intResponse As Integer + + If lstPayInfo.ListCount = 0 Then + intResponse = MsgBox("No Payroll Information, do you wish to add some?", vbYesNo + vbQuestion, "Add Records") + If intResponse = vbYes Then + Call cmdAddPay_Click + Else + Unload Me + End If + End If + If chkLook Then + mboolLOOK = True + End If +' If chkLook Then + If mboolLOOK Then + cmdSavePay.Enabled = False + cmdDelPay.Enabled = False + cmdAddPay.Enabled = False + cmdFindCrew.Visible = False + txtPercentDone.Enabled = False + txtVerify.Enabled = False + txtCrewNo.Enabled = False + txtPayDate.Enabled = False + txtCheckNo.Enabled = False + txtPayAmt.Enabled = False + txtNotes.Enabled = False + txtOffice.Enabled = False + cboWorkType.Enabled = False + cboCrewType.Enabled = False + txtCrewName.Enabled = False + End If + +End Sub + +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) + + If Shift = 4 Then + Exit Sub + End If + + If Not cmdSavePay.Enabled Then + cmdSavePay.Enabled = True + End If + +End Sub + +Private Sub Form_KeyPress(KeyAscii As Integer) + If KeyAscii = 13 Then + SendKeys "{TAB}" + KeyAscii = 0 + End If + +End Sub +Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) +Dim intResponse As Integer, strMSG As String + On Error GoTo Error_EH + + If cmdSavePay.Enabled Then + + strMSG = "Data Has Been Changed" + strMSG = strMSG & Chr(13) & Chr(10) + strMSG = strMSG & "Save Changes ?" + intResponse = MsgBox(strMSG, vbQuestion + vbYesNoCancel, Me.Caption) + Select Case intResponse + Case vbYes + Call FormSave + + Case vbNo + + Case vbCancel + Cancel = True + + End Select + End If + + If moRS.State = adStateOpen Then + moRS.Close + End If + If moRSTIME.State = adStateOpen Then + moRSTIME.Close + End If + Exit Sub + +Error_EH: + If Err = 3219 Then + Resume Next + End If +End Sub +Private Sub Form_Load() + Set moRS = New Recordset + Set moRSProj = New Recordset +' Set moRSTime = New Recordset + + ' gbytSECURITY = 1 + + If gbytSECURITY = 1 Then + ' cmdDelPay.Enabled = True + End If + + Call ProjLoad + Call LotLoad + Call PayLoad + If FormFind() Then +' Call PlanFind +' Call FormShow +' Call MatLoad +' Call POptLoad +' Call LOptLoad +' Call OptMatLoad +' Call OrderLoad +' Call POLoad +' Call POMatLoad + End If + +End Sub + +Private Sub ProjLoad() + Dim strSQL As String + + strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID + Set moRSProj = New Recordset + moRSProj.Open strSQL, goConn, _ + adOpenForwardOnly, adLockReadOnly + +End Sub + +Private Sub LotLoad() + Dim strSQL As String, strSql2 As String + + strSQL = "SELECT * FROM tblLotInfo where lot_id = " & gintLOTID + + moRS.Open strSQL, goConn, _ + adOpenForwardOnly, adLockReadOnly + + strSql2 = "SELECT * FROM tblYardMemo WHERE lot_id = " & gintLOTID + Set moRSMemo = New Recordset + moRSMemo.Open strSql2, goConn, adOpenKeyset, adLockOptimistic + If moRSMemo.EOF Then + strSql2 = "SELECT * FROM tblYardMemo" ' WHERE lot_id = " & gintLOTID + Set moRSMemo = New Recordset + moRSMemo.Open strSql2, goConn, adOpenKeyset, adLockOptimistic + moRSMemo.AddNew + moRSMemo!Lot_id = gintLOTID + moRSMemo.Update + strSql2 = "SELECT * FROM tblYardMemo WHERE lot_id = " & gintLOTID + Set moRSMemo = New Recordset + moRSMemo.Open strSql2, goConn, adOpenKeyset, adLockOptimistic + End If + +End Sub + +Private Sub FormShow() + mboolSHOW = True + txtProjLot = Trim$(moRSProj!proj_code) & " " & moRS!lot_no + txtLathYds = Field2Integer(moRS!sq_yd) - 19 + txtCMUYds = Field2Integer(moRS!CMU) + txtMatYds = Field2Integer(moRS!sq_yd) + txtMetalFt = Field2Long(moRS!METAL) + txtModel = Field2Str(moRS!model) + txtStone = Field2Str(moRS!ST_SQFT) + lblD68 = Field2Str2(moRS!Scaf6) + lblD108 = Field2Str2(moRS!scaf10) + + With moRSTIME + txtPercentDone = Field2Str(!pct_done) + txtVerify = IIf(Field2Str(!paydt) = "12:00:00 AM", "", Field2Str(!paydt)) + txtCrewNo = Field2Integer(!crew) + mintCREW = Field2Integer(!crew) + Call GetCrew + txtCrewName = mstrCREW + txtPayDate = IIf(Field2Str(!prdate) = "12:00:00 AM", "", Field2Str(!prdate)) + txtCheckNo = Field2Str(!prcheck) + txtPayAmt = Format(Field2Str(!pay_amt), "##,###.00") + txtNotes = Field2Str(!notes) + txtOffice = Field2Str(!office) + + If !pay_type = "L" Then + cboCrewType.Text = "LATH" + ElseIf !pay_type = "S" Then + cboCrewType.Text = "STUCCO" + ElseIf !pay_type = "R" Then + cboCrewType.Text = "Repair/PO" + ElseIf !pay_type = "V" Then + cboCrewType.Text = "V_Stone" + ElseIf !pay_type = "C" Then + cboCrewType.Text = "C_SCAFFOLD" + End If + + If !workdone = "A" Then + cboWorkType.Text = "A_WRAP" + ElseIf !workdone = "C" Then + cboWorkType.Text = "COMPLETE" + ElseIf !workdone = "P" Then + cboWorkType.Text = "PARTIAL" + ElseIf !workdone = "B" Then + cboWorkType.Text = "BROWN" + ElseIf !workdone = "T" Then + cboWorkType.Text = "TEXTURE" + ElseIf !workdone = "S" Then + cboWorkType.Text = "SCRATCH" + ElseIf !workdone = "R" Then + cboWorkType.Text = "REPAIR" + ElseIf !workdone = "W" Then + cboWorkType.Text = "WORK ORDER/PO" + ElseIf !workdone = "F" Then + cboWorkType.Text = "FENCE" + ElseIf !workdone = "U" Then + cboWorkType.Text = "U_CMU" + ElseIf !workdone = "Y" Then + cboWorkType.Text = "Y_UP" + ElseIf !workdone = "Z" Then + cboWorkType.Text = "Z_DOWN" + End If + End With + txtLotNotes = Field2Str(moRSMemo!payroll) + +' If chkLook Then + If mboolLOOK Then + cmdSavePay.Enabled = False + cmdDelPay.Enabled = False + cmdAddPay.Enabled = False + cmdFindCrew.Visible = False + txtPercentDone.Enabled = False + txtVerify.Enabled = False + txtCrewNo.Enabled = False + txtPayDate.Enabled = False + txtCheckNo.Enabled = False + txtPayAmt.Enabled = False + txtNotes.Enabled = False + txtOffice.Enabled = False + cboWorkType.Enabled = False + cboCrewType.Enabled = False + txtCrewName.Enabled = False + End If + mboolSHOW = False +End Sub + +Private Sub cmdAddPay_Click() + Call FormClear + txtVerify = Date + cmdSavePay.Enabled = True + cmdDelPay.Enabled = False + cmdAddPay.Enabled = False + cmdFindCrew.Visible = True + mboolAdding = True + cboCrewType.SetFocus +End Sub +Private Sub cmdSavePay_Click() + mboolSAVE = False + Call CheckCrew + If mboolSAVE Then + cmdSavePay.Enabled = False + cmdDelPay.Enabled = False + cmdAddPay.Enabled = True + cmdFindCrew.Visible = False + lstCrew.Visible = False + Call FormSave + Call PayLoad + End If +End Sub + +Private Sub FormSave() + Dim strName As String + + On Error GoTo Error_EH + + If mboolAdding Then + moRSTIME.AddNew + End If + + ' Store the controls to the recordset + Call FieldsSave + + moRSTIME.Update + + moRSMemo!payroll = Str2Field(txtLotNotes) + moRSMemo.Update + + If mboolAdding Then + mboolAdding = False + + End If + + Exit Sub + +Error_EH: + Call ErrorHandler(moRSTIME.ActiveConnection) + Exit Sub +End Sub +Private Function FormFind() As Boolean + Dim strSQL As String, strPlan As String + + strSQL = "SELECT * " + strSQL = strSQL & "FROM tblTIME " + strSQL = strSQL & "WHERE IDNUM = " & mlngTIME + + Set moRSTIME = New Recordset +' If moRSTime.State = adStateOpen Then +' moRSTime.Close +' End If + + moRSTIME.Open strSQL, goConn, _ + adOpenKeyset, adLockPessimistic + + If moRSTIME.EOF Then + FormFind = False + Else + FormFind = True + End If +End Function +Private Sub cmdExit_Click() + Unload Me +End Sub +Private Sub FieldsSave() + On Error GoTo Error_EH + + If mboolAdding Then +' moRS.AddNew + moRSTIME!proj_id = gintPROJID + moRSTIME!Lot_id = gintLOTID + moRSTIME!lot_no = Str2Field(moRS!lot_no) + moRSTIME!paydt = Date + moRSTIME!C_USER = gstrLOGIN + End If + + + With moRSTIME + !pct_done = Integer2Field(txtPercentDone) +' !paydt = Date +' !paydt = Str2Field(txtVerify) + !crew = Integer2Field(txtCrewNo) + !prdate = Str2Field(txtPayDate) + !prcheck = Str2Field(txtCheckNo) + !pay_amt = Str2Field(txtPayAmt) + !notes = Str2Field(txtNotes) + !office = Str2Field(txtOffice) + !pay_type = Left(Str2Field(cboCrewType.Text), 1) + !workdone = Left(Str2Field(cboWorkType.Text), 1) + !U_USER = gstrLOGIN + !Update = Date + End With +' On Error Resume Next +' moRS.Update +' On Error GoTo 0 + moRSTIME.Update + If mboolAdding Then +' Call GetLotID + Call PayLoad +' Call POptLoad + mboolAdding = False + End If + Exit Sub + +Error_EH: + gstrMODULE = "Form Payroll - Module FieldsSave" + Call ErrorHandler2 + gstrMODULE = "" + Exit Sub + +End Sub +Private Sub FormClear() + txtPercentDone = "0" + txtVerify = "" + txtCrewNo = "0" + txtCrewName = "" + txtPayDate = "" + txtCheckNo = "0" + txtPayAmt = "0" + txtNotes = "" + txtOffice = "" + txtLotNotes = "" + cboCrewType.ListIndex = -1 + cboWorkType.ListIndex = -1 + +End Sub +Private Sub PayLoad() +Dim oRS As Recordset +Dim strSQL As String +Dim strLine As String +Dim lngRET As Long, aTabs(4) As Long + + aTabs(0) = 10 + aTabs(1) = 20 + aTabs(2) = 40 + aTabs(3) = 90 + aTabs(4) = 110 + +' strSQL = "SELECT idnum, lot_id, pay_type, workdone, pct_done, paydt, crew from tblTime WHERE lot_id =" & gintLOTID + strSQL = "SELECT * from tblTime WHERE lot_id =" & gintLOTID + + Set oRS = New Recordset + + oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly + lngRET = SendMessage(lstPayInfo.hwnd, LB_SETTABSTOPS, 5, aTabs(0)) + + lstPayInfo.Clear + + Do Until oRS.EOF + With lstPayInfo + mintCREW = Field2Integer(oRS!crew) + Call GetCrew + strLine = oRS!pay_type & vbTab & oRS!workdone & vbTab & oRS!pct_done + strLine = strLine & vbTab & oRS!prdate + strLine = strLine & vbTab & oRS!crew & vbTab & mstrCREW + .AddItem strLine + .ItemData(.NewIndex) = Field2Long(oRS!idnum) + End With + + oRS.MoveNext + Loop + oRS.Close + + If lstPayInfo.ListCount Then + lstPayInfo.ListIndex = 0 + End If + +End Sub + +Private Sub CrewLoad() +Dim oRS As Recordset +Dim strSQL As String +Dim strLine As String +Dim lngRET As Long ', aTabs(4) As Long + +' aTabs(0) = 10 +' aTabs(1) = 20 +' aTabs(2) = 40 +' aTabs(3) = 90 +' aTabs(4) = 110 + + strSQL = "SELECT * from tblcrew WHERE type = '" & Left(Field2Str(cboCrewType), 1) & "'" + + Set oRS = New Recordset + + oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly + lngRET = SendMessage(lstCrew.hwnd, LB_SETTABSTOPS, 1, 160) + + lstCrew.Clear + lstCrew.Visible = True + + Do Until oRS.EOF + With lstCrew + mintCREW = Field2Integer(oRS!crew_id) + strLine = oRS!crew_boss & vbTab & oRS!crew_id +' strLine = strLine & vbTab & oRS!paydt +' strLine = strLine & vbTab & oRS!crew & vbTab & mstrCREW + .AddItem strLine + .ItemData(.NewIndex) = oRS!crew_id + End With + + oRS.MoveNext + Loop + oRS.Close + + If lstCrew.ListCount Then + lstCrew.ListIndex = 0 + End If + +End Sub + +Private Sub lstCrew_DblClick() + mintCREW = lstCrew.ItemData(lstCrew.ListIndex) + Call GetCrew + txtCrewName = mstrCREW + txtCrewNo = mintCREW + lstCrew.Visible = False + txtPayDate.SetFocus +End Sub + +Private Sub lstPayInfo_Click() + If lstPayInfo.ListIndex <> -1 Then + mlngTIME = lstPayInfo.ItemData(lstPayInfo.ListIndex) + If FormFind() Then + Call FormShow + Else + txtPercentDone = "0" + txtVerify = "" + txtCrewNo = "0" + txtCrewName = "" + txtPayDate = "" + txtCheckNo = "0" + txtPayAmt = "0" + txtNotes = "" + cboCrewType.ListIndex = -1 + cboWorkType.ListIndex = -1 + End If + End If + +End Sub +Private Sub GetCrew() + + Dim oRS As Recordset + Dim strSQL As String, lngFind As Long + + strSQL = "SELECT * from tblcrew WHERE crew_id = " & mintCREW + + Set oRS = New Recordset + + oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly + + If Not oRS.EOF Then + mstrCREW = oRS!crew_boss + End If + + oRS.Close + +End Sub + +Private Sub lstPayInfo_DblClick() + If Not mboolLOOK Then + cmdDelPay.Enabled = True + cmdSavePay.Enabled = True + cmdFindCrew.Visible = True + End If +End Sub + +Private Sub txtCheckNo_GotFocus() + Call FieldSelect(txtCheckNo) +End Sub + +Private Sub txtCrewNo_GotFocus() + Call FieldSelect(txtCrewNo) +End Sub + +Private Sub txtNotes_GotFocus() + Call FieldSelect(txtNotes) +End Sub + +Private Sub txtNotes_LostFocus() + txtNotes = UCase(txtNotes) +End Sub + +Private Sub txtPayAmt_GotFocus() + Call FieldSelect(txtPayAmt) +End Sub + +Private Sub txtPayDate_GotFocus() + Call FieldSelect(txtPayDate) +End Sub + +Private Sub txtPayDate_LostFocus() + If Len(txtPayDate) > 0 Then + txtPayDate = Format(txtPayDate, "00/00/####") + If Not IsDate(txtPayDate) Then + MsgBox "The Date You Entered is not Valid - ReEnter" + txtPayDate.SetFocus + End If + End If +End Sub + +Private Sub txtPercentDone_GotFocus() + Call FieldSelect(txtPercentDone) +End Sub + +Private Sub CheckCrew() + Dim oRS As Recordset + Dim strSQL As String, lngFind As Long + + strSQL = "SELECT * from tblcrew WHERE crew_id = " & Field2Integer(txtCrewNo) & " and type = '" & Left(Str2Field(cboCrewType.Text), 1) & "'" + + Set oRS = New Recordset + + oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly + + If Not oRS.EOF Then + If oRS!inactive Then + MsgBox "This Crew - " & oRS!crew_boss & " - Is Inactive - Select an Active Crew", vbOKOnly, "Inactive Crew" + txtCrewNo.SetFocus +' cmdAdd.Enabled = True + Exit Sub + End If + End If + mboolSAVE = True +End Sub diff --git a/clients/valleywide/app-modernization/source-analysis/darv-G-finds/frmPayroll.frx b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/frmPayroll.frx new file mode 100644 index 0000000..cd3c861 Binary files /dev/null and b/clients/valleywide/app-modernization/source-analysis/darv-G-finds/frmPayroll.frx differ