'VISUAL MACRO

'NAME: VMECNENT_SaveInfoToPartMaster
'DESCRIPTION: Populates information from ECN Entry 'part type' lines to Part Maintenance
'   ecn_line.user_1 -> part.drawing_id
'   ecn.id -> part.user_1
'   ecn_line.user_4 -> part.user_3 (no nulls)
'   ecn.date_completed -> part.user_2
'AUTHOR: Peter Erdman
'REVISION CONTROL:
'   1.0   5/17/04   PDE   Initial Release
'   1.1   5/30/04   PDE   Fix to specification

Dim ConStr
Dim SqlStr
Dim con
Dim cmd
Dim PartID
Dim EcnLines
Dim EcnLine
Dim EcnLineType
Dim EcnLineUser1
Dim EcnID
Dim EcnLineUser4
Dim EcnDateComp
Dim LineCount
Dim RtnVal

ConStr = "driver=SQL Server;server=yourserver;uid=sysadm;pwd=sysadm;database=yourdatabase"
Set con=CreateObject("ADODB.Connection")
con.Open ConStr

Set EcnDateCompl = DATE_COMPLETED
Set EcnID = EC_ID
Set EcnLines = LINES.Value
LineCount = EcnLines.Count
For i > 0 To (LineCount - 1)
   Set EcnLine = EcnLines(i)
   EcnLineType = EcnLine("TYPE")
   If EcnLineType = "Part" Then

*Code Edited Out*

   End If
Next

Set ConStr = Nothing
Set SqlStr = Nothing