86 lines
3.6 KiB
Plaintext
86 lines
3.6 KiB
Plaintext
Compile function Copy_NAMES_Record_To_SQL(Connection, Key, Record)
|
|
|
|
/*****************************************************************************\
|
|
Copies the given NAMES record to the MSSQL database.
|
|
|
|
History
|
|
-------
|
|
08/09/2010 KRF Original Programmer
|
|
04/21/2012 KRF Dropped per David's Request, SQL_MFS Removed so this
|
|
won't be called
|
|
\*****************************************************************************/
|
|
|
|
$insert NAMES_EQU
|
|
|
|
Declare function SQL_Write, SQL_Write_MV, SQL_Format
|
|
Ans = ""
|
|
|
|
// Parse record into a dimensioned array for speed
|
|
Dim Rec(26)
|
|
MatParse Record into Rec
|
|
|
|
// List of key names and their values
|
|
Keys = "SEQ":@VM:SQL_Format(Key, "INT")
|
|
|
|
// List of data fields and their values
|
|
DataFields = "SALUTATION" :@VM:SQL_Format(Rec(NAMES_SALUTATION$), "STR"):@FM
|
|
DataFields := "FIRST" :@VM:SQL_Format(Rec(NAMES_FIRST$), "STR"):@FM
|
|
DataFields := "LAST" :@VM:SQL_Format(Rec(NAMES_LAST$), "STR"):@FM
|
|
DataFields := "TITLE" :@VM:SQL_Format(Rec(NAMES_TITLE$), "STR"):@FM
|
|
DataFields := "COMMENTS" :@VM:SQL_Format(Rec(NAMES_COMMENTS$), "STR"):@FM
|
|
DataFields := "CO_ID" :@VM:SQL_Format(Rec(NAMES_CO_ID$), "INT"):@FM
|
|
DataFields := "ENTRY_ID" :@VM:SQL_Format(Rec(NAMES_ENTRY_ID$), "STR"):@FM
|
|
DataFields := "ENTRY_DATE" :@VM:SQL_Format(Rec(NAMES_ENTRY_DATE$), "DATE"):@FM
|
|
DataFields := "EMAIL" :@VM:SQL_Format(Rec(NAMES_EMAIL$), "STR"):@FM
|
|
DataFields := "REFERRAL_SOURCE":@VM:SQL_Format(Rec(NAMES_REFERRAL_SOURCE$), "STR"):@FM
|
|
DataFields := "SLS_MAIL_LIST" :@VM:SQL_Format(Rec(NAMES_SLS_MAIL_LIST$), "BIT"):@FM
|
|
DataFields := "XMAS_CARD" :@VM:SQL_Format(Rec(NAMES_XMAS_CARD$), "BIT"):@FM
|
|
DataFields := "MAIL_STOP" :@VM:SQL_Format(Rec(NAMES_MAIL_STOP$), "STR"):@FM
|
|
DataFields := "STATUS" :@VM:SQL_Format(Rec(NAMES_STATUS$), "STR")
|
|
|
|
// Write the data to the SQL database
|
|
Ans = SQL_Write(Connection, "NAMES", Keys, DataFields)
|
|
|
|
//-------------------------------------------------------------------------------------------------
|
|
// Multi-valued Fields
|
|
|
|
// NAMES_PHONES
|
|
If Ans EQ "" AND Rec(NAMES_PHONE$) NE "" then
|
|
|
|
// List of data fields and their values
|
|
MvFields = "PHONE" :@FM:SQL_Format(Rec(NAMES_PHONE$), "STR"):@RM
|
|
MvFields := "PHONE_TYPES":@FM:SQL_Format(Rec(NAMES_PHONE_TYPES$), "STR"):@RM
|
|
MvFields := "PHONE_EXT" :@FM:SQL_Format(Rec(NAMES_PHONE_EXT$), "INT")
|
|
|
|
// Write the data to the SQL database
|
|
Ans = SQL_Write_MV(Connection, "NAMES_PHONES", Keys, MvFields);
|
|
|
|
end
|
|
|
|
// NAMES_INTL_PHONES
|
|
If Ans EQ "" AND Rec(NAMES_INTL_PHONE$) NE "" then
|
|
|
|
// List of data fields and their values
|
|
MvFields = "INTL_PHONE" :@FM:SQL_Format(Rec(NAMES_INTL_PHONE$), "STR"):@RM
|
|
MvFields := "INTL_PHONE_TYPES":@FM:SQL_Format(Rec(NAMES_INTL_PHONE_TYPES$), "STR"):@RM
|
|
MvFields := "INTL_PHONE_EXT" :@FM:SQL_Format(Rec(NAMES_INTL_PHONE_EXT$), "INT")
|
|
|
|
// Write the data to the SQL database
|
|
Ans = SQL_Write_MV(Connection, "NAMES_INTL_PHONES", Keys, MvFields);
|
|
|
|
end
|
|
|
|
// NAMES_MAILER_DETAILS
|
|
If Ans EQ "" AND Rec(NAMES_MAILER_DATE$) NE "" then
|
|
|
|
// List of data fields and their values
|
|
MvFields = "MAILER_DATE":@FM:SQL_Format(Rec(NAMES_MAILER_DATE$), "DATE"):@RM
|
|
MvFields := "MAILER_DESC":@FM:SQL_Format(Rec(NAMES_MAILER_DESC$), "STR")
|
|
|
|
// Write the data to the SQL database
|
|
Ans = SQL_Write_MV(Connection, "NAMES_MAILER_DETAILS", Keys, MvFields);
|
|
|
|
end
|
|
|
|
Return Ans
|