I have an issue i need to get resolved fast.
I cant seem to get my Dialog box to run properly.
This is the code i have for it.

The Problems i have are where the black arrows are.

First arrow: "No matching prototype available
Second and third arrow: "Invalid variable data parameter type"
Fourth arrow: " Too many parameters"

I cant think of what the problem could be.
PLEASE HELP.!

ImportEmployeeData PROCEDURE
! Start of "Declaration Section"
! [Priority 4000]
NumberOfRecords     Long
NumberOfRawLines    Long
NumberOfBadLines    Long
NumberOfComments    Long
NumberOfAdds        Long
NumberOfChanges     Long
FirstDate           Long
LastDate            Long
NumberOfErrors      Long
ErrorOnThisInputLine Byte
ImportFileName      String(255)
!**  CHG12/99J  -  VARS NEEDED FOR THE CLACOM TEMPLATE  **
DOSRetCode           SHORT
DOSFileNameVar       CSTRING(260)
DOSDialogHeader      CSTRING(40)
DOSExtParameter      CSTRING(250)
DOSTargetVariable    CSTRING(80)
!**  END  **J
! End of "Declaration Section"
RejectRecord         LONG
LocalRequest         LONG
LocalResponse        LONG
WindowOpened         LONG
RecordsToProcess     LONG,AUTO
RecordsProcessed     LONG,AUTO
RecordsPerCycle      LONG,AUTO
RecordsThisCycle     LONG,AUTO
PercentProgress      BYTE
RecordStatus         BYTE,AUTO
FilesOpened          LONG
LargestBadgeNumber   LONG
GotBadgeNumber       BYTE
ErrorInLength        BYTE
LineLength           LONG
SmallestBadgeNumber  STRING(6)
!-----------------------------------------------------------------------------
Process:View         VIEW(GenericAsciiFile)
                     END
Progress:Thermometer BYTE
ProgressWindow WINDOW('Progress...'),AT(,,142,59),CENTER,TIMER(1),GRAY,DOUBLE
       PROGRESS,USE(Progress:Thermometer),AT(15,15,111,12),RANGE(0,100)
       STRING(''),AT(0,3,141,10),USE(?Progress:UserString),CENTER
       STRING(''),AT(0,30,141,10),USE(?Progress:PctText),CENTER
       BUTTON('Cancel'),AT(45,42,50,15),USE(?Progress:Cancel)
     END
  CODE
  PUSHBIND
  ! Start of "Procedure Setup"
  ! [Priority 4000]
  !Before Embed point: %ProcedureSetup) DESC(Procedure Setup) ARG()
  !**  CHG12/99J  -  CHANGED TO CLACOM TEMPLATE TO READ IMPORT FILE - KEEP  **
  !**                WINDOW FORMAT CONSISTANCE THOUGHOUT THE PROGRAM        **
    DOSTargetVariable = '*.imp'
    DOSDialogHeader = 'Select Employee Data File to Import...'
    DOSExtParameter = 'Import Files (*.imp)|*.imp|Text Files (*.txt)|*.*|All Files (*.*)|*.*'
                                             ! Version 2.x work-around to
    UNLOCKTHREAD                             ! Allow non-Clarion windows to work in 32 Bit Apps
                                             !
    DOSRetCode = GetOpenSaveFile1(►TARGET{PROP:Handle},►DOSDialogHeader,DOSTargetVariable,►DOSExtParameter,DOSFileNameVar,0,►1)
                                             !
                                             ! Version 2.x work-around to
    LOCKTHREAD                               ! Allow non-Clarion windows to work in 32 Bit Apps
                                             !
    IF DOSRetCode
        GenericAsciiFileName = UPPER(DOSTargetVariable)
    ELSE
        DO ProcedureReturn
    END
  !**  END  **J

Edited 6 Years Ago by NH1: n/a

Hi

DOSRetCode = FILEDIALOG(DOSDialogHeader ,DOSTargetVariable,DOSExtParameter ,0)

is the correct code NOT

DOSRetCode = GetOpenSaveFile1(►TARGET{PROP:Handle},►DOSDialogHeader,DOSTargetVariable,►DOSExtParameter,DOSFileNameVar,0,►1)

Kind Regards

Ben

This article has been dead for over six months. Start a new discussion instead.