Return value from modal window

[sudip]

Hello Danny,

As I have said, I shared it, so please feel free.

Thanks a lot !
One thing more. I didn't find "dale-aid.ch". Is it necessary?
Regards.
Sudip

[dhaine_adp]

One thing more. I didn't find "dale-aid.ch". Is it necessary?

Hi Sudip,

I'm sorry I always forget to attach this manifest constants when posting code here. Here is the contents of "dale-aid.ch". You can change it's name and remove dale-aid.ch and replaced by your own definition using the values here:

Code: Select all

//--------- Dbf and record manipulation constant

   #define Shared          .T.
   #define Exclusive       .F.
   #define ReadOnly        .T.
   #define ReadWrite       .F.
   #define Enable          .T.
   #define Disable         .F.
   #define BlankRecord     .T.
   #define CurrentRecord   .F.
   #define FileNotEmpty    ((.NOT. BOF() .AND. .NOT. EOF()) .AND. LASTREC() > 0)
   #define FileEmpty       (BOF() .OR. EOF())

//--------- Text Message to be used with MsgInfo()

   #define DAD_OpenFailed_ {"Unable to Open the File","Open Failure"}


//---------- Logical Tagalog Manifest Constants

   #define ISARADO      .F.
   #define IBUKAS       .T.
   #define AYOKONGA     .F.
   #define AYOSLANG     .T.
   #define HINDIAYOS    .F.
   #define WALA         .F.
   #define MAYROON      .T.
   #define TAMA         .T.
   #define MALI         .F.
   #define OO_NAMAN     .T.
   #define HINDI        .F.
   #define HINDI_PUWEDE .F.
   #define Success         .T.
   #define Failure         .F.

// -------- La DALE-Aid Color HMG Additional Color Defintions

   #define SILVER      {245,245,245}


//----------- Index Position Marker

   #define INDEXMARKER    CHR(0149)

   #define  DALE_AID_NEWLINE  CHR(13)+CHR(10)

//----------- Others
   #define CodeA       ".AID"
   #define CodeP       ".PLR"

// -------- Microsoft Excel Constants - ALIGNMENT
   #define xlLeft           -4131
   #define xlRight          -4152
   #define xlCenter         -4108
   #define xlWorkbookNormal -4143

// -------- Microsoft Excel Constants - BORDERS
   #define xlAutomatic            -4105
   #define xlColorIndexNone       -4142
   #define xlUnderlineStyleNone   -4142
   #define xlUnderlineStyleDouble -4119
   #define xlUnderlineStyleSingle     2
   #define xlDiagonalDown             5
   #define xlDiagonalUp               6
   #define xlEdgeLeft                 7
   #define xlEdgeTop                  8
   #define xlEdgeBottom               9
   #define xlEdgeRight               10
   #define xlInsideVertical          11
   #define xlContinuous               1
   #define xlThin                     2
   #define xlThick                    4
   #define xlHairline                 1
   #define xlMedium               -4138

From the above manifest constants you can strip out the "Tagalog Manifest constants".

Regards,

Danny

[sudip]

Hello Danny,
Thank you very much for sharing this excellent code
Regards.
Sudip

[Rathinagiri]

dale-aid.ch - Nice way of doing programming.

Thanks for sharing.