Files
claudetools/projects/dataforth-dos/dfwds-research/source/Release/frmSplash.frm
Mike Swanson dd5c5afd4b Session log + DFWDS Node port + Hoffman API uploader pipeline
Built the missing piece between the test datasheet pipeline and Dataforth's
new product API. End-to-end:

- Pulled DFWDS (Dataforth Web Datasheet System) VB6 source from
  AD1\Engineering\ENGR\ATE\Test Datasheets\DFWDS to local for analysis
- Decoded its filename validation: A-J prefix decodes (A=10..J=19), all-
  numeric WO# valid (no leading 0), anything else bad
- Ported the validation + move logic to Node (dfwds-process.js)
- Built bulk uploader (upload-delta.js) for Hoffman's Swagger API
  (POST /api/v1/TestReportDataFiles/bulk with OAuth client_credentials)

Sanitized 3 prior reference scripts (fetch-server-inventory, test-scenarios,
test-upload-two) to read CF_* env vars instead of hardcoded creds.

Live drain results:
- 897 files moved Test_Datasheets -> For_Web (all valid, no renames, no
  bad), DFWDS port summary in 1.1s
- Pushed entire For_Web (7,061 files) to Hoffman API in 49.7s @ 142/s:
  Created=803 Updated=114 Unchanged=6,144 Errors=0
- Server count: 489,579 -> 490,382 (+803 net new)

Also:
- Added clients/dataforth/.gitignore to exclude plaintext Oauth.txt note
- Added clients/instrumental-music-center/docs/2026-04-13-ticket-notes.md
  (ticket write-up of 2026-04-11/12/13 IMC1 RDS removal/SQL migration work)

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
2026-04-14 21:06:50 -07:00

205 lines
6.5 KiB
Plaintext

VERSION 5.00
Begin VB.Form frmSplash
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
ClientHeight = 4344
ClientLeft = 252
ClientTop = 1416
ClientWidth = 7428
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmSplash.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4344
ScaleWidth = 7428
StartUpPosition = 2 'CenterScreen
Begin VB.Frame frmMainFrame
Height = 4332
Left = 0
TabIndex = 0
Top = 0
Width = 7425
Begin VB.Label lblCurrentFile
Caption = "Insert current file here..."
BeginProperty Font
Name = "Arial"
Size = 10.2
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 240
TabIndex = 9
Top = 3840
Width = 2412
End
Begin VB.Label lblFileCount
Caption = "Insert file count here..."
BeginProperty Font
Name = "Arial"
Size = 10.2
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 240
TabIndex = 8
Top = 3480
Width = 2412
End
Begin VB.Label lblProgName
Caption = "Program Name:"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3480
TabIndex = 7
Top = 1320
Width = 2655
End
Begin VB.Label lblName
Caption = "Insert pgm name here...."
BeginProperty Font
Name = "Arial"
Size = 9.6
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3480
TabIndex = 6
Top = 1680
Width = 3615
End
Begin VB.Label lblVersion
Caption = "Insert version here...."
BeginProperty Font
Name = "Arial"
Size = 9.6
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3480
TabIndex = 5
Top = 2400
Width = 3615
End
Begin VB.Image imgLogo
Height = 3105
Left = 0
Picture = "frmSplash.frx":030A
Stretch = -1 'True
Top = 240
Width = 3015
End
Begin VB.Label lblCopyright
Caption = "Copyright 2014"
BeginProperty Font
Name = "Arial"
Size = 8.4
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3480
TabIndex = 2
Top = 3120
Width = 2415
End
Begin VB.Label lblCompany
Caption = "Dataforth Corporation"
BeginProperty Font
Name = "Arial"
Size = 8.4
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3480
TabIndex = 1
Top = 2880
Width = 2415
End
Begin VB.Label lblVersionCaption
Caption = "Program Version:"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3480
TabIndex = 3
Top = 2040
Width = 2655
End
Begin VB.Label C
Caption = "Processing Dataforth Datasheet Files"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Index = 0
Left = 3480
TabIndex = 4
Top = 360
Width = 3720
End
End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Me.lblName.Caption = PROGRAM_NAME
Me.lblVersion.Caption = PROGRAM_VERSION
Me.lblFileCount.Caption = ""
Me.lblCurrentFile.Caption = ""
End Sub