* CREATES EDIDOC OBJECT 
oEdiDoc = createobject("fredi.ediDocument")
 
* THIS MAKES CERTAIN THAT FREDI ONLY USES THE SEF FILE PROVIDED, AND THAT IT DOES 
* NOT USE ITS BUILT-IN STANDARD REFERENCE TABLE TO GENERATE THE EDI FILE.
oSchemas = oEdiDoc.GetSchemas
oSchemas.EnableStandardReference = .F.
 
* ENABLES FORWARD WRITE, AND INCREASES BUFFER I/O TO IMPROVE PERFORMANCE
oEdiDoc.CursorType = 2
oEdiDoc.Property(1002) = 200 
 
* SET TERMINATORS
oEdiDoc.SegmentTerminator = "~{13:10}"
oEdiDoc.ElementTerminator = "*"
oEdiDoc.CompositeTerminator = ">"
 
* LOADS SEF FILE
oSchema = oEdiDoc.LoadSchema("810_X12-4010.SEF", 0)
 
* CREATES THE ISA SEGMENT
oInterchange = oEdiDoc.CreateInterchange("X","004010")
oSegment = oInterchange.GetDataSegmentHeader
oSegment.DataElementValue(1) = "00"     && Authorization Information Qualifier
oSegment.DataElementValue(2) = "          "     && Authorization Information
oSegment.DataElementValue(3) = "00"     && Security Information Qualifier
oSegment.DataElementValue(4) = "          "     && Security Information
oSegment.DataElementValue(5) = "ZZ"     && Interchange ID Qualifier
oSegment.DataElementValue(6) = "SENDERISA      "     && Interchange Sender ID
oSegment.DataElementValue(7) = "ZZ"     && Interchange ID Qualifier
oSegment.DataElementValue(8) = "RECEIVERISA    "     && Interchange Receiver ID
oSegment.DataElementValue(9) = "960807"     && Interchange Date
oSegment.DataElementValue(10) = "1548"     && Interchange Time
oSegment.DataElementValue(11) = "U"     && Interchange Control Standards Identifier
oSegment.DataElementValue(12) = "00401"     && Interchange Control Version Number
oSegment.DataElementValue(13) = "000000020"     && Interchange Control Number
oSegment.DataElementValue(14) = "0"     && Acknowledgment Requested
oSegment.DataElementValue(15) = "T"     && Usage Indicator
oSegment.DataElementValue(16) = ">"     && Component Element Separator
 
* CREATES THE GS SEGMENT
oGroup = oInterchange.CreateGroup("004010")
oSegment = oGroup.GetDataSegmentHeader
oSegment.DataElementValue(1) = "IN"     && Functional Identifier Code
oSegment.DataElementValue(2) = "SENDERDEPT"     && Application Sender's Code
oSegment.DataElementValue(3) = "007326879"     && Application Receiver's Code
oSegment.DataElementValue(4) = "19960807"     && Date
oSegment.DataElementValue(5) = "1548"     && Time
oSegment.DataElementValue(6) = "1"     && Group Control Number
oSegment.DataElementValue(7) = "X"     && Responsible Agency Code
oSegment.DataElementValue(8) = "004010"     && Version / Release / Industry Identifier Code
 
* CREATES THE ST SEGMENT
oTransactionset = oGroup.CreateTransactionSet("810")
oSegment = oTransactionset.GetDataSegmentHeader
oSegment.DataElementValue(1) = "810"     && Transaction Set Identifier Code
oSegment.DataElementValue(2) = "000000001"     && Transaction Set Control Number
 
* BIG - BEGINNING SEGMENT FOR INVOICE
oSegment = oTransactionset.CreateDataSegment("BIG")
oSegment.DataElementValue(1) = "19971211"     && Date
oSegment.DataElementValue(2) = "00001"     && Invoice Number
oSegment.DataElementValue(4) = "A99999-01"     && Purchase Order Number
 
* N1 - NAME
oSegment = oTransactionset.CreateDataSegment("N1\N1")
oSegment.DataElementValue(1) = "ST"     && Entity Identifier Code
oSegment.DataElementValue(2) = "BUYSNACKS PORT"     && Name
oSegment.DataElementValue(3) = "9"     && Identification Code Qualifier
oSegment.DataElementValue(4) = "1223334445"     && Identification Code
 
* N3 - ADDRESS INFORMATION
oSegment = oTransactionset.CreateDataSegment("N1\N3")
oSegment.DataElementValue(1) = "1000 N. SAMPLE HIGHWAY"     && Address Information
 
* N4 - GEOGRAPHIC LOCATION
oSegment = oTransactionset.CreateDataSegment("N1\N4")
oSegment.DataElementValue(1) = "ATHENS"     && City Name
oSegment.DataElementValue(2) = "GA"     && State or Province Code
oSegment.DataElementValue(3) = "30603"     && Postal Code
 
* N1 - NAME
oSegment = oTransactionset.CreateDataSegment("N1(2)\N1")
oSegment.DataElementValue(1) = "BT"     && Entity Identifier Code
oSegment.DataElementValue(2) = "BUYSNACKS"     && Name
oSegment.DataElementValue(3) = "9"     && Identification Code Qualifier
oSegment.DataElementValue(4) = "1223334444"     && Identification Code
 
* N3 - ADDRESS INFORMATION
oSegment = oTransactionset.CreateDataSegment("N1(2)\N3")
oSegment.DataElementValue(1) = "P.O. BOX 0000"     && Address Information
 
* N4 - GEOGRAPHIC LOCATION
oSegment = oTransactionset.CreateDataSegment("N1(2)\N4")
oSegment.DataElementValue(1) = "TEMPLE"     && City Name
oSegment.DataElementValue(2) = "TX"     && State or Province Code
oSegment.DataElementValue(3) = "76503"     && Postal Code
 
* N1 - NAME
oSegment = oTransactionset.CreateDataSegment("N1(3)\N1")
oSegment.DataElementValue(1) = "RE"     && Entity Identifier Code
oSegment.DataElementValue(2) = "FOODSELLER"     && Name
oSegment.DataElementValue(3) = "9"     && Identification Code Qualifier
oSegment.DataElementValue(4) = "12345QQQQ"     && Identification Code
 
* N3 - ADDRESS INFORMATION
oSegment = oTransactionset.CreateDataSegment("N1(3)\N3")
oSegment.DataElementValue(1) = "P.O. BOX 222222"     && Address Information
 
* N4 - GEOGRAPHIC LOCATION
oSegment = oTransactionset.CreateDataSegment("N1(3)\N4")
oSegment.DataElementValue(1) = "DALLAS"     && City Name
oSegment.DataElementValue(2) = "TX"     && State or Province Code
oSegment.DataElementValue(3) = "723224444"     && Postal Code
 
* ITD - TERMS OF SALE/DEFERRED TERMS OF SALE
oSegment = oTransactionset.CreateDataSegment("ITD")
oSegment.DataElementValue(1) = "01"     && Terms Type Code
oSegment.DataElementValue(2) = "3"     && Terms Basis Date Code
oSegment.DataElementValue(3) = "1.000"     && Terms Discount Percent
oSegment.DataElementValue(5) = "15"     && Terms Discount Days Due
oSegment.DataElementValue(7) = "16"     && Terms Net Days
oSegment.DataElementValue(12) = "1/15 NET 30"     && Description
 
* FOB - F.O.B. RELATED INSTRUCTIONS
oSegment = oTransactionset.CreateDataSegment("FOB")
oSegment.DataElementValue(1) = "PP"     && Shipment Method of Payment
 
* IT1 - BASELINE ITEM DATA (INVOICE)
oSegment = oTransactionset.CreateDataSegment("IT1\IT1")
oSegment.DataElementValue(2) = "16"     && Quantity Invoiced
oSegment.DataElementValue(3) = "CA"     && Unit or Basis for Measurement Code
oSegment.DataElementValue(4) = "12.34"     && Unit Price
oSegment.DataElementValue(6) = "UA"     && Product/Service ID Qualifier
oSegment.DataElementValue(7) = "002840022222"     && Product/Service ID
 
* PID - PRODUCT/ITEM DESCRIPTION
oSegment = oTransactionset.CreateDataSegment("IT1\PID\PID")
oSegment.DataElementValue(1) = "F"     && Item Description Type
oSegment.DataElementValue(5) = "CRUNCHY CHIPS LSS"     && Description
 
* IT1 - BASELINE ITEM DATA (INVOICE)
oSegment = oTransactionset.CreateDataSegment("IT1(2)\IT1")
oSegment.DataElementValue(2) = "13"     && Quantity Invoiced
oSegment.DataElementValue(3) = "CA"     && Unit or Basis for Measurement Code
oSegment.DataElementValue(4) = "12.34"     && Unit Price
oSegment.DataElementValue(6) = "UA"     && Product/Service ID Qualifier
oSegment.DataElementValue(7) = "002840033333"     && Product/Service ID
 
* PID - PRODUCT/ITEM DESCRIPTION
oSegment = oTransactionset.CreateDataSegment("IT1(2)\PID\PID")
oSegment.DataElementValue(1) = "F"     && Item Description Type
oSegment.DataElementValue(5) = "NACHO CHIPS LSS"     && Description
 
* IT1 - BASELINE ITEM DATA (INVOICE)
oSegment = oTransactionset.CreateDataSegment("IT1(3)\IT1")
oSegment.DataElementValue(2) = "32"     && Quantity Invoiced
oSegment.DataElementValue(3) = "CA"     && Unit or Basis for Measurement Code
oSegment.DataElementValue(4) = "12.34"     && Unit Price
oSegment.DataElementValue(6) = "UA"     && Product/Service ID Qualifier
oSegment.DataElementValue(7) = "002840044444"     && Product/Service ID
 
* PID - PRODUCT/ITEM DESCRIPTION
oSegment = oTransactionset.CreateDataSegment("IT1(3)\PID\PID")
oSegment.DataElementValue(1) = "F"     && Item Description Type
oSegment.DataElementValue(5) = "POTATO CHIPS"     && Description
 
* IT1 - BASELINE ITEM DATA (INVOICE)
oSegment = oTransactionset.CreateDataSegment("IT1(4)\IT1")
oSegment.DataElementValue(2) = "51"     && Quantity Invoiced
oSegment.DataElementValue(3) = "CA"     && Unit or Basis for Measurement Code
oSegment.DataElementValue(4) = "12.34"     && Unit Price
oSegment.DataElementValue(6) = "UA"     && Product/Service ID Qualifier
oSegment.DataElementValue(7) = "002840055555"     && Product/Service ID
 
* PID - PRODUCT/ITEM DESCRIPTION
oSegment = oTransactionset.CreateDataSegment("IT1(4)\PID\PID")
oSegment.DataElementValue(1) = "F"     && Item Description Type
oSegment.DataElementValue(5) = "CORN CHIPS"     && Description
 
* IT1 - BASELINE ITEM DATA (INVOICE)
oSegment = oTransactionset.CreateDataSegment("IT1(5)\IT1")
oSegment.DataElementValue(2) = "9"     && Quantity Invoiced
oSegment.DataElementValue(3) = "CA"     && Unit or Basis for Measurement Code
oSegment.DataElementValue(4) = "12.34"     && Unit Price
oSegment.DataElementValue(6) = "UA"     && Product/Service ID Qualifier
oSegment.DataElementValue(7) = "002840066666"     && Product/Service ID
 
* PID - PRODUCT/ITEM DESCRIPTION
oSegment = oTransactionset.CreateDataSegment("IT1(5)\PID\PID")
oSegment.DataElementValue(1) = "F"     && Item Description Type
oSegment.DataElementValue(5) = "BBQ CHIPS"     && Description
 
* IT1 - BASELINE ITEM DATA (INVOICE)
oSegment = oTransactionset.CreateDataSegment("IT1(6)\IT1")
oSegment.DataElementValue(2) = "85"     && Quantity Invoiced
oSegment.DataElementValue(3) = "CA"     && Unit or Basis for Measurement Code
oSegment.DataElementValue(4) = "12.34"     && Unit Price
oSegment.DataElementValue(6) = "UA"     && Product/Service ID Qualifier
oSegment.DataElementValue(7) = "002840077777"     && Product/Service ID
 
* PID - PRODUCT/ITEM DESCRIPTION
oSegment = oTransactionset.CreateDataSegment("IT1(6)\PID\PID")
oSegment.DataElementValue(1) = "F"     && Item Description Type
oSegment.DataElementValue(5) = "GREAT BIG CHIPS LSS"     && Description
 
* IT1 - BASELINE ITEM DATA (INVOICE)
oSegment = oTransactionset.CreateDataSegment("IT1(7)\IT1")
oSegment.DataElementValue(2) = "1"     && Quantity Invoiced
oSegment.DataElementValue(3) = "CA"     && Unit or Basis for Measurement Code
oSegment.DataElementValue(4) = "12.34"     && Unit Price
oSegment.DataElementValue(6) = "UA"     && Product/Service ID Qualifier
oSegment.DataElementValue(7) = "002840088888"     && Product/Service ID
 
* PID - PRODUCT/ITEM DESCRIPTION
oSegment = oTransactionset.CreateDataSegment("IT1(7)\PID\PID")
oSegment.DataElementValue(1) = "F"     && Item Description Type
oSegment.DataElementValue(5) = "MINI CHIPS LSS"     && Description
 
* TDS - TOTAL MONETARY VALUE SUMMARY
oSegment = oTransactionset.CreateDataSegment("TDS")
oSegment.DataElementValue(1) = "255438"     && Amount
 
* CAD - CARRIER DETAIL
oSegment = oTransactionset.CreateDataSegment("CAD")
oSegment.DataElementValue(5) = "FREEFORM"     && Routing
 
* ISS - INVOICE SHIPMENT SUMMARY
oSegment = oTransactionset.CreateDataSegment("ISS\ISS")
oSegment.DataElementValue(1) = "207"     && Number of Units Shipped
oSegment.DataElementValue(2) = "CA"     && Unit or Basis for Measurement Code
 
* CTT - TRANSACTION TOTALS
oSegment = oTransactionset.CreateDataSegment("CTT")
oSegment.DataElementValue(1) = "7"     && Number of Line Items
 
* TRAILING SEGMENTS ARE AUTOMATICALLY CREATED WHEN FREDI COMMITS (SAVES)
* THE EDIDOC OBJECT INTO AN EDI FILE.
oEdiDoc.Save("810_X12-4010.TXT",0)