I am using DBA Classic 2002.4.  I'm trying to export the data that appears on the Shipping Schedule in SO-O-E.  The information that I need is Customer Name, Item Number, Description, Ship Quantity, and Estimated Ship Date.  I have found the estimated ship date in BKARINVL.  However, I can't seem to find the field that determines if the sales order is open or closed.  When I export, it exports all sales order, including closed ones.  
 
My intention is to use the exported data in MS Project, or some other calendar program, to make a visual representation of when items are due.

Unfortunately, we don't have the ability to do sql queries.  I was just going to export to a delimited text file and then import to excel.  Is there any way to export from multiple files at the same time and add them into one text file?

Here is nice VBA Code to import data from a text file. Already test works great.
 
 
 
 
Sub GetTextFileData(strSQL As String, strFolder As String, rngTargetCell As Range)
Dim cn As ADODB.Connection, rs As ADODB.Recordset, f As Integer
    If rngTargetCell Is Nothing Then Exit Sub
    Set cn = New ADODB.Connection
    On Error Resume Next
    cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
        "Dbq=" & strFolder & ";" & _
        "Extensions=asc,csv,tab,txt;"
    On Error GoTo 0
    If cn.State <> adStateOpen Then Exit Sub
    Set rs = New ADODB.Recordset
    On Error Resume Next
    rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
    On Error GoTo 0
    If rs.State <> adStateOpen Then
        cn.Close
        Set cn = Nothing
        Exit Sub
    End If
    ' the field headings
    For f = 0 To rs.Fields.Count - 1
        rngTargetCell.Offset(0, f).Formula = rs.Fields(f).Name
    Next f
    rngTargetCell.Offset(1, 0).CopyFromRecordset rs ' works in Excel 2000 or later
    'RS2WS rs, rngTargetCell ' works in Excel 97 or earlier
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub
Function getdata()
    Application.ScreenUpdating = False
    GetTextFileData "SELECT * FROM DBA.txt", "D:\", Range("A3")
'    GetTextFileData "SELECT * FROM filename.txt WHERE fieldname = 'criteria'", _
        "C:\FolderName", Range("A3")
    Columns("A:IV").AutoFit
    ActiveWorkbook.Saved = True
End Function

We use terminal server. Same thing.
 
SQL Queries work a little bit diferent. I dont think that because other user are using DBA the table is locked!. There must be something else.
 
Regards,
 
Kelloggs

Login into DBA
goto System Manager
Run UT-J
Open UT-A
Type/Run ODBCDDF.RUN
 
Go back to your Pervasive Control Center
 
select your server
select databases
rigth click New Database
Name it and include the path
 
it should work now.
 
Regards,
 
Kelloggs
 
 
 

Quote from Kelloggs on 07/13/07 at 11:50:02:

 
Actually send a email to  NovaZyg, He will be the best person to confirm the "XX/XY" dilemma
 
 
 

Excellent, I will give that a try.  The code originally had both X and Y as closed work orders.  I'll let you know how it goes.

Quote from nicknails on 07/17/07 at 06:47:17:

 
Work Orders?
 
Anyways, You dont need to redo the DDF Files.
 
I am working on a Report similar to yours. I will send you my email so that we can exchange ideas.
 
Regards,
 
Kelloggs