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