Private Sub
cmdAcknowledge810_Click()
Dim oEdiDoc As
Fredi.ediDocument
Dim oAck As
Fredi.ediAcknowledgment
Dim sAckFile As
String
Dim sEdiFile As
String
sEdiFile = "810_4010.x12"
sAckFile = "997_810_4010.x12"
Set oEdiDoc = New
Fredi.ediDocument
'LOAD SEF FILES
oEdiDoc.LoadSchema "810_4010.SEF",
Schema_Standard_Exchange_Format
oEdiDoc.LoadSchema "997_4010.SEF", Schema_Standard_Exchange_Format
'ENABLE FUNCTIONAL ACKNOWLEDGMENT
Set oAck = oEdiDoc.GetAcknowledgment
oAck.EnableFunctionalAcknowledgment
'LOAD & ANALYZE EDIFILE
oEdiDoc.LoadEdi sEdiFile
'SAVE FUNCTIONAL ACKNOWLEDGMENT (997) TO A FILE
oAck.Save sAckFile
End Sub
Click
here to download more sample programs
Click
here to download Framework EDI
Other Topics