internal static int DeleteRecord(int inCtr)
{
//Delete payroll record from SAP
int result = 0;
PTSProject.clsFireUpload cFireUp = Shared.Container.Resolve <clsFireUpload>();
try
{
result = -1;
if (~cFireUp.GetReconciliationForDelete(inCtr) != 0)
{
//error msg & exit
Shared.ViewManager.ShowMessage("DeleteRecordError - '" + UpgradeHelpers.Helpers.Information.Err().Description + "'", "Delete SAP Record", UpgradeHelpers.Helpers.BoxButtons.OK);
return(0);
}
if (~ConnectToSAP() != 0)
{
//error msg
Shared.ViewManager.ShowMessage("Unable to Connect to SAP", "Delete Record in SAP Database", UpgradeHelpers.Helpers.BoxButtons.OK);
return(0);
}
//set the data entry profile
Shared.
profile = "FIRE SCH";
//create the BOR object for an instance-independent method
Shared.
oBORObject = Shared.oBAPICtrl.GetSAPObject("BUS7024", null, null, null, null, null, null, null, null, null, null);
//create the structure object(s) of the BOR method
Shared.
oSAPStruc = Shared.oBAPICtrl.DimAs(Shared.oBORObject, "Delete", "Catsrecords");
Shared.
oSAPReturnStruc = Shared.oBAPICtrl.DimAs(Shared.oBORObject, "Delete", "Return");
//fill the SAP struct and call the BAPI
//UPGRADE_TODO: (1067) Member AppendRow is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oSAPStruc.AppendRow();
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["COUNTER"] = cFireUp.PRCounter;
//Alternate method if data type problems occur
//ctr = cFireUp.PRCounter
//Set oRow = oSAPStruc.Rows.Item(1)
//oRow.Value("COUNTER") = ctr
//call the method (BAPI), import the structure oSAPStruc, get return values
//and confirmation record
//UPGRADE_WARNING: (7006) The Named argument Return was not resolved and corresponds to the following expression oSAPReturnStruc More Information: http://www.vbtonet.com/ewis/ewi7006.aspx
//UPGRADE_WARNING: (7006) The Named argument Catsrecords was not resolved and corresponds to the following expression oSAPStruc More Information: http://www.vbtonet.com/ewis/ewi7006.aspx
//UPGRADE_WARNING: (7006) The Named argument profile was not resolved and corresponds to the following expression profile More Information: http://www.vbtonet.com/ewis/ewi7006.aspx
//UPGRADE_TODO: (1067) Member Delete is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oBORObject.Delete(Shared.profile, Shared.oSAPStruc, Shared.oSAPReturnStruc);
//UPGRADE_TODO: (1067) Member RowCount is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
if (Convert.ToDouble(Shared.oSAPReturnStruc.RowCount) > 0)
{
// if there are return errors, write those to the return structure
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRtnRow = Shared.oSAPReturnStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
if (Convert.ToString(Shared.oRtnRow.Value("TYPE")) == "E")
{
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
cFireUp.PRReturnmsg = Convert.ToString(Shared.oRtnRow.Value("MESSAGE"));
cFireUp.PRStatus = "X";
//UPGRADE_TODO: (1067) Member RowCount is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
for (int k = 1; k <= Convert.ToDouble(Shared.oSAPReturnStruc.RowCount); k++)
{
//UPGRADE_TODO: (1067) Member DeleteRow is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oSAPReturnStruc.DeleteRow();
}
Shared.ViewManager.ShowMessage("Deleting from SAP failed.", System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly().Location).ProductName);
result = 0;
}
else
{
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
cFireUp.PRReturnmsg = Convert.ToString(Shared.oRtnRow.Value("MESSAGE"));
cFireUp.PRStatus = "D";
}
}
else
{
cFireUp.PRReturnmsg = "Record successfully deleted";
cFireUp.PRStatus = "D";
}
cFireUp.PRUploadDate = DateTime.Now.ToString("MM/dd/yyyy HH:mm:ss");
cFireUp.PPpayroll_status_code = cFireUp.PRStatus;
cFireUp.PPlast_update_by = modGlobal.Shared.gUser;
if (~cFireUp.InsertReconciliation() != 0)
{
//error msg
Shared.ViewManager.ShowMessage("Unable to InsertReconciliation", "Delete Record in SAP Database", UpgradeHelpers.Helpers.BoxButtons.OK);
result = 0;
}
if (~cFireUp.UpdatePersonnelPayrollStatus(inCtr) != 0)
{
//error msg
}
}
catch (System.Exception excep)
{
Shared.ViewManager.ShowMessage("Delete Record Error '" + excep.Message + "'", "Delete SAP Record", UpgradeHelpers.Helpers.BoxButtons.OK);
return(0);
}
return(result);
}
internal static int InsertRecord(int lSysID)
{
//** Insert Payroll record in SAP
int result = 0;
PTSProject.clsFireUpload cFireUp = Shared.Container.Resolve <clsFireUpload>();
try
{
if (~ConnectToSAP() != 0)
{
Shared.ViewManager.ShowMessage("Unable to Connect to SAP", "Insert Record to SAP Database", UpgradeHelpers.Helpers.BoxButtons.OK);
return(0);
}
//set the data entry profile for uploading multiple CATS records
Shared.
profile = "FIRE SCH";
//create the BOR object and set the key values (for an instance-dependent method)
//Set oTestObject = oBAPICtrl.GetSAPObject("ZISUACCNT", vkont, gpart)
//create the BOR object for an instance-independent method
Shared.
oBORObject = Shared.oBAPICtrl.GetSAPObject("BUS7024", null, null, null, null, null, null, null, null, null, null);
//create the structure object(s) of the BOR method
Shared.
oSAPStruc = Shared.oBAPICtrl.DimAs(Shared.oBORObject, "Insert", "CatsrecordsIn");
Shared.
oSAPReturnStruc = Shared.oBAPICtrl.DimAs(Shared.oBORObject, "Insert", "Return");
Shared.
oSAPConfirmStruc = Shared.oBAPICtrl.DimAs(Shared.oBORObject, "Insert", "CatsrecordsOut");
//fill the SAP struc from the SQL resultset (SAP struct's are 1-based
//and we will only send one row at a time into the BAPI)
if (~cFireUp.GetPayrollTransferBySysID(lSysID) != 0)
{
//error msg
Shared.ViewManager.ShowMessage("Unable to GetPayrollTransferBySysID", "Insert Record to SAP Database", UpgradeHelpers.Helpers.BoxButtons.OK);
return(0);
}
//UPGRADE_TODO: (1067) Member AppendRow is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oSAPStruc.AppendRow();
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["WORKDATE"] = cFireUp.PayrollRS["workdate"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["ACTTYPE"] = cFireUp.PayrollRS["acttype"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["REC_CCTR"] = cFireUp.PayrollRS["rec_cctr"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["EMPLOYEENUMBER"] = cFireUp.PayrollRS["employeenumber"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["REC_ORDER"] = modGlobal.Clean(cFireUp.PayrollRS["rec_order"]);
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["ACTIVITY"] = cFireUp.PayrollRS["activity"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["WBS_ELEMENT"] = cFireUp.PayrollRS["wbs_element"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["ABS_ATT_TYPE"] = cFireUp.PayrollRS["abs_att_type"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["PAYSCALEGROUP"] = cFireUp.PayrollRS["payscalegroup"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["PAYSCALELEVEL"] = cFireUp.PayrollRS["payscalelevel"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["CATSHOURS"] = cFireUp.PayrollRS["catshours"];
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow = Shared.oSAPStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRow.Value["UNIT"] = cFireUp.PayrollRS["unit"];
//call the method (BAPI), import the structure oSAPStruc, get return values
//and confirmation record
//UPGRADE_WARNING: (7006) The Named argument Return was not resolved and corresponds to the following expression oSAPReturnStruc More Information: http://www.vbtonet.com/ewis/ewi7006.aspx
//UPGRADE_WARNING: (7006) The Named argument CatsrecordsOut was not resolved and corresponds to the following expression oSAPConfirmStruc More Information: http://www.vbtonet.com/ewis/ewi7006.aspx
//UPGRADE_WARNING: (7006) The Named argument CatsrecordsIn was not resolved and corresponds to the following expression oSAPStruc More Information: http://www.vbtonet.com/ewis/ewi7006.aspx
//UPGRADE_WARNING: (7006) The Named argument profile was not resolved and corresponds to the following expression profile More Information: http://www.vbtonet.com/ewis/ewi7006.aspx
//UPGRADE_TODO: (1067) Member Insert is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oBORObject.Insert(Shared.profile, Shared.oSAPStruc, Shared.oSAPConfirmStruc, Shared.oSAPReturnStruc);
//UPGRADE_TODO: (1067) Member RowCount is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
if (Convert.ToDouble(Shared.oSAPConfirmStruc.RowCount) < 1)
{
// if there are return errors, write those to the return structure
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oRtnRow = Shared.oSAPReturnStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
cFireUp.PRReturnmsg = Convert.ToString(Shared.oRtnRow.Value("MESSAGE"));
cFireUp.PRStatus = "F";
cFireUp.PRCounter = "";
//UPGRADE_TODO: (1067) Member RowCount is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
for (int k = 1; k <= Convert.ToDouble(Shared.oSAPReturnStruc.RowCount); k++)
{
//UPGRADE_TODO: (1067) Member DeleteRow is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oSAPReturnStruc.DeleteRow();
}
}
else
{
//UPGRADE_TODO: (1067) Member Rows is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oConfRow = Shared.oSAPConfirmStruc.Rows.Item(1);
//UPGRADE_TODO: (1067) Member Value is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
cFireUp.PRCounter = Convert.ToString(Shared.oConfRow.Value("COUNTER"));
cFireUp.PRReturnmsg = "Record successfully inserted";
cFireUp.PRStatus = "S";
//UPGRADE_TODO: (1067) Member DeleteRow is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oSAPConfirmStruc.DeleteRow();
result = -1;
}
cFireUp.PRWorkdate = Convert.ToString(cFireUp.PayrollRS["workdate"]);
cFireUp.PRActtype = Convert.ToString(cFireUp.PayrollRS["acttype"]);
cFireUp.PREmployeenumber = Convert.ToInt32(cFireUp.PayrollRS["employeenumber"]);
cFireUp.PRRec_order = Convert.ToString(cFireUp.PayrollRS["rec_order"]);
cFireUp.PRActivity = Convert.ToString(cFireUp.PayrollRS["activity"]);
cFireUp.PRWbs_element = Convert.ToString(cFireUp.PayrollRS["wbs_element"]);
cFireUp.PRAbs_att_type = Convert.ToString(cFireUp.PayrollRS["abs_att_type"]);
cFireUp.PRPayscalegroup = Convert.ToString(cFireUp.PayrollRS["payscalegroup"]);
cFireUp.PRPayscalelevel = Convert.ToString(cFireUp.PayrollRS["payscalelevel"]);
cFireUp.PRCatshours = Convert.ToDouble(cFireUp.PayrollRS["catshours"]);
cFireUp.PRUnit = Convert.ToString(cFireUp.PayrollRS["unit"]);
cFireUp.PRApproved_by = Convert.ToInt32(cFireUp.PayrollRS["approved_by"]);
cFireUp.PRUploadDate = DateTime.Now.ToString("MM/dd/yyyy HH:mm:ss");
cFireUp.PRPayroll_sys_id = Convert.ToInt32(cFireUp.PayrollRS["payroll_sys_id"]);
cFireUp.PPpayroll_status_code = cFireUp.PRStatus;
cFireUp.PPlast_update_by = modGlobal.Shared.gUser;
if (~cFireUp.InsertReconciliation() != 0)
{
//error msg
Shared.ViewManager.ShowMessage("Unable to InsertReconciliation", "Insert Record to SAP Database", UpgradeHelpers.Helpers.BoxButtons.OK);
}
if (~cFireUp.UpdatePersonnelPayrollStatus(lSysID) != 0)
{
//error msg
Shared.ViewManager.ShowMessage("Unable to UpdatePersonnelPayrollStatus", "Insert Record to SAP Database", UpgradeHelpers.Helpers.BoxButtons.OK);
}
//UPGRADE_TODO: (1067) Member DeleteRow is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
Shared.
oSAPStruc.DeleteRow();
}
catch (System.Exception excep)
{
Shared.ViewManager.ShowMessage("InsertRecordError - '" + excep.Message + "'", "Insert Record into SAP", UpgradeHelpers.Helpers.BoxButtons.OK);
return(0);
}
return(result);
}
