internal static int CheckPayrollForDate(string Empid, string PayrollDate) { int result = 0; PTSProject.clsFireUpload clPayroll = Shared.Container.Resolve <clsFireUpload>(); DbCommand oCmd = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateCommand(); ADORecordSetHelper oRec = null; string strSQL = ""; try { result = 0; oCmd.Connection = modGlobal.oConn; oCmd.CommandType = CommandType.Text; strSQL = "spSelect_PersonnelPayRollForDate '" + Empid + "', '"; strSQL = strSQL + PayrollDate + "' "; oCmd.CommandText = strSQL; oRec = ADORecordSetHelper.Open(oCmd, ""); if (!oRec.EOF) { result = -1; } } catch (System.Exception excep) { Shared.ViewManager.ShowMessage("Error Checking Payroll For Date - '" + excep.Message + "'", "Check Payroll!!", UpgradeHelpers.Helpers.BoxButtons.OK); return(0); } return(result); }
public void FormatPayPeriodReport() { PTSProject.clsFireUpload clPayroll = Container.Resolve <clsFireUpload>(); //initialize fields ViewModel.sprReport.Col = 2; ViewModel.sprReport.Row = 4; ViewModel.sprReport.Text = "0"; ViewModel.sprReport.Row = 5; ViewModel.sprReport.Text = "0"; ViewModel.sprReport.Row = 6; ViewModel.sprReport.Text = "0"; ViewModel.sprReport.Row = 7; ViewModel.sprReport.Text = "N/A"; ViewModel.sprReport.Row = 8; ViewModel.sprReport.Text = "0"; int TotalRecords = 0; if (clPayroll.GetPayPeriodReconciliationSummary(modGlobal.Shared.gPayrollYear, modGlobal.Shared.gPayPeriod) != 0) { while (!clPayroll.PayrollReconciliation.EOF) { //Print Summary Upload Totals ViewModel.sprReport.Col = 2; TotalRecords += Convert.ToInt32(clPayroll.PayrollReconciliation["total"]); switch (modGlobal.Clean(clPayroll.PayrollReconciliation["status"])) { case "S": ViewModel.sprReport.Row = 5; ViewModel.sprReport.Text = (Convert.ToInt32(Double.Parse(ViewModel.sprReport.Text)) + Convert.ToInt32(clPayroll.PayrollReconciliation["total"])).ToString(); break; case "D": ViewModel.sprReport.Row = 6; ViewModel.sprReport.Text = (Convert.ToInt32(Double.Parse(ViewModel.sprReport.Text)) + Convert.ToInt32(clPayroll.PayrollReconciliation["total"])).ToString(); break; default: ViewModel.sprReport.Row = 8; ViewModel.sprReport.Text = (Convert.ToInt32(Double.Parse(ViewModel.sprReport.Text)) + Convert.ToInt32(clPayroll.PayrollReconciliation["total"])).ToString(); break; } clPayroll.PayrollReconciliation.MoveNext(); } ; ViewModel.sprReport.Row = 4; ViewModel.sprReport.Text = TotalRecords.ToString(); } int RowCount = 12; if (clPayroll.GetPayPeriodReconciliationErrors(modGlobal.Shared.gPayrollYear, modGlobal.Shared.gPayPeriod) != 0) { while (!clPayroll.PayrollReconciliation.EOF) { ViewModel.sprReport.Row = RowCount; ViewModel.sprReport.Col = 1; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["name_full"]) + " (" + Convert.ToString(clPayroll.PayrollReconciliation["sap_id"]) + ") "; ViewModel.sprReport.Col = 2; ViewModel.sprReport.Text = Convert.ToDateTime(clPayroll.PayrollReconciliation["payroll_date"]).ToString("MM/dd/yyyy"); ViewModel.sprReport.Col = 3; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["abs_att_type"]); ViewModel.sprReport.Col = 4; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["payscalegroup"]); ViewModel.sprReport.Col = 5; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["payscalelevel"]); ViewModel.sprReport.Col = 6; ViewModel.sprReport.Text = Math.Round((double)Convert.ToDouble(clPayroll.PayrollReconciliation["catshours"]), 2).ToString(); RowCount++; ViewModel.sprReport.Row = RowCount; ViewModel.sprReport.Col = 1; //UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprReport.AddCellSpan was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx ViewModel.sprReport.AddCellSpan(1, RowCount, ViewModel.sprReport.MaxCols, 1); ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["return_msg"]); clPayroll.PayrollReconciliation.MoveNext(); RowCount += 2; } ; } else { ViewModel.sprReport.Row = RowCount; ViewModel.sprReport.Col = 1; ViewModel.sprReport.FontBold = true; ViewModel.sprReport.Text = "NO ERRORS TO REPORT"; RowCount++; } RowCount += 3; ViewModel.sprReport.Row = RowCount; ViewModel.sprReport.Col = 1; //UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprReport.AddCellSpan was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx ViewModel.sprReport.AddCellSpan(1, RowCount, ViewModel.sprReport.MaxCols, 1); ViewModel.sprReport.Text = "Printed On: " + DateTime.Now.ToString("MM/dd/yyyy HH:mm") + " for " + modGlobal.Shared.gUserName; ViewModel.sprReport.MaxRows = RowCount; }
public void FormatReport() { PTSProject.clsFireUpload clPayroll = Container.Resolve <clsFireUpload>(); //Print Summary Upload Totals ViewModel.sprReport.Col = 2; ViewModel.sprReport.Row = 4; ViewModel.sprReport.Text = modPTSPayroll.Shared.gTotalSAPRecords.ToString(); ViewModel.sprReport.Row = 5; ViewModel.sprReport.Text = modPTSPayroll.Shared.gTotalSAPInserts.ToString(); ViewModel.sprReport.Row = 6; ViewModel.sprReport.Text = modPTSPayroll.Shared.gTotalSAPDeletes.ToString(); ViewModel.sprReport.Row = 7; ViewModel.sprReport.Text = modPTSPayroll.Shared.gTotalSAPChanges.ToString(); ViewModel.sprReport.Row = 8; ViewModel.sprReport.Text = modPTSPayroll.Shared.gTotalSAPErrors.ToString(); int RowCount = 12; if (clPayroll.GetPayrollReconciliationReport(modPTSPayroll.Shared.gUserSAPid, modGlobal.Shared.gPayrollYear, modGlobal.Shared.gPayPeriod) != 0) { while (!clPayroll.PayrollReconciliation.EOF) { ViewModel.sprReport.Row = RowCount; ViewModel.sprReport.Col = 1; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["name_full"]); ViewModel.sprReport.Col = 2; ViewModel.sprReport.Text = Convert.ToDateTime(clPayroll.PayrollReconciliation["payroll_date"]).ToString("MM/dd/yyyy"); ViewModel.sprReport.Col = 3; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["abs_att_type"]); ViewModel.sprReport.Col = 4; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["payscalegroup"]); ViewModel.sprReport.Col = 5; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["payscalelevel"]); ViewModel.sprReport.Col = 6; ViewModel.sprReport.Text = Math.Round((double)Convert.ToDouble(clPayroll.PayrollReconciliation["catshours"]), 2).ToString(); RowCount++; ViewModel.sprReport.Row = RowCount; ViewModel.sprReport.Col = 1; //UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprReport.AddCellSpan was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx ViewModel.sprReport.AddCellSpan(1, RowCount, ViewModel.sprReport.MaxCols, 1); ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PayrollReconciliation["return_msg"]); clPayroll.PayrollReconciliation.MoveNext(); RowCount += 2; } ; } else { ViewModel.sprReport.Row = RowCount; ViewModel.sprReport.Col = 1; ViewModel.sprReport.FontBold = true; ViewModel.sprReport.Text = "NO ERRORS TO REPORT"; RowCount++; } RowCount += 3; ViewModel.sprReport.Row = RowCount; ViewModel.sprReport.Col = 1; //UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprReport.AddCellSpan was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx ViewModel.sprReport.AddCellSpan(1, RowCount, ViewModel.sprReport.MaxCols, 1); ViewModel.sprReport.Text = "Printed On: " + DateTime.Now.ToString("MM/dd/yyyy HH:mm") + " for " + modGlobal.Shared.gUserName; ViewModel.sprReport.MaxRows = RowCount; }
public void FillGrid() { PTSProject.clsFireUpload clPayroll = Container.Resolve <clsFireUpload>(); ViewModel.sprReport.MaxRows = 500; ViewModel.sprPrintList.MaxRows = 500; //clear grid ViewModel.sprPrintList.Row = 4; ViewModel.sprPrintList.Row2 = ViewModel.sprReport.MaxRows; ViewModel.sprPrintList.Col = 1; ViewModel.sprPrintList.Col2 = ViewModel.sprReport.MaxCols; ViewModel.sprPrintList.BlockMode = true; ViewModel.sprPrintList.Text = ""; ViewModel.sprPrintList.BlockMode = false; ViewModel.sprPrintList.Row = 1; ViewModel.sprPrintList.Col = 1; ViewModel.sprPrintList.Text = "Payroll Sign Off for " + ViewModel.cboNameList.Text + " "; ViewModel.sprPrintList.Row = 2; ViewModel.sprPrintList.Col = 3; ViewModel.sprPrintList.Text = "Printed " + DateTime.Now.ToString("MM/dd/yyyy HH:mm:ss"); ViewModel.sprReport.Row = 1; ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows; ViewModel.sprReport.Col = 1; ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols; ViewModel.sprReport.BlockMode = true; ViewModel.sprReport.Text = ""; ViewModel.sprReport.BlockMode = false; if (~clPayroll.GetEmployeePayrollSignOffReport(ViewModel.CurrSAPID) != 0) { ViewManager.ShowMessage("There is no Sign Off information for this employee.", "Payroll SignOff Information", UpgradeHelpers.Helpers.BoxButtons.OK); return; } int iRow = 1; int iPrintRow = 4; while (!clPayroll.PPayrollSignOff.EOF) { ViewModel.sprReport.Row = iRow; ViewModel.sprPrintList.Row = iPrintRow; ViewModel.sprPrintList.Col = 1; ViewModel.sprPrintList.Text = Convert.ToDateTime(clPayroll.PPayrollSignOff["start_date"]).ToString("M/d/yyyy") + " - " + Convert.ToDateTime(clPayroll.PPayrollSignOff["end_date"]).ToString("M/d/yyyy"); ViewModel.sprReport.Col = 1; ViewModel.sprReport.Text = Convert.ToDateTime(clPayroll.PPayrollSignOff["start_date"]).ToString("M/d/yyyy") + " - " + Convert.ToDateTime(clPayroll.PPayrollSignOff["end_date"]).ToString("M/d/yyyy"); ViewModel.sprPrintList.Col = 2; ViewModel.sprPrintList.Text = Convert.ToDateTime(clPayroll.PPayrollSignOff["signoff_date"]).ToString("M/d/yyyy HH:mm:ss"); ViewModel.sprReport.Col = 2; ViewModel.sprReport.Text = Convert.ToDateTime(clPayroll.PPayrollSignOff["signoff_date"]).ToString("M/d/yyyy HH:mm:ss"); ViewModel.sprPrintList.Col = 3; ViewModel.sprPrintList.Text = modGlobal.Clean(clPayroll.PPayrollSignOff["Message"]); ViewModel.sprReport.Col = 3; ViewModel.sprReport.Text = modGlobal.Clean(clPayroll.PPayrollSignOff["Message"]); iRow++; iPrintRow++; clPayroll.PPayrollSignOff.MoveNext(); } ; ViewModel.sprReport.MaxRows = iRow; ViewModel.sprPrintList.MaxRows = iPrintRow; }
internal static int CheckPayrollForLeaveDelete(string Empid, string PayrollDate, string TimeCode) { int result = 0; PTSProject.clsFireUpload clPayroll = Shared.Container.Resolve <clsFireUpload>(); DbCommand oCmd = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateCommand(); ADORecordSetHelper oRec = null; string strSQL = ""; try { result = -1; oCmd.Connection = modGlobal.oConn; oCmd.CommandType = CommandType.Text; strSQL = "spSelect_PersonnelPayRollForLeaveDelete '" + Empid + "','"; strSQL = strSQL + PayrollDate + "','" + TimeCode + "' "; oCmd.CommandText = strSQL; oRec = ADORecordSetHelper.Open(oCmd, ""); if (!oRec.EOF) { if (modGlobal.Clean(oRec["payroll_status_code"]) == "N") { if (clPayroll.GetTimeCodeByKOT(TimeCode) != 0) { if (clPayroll.TCfillercode != "") { if (clPayroll.GetAssociatedPersonnelPayRollRecord(Convert.ToInt32(oRec["payroll_sys_id"]), clPayroll.TCfillercode) != 0) { if (clPayroll.DeletePersonnelPayroll(Convert.ToInt32(Double.Parse(clPayroll.PPFillerCodeID))) != 0) { //success } else { result = 0; } } } } if (clPayroll.DeletePersonnelPayroll(Convert.ToInt32(oRec["payroll_sys_id"])) != 0) { //success } else { result = 0; } } else { Shared.ViewManager.ShowMessage( "Please contact Peggy Dundas or your BC!! Let them know you are deleting/changing a Leave Record where Payroll has been uploaded to SAP!!", "Payroll Record has been Uploaded!!" , UpgradeHelpers.Helpers.BoxButtons.OK); result = 0; } } } catch (System.Exception excep) { Shared.ViewManager.ShowMessage("Error Checking Payroll For Leave Delete - '" + excep.Message + "'", "Payroll Record has been Uploaded!!", UpgradeHelpers.Helpers.BoxButtons.OK); return(0); } return(result); }
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); }
internal static void UploadToSAP() { //Process all records in PayrollTransfer Table that have been approved by //gUserSAPid (contains SAP employee id (long) of approving individual) PTSProject.clsFireUpload cFireUp = Shared.Container.Resolve <clsFireUpload>(); int ErrorEncountered = 0; string CurrStatus = ""; Shared. gTotalSAPRecords = 0; Shared. gTotalSAPInserts = 0; Shared. gTotalSAPDeletes = 0; Shared. gTotalSAPChanges = 0; Shared. gTotalSAPErrors = 0; if (~ConnectToPayrollTransfer() != 0) { //error msg Shared.ViewManager.ShowMessage("Unable to make SQL Connection to PTSPayroll database", System.Diagnostics.FileVersionInfo. GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly().Location).ProductName); return; } if (~cFireUp.GetPayrollTransfer(Shared.gUserSAPid) != 0) { Shared.ViewManager.ShowMessage("No Payroll Transfer Records returned", System.Diagnostics.FileVersionInfo.GetVersionInfo( System.Reflection.Assembly.GetExecutingAssembly().Location).ProductName, UpgradeHelpers.Helpers.BoxButtons.OK); oPayroll = null; return; } while (!cFireUp.PayrollTransfer.EOF) { //*************************************** //** Logic to Determine Record should ** //** be Inserted, Deleted or Changed ** //*************************************** ErrorEncountered = 0; (Shared. gTotalSAPRecords)++; if (~cFireUp.GetReconciliationLastAction(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { CurrStatus = "I"; //No Reconciliation Records, Insert } else { CurrStatus = cFireUp.PRStatus; } switch (CurrStatus) { case "I": //** No Reconciliation records exist //Insert new record if (~InsertRecord(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { //error msg ErrorEncountered = -1; (Shared. gTotalSAPErrors)++; } else { (Shared. gTotalSAPInserts)++; } break; case "F": //** Last Insert Attempt Failed //Insert new record if (~InsertRecord(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { //error msg ErrorEncountered = -1; (Shared. gTotalSAPErrors)++; } else { (Shared. gTotalSAPInserts)++; } break; case "S": //** Last record was a successful insert //Determine if Delete or Change if (Convert.ToDouble(cFireUp.PayrollTransfer["catshours"]) == 0) { //Delete record if (~DeleteRecord(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { //error msg ErrorEncountered = -1; (Shared. gTotalSAPErrors)++; } else { (Shared. gTotalSAPDeletes)++; } } else { //Change record if (~DeleteRecord(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { //error msg ErrorEncountered = -1; (Shared. gTotalSAPErrors)++; } if (~ErrorEncountered != 0) { if (~InsertRecord(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { //error msg ErrorEncountered = -1; (Shared. gTotalSAPErrors)++; } else { (Shared. gTotalSAPChanges)++; } } } break; case "X": //** Last record was Failed delete attempt //Determine if Delete or Change if (Convert.ToDouble(cFireUp.PayrollTransfer["catshours"]) == 0) { //Delete record if (~DeleteRecord(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { //error msg ErrorEncountered = -1; (Shared. gTotalSAPErrors)++; } else { (Shared. gTotalSAPDeletes)++; } } else { //Change record if (~DeleteRecord(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { //error msg ErrorEncountered = -1; (Shared. gTotalSAPErrors)++; } if (~ErrorEncountered != 0) { if (~InsertRecord(Convert.ToInt32(cFireUp.PayrollTransfer["payroll_sys_id"])) != 0) { //error msg ErrorEncountered = -1; (Shared. gTotalSAPErrors)++; } else { (Shared. gTotalSAPChanges)++; } } } break; } cFireUp.PayrollTransfer.MoveNext(); } ; if (~cFireUp.DeletePayrollTransferForUser(Shared.gUserSAPid) != 0) { //error msg Shared.ViewManager.ShowMessage("Delete PayrollTransfer - '" + UpgradeHelpers.Helpers.Information.Err().Description + "'", "Upload to SAP", UpgradeHelpers.Helpers.BoxButtons.OK); } oPayroll = null; }