/// <summary>
/// Creates links between document and employees in SAP.
/// </summary>
/// <param name="env"></param>
/// <param name="documentType"></param>
/// <param name="newSAPObjects"></param>
private void createLinks(StateEnvironment env, string documentType, string SAPObjectType, IEnumerable <string> newSAPObjects, SAPDataSource source)
{
foreach (string employeeID in newSAPObjects)
{
// Generate and set SAP properties
string documentID = GUIDToDocumentID(env);
env.ObjVerEx.Properties.SetProperty(DocumentIDProperty, MFDataType.MFDatatypeText, documentID);
// Set properties required by SAP
env.ObjVerEx.Properties.SetProperty(ComponentPropertiesProperty, MFDataType.MFDatatypeMultiLineText,
"ComponentID=data|ContentType=application/pdf|FileID=" + GetFileID(env) +
"|Filename=data.pdf|ADate=" + GetSAPDateFromTS(env.ObjVerEx.GetProperty(20).Value.GetValueAsTimestamp().UtcToLocalTime()) +
"|ATime=" + GetSAPTimeFromTS(env.ObjVerEx.GetProperty(20).Value.GetValueAsTimestamp().UtcToLocalTime()) +
"|MDate=" + GetSAPDateFromTS(env.ObjVerEx.GetProperty(21).Value.GetValueAsTimestamp().UtcToLocalTime()) +
"|MTime=" + GetSAPTimeFromTS(env.ObjVerEx.GetProperty(21).Value.GetValueAsTimestamp().UtcToLocalTime()) +
"|AppVer=|Charset=");
env.ObjVerEx.SetProperty(DocumentProtectionProperty, MFDataType.MFDatatypeText, "rud");
env.ObjVerEx.SetProperty(ArchiveLinkVersionProperty, MFDataType.MFDatatypeText, "0046");
// Save properties
env.ObjVerEx.SaveProperties();
// Get SAP repository
if (env.ObjVerEx.Properties.GetProperty(ContentRepositoryProperty) == null)
{
throw new Exception("No SAP repository defined.");
}
string repository = env.ObjVerEx.Properties.GetProperty(ContentRepositoryProperty).GetValueAsUnlocalizedText();
// Get filename
string fileName = env.ObjVerEx.Title;
// Get description
string description = "";
PropertyValue descProp;
if (env.ObjVerEx.Properties.TryGetProperty(DocumentDescriptionProperty, out descProp))
{
description = descProp.GetValueAsLocalizedText();
}
// Do the link with RFC function
IRfcFunction rfcFunction = SAPHelper.CreateFunction("ARCHIV_CONNECTION_INSERT", source.getDestination());
rfcFunction.SetValue("ARCHIV_ID", repository);
rfcFunction.SetValue("AR_OBJECT", documentType);
rfcFunction.SetValue("SAP_OBJECT", SAPObjectType);
rfcFunction.SetValue("ARC_DOC_ID", documentID);
rfcFunction.SetValue("OBJECT_ID", employeeID);
// Is the file info in use
if (config.UseFileInfo == "true")
{
rfcFunction.SetValue("FILENAME", fileName);
rfcFunction.SetValue("DESCR", description);
rfcFunction.SetValue("CREATOR", employeeID);
}
//
try
{
string result = SAPHelper.InvokeRFC(rfcFunction, source.getDestination());
string message = "Linked document: " + documentID + ", type: " + documentType + "\n" +
"with SAP object: " + employeeID + ", type: " + SAPObjectType + "\n" +
"Filename: " + fileName + ", Description: " + description + "\n" +
result;
SysUtils.ReportInfoToEventLog(message);
}
catch (Exception ex)
{
// Show failed FRC call in Event viewer.
StringBuilder message = new StringBuilder()
.AppendLine("ARCHIV_CONNECTION_INSERT")
.AppendFormat(" - ARCHIV_ID: '{0}'", repository).AppendLine()
.AppendFormat(" - AR_OBJECT: '{0}'", documentType).AppendLine()
.AppendFormat(" - SAP_OBJECT: '{0}'", SAPObjectType).AppendLine()
.AppendFormat(" - ARC_DOC_ID: '{0}'", documentID).AppendLine()
.AppendFormat(" - OBJECT_ID: '{0}'", employeeID).AppendLine();
if (config.UseFileInfo == "true")
{
message
.AppendFormat(" - FILENAME: '{0}'", fileName).AppendLine()
.AppendFormat(" - DESCR: '{0}'", description).AppendLine()
.AppendFormat(" - CREATOR: '{0}'", employeeID).AppendLine();
}
message.AppendLine().AppendLine(ex.Message);
SysUtils.ReportErrorToEventLog("SAPDocumentConnector", message.ToString(), ex);
throw new RfcInvalidParameterException(ex.Message);
}
}
}
private void LinkSAPDocument(StateEnvironment env)
{
SAPDataSource source = new SAPDataSource();
// Only documents are interesting
if (env.ObjVer.Type != ( int )MFBuiltInObjectType.MFBuiltInObjectTypeDocument)
{
return;
}
// Only SAP Document classes are interesting
string objectAliases = env.Vault.ClassOperations.GetObjectClassAdmin(env.ObjVerEx.Class).SemanticAliases.Value;
if (!objectAliases.Contains("SAPALINK::Document"))
{
SysUtils.ReportToEventLog("Missing alias: SAPALINK::Document\n", System.Diagnostics.EventLogEntryType.Information);
return;
}
// Map class to SAP document type. If not found, no link.
Regex documentTypeRegex = new Regex($"{DocumentTypeProperty.Alias}=(?<documentType>[^;]+)");
Match documentTypeMatch = documentTypeRegex.Match(objectAliases);
string documentType = null;
if (documentTypeMatch.Success)
{
documentType = documentTypeMatch.Groups["documentType"].Value;
}
else if (env.ObjVerEx.Properties.GetProperty(DocumentTypeProperty) != null)
{
documentType = env.ObjVerEx.Properties.GetProperty(DocumentTypeProperty).GetValueAsUnlocalizedText();
}
if (documentType == "" || documentType == null)
{
throw new Exception("No SAP Document type property nor SAPDocumentType alias found.");
}
// SAP BusinessobjectType
Regex objectTypeRegex = new Regex($"{SAPBusinessObjectIDProperty.Alias}=(?<objectType>[^;]+)");
Match objectTypeMatch = objectTypeRegex.Match(objectAliases);
string SAPObjectType = null;
if (objectTypeMatch.Success)
{
SAPObjectType = objectTypeMatch.Groups["objectType"].Value;
}
else if (env.ObjVerEx.Properties.GetProperty(SAPBusinessObjectIDProperty) != null)
{
SAPObjectType = env.ObjVerEx.Properties.GetProperty(SAPBusinessObjectIDProperty).GetValueAsUnlocalizedText();
}
if (SAPObjectType == "" || SAPObjectType == null)
{
throw new Exception("No SAP Business object type property nor SAPBusinessObjectType alias found.");
}
// Open SAP connection
NamedValues values = env.Vault.NamedValueStorageOperations.GetNamedValues(MFNamedValueType.MFAdminConfiguration, "SAPDocumentConnector");
if (!values.Contains("Password"))
{
throw new Exception("The encrypted password could not be found in the NamedValuestorage.");
}
source.OpenConnection(config.ConnectionString + "password="******"Password"].ToString()), Guid.Empty);
// Get previous version's employee IDs.
//PropertyValue previousSAPObjectLink = ( env.ObjVerEx.PreviousVersion != null ) ?
// env.ObjVerEx.PreviousVersion.Properties.GetProperty( SAPObjectLinkProperty ) : null;
//IEnumerable<string> previousSAPObjects = ( previousSAPObjectLink != null ) ?
// getSAPObjectIDs( env, previousSAPObjectLink ) : new List<string>();
// Get current version's employee IDs.
PropertyValue currentSAPObjectLink = env.ObjVerEx.Properties.GetProperty(SAPObjectLinkProperty);
if (currentSAPObjectLink == null)
{
throw new Exception("No SAP SAPObject property defined.");
}
IEnumerable <string> currentSAPObjects = getSAPObjectIDs(env, currentSAPObjectLink);
//// Get deleted employee IDs.
//IEnumerable<string> deletedIDs = previousSAPObjects.Except( currentSAPObjects );
//// Get new employee IDs.
//IEnumerable<string> newIDs = currentSAPObjects.Except( previousSAPObjects );
// Remove old links
//removeLinks( env, deletedIDs ); // TODO Doesn't work yet.
// Create new links
createLinks(env, documentType, SAPObjectType, currentSAPObjects, source);
// Close connection
try
{
source.CloseConnection();
}
catch (Exception ex)
{
SysUtils.ReportToEventLog("Closing connection to SAP failed.\n" + ex.Message, System.Diagnostics.EventLogEntryType.Warning);
}
}
/// <summary>
/// Removes links between document and employees in SAP.
/// NOT USED!
/// </summary>
/// <param name="env"></param>
/// <param name="deletedIDs">List of employee IDs to be removed.</param>
private void removeLinks(EventHandlerEnvironment env, IEnumerable <string> deletedIDs, SAPDataSource source)
{
foreach (string employeeID in deletedIDs)
{
string documentID = env.ObjVerEx.Properties.GetProperty(DocumentIDProperty).GetValueAsLocalizedText();
string repository = env.ObjVerEx.Properties.GetProperty(ContentRepositoryProperty).GetValueAsUnlocalizedText();
// Remove the link with RFC function
IRfcFunction rfcFunction = SAPHelper.CreateFunction("ARCHIV_DELETE_META", source.getDestination()); // Not usable outside SAP
rfcFunction.SetValue("ARCHIV_ID", repository);
rfcFunction.SetValue("SAP_OBJECT", "PREL");
rfcFunction.SetValue("ARC_DOC_ID", documentID);
rfcFunction.SetValue("OBJECT_ID", employeeID);
try
{
string result = SAPHelper.InvokeRFC(rfcFunction, source.getDestination());
string message = "Removed link between document: " + documentID + "\n" +
"and employee: " + employeeID + "\n" +
result;
SysUtils.ReportInfoToEventLog(message);
}
catch (Exception ex)
{
SysUtils.ReportErrorToEventLog("SAPDocumentConnector", ex.Message, ex);
throw new RfcInvalidParameterException(ex.Message);
}
}
}