/// <summary>
/// Carga el grid de las series escaneadas
/// </summary>
private void CargarGridArqueo()
{
try
{
_oForma = _Application.Forms.Item(formID);
_oForma.Freeze(true);//
_oForma.DataSources.DataTables.Item(DT_ARQUEOS)
.ExecuteQuery(@"SELECT CAST('' AS INT) AS #,
CAST('' AS NVARCHAR(MAX)) AS CodigoAsistente ,
CAST('' AS NVARCHAR(MAX)) AS NombreAsistente ,
CAST('' AS NVARCHAR(MAX)) AS CodigoOficina ,
CAST('' AS NVARCHAR(MAX)) AS Empresa ,
CAST('' AS NVARCHAR(MAX)) AS 'Plan' ,
CAST('' AS NVARCHAR(MAX)) AS Solicitud ,
CAST('' AS DATETIME) AS FechaArqueo
");
_oGridArqueos = (SAPbouiCOM.Grid)_oForma.Items.Item(GRD_ARQUEOS).Specific;
_oGridArqueos.DataTable = _oForma.DataSources.DataTables.Item(DT_ARQUEOS);
FormatoGrid(_oGridArqueos, "");
_oGridArqueos.AutoResizeColumns();
}
catch (Exception ex)
{
throw new Exception("Error al cargar grid de arqueo *CargarGridArqueo* : " + ex.Message);
}
finally
{
_oForma.Freeze(false);
}
}
}//fin MenuEvent
private void Query(String Proc)
{
try
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = "exec " + Proc + " '" + Desde + "', '" + Hasta + "'";
}
else
{
s = "CALL " + Proc + " ('" + Desde + "', '" + Hasta + "')";
}
oDataTable.ExecuteQuery(s);
if (oDataTable.Rows.Count > 0)
{
ogrid.AutoResizeColumns();
}
}
catch (Exception e)
{
OutLog("Query: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
}
private void CargarGrid()
{
try
{
ogrid = ((Grid)oForm.Items.Item("ogrid").Specific);
odt = ogrid.DataTable;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT DocEntry, U_CardCode, U_CardName, U_Activado FROM [@VID_FELISTANE]";
}
else
{
s = @"SELECT ""DocEntry"", ""U_CardCode"", ""U_CardName"", ""U_Activado"" FROM ""@VID_FELISTANE"" ";
}
ogrid.DataTable.ExecuteQuery(s);
ogrid.Columns.Item("DocEntry").Type = BoGridColumnType.gct_EditText;
var oColumn = ((GridColumn)ogrid.Columns.Item("DocEntry"));
((EditTextColumn)oColumn).Editable = false;
((EditTextColumn)oColumn).TitleObject.Caption = "DocEntry";
((EditTextColumn)oColumn).Visible = false;
ogrid.Columns.Item("U_CardCode").Type = BoGridColumnType.gct_EditText;
oColumn = ((GridColumn)ogrid.Columns.Item("U_CardCode"));
((EditTextColumn)oColumn).Editable = true;
((EditTextColumn)oColumn).TitleObject.Caption = "Codigo SN";
((EditTextColumn)oColumn).Visible = true;
((EditTextColumn)oColumn).LinkedObjectType = "2";
((EditTextColumn)oColumn).ChooseFromListUID = "CFL0";
((EditTextColumn)oColumn).ChooseFromListAlias = "CardCode";
ogrid.Columns.Item("U_CardName").Type = BoGridColumnType.gct_EditText;
oColumn = ((GridColumn)ogrid.Columns.Item("U_CardName"));
((EditTextColumn)oColumn).Editable = false;
((EditTextColumn)oColumn).TitleObject.Caption = "Razón Social";
((EditTextColumn)oColumn).Visible = true;
ogrid.Columns.Item("U_Activado").Type = BoGridColumnType.gct_CheckBox;
var oColumnchx = ((GridColumn)ogrid.Columns.Item("U_Activado"));
((CheckBoxColumn)oColumnchx).Editable = true;
((CheckBoxColumn)oColumnchx).TitleObject.Caption = "Activo";
((CheckBoxColumn)oColumnchx).Visible = true;
ogrid.AutoResizeColumns();
if (((System.String)odt.GetValue("U_CardCode", 0)).Trim() != "")
{
odt.Rows.Add();
}
FSBOApp.StatusBar.SetText("Lista Negra cargada", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
catch (Exception e)
{
FSBOApp.StatusBar.SetText(e.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("CargarGrid: " + e.Message + " ** Trace: " + e.StackTrace);
}
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
string cv_ColumnsUID_s = "CHK,LINEID,U_RECVDT,CODE,NAME,U_DELVCD,U_RDEPT,U_CALLTP,U_TEL,U_PAYNM,U_CENTNM,U_COMMENT,U_PROCOMM,U_RECVNM,U_PROCDT,U_PROCNM";
string cv_ColumnsNAM_s = "체크,라인번호,상담일,독자코드,독자이름,배달코드,구독부서,콜유형,전화번호,요금제,분국,접수내용,처리결과,작업자,처리일자,처리자";
string cv_No_Visible_s = " ";
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
//string expr = "BackColor=#DBE4F6&Width(ZIP_CD=80,ADDR_KOR=345)";
//FN.SetColumnProperty(oForm, "grd", expr);
}
private void FindData(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Grid oGrid;
StringBuilder sb;
string strYYYYMM_FR = string.Empty;
string strYYYYMM_TO = string.Empty;
string strCENTCD_FR = string.Empty;
string strCENTCD_TO = string.Empty;
string strPERSON = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
strYYYYMM_FR = oUDS.Item("cboYYYYMM1").ValueEx;
strYYYYMM_TO = oUDS.Item("cboYYYYMM2").ValueEx;
sb = new StringBuilder();
//조회
sb.AppendLine(" SELECT CONVERT (VARCHAR (10), ROW_NUMBER () OVER (ORDER BY T0.Code)) AS ROWSEQ ");
sb.AppendLine(" , T0.Code AS READCD ");
sb.AppendLine(" , T0.[Name] AS READNM ");
sb.AppendLine(" , ISNULL(T0.U_SUMCNT, 0) AS READCNT ");
sb.AppendLine(" , T1.U_SAILCD ");
sb.AppendLine(" , T1.U_SAILNM ");
sb.AppendLine(" , T1.U_METHOD ");
sb.AppendLine(" , T1.U_PAPERTP ");
sb.AppendLine(" , U_EXPRYM ");
sb.AppendLine(" FROM [@KIS_SO0030M_HRD] T0 ");
sb.AppendLine(" INNER JOIN (SELECT ROW_NUMBER () OVER (PARTITION BY Code ORDER BY LineId) AS SEQ ");
sb.AppendLine(" , Code ");
sb.AppendLine(" , U_PAPERTP ");
sb.AppendLine(" , U_SAILCD ");
sb.AppendLine(" , U_SAILNM ");
sb.AppendLine(" , U_METHOD ");
sb.AppendLine(" FROM [@KIS_SO00301_HRD]) T1 ");
sb.AppendLine(" ON T0.Code = T1.Code AND T1.Seq = 1 ");
sb.AppendLine(" WHERE CONVERT(NVARCHAR(6), ISNULL(U_EXPRYM,''), 112) BETWEEN '{0}' AND '{1}' ");
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format( sb.ToString(), strYYYYMM_FR, strYYYYMM_TO) );
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//1. 지종
FN.SetComboBoxValidValues(oGrid, "U_PAPERTP", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO01' ", FN.Enum_WholeTp.m_Nothing);
//2. 가입방법
FN.SetComboBoxValidValues(oGrid, "U_METHOD", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO14' ", FN.Enum_WholeTp.m_Nothing);
// 지국 링크버튼추가
FN.SetGirdColumnLinkedObjec(ref oGrid, "READCD", BoLinkedObject.lf_BusinessPartner);
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("READCD", 0).ToString() == null || oGrid.DataTable.GetValue("READCD", 0).ToString() == ""))
{
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
}
else
{
FN.BindGrid(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, ""
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight));
//FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA)
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("ET_btnFind_AFItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd1").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd1");
string cv_ColumnsUID_s = "U_LINENUM, U_EMPNO, U_EMPNM, U_DEPTCD, U_DEPTNM, U_PASSYNL, U_PASSYNT, U_HEADER, U_LINE";
string cv_ColumnsNAM_s = "#,사번,사원명,부서코드,부서명,본인고과,고과자,헤더정보,라인정보";
string cv_No_Visible_s = " ";
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid2 = (SAPbouiCOM.Grid)oForm.Items.Item("grd2").Specific;
oGrid2.DataTable = oForm.DataSources.DataTables.Item("grd2");
string cv_ColumnsUID_s = "Code,U_DTCD, U_ABILCD, U_COMPOCD, U_BASESC, U_CONTENTS,U_GRADE4,U_GRADE1,U_GRADE2,U_GRADE3,U_LASTGAF";
string cv_ColumnsNAM_s = "코드,구분,역량,구성요소,배점,구성요소내용,평가등급,1차고과등급,2차고과등급,3차고과등급,최종등급";
string cv_No_Visible_s = "Code";
FN.SetGridTitle(oGrid2, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid2.RowHeaders.Width = 0;
oGrid2.AutoResizeColumns();
}
internal static void Veiw_Grid1_DataTable(SAPbouiCOM.Form oForm, int SelectedRow = -1)
{
#region 그리드 조회
SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.Freeze(true);
try
{
SAPbouiCOM.UserDataSources UDSs = oForm.DataSources.UserDataSources;
string SITE_CD = TR_COMMON_HRD.GetSITE_CD();
string edtCARDNO = UDSs.Item("edtCARDNO").Value;//카드번호
string edtFDATE = UDSs.Item("edtFDATE").Value;//승인일자 : 시작
string edtTDATE = UDSs.Item("edtTDATE").Value;//승인일자 : 종료
//대량이체 대상 리포트 헤더 조회조건값기준으로 데이터 채우기
#region 그리드 DataTable 실행문
System.Text.StringBuilder isb = new System.Text.StringBuilder();
isb.Append("EXEC [KIS_SP_TR0100F1_HRD] ");
isb.AppendFormat(" @SITE_CD = '{0}' ", SITE_CD);
isb.AppendFormat(",@edtCARDNO = '{0}' ", edtCARDNO);
isb.AppendFormat(",@edtFDATE = '{0}' ", edtFDATE);
isb.AppendFormat(",@edtTDATE = '{0}' ", edtTDATE);
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(isb.ToString());
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
isb = null;
#endregion
#region 컬럼 설정
FN.SetGridColumnTypeToNumber(ref oGrid, "", "APPR_AMT,SUPPLY_AMT", "", "");
System.Text.StringBuilder isb_ColCode = new System.Text.StringBuilder();
isb_ColCode.Append("SITE_CD,CARD_NO,APPR_DATE,APPR_SEQ,APPR_TIME,APPR_NO,CANCEL_YN,USE_GB,CHAIN_NM,CHAIN_ID,CHAIN_CD,APPR_AMT,SUPPLY_AMT,APPR_TAX,HALBU,RECO_HALBU_NO,CHAIN_TYPE,WS_STATUS");
System.Text.StringBuilder isb_ColName = new System.Text.StringBuilder();
isb_ColName.Append("금융기관코드,카드번호,승인월,승인일별 일련번호,승인시간,승인번호,승인취소여부,사용구분,가맹점명,가맹점사업자번호,가맹점번호,승인금액,공급가액,부가가치세,할부기간,청구내역할부회차,과세정보가맹점유형코드,WEB 처리상태");
System.Text.StringBuilder isb_Editable = new System.Text.StringBuilder();
isb_Editable.Append("SITE_CD,CARD_NO,APPR_DATE,APPR_SEQ,APPR_TIME,APPR_NO,CANCEL_YN,USE_GB,CHAIN_NM,CHAIN_ID,CHAIN_CD,APPR_AMT,SUPPLY_AMT,APPR_TAX,HALBU,RECO_HALBU_NO,CHAIN_TYPE,WS_STATUS");
System.Text.StringBuilder isb_Visible = new System.Text.StringBuilder();
isb_Visible.Append("");
System.Text.StringBuilder isb_RightAlign = new System.Text.StringBuilder();
isb_RightAlign.Append("APPR_AMT,SUPPLY_AMT");
FN.BindGrid(oGrid, isb_ColCode.ToString(), isb_ColName.ToString(), isb_Editable.ToString(), isb_Visible.ToString(), "", isb_RightAlign.ToString(), false);
oGrid.CommonSetting.FixedColumnsCount = 2;
//* 링크버튼 조작 */
//FN.SetGirdColumnLinkedObjec(ref oGrid, "U_CARDCD", BoLinkedObject.lf_BusinessPartner);//비즈니스 파트너 마스터
/*그리드 정결 조작*/
FN.SetGirdSort(ref oGrid);
/*그리드 합계컬럼 조작*/
TR_COMMON_HRD.SetGridSumField(ref oGrid, "APPR_AMT,SUPPLY_AMT", BoColumnSumType.bst_Auto);
/* 콤보박스 컬럼 조작*/
FN.SetComboBoxValidValues(oGrid, "CHAIN_TYPE", "SELECT U_RMK1,U_SMLNM FROM [@KIS_AD00201] WHERE Code = 'TR08' AND U_USEYN = 'Y'", FN.Enum_WholeTp.m_Nothing); //대량이체 파일유형
isb_ColCode = null;
isb_ColName = null;
isb_Editable = null;
isb_Visible = null;
#endregion
if (oGrid.DataTable.Rows.Count == 1)
{
if (oGrid.DataTable.Columns.Item("CARD_NO").Cells.Item(0).Value.ToString().Trim() == "")
{
oGrid.DataTable.Rows.Clear();
}
}
oGrid.AutoResizeColumns();
/*컬럼 길이 조작*/
oGrid.RowHeaders.Width = 0;
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
}
#endregion
}
private void FindData(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
StringBuilder sb = new StringBuilder();
string cboTAKEYM = string.Empty;
string edtTAKEDT = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
cboTAKEYM = oUDS.Item("cboTAKEYM").ValueEx.Trim();
edtTAKEDT = oUDS.Item("edtTAKEDT").ValueEx;
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
cv_ColumnsUID_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE ";
cv_NoEditable_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE ";
cv_ColumnsNAM_s = " 문서번호, 신청접수년월, 신청접수일자, 신청파일이름, 결과파일이름, 총건수, 신규등록건수, 변경등록건수, 해지등록건수, 임의해지건수, 실행일자, 실행시간, 실행자 ";
cv_Right_Just_s = " DocEntry, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT ";
cv_No_Visible_s = " ";
sb.AppendLine(" SELECT T0.DocEntry ");
sb.AppendLine(" , T0.U_TAKEYM ");
sb.AppendLine(" , T0.U_TAKEDT ");
//sb.AppendLine(" , T0.U_DESC ");
sb.AppendLine(" , T0.U_SFILE ");
sb.AppendLine(" , T0.U_EFILE ");
sb.AppendLine(" , T0.U_TOTCNT ");
sb.AppendLine(" , T0.U_NEWCNT ");
sb.AppendLine(" , T0.U_MODCNT ");
sb.AppendLine(" , T0.U_CLOCNT ");
sb.AppendLine(" , T0.U_RCLCNT ");
sb.AppendLine(" , T0.CreateDate ");
sb.AppendLine(" , T0.CreateTime ");
sb.AppendLine(" , (SELECT F.USER_CODE FROM OUSR F WHERE F.USERID = T0.UserSign) AS USER_CODE ");
sb.AppendLine(" FROM [@KIS_SO0390T_HRD] T0 ");
sb.AppendLine(" WHERE (ISNULL('{0}','') = '' OR (T0.U_TAKEYM = '{0}')) ");
sb.AppendLine(" AND (ISNULL('{1}','') = '' OR (T0.U_TAKEDT = '{1}')) ");
sb.AppendLine(" ORDER BY T0.U_TAKEYM, T0.U_TAKEDT ");
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), cboTAKEYM, edtTAKEDT));
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
if (oGrid.DataTable.Rows.Count == 1)
{
if (oGrid.DataTable.Columns.Item("DocEntry").Cells.Item(0).Value.ToString().Trim() == "0")
{
oGrid.DataTable.Rows.Clear();
}
}
FN.SetGirdColumnLinkedObjec(ref oGrid, "DocEntry", BoLinkedObject.lf_ProfitCenter);
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
catch (Exception)
{
//oForm.Freeze(false);
throw;
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
FSBOf.LoadForm(xmlPath, "FM_NOTES.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
Flag = false;
oForm.Freeze(true);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select count(*) Cont from [@FM_NOTES]";
}
else
{
s = @"select count(*) ""Cont"" from ""@FM_NOTES"" ";
}
oRecordSet.DoQuery(s);
if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
else
{
oForm.Mode = BoFormMode.fm_ADD_MODE;
}
oGrid = (Grid)(oForm.Items.Item("3").Specific);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@FM_NOTES");
oDataTable = oForm.DataSources.DataTables.Add("Notes");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name, U_TypeCode from [@FM_NOTES]
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50))";
}
else
{
s = @"select ""Code"", ""Name"", ""U_TypeCode"" from ""@FM_NOTES""
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)) FROM DUMMY ";
}
oDataTable.ExecuteQuery(s);
oGrid.DataTable = oDataTable;
oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Code"));
var oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Codigo";
oGrid.Columns.Item("Name").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Name"));
oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Descripción";
oGrid.Columns.Item("U_TypeCode").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_TypeCode"));
oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Codigo SUNAT";
oGrid.AutoResizeColumns();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
private void FindData1(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
EXAMCD = oForm.Items.Item("cboYEAR").Specific.Value;
string EMPNO = oForm.Items.Item("edtEMPNO").Specific.Value;
string DEPT = oForm.Items.Item("cboDEPT").Specific.Value;
StringBuilder pQuery = new StringBuilder();
string sQry = string.Empty;
try
{
oGrid1 = (SAPbouiCOM.Grid)oForm.Items.Item("grd1").Specific;
oGrid1.SelectionMode = BoMatrixSelect.ms_Single;
cv_ColumnsUID_s = "U_EMPNM, U_DEPTNM, U_EMPNO, U_JIKCHNM, U_JIKGBNM, Code";
cv_NoEditable_s = "U_EMPNM, U_DEPTNM, U_EMPNO, U_JIKCHNM, U_JIKGBNM, Code";
cv_ColumnsNAM_s = "사원명,부서명,사원코드,직책,직급,코드";
cv_Right_Just_s = " ";
cv_No_Visible_s = "U_EMPNO,U_JIKCHNM,U_JIKGBNM,Code";
#region 조회Query
pQuery.Clear();
pQuery.Append(" EXEC KIS_SP_HR0060B0_HRD '{0}','{1}','{2}'");
//pQuery.AppendLine(" SELECT ");
//pQuery.AppendLine(" A.U_EMPNM AS U_EMPNM ");
//pQuery.AppendLine(" ,C.U_DEPTNM AS U_DEPTNM ");
//pQuery.AppendLine(" ,A.U_EMPNO AS U_EMPNO ");
//pQuery.AppendLine(" ,B.U_JIKCHNM AS U_JIKCHNM ");
//pQuery.AppendLine(" ,B.U_JIKGBNM AS U_JIKGBNM ");
//pQuery.AppendLine(" ,A.Code AS Code ");
//pQuery.AppendLine(" FROM [@KIS_HR0020M_HRD] A ");
//pQuery.AppendLine(" INNER JOIN [@KIS_HR0120M] B ON A.U_EMPNO = B.U_EMPNO ");
//pQuery.AppendLine(" INNER JOIN [@KIS_HR01202] C ON B.Code = C.Code ");
//pQuery.AppendLine(" INNER JOIN [@KIS_AD00201] D ON A.U_EXAMCD = D.U_SMLCD AND D.Code = 'HR01' AND D.U_RMK2 = 'U03' ");
//pQuery.AppendLine(" WHERE A.U_EXAMCD = '{0}' ");
//pQuery.AppendLine(" AND (A.U_STATUS = 'Y') ");
//pQuery.AppendLine(" AND (A.U_DEPTCD = '{1}' OR '{1}' = '') ");
//pQuery.AppendLine(" AND (A.U_EMPNO = '{2}' OR '{2}' = '') ");
sQry = string.Format(pQuery.ToString(), EXAMCD, DEPT, EMPNO);
#endregion
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd1").ExecuteQuery(sQry);
oGrid1.DataTable = oForm.DataSources.DataTables.Item("grd1"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid1.DataTable.Rows.Count == 1 && oGrid1.DataTable.GetValue("U_EMPNM", 0).ToString() == "")
{
FN.SetGridTitle(oGrid1, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid1, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid1.RowHeaders.Width = 0;
//FN.SetGirdSort(ref oGrid1);
oGrid1.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oGrid1 = null;
}
}
}//fin MenuEvent
private void BuscarDatos()
{
String FechaD;
String FechaH;
String TipoDTE;
try
{
oForm.Freeze(true);
FechaD = ((System.String)((EditText)oForm.Items.Item("FechaD").Specific).Value);
FechaH = ((System.String)((EditText)oForm.Items.Item("FechaH").Specific).Value);
TipoDTE = ((System.String)((ComboBox)oForm.Items.Item("TipoDTE").Specific).Selected.Value).Trim();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT T0.DocEntry
,T0.U_TipoDoc TipoDoc
,T0.U_Folio Folio
,T0.U_RUT RUT
,T0.U_Razon Razon
,T0.U_FechaEmi FechaEmi
,CAST(REPLACE(CONVERT(CHAR(10), T0.U_FechaRecep, 102),'.','-') +' '+
CASE WHEN LEN(T0.U_HoraRecep) = 4 THEN LEFT(CAST(T0.U_HoraRecep AS VARCHAR(10)),2) + ':' + RIGHT(CAST(T0.U_HoraRecep AS VARCHAR(10)),2) + ':00'
WHEN LEN(T0.U_HoraRecep) = 3 THEN '0' + LEFT(CAST(T0.U_HoraRecep AS VARCHAR(10)),1) + ':' + RIGHT(CAST(T0.U_HoraRecep AS VARCHAR(10)),2) + ':00'
WHEN LEN(T0.U_HoraRecep) = 2 THEN '00:'+ CAST(T0.U_HoraRecep AS VARCHAR(10)) + ':00'
WHEN LEN(T0.U_HoraRecep) = 1 THEN '00:0' + CAST(T0.U_HoraRecep AS VARCHAR(10)) + ':00'
ELSE '00:00:00'
END AS VARCHAR(50)) FechaRecep
,T0.U_Monto Monto
,T0.U_IVA IVA
,T0.U_EstadoC EstadoC
,T0.U_EstadoSII EstadoSII
,T0.U_EstadoLey EstadoLey
,CAST(T0.U_DocEntry AS INT) DocEntryDoc
,{4} 'xml'
FROM [{2}] T0
WHERE 1 = 1
AND T0.{3} BETWEEN '{0}' AND '{1}'";
}
else
{
s = @"SELECT T0.""DocEntry""
,T0.""U_TipoDoc"" ""TipoDoc""
,T0.""U_Folio"" ""Folio""
,T0.""U_RUT"" ""RUT""
,T0.""U_Razon"" ""Razon""
,T0.""U_FechaEmi"" ""FechaEmi""
,CAST(TO_VARCHAR(T0.""U_FechaRecep"", 'yyyy-MM-dd') ||' '||
CASE WHEN LENGTH(T0.""U_HoraRecep"") = 4 THEN LEFT(CAST(T0.""U_HoraRecep"" AS VARCHAR(10)),2) || ':' || RIGHT(CAST(T0.""U_HoraRecep"" AS VARCHAR(10)),2) || ':00'
WHEN LENGTH(T0.""U_HoraRecep"") = 3 THEN '0' || LEFT(CAST(T0.""U_HoraRecep"" AS VARCHAR(10)),1) || ':' || RIGHT(CAST(T0.""U_HoraRecep"" AS VARCHAR(10)),2) || ':00'
WHEN LENGTH(T0.""U_HoraRecep"") = 2 THEN '00:' || CAST(T0.""U_HoraRecep"" AS VARCHAR(10)) || ':00'
WHEN LENGTH(T0.""U_HoraRecep"") = 1 THEN '00:0' || CAST(T0.""U_HoraRecep"" AS VARCHAR(10)) || ':00'
ELSE '00:00:00'
END AS VARCHAR(50)) ""FechaRecep""
,T0.""U_Monto"" ""Monto""
,T0.""U_IVA"" ""IVA""
,T0.""U_EstadoC"" ""EstadoC""
,T0.""U_EstadoSII"" ""EstadoSII""
,T0.""U_EstadoLey"" ""EstadoLey""
,TO_INT(T0.""U_DocEntry"") ""DocEntryDoc""
,{4} ""xml""
FROM ""{2}"" T0
WHERE 1 = 1
AND T0.""{3}"" BETWEEN '{0}' AND '{1}'";
}
s = String.Format(s, FechaD, FechaH, (TipoDTE == "V" ? "@VID_FEDTEVTA" : "@VID_FEDTECPRA"), (DSOpFec.Value == "1" ? "U_FechaEmi" : "U_FechaRecep"), (TipoDTE == "C" ? (GlobalSettings.RunningUnderSQLServer ? @"T0.U_Xml" : @"T0.""U_Xml"" ") : "''"));
if (((System.String)((ComboBox)oForm.Items.Item("Cliente").Specific).Selected.Value).Trim() != "Todos")
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = s + @" AND T0.U_EstadoC = '{0}'";
}
else
{
s = s + @" AND T0.""U_EstadoC"" = '{0}'";
}
s = String.Format(s, ((System.String)((ComboBox)oForm.Items.Item("Cliente").Specific).Selected.Value).Trim());
}
if (((System.String)((ComboBox)oForm.Items.Item("SII").Specific).Selected.Value).Trim() != "Todos")
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = s + @" AND T0.U_EstadoSII = '{0}'";
}
else
{
s = s + @" AND T0.""U_EstadoSII"" = '{0}'";
}
s = String.Format(s, ((System.String)((ComboBox)oForm.Items.Item("SII").Specific).Selected.Value).Trim());
}
if (((System.String)((ComboBox)oForm.Items.Item("Ley").Specific).Selected.Value).Trim() != "Todos")
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = s + @" AND T0.U_EstadoLey = '{0}'";
}
else
{
s = s + @" AND T0.""U_EstadoLey"" = '{0}'";
}
s = String.Format(s, ((System.String)((ComboBox)oForm.Items.Item("Ley").Specific).Selected.Value).Trim());
}
oDataTable.ExecuteQuery(s);
oGrid.Columns.Item("DocEntry").Type = BoGridColumnType.gct_EditText;
var col = (EditTextColumn)(oGrid.Columns.Item("DocEntry"));
col.Visible = false;
oGrid.Columns.Item("TipoDoc").Type = BoGridColumnType.gct_EditText;
col = (EditTextColumn)(oGrid.Columns.Item("TipoDoc"));
col.Editable = false;
col.TitleObject.Caption = "Tipo DTE";
col.TitleObject.Sortable = true;
oGrid.Columns.Item("Folio").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("Folio"));
col.Editable = false;
col.RightJustified = true;
col.TitleObject.Sortable = true;
col.TitleObject.Caption = "Nro Folio";
oGrid.Columns.Item("RUT").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("RUT"));
col.Editable = false;
col.TitleObject.Sortable = true;
col.TitleObject.Caption = "RUT";
if (TipoDTE == "C")
{
col.Visible = true;
}
else
{
col.Visible = false;
}
oGrid.Columns.Item("Razon").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("Razon"));
col.Editable = false;
col.TitleObject.Sortable = true;
col.TitleObject.Caption = "Razon Social";
oGrid.Columns.Item("FechaEmi").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("FechaEmi"));
col.Editable = false;
col.TitleObject.Sortable = true;
col.TitleObject.Caption = "Fecha Emisión";
oGrid.Columns.Item("FechaRecep").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("FechaRecep"));
col.Editable = false;
col.TitleObject.Sortable = true;
col.TitleObject.Caption = "Fecha Recepción";
oGrid.Columns.Item("Monto").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("Monto"));
col.Editable = false;
col.RightJustified = true;
col.TitleObject.Sortable = true;
col.TitleObject.Caption = "Monto";
oGrid.Columns.Item("IVA").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("IVA"));
col.Editable = false;
col.RightJustified = true;
col.TitleObject.Sortable = true;
col.TitleObject.Caption = "IVA";
oGrid.Columns.Item("EstadoC").Type = BoGridColumnType.gct_ComboBox;
var colCombo = ((ComboBoxColumn)oGrid.Columns.Item("EstadoC"));
colCombo.Editable = false;
colCombo.DisplayType = BoComboDisplayType.cdt_both;
colCombo.TitleObject.Sortable = true;
colCombo.TitleObject.Caption = "Estado Cliente";
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT T1.FldValue Code, T1.Descr Name
FROM CUFD T0
JOIN UFD1 T1 ON T1.TableID = T0.TableID
AND T1.FieldID = T0.FieldID
WHERE T0.TableID = '{0}'
AND T0.AliasID = 'EstadoC'";
}
else
{
s = @"SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name""
FROM ""CUFD"" T0
JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID""
AND T1.""FieldID"" = T0.""FieldID""
WHERE T0.""TableID"" = '{0}'
AND T0.""AliasID"" = 'EstadoC'";
}
s = String.Format(s, (TipoDTE == "V" ? "@VID_FEDTEVTA" : "@VID_FEDTECPRA"));
oRecordSet.DoQuery(s);
FSBOf.FillComboGrid(((GridColumn)oGrid.Columns.Item("EstadoC")), ref oRecordSet, false);
oGrid.Columns.Item("EstadoSII").Type = BoGridColumnType.gct_ComboBox;
colCombo = ((ComboBoxColumn)oGrid.Columns.Item("EstadoSII"));
colCombo.Editable = false;
colCombo.DisplayType = BoComboDisplayType.cdt_both;
colCombo.TitleObject.Sortable = true;
colCombo.TitleObject.Caption = "Estado SII";
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT T1.FldValue Code, T1.Descr Name
FROM CUFD T0
JOIN UFD1 T1 ON T1.TableID = T0.TableID
AND T1.FieldID = T0.FieldID
WHERE T0.TableID = '{0}'
AND T0.AliasID = 'EstadoSII'";
}
else
{
s = @"SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name""
FROM ""CUFD"" T0
JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID""
AND T1.""FieldID"" = T0.""FieldID""
WHERE T0.""TableID"" = '{0}'
AND T0.""AliasID"" = 'EstadoSII'";
}
s = String.Format(s, (TipoDTE == "V" ? "@VID_FEDTEVTA" : "@VID_FEDTECPRA"));
oRecordSet.DoQuery(s);
FSBOf.FillComboGrid(((GridColumn)oGrid.Columns.Item("EstadoSII")), ref oRecordSet, false);
oGrid.Columns.Item("EstadoLey").Type = BoGridColumnType.gct_ComboBox;
colCombo = ((ComboBoxColumn)oGrid.Columns.Item("EstadoLey"));
colCombo.Editable = false;
colCombo.DisplayType = BoComboDisplayType.cdt_both;
colCombo.TitleObject.Sortable = true;
colCombo.TitleObject.Caption = "Estado Ley 20.956";
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT T1.FldValue Code, T1.Descr Name
FROM CUFD T0
JOIN UFD1 T1 ON T1.TableID = T0.TableID
AND T1.FieldID = T0.FieldID
WHERE T0.TableID = '{0}'
AND T0.AliasID = 'EstadoLey'";
}
else
{
s = @"SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name""
FROM ""CUFD"" T0
JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID""
AND T1.""FieldID"" = T0.""FieldID""
WHERE T0.""TableID"" = '{0}'
AND T0.""AliasID"" = 'EstadoLey'";
}
s = String.Format(s, (TipoDTE == "V" ? "@VID_FEDTEVTA" : "@VID_FEDTECPRA"));
oRecordSet.DoQuery(s);
FSBOf.FillComboGrid(((GridColumn)oGrid.Columns.Item("EstadoLey")), ref oRecordSet, false);
oGrid.Columns.Item("DocEntryDoc").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("DocEntryDoc"));
col.Editable = false;
col.RightJustified = true;
if (TipoDTE == "V")
{
col.Visible = false;
}
else
{
col.Visible = true;
}
col.TitleObject.Sortable = false;
col.TitleObject.Caption = "Factura en SAP";
col.LinkedObjectType = "18";
oGrid.Columns.Item("xml").Type = BoGridColumnType.gct_EditText;
col = ((EditTextColumn)oGrid.Columns.Item("xml"));
col.Editable = false;
col.Visible = false;
oGrid.AutoResizeColumns();
}
catch (Exception x)
{
FSBOApp.StatusBar.SetText(x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("BuscarDatos: " + x.Message + " ** Trace: " + x.StackTrace);
}
finally
{
oForm.Freeze(false);
}
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_FEDetalleLog.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1282", false); //Crear
oForm.EnableMenu("1281", false); //Actualizar
//oForm.DataBrowser.BrowseBy := "DocNum";
// Ok Ad Fnd Vw Rq Sec
//Lista.Add('DocNum , f, f, t, f, n, 1');
//Lista.Add('DocDate , f, t, f, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
//s := '1';
//oCombo.Select(s, BoSearchKey.psk_ByValue);
oForm.Items.Item("grid").Enabled = false;
ogrid = (Grid)(oForm.Items.Item("grid").Specific);
dt = oForm.DataSources.DataTables.Add("dt");
ogrid.DataTable = dt;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select U_TipoDoc
,LTRIM(STR(U_FolioNum,18,0)) 'U_FolioNum'
,U_ID_Log
,U_Glosa
,U_FechaIn
from [@VID_FELOG] T0
join [@VID_FELOGD] T1 ON T1.DocEntry = T0.DocEntry
where T0.DocEntry = {0}
order by T1.LineId DESC";
}
else
{
s = @"select ""U_TipoDoc""
,LTRIM(ROUND(""U_FolioNum"",0)) ""U_FolioNum""
,""U_ID_Log""
,""U_Glosa""
,""U_FechaIn""
from ""@VID_FELOG"" T0
join ""@VID_FELOGD"" T1 ON T1.""DocEntry"" = T0.""DocEntry""
where T0.""DocEntry"" = {0}
order by T1.""LineId"" DESC ";
}
s = String.Format(s, prmKey);
dt.ExecuteQuery(s);
ogrid.AutoResizeColumns();
ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc"));
var oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Tipo Documento";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_FolioNum").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_FolioNum"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Número Folio";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_ID_Log").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_ID_Log"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "ID Log Portal";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_Glosa").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Glosa"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Glosa";
oEditColumn.RightJustified = false;
ogrid.Columns.Item("U_FechaIn").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_FechaIn"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Fecha Movimiento";
oEditColumn.RightJustified = false;
oForm.Mode = BoFormMode.fm_OK_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
/// <summary>
/// Busca la información de acuerdo a los filtros capturados
/// </summary>
/// <param name="efiscal"></param>
/// <param name="codigo"></param>
/// <param name="descripcion"></param>
/// <param name="combos"></param>
public void BuscarDatos(string codeCobrador, string nameCobrador)
{
try
{
_oForma.Freeze(true);
string qryCobrador = null;
qryCobrador = " and REPLACE(LOWER( " +
"REPLACE(LOWER( " +
"REPLACE(LOWER( " +
"REPLACE(LOWER( " +
"REPLACE(LOWER( " +
"U_Cobrador),'á','a') ), " +
"'é','e') ), " +
"'í','i') ), " +
"'ó','o') ), " +
"'ú','u') LIKE '%" + nameCobrador.ToLower().Replace('á', 'a').
Replace('é', 'e').
Replace('í', 'i').
Replace('ó', 'o').
Replace('ú', 'u') + "%' ";
_oGridComisionesCobradores = _oForma.Items.Item(GRD_COMISIONES_COBRADORES).Specific;
_oGridComisionesCobradores.DataTable = _oForma.DataSources.DataTables.Item(DT_COMISIONES_COBRADORES);
_oGridComisionesCobradores.DataTable.ExecuteQuery(@"SELECT T1.empID AS CodigoID,
T0.U_Codigo_Cobrador AS CodCobrador,
T0.U_Cobrador AS NomCobrador,
T0.U_Serie_Programa AS SeriePrograma,
--T0.U_Serie_Malba AS SerieMalba,
T0.U_Serie_Cooperativa AS SerieCooperativa,
T0.U_Serie_Panteon AS SeriePanteon,
ISNULL(T0.U_Comision_Panteon, 0.00) AS ComisionPanteon,
ISNULL(T0.U_Sueldo_Cooperativa, 0.00) AS SueldoCooperativa,
ISNULL(T0.U_Sueldo_Apoyo, 0.00) AS SueldoApoyo,
ISNULL(T0.U_Comision_Coop, 0.00) AS ComisionCooperativa,
ISNULL(T0.U_Comision_Apoyo, 0.00) AS ComisionApoyo,
ISNULL(T0.U_Efectividad, 0.00) AS Efectividad,
T0.U_SueldoBase AS SueldoBase
FROM dbo.[@COMISION_COBRADORES] T0
LEFT JOIN dbo.OHEM T1 ON T1.firstName = T0.U_Codigo_Cobrador
--AND ( T1.middleName + ' ' + T1.lastName ) = T0.U_Cobrador
WHERE --( T1.middleName + ' ' + T1.lastName ) = T0.U_Cobrador
-- AND
T0.U_Codigo_Cobrador LIKE '%" + codeCobrador + "%' " + qryCobrador +
"ORDER BY T0.U_Codigo_Cobrador, " +
"T1.empID ASC ");
if (_oGridComisionesCobradores.DataTable.IsEmpty)
{
_Application.MessageBox("No se encontraron registros");
_oGridComisionesCobradores.DataTable.Clear();
_oForma.Update();
}
else
{
//_oGridComisionesCobradores.AutoResizeColumns();
FormatoGrid(_oGridComisionesCobradores);
_oGridComisionesCobradores.AutoResizeColumns();
}
_oBotonUpdate.Caption = "Ok";
}
catch (Exception ex)
{
throw new Exception("Error al buscar datos *BuscarDatos* : " + ex.Message);
}
finally
{
_oForma.Freeze(false);
}
}
/// <summary>
/// Agrega la solicitud escaneada
/// </summary>
private void AgregarSolicitud()
{
try
{
_oForma.Freeze(true);
string empresa = null;
string plan = null;
int code = 0;
if (ValidarNoExistaSolicitud())
{
_oRec = null;
_oRec = (SAPbobsCOM.Recordset)_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec.DoQuery("SELECT U_Empresa,U_Descripcion_Plan FROM dbo.[@COMISIONES] WHERE U_Prefijo_Sol = SUBSTRING('" + _oTxtCodigoSolicitud.Value.ToString() + "', 1,6)");
empresa = _oRec.Fields.Item("U_Empresa").Value;
plan = _oRec.Fields.Item("U_Descripcion_Plan").Value;
_oGridArqueos.DataTable.Rows.Add();
int lastRow = _oGridArqueos.DataTable.Rows.Count - 1;
_oGridArqueos.DataTable.SetValue("#", lastRow, _oGridArqueos.Rows.Count);
_oGridArqueos.DataTable.SetValue("CodigoAsistente", lastRow, _oTxtCodigoAsociado.Value.ToString());
_oGridArqueos.DataTable.SetValue("NombreAsistente", lastRow, _oTxtNombreAsociado.Value.ToString());
_oGridArqueos.DataTable.SetValue("CodigoOficina", lastRow, _oTxtCodigoOficina.Value.ToString());
//_oGridArqueos.DataTable.SetValue("FechaArqueo", lastRow, DateTime.Now);
_oGridArqueos.DataTable.SetValue("Empresa", lastRow, empresa);
_oGridArqueos.DataTable.SetValue("Plan", lastRow, plan);
_oGridArqueos.DataTable.SetValue("Solicitud", lastRow, _oTxtCodigoSolicitud.Value.ToString());
_oGridArqueos.AutoResizeColumns();
verificar = false;
_oRec = null;
_oRec = _Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec.DoQuery(@"SELECT ISNULL(MAX(CONVERT(INT, Code)), 0) + 1 AS Code
FROM dbo.[@ARQUEOS]");
code = Convert.ToInt32(_oRec.Fields.Item("Code").Value);
_oRec = null;
_oRec = (SAPbobsCOM.Recordset)_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec.DoQuery(@"INSERT INTO dbo.[@ARQUEOS]
( Code ,
Name ,
U_CodigoAsistente ,
U_NombreAsistente ,
U_CodigoOficina ,
U_Empresa ,
U_Plan ,
U_Solicitud
)
VALUES ( '" + code + "' ," +
"'" + code + "' ," +
"'" + _oTxtCodigoAsociado.Value.ToString().ToUpper() + "' ," +
"'" + _oTxtNombreAsociado.Value.ToString() + "' ," +
"'" + _oTxtCodigoOficina.Value.ToString() + "' ," +
"'" + empresa + "' ," +
"'" + plan + "' ," +
"'" + _oTxtCodigoSolicitud.Value.ToString() + "'" +
")");
}
}
catch (Exception ex)
{
throw new Exception("Error al agregar solicitud escaneada *AgregarSolicitud* : " + ex.Message);
}
finally
{
try
{
if (_oRec != null)
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(_oRec);
}
_oForma.Freeze(false);
}
catch (Exception)
{
}
}
}
}//fin InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
SAPbouiCOM.DataTable oDataTable;
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
String sValue;
String sValue2;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
try
{
if ((pVal.ItemUID == "1") && (pVal.BeforeAction) && (pVal.EventType == BoEventTypes.et_ITEM_PRESSED))
{
if ((oForm.Mode == BoFormMode.fm_ADD_MODE) || (oForm.Mode == BoFormMode.fm_UPDATE_MODE))
{
BubbleEvent = false;
if (ValidarDatos())
{
GuardarDatos();
}
}
}
if ((pVal.EventType == BoEventTypes.et_CHOOSE_FROM_LIST) && (!pVal.BeforeAction))
{
oForm.Freeze(true);
if (pVal.ColUID == "U_CtaSAP")
{
oCFLEvento = (SAPbouiCOM.IChooseFromListEvent)(pVal);
oDataTable = oCFLEvento.SelectedObjects;
if (oDataTable != null)
{
sValue = ((System.String)oDataTable.GetValue("FormatCode", 0)).Trim();
sValue2 = ((System.String)oDataTable.GetValue("AcctName", 0)).Trim();
if (ValidarDataTable(sValue))
{
odt.SetValue("U_CtaSAP", pVal.Row, sValue);
odt.SetValue("U_DescSAP", pVal.Row, sValue2);
if ((odt.Rows.Count - 1 == pVal.Row) && (sValue != ""))
{
odt.Rows.Add(1);
}
oGrid.AutoResizeColumns();
if (oForm.Mode == BoFormMode.fm_OK_MODE)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
}
}
}
}
}
catch (Exception e)
{
if (FCmpny.InTransaction)
{
FCmpny.EndTransaction(BoWfTransOpt.wf_RollBack);
}
FSBOApp.StatusBar.SetText(e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace);
}
finally
{
oForm.Freeze(false);
}
}//fin FormEvent
/// <summary>
/// Se le da el formato al grid para visualizarlo
/// </summary>
/// <param name="grid">Nombre del grid</param>
public void FormatoGrid(Grid grid)
{
try
{
_oForma.Freeze(true);
if (!grid.DataTable.IsEmpty)
{
grid.RowHeaders.TitleObject.Caption = "#";
for (int noLinea = 0; noLinea < grid.Rows.Count; noLinea++)
{
grid.RowHeaders.SetText(noLinea, (noLinea + 1).ToString());
}
grid.Columns.Item("DocEntry").Editable = false;
grid.Columns.Item("DocEntry").TitleObject.Caption = "DocEntry";
SAPbouiCOM.EditTextColumn oColTransferStock = grid.Columns.Item("DocEntry") as SAPbouiCOM.EditTextColumn;
oColTransferStock.LinkedObjectType = LINK_TRANSFERENCIA_STOCK;
grid.Columns.Item("DocEntry").Width = 60;
grid.Columns.Item("Crear").Editable = true;
grid.Columns.Item("Crear").TitleObject.Caption = "Crear";
grid.Columns.Item("Crear").Width = 90;
if (!grid.DataTable.IsEmpty)
{
grid.Columns.Item("Crear").Type = SAPbouiCOM.BoGridColumnType.gct_CheckBox;
}
grid.Columns.Item("DocNum").Editable = false;
grid.Columns.Item("DocNum").TitleObject.Caption = "Número traspaso";
grid.Columns.Item("DocNum").Width = 90;
grid.Columns.Item("CodigoUsuario").Editable = false;
grid.Columns.Item("CodigoUsuario").TitleObject.Caption = "Usuario";
grid.Columns.Item("Serie").Editable = false;
grid.Columns.Item("Serie").TitleObject.Caption = "Solicitud";
grid.Columns.Item("CodigoPromotor").Editable = false;
grid.Columns.Item("CodigoPromotor").TitleObject.Caption = "Código promotor";
grid.Columns.Item("NombrePromotor").Editable = false;
grid.Columns.Item("NombrePromotor").TitleObject.Caption = "Nombre promotor";
grid.Columns.Item("CodigoPlan").Editable = false;
grid.Columns.Item("CodigoPlan").TitleObject.Caption = "Código plan";
SAPbouiCOM.EditTextColumn oColPlan = grid.Columns.Item("CodigoPlan") as SAPbouiCOM.EditTextColumn;
oColPlan.LinkedObjectType = LINK_ARTICULO;
grid.Columns.Item("NombrePlan").Editable = false;
grid.Columns.Item("NombrePlan").TitleObject.Caption = "Nombre plan";
grid.Columns.Item("NombrePlan").Width = 120;
grid.Columns.Item("FormaDePago").Editable = false;
grid.Columns.Item("FormaDePago").TitleObject.Caption = "Forma de pago";
grid.Columns.Item("FormaDePago").Width = 90;
grid.Columns.Item("OrigenSolicitud").Editable = false;
grid.Columns.Item("OrigenSolicitud").TitleObject.Caption = "Origen de solicitud";
grid.Columns.Item("OrigenSolicitud").Width = 90;
grid.Columns.Item("InversionInicial").Editable = false;
grid.Columns.Item("InversionInicial").TitleObject.Caption = "Inversión inicial";
grid.Columns.Item("InversionInicial").Width = 80;
grid.Columns.Item("Comision").Editable = false;
grid.Columns.Item("Comision").TitleObject.Caption = "Comisión";
grid.Columns.Item("Comision").Width = 80;
grid.Columns.Item("ImportePapeleria").Editable = false;
grid.Columns.Item("ImportePapeleria").TitleObject.Caption = "Importe papelería";
grid.Columns.Item("ImportePapeleria").Width = 80;
grid.Columns.Item("ImporteRecibido").Editable = false;
grid.Columns.Item("ImporteRecibido").TitleObject.Caption = "Importe recibido";
grid.Columns.Item("ImporteRecibido").Width = 80;
grid.Columns.Item("ExcedenteInvIni").Visible = false;
grid.Columns.Item("ExcedenteInvIni").TitleObject.Caption = "Excedente individual. inicial";
grid.Columns.Item("ExcedenteInvIni").Width = 90;
grid.Columns.Item("Bono").Visible = false;
grid.Columns.Item("Bono").TitleObject.Caption = "Bono";
grid.Columns.Item("Bono").Width = 80;
grid.CollapseLevel = 1;
_oGridPrecontratos.AutoResizeColumns();
}
else
{
_Application.MessageBox("No se encontraron registros");
grid.DataTable.Clear();
}
}
catch (Exception ex)
{
throw new Exception("Error al dar formato al grid *FormatoGrid* : " + ex.Message);
}
finally
{
_oForma.Freeze(false);
_oForma.Update();
}
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid2 = (SAPbouiCOM.Grid)oForm.Items.Item("grd2").Specific;
oGrid2.DataTable = oForm.DataSources.DataTables.Item("grd2");
string cv_ColumnsUID_s = "U_CHEKER, U_EMPNM, U_DEPTCD, U_JIKGBCD, U_JIKCHKCD, U_PASSYN, Code";
string cv_ColumnsNAM_s = "고과,사원,부서,직급,직책,상태,코드";
string cv_No_Visible_s = "Code";
FN.SetGridTitle(oGrid2, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid2.RowHeaders.Width = 0;
oGrid2.AutoResizeColumns();
}
}//fin FormEvent
private void CargarDatosPE()
{
SAPbouiCOM.EditTextColumn oEditColumn;
SAPbouiCOM.CheckBox oChkRechazados;
SAPbouiCOM.CheckBox oChkPendientes;
SAPbouiCOM.CheckBox oChkAceptados;
SAPbouiCOM.CheckBox oChkDadoBaja;
SAPbouiCOM.CheckBox oChkErrores;
String FechaD, FechaH, Status;
try
{
oForm.Freeze(true);
oChkRechazados = (CheckBox)(oForm.Items.Item("Rechazados").Specific);
oChkPendientes = (CheckBox)(oForm.Items.Item("Pendientes").Specific);
oChkAceptados = (CheckBox)(oForm.Items.Item("Aceptados").Specific);
oChkDadoBaja = (CheckBox)(oForm.Items.Item("DadoBaja").Specific);
oChkErrores = (CheckBox)(oForm.Items.Item("Errores").Specific);
if ((oChkRechazados.Checked) || (oChkPendientes.Checked) || (oChkAceptados.Checked) || (oChkErrores.Checked))
{
if (GlobalSettings.RunningUnderSQLServer)
{
Status = "and T0.U_Status in (";
Status = Status + (oChkRechazados.Checked ? "'RZ'," : "");
Status = Status + (oChkPendientes.Checked ? "'EC'," : "");
Status = Status + (oChkAceptados.Checked ? "'RR'," : "");
Status = Status + (oChkDadoBaja.Checked ? "'DB'," : "");
Status = Status + (oChkErrores.Checked ? "'EE'," : "");
Status = Status.Substring(0, Status.Length - 1);
Status = Status + ")";
}
else
{
Status = @"and T0.""U_Status"" in (";
Status = Status + (oChkRechazados.Checked ? "'RZ'," : "");
Status = Status + (oChkPendientes.Checked ? "'EC'," : "");
Status = Status + (oChkAceptados.Checked ? "'RR'," : "");
Status = Status + (oChkDadoBaja.Checked ? "'DB'," : "");
Status = Status + (oChkErrores.Checked ? "'EE'," : "");
Status = Status.Substring(0, Status.Length - 1);
Status = Status + ")";
}
}
else if ((!oChkRechazados.Checked) && (!oChkPendientes.Checked) && (!oChkAceptados.Checked) && (!oChkDadoBaja.Checked) && (!oChkErrores.Checked))
{
//en caso de no encontrar ninguno marcado sale de la funcion
oForm.Freeze(false);
return;
}
else
{
Status = "";
}
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT
LTRIM(STR(T0.U_DocEntry,18,0)) 'DocEntry'
,CASE U_ObjType
WHEN '13' THEN (SELECT DocNum FROM OINV WHERE DocEntry = T0.U_DocEntry)
WHEN '14' THEN (SELECT DocNum FROM ORIN WHERE DocEntry = T0.U_DocEntry)
WHEN '15' THEN (SELECT DocNum FROM ODLN WHERE DocEntry = T0.U_DocEntry)
WHEN '67' THEN (SELECT DocNum FROM OWTR WHERE DocEntry = T0.U_DocEntry)
WHEN '21' THEN (SELECT DocNum FROM ORPD WHERE DocEntry = T0.U_DocEntry)
END 'DocNum'
,T0.U_TipoDoc 'TipoDoc'
,ISNULL(T0.U_SeriePE,'') 'SeriePE'
,LTRIM(STR(T0.U_FolioNum,18,0)) 'Folio'
,(SELECT C1.Descr FROM CUFD C0 JOIN UFD1 C1 ON C1.TableID=C0.TableID AND C1.FieldID=C0.FieldID WHERE C0.TableID = '@VID_FELOG' AND C0.AliasID='Status' AND C1.FldValue= T0.U_Status) 'Estado'
,T0.U_Status
,T0.U_Message 'Mensaje'
,T0.U_ObjType 'ObjType'
,T0.U_Path 'Path'
,T0.U_ExtFolio 'ExtFolio'
,T0.DocEntry 'Key'
,ISNULL(T0.U_Id,'0') 'Id'
,ISNULL(T0.U_Validation,'') 'Validation'
FROM [@vid_felog] T0 WITH (NOLOCK)
JOIN OUSR T2 ON T2.USER_CODE = T0.U_UserCode
WHERE {0}
{3}
AND ISNULL(T0.U_DocDate, T0.CreateDate) BETWEEN '{1}' AND '{2}'
ORDER BY T0.DocEntry DESC";
}
else
{
s = @"SELECT
LTRIM(TO_ALPHANUM(T0.""U_DocEntry"")) ""DocEntry""
,CASE ""U_ObjType""
WHEN '13' THEN (SELECT ""DocNum"" FROM ""OINV"" WHERE ""DocEntry"" = T0.""U_DocEntry"")
WHEN '14' THEN (SELECT ""DocNum"" FROM ""ORIN"" WHERE ""DocEntry"" = T0.""U_DocEntry"")
WHEN '15' THEN (SELECT ""DocNum"" FROM ""ODLN"" WHERE ""DocEntry"" = T0.""U_DocEntry"")
WHEN '67' THEN (SELECT ""DocNum"" FROM ""OWTR"" WHERE ""DocEntry"" = T0.""U_DocEntry"")
WHEN '21' THEN (SELECT ""DocNum"" FROM ""ORPD"" WHERE ""DocEntry"" = T0.""U_DocEntry"")
END ""DocNum""
,T0.""U_TipoDoc"" ""TipoDoc""
,IFNULL(T0.""U_SeriePE"",'') ""SeriePE""
,LTRIM(TO_ALPHANUM(T0.""U_FolioNum"")) ""Folio""
,(SELECT C1.""Descr"" FROM ""CUFD"" C0 JOIN ""UFD1"" C1 ON C1.""TableID""=C0.""TableID"" AND C1.""FieldID""=C0.""FieldID"" WHERE C0.""TableID"" = '@VID_FELOG' AND C0.""AliasID""='Status' AND C1.""FldValue""= T0.""U_Status"") ""Estado""
,T0.""U_Status""
,T0.""U_Message"" ""Mensaje""
,T0.""U_ObjType"" ""ObjType""
,T0.""U_Path"" ""Path""
,T0.""U_ExtFolio"" ""ExtFolio""
,T0.""DocEntry"" ""Key""
,IFNULL(T0.""U_Id"",'0') ""Id""
,IFNULL(T0.""U_Validation"",'') ""Validation""
FROM ""@VID_FELOG"" T0
JOIN ""OUSR"" T2 on T2.""USER_CODE"" = T0.""U_UserCode""
WHERE {0}
{3}
AND IFNULL(T0.""U_DocDate"", T0.""CreateDate"") BETWEEN '{1}' AND '{2}'
ORDER BY T0.""DocEntry"" DESC ";
}
oCheckBox = (CheckBox)(oForm.Items.Item("chk_Todo").Specific);
oEditText = (EditText)(oForm.Items.Item("FechaD").Specific);
FechaD = (System.String)(oEditText.Value).Trim();
oEditText = (EditText)(oForm.Items.Item("FechaH").Specific);
FechaH = (System.String)(oEditText.Value).Trim();
if (GlobalSettings.RunningUnderSQLServer)
{
s = String.Format(s, !oCheckBox.Checked ? "T0.U_UserCode = '" + FSBOApp.Company.UserName + "'" : "1=1", FechaD, FechaH, Status);
}
else
{
s = String.Format(s, !oCheckBox.Checked ? @"T0.""U_UserCode"" = '" + FSBOApp.Company.UserName + "'" : "1=1", FechaD, FechaH, Status);
}
oDataTable.ExecuteQuery(s);
oGrid.Columns.Item("TipoDoc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("TipoDoc"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Tipo Documento";
oGrid.Columns.Item("DocEntry").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("DocEntry"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Llave SAP";
oEditColumn.LinkedObjectType = "13";
oEditColumn.RightJustified = true;
oGrid.Columns.Item("DocNum").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("DocNum"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Número SAP";
oEditColumn.RightJustified = true;
oGrid.Columns.Item("SeriePE").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("SeriePE"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Número Serie";
oEditColumn.RightJustified = true;
oGrid.Columns.Item("Folio").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Folio"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Número Correlativo";
oEditColumn.RightJustified = true;
oGrid.Columns.Item("Estado").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Estado"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Estado";
oGrid.Columns.Item("U_Status").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_Status"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "U_Status";
oEditColumn.Visible = false;
oGrid.Columns.Item("Mensaje").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Mensaje"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Comentario";
oGrid.Columns.Item("ObjType").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("ObjType"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "ObjType";
oEditColumn.Visible = false;
oGrid.Columns.Item("Path").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Path"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Documento";
oEditColumn.Visible = false;
oGrid.Columns.Item("ExtFolio").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("ExtFolio"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "IdDocumento";
oEditColumn.Visible = true;
oGrid.Columns.Item("Key").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Key"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Key";
oEditColumn.Visible = false;
oGrid.Columns.Item("Id").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Id"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Id";
oEditColumn.Visible = false;
oGrid.Columns.Item("Validation").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Validation"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Validation";
oEditColumn.Visible = false;
oGrid.AutoResizeColumns();
}
catch (Exception e)
{
OutLog("CargarDatosPE : " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.StatusBar.SetText("CargarDatosPE : " + e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
oForm.Freeze(false);
} //fin CargarDatosPE
internal static void FindData(SAPbouiCOM.Form oForm)
{
string pFORMUID = oForm.DataSources.UserDataSources.Item("pFORMUID").ValueEx;
SAPbouiCOM.Form pForm = (SAPbouiCOM.Form)B1Connections.theAppl.Forms.Item(pFORMUID);
SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
string cboBPLID = string.Empty;
string edtFRDT = string.Empty;
string edtTODT = string.Empty;
string edtFRPRCCD = string.Empty;
string edtTOPRCCD = string.Empty;
string cboTRANSTY = string.Empty;
string strReportFiles = string.Empty;
StringBuilder pQuery = new StringBuilder();
string query = string.Empty;
try
{
oForm.Items.Item("grd").Enabled = false;
cboBPLID = pForm.DataSources.UserDataSources.Item("cboBPLID").Value;
edtFRDT = pForm.DataSources.UserDataSources.Item("edtFRDT").Value;
edtTODT = pForm.DataSources.UserDataSources.Item("edtTODT").Value;
edtFRPRCCD = pForm.DataSources.UserDataSources.Item("edtFRPRCCD").Value;
edtTOPRCCD = pForm.DataSources.UserDataSources.Item("edtTOPRCCD").Value;
cboTRANSTY = pForm.DataSources.UserDataSources.Item("cboTRANSTY").Value;
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
pQuery.Append(" EXEC KIS_SP_FI0050F1_HRD @cboBPLID = '{0}' ");
pQuery.Append(" , @edtFRDT = '{1}' ");
pQuery.Append(" , @edtTODT = '{2}' ");
pQuery.Append(" , @edtFRPRCCD = '{3}' ");
pQuery.Append(" , @edtTOPRCCD = '{4}' ");
pQuery.Append(" , @cboTRANSTY = '{5}' ");
string cv_ColumnsUID_s = "ROWSID,U_BPLID,RefDate,TransId,U_PRCNM,Debit,Credit,JEDT,U_PRCCD,BatchNum,TransType,TransNM,CreateDate";
string cv_NoEditable_s = "ROWSID,U_BPLID,RefDate,TransId,U_PRCNM,Debit,Credit,JEDT,U_PRCCD,BatchNum,TransType,TransNM,CreateDate";
string cv_ColumnsNAM_s = "#,사업장,전기일자,분개번호,코스트센터명,차변,대변,분개장 전기일,코스트센터,분개장 번호,입력경로코드,입력경로,분개 생성일";
string cv_Right_Just_s = "Debit,Credit";
string cv_No_Visible_s = "TransType";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
string sQry = (string.Format(pQuery.ToString()
, cboBPLID
, edtFRDT
, edtTODT
, edtFRPRCCD
, edtTOPRCCD
, cboTRANSTY
));
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry);
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 0)
{
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
/* 링크버튼 조작 */
FN.SetGirdColumnLinkedObjec(ref oGrid, "TransId", BoLinkedObject.lf_JournalPosting);//분개
FN.SetGirdColumnLinkedObjec(ref oGrid, "BatchNum", BoLinkedObject.lf_JournalVoucher);//분개장
/* 자동정렬 */
oGrid.AutoResizeColumns();
/*컬럼 길이 조작*/
oGrid.RowHeaders.Width = 0;
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
private static void FindData(SAPbouiCOM.Form oForm)
{
SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
string cboYEAR = oForm.DataSources.UserDataSources.Item("cboYEAR").Value;
string cboDEPTCD = oForm.DataSources.UserDataSources.Item("cboDEPTCD").Value;
StringBuilder pQuery = new StringBuilder();
string query = string.Empty;
pQuery.AppendLine(" exec [KIS_SP_PIVOT] @SQL = N' ");
pQuery.AppendLine(" SELECT ");
pQuery.AppendLine(" U_EMPNM AS ''피고과자'' ");
pQuery.AppendLine(" ,U_DEPTCD AS ''현부서'' ");
pQuery.AppendLine(" ,U_COMPONM ");
pQuery.AppendLine(" ,NM ");
pQuery.AppendLine(" FROM ");
pQuery.AppendLine(" ( ");
pQuery.AppendLine(" SELECT ");
pQuery.AppendLine(" B.U_EMPNM AS U_EMPNM ");
pQuery.AppendLine(" ,B.U_DEPTCD AS U_DEPTCD ");
pQuery.AppendLine(" ,A.U_COMPONM AS U_COMPONM ");
pQuery.AppendLine(" ,MAX(A.U_SELVALNM) AS NM ");
pQuery.AppendLine(" FROM [@KIS_HR00202_HRD] A ");
pQuery.AppendLine(" LEFT JOIN [@KIS_HR0020M_HRD] B ON A.Code = B.Code ");
pQuery.AppendLine(" WHERE A.U_ABILCD = ''U04'' ");
pQuery.AppendLine(" AND (B.U_EXAMCD = ''{0}'') ");
pQuery.AppendLine(" AND (B.U_DEPTCD = ''{1}'' OR ''{1}'' = '''') ");
pQuery.AppendLine(" GROUP BY A.Code,B.U_EMPNM,B.U_DEPTCD,A.U_COMPONM ");
pQuery.AppendLine(" UNION ALL ");
pQuery.AppendLine(" SELECT ");
pQuery.AppendLine(" B.U_EMPNM AS U_EMPNM ");
pQuery.AppendLine(" ,B.U_DEPTCD AS U_DEPTCD ");
pQuery.AppendLine(" ,A.U_COMPONM AS U_COMPONM ");
pQuery.AppendLine(" ,MAX(CONVERT(NVARCHAR(MAX),A.U_CONTENT1)) AS NM ");
pQuery.AppendLine(" FROM [@KIS_HR00202_HRD] A ");
pQuery.AppendLine(" LEFT JOIN [@KIS_HR0020M_HRD] B ON A.Code = B.Code ");
pQuery.AppendLine(" WHERE A.U_ABILCD = ''U03'' AND U_COMPOCD = ''U03'' ");
pQuery.AppendLine(" AND (B.U_EXAMCD = ''{0}'') ");
pQuery.AppendLine(" AND (B.U_DEPTCD = ''{1}'' OR ''{1}'' = '''') ");
pQuery.AppendLine(" GROUP BY A.Code,B.U_EMPNM,B.U_DEPTCD,A.U_COMPONM ");
pQuery.AppendLine(" )A' ");
pQuery.AppendLine(" , @FrontGroup = N'피고과자,현부서' ");
pQuery.AppendLine(" , @Pivot = N'U_COMPONM' ");
pQuery.AppendLine(" , @Value = N'MAX(NM)' ");
pQuery.AppendLine(" , @PivotSort = N'CASE U_COMPONM WHEN ''희망직무'' THEN 1 ");
pQuery.AppendLine(" WHEN ''희망부서'' THEN 2 ");
pQuery.AppendLine(" WHEN ''변경시기'' THEN 3 ");
pQuery.AppendLine(" WHEN ''전환희망사유'' THEN 4 ");
pQuery.AppendLine(" WHEN ''전환배치의견'' THEN 999999 ");
pQuery.AppendLine(" ELSE 5 END' ");
string sQry = string.Format(pQuery.ToString(), cboYEAR, cboDEPTCD);
try
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
//string cv_ColumnsUID_s = "U_EMPNM,U_DEPTCD ";
//string cv_NoEditable_s = "U_EMPNM,U_DEPTCD";
//string cv_ColumnsNAM_s = "피고과자,현부서";
//string cv_Right_Just_s = "";
//string cv_No_Visible_s = " ";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry);
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && oGrid.DataTable.GetValue(1, 0).ToString() == "")
{
//FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
//FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
FN.SetGridCombo(ref oGrid, "현부서", "", " SELECT U_DEPTCD,U_DEPTNM FROM [@KIS_HR00401] WHERE U_USEYN = 'Y'", "");
oForm.Items.Item("grd").Enabled = false;
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
private void FindRequestData(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Grid oGrid;
StringBuilder sb;
string strREADCD = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
oDB_M = oForm.DataSources.DBDataSources.Item("@KIS_SO0030M_HRD");
strREADCD = oDB_M.GetValue("Code", 0).Trim();
sb = new StringBuilder();
//조회
/*
sb.AppendLine(" SELECT M.U_REQYM AS U_YYYYMM ");
sb.AppendLine(" , M.U_AMT AS REQAMT ");
sb.AppendLine(" , M.U_DATE AS DEPO_DATE ");
sb.AppendLine(" , M.U_INAMT AS DEPO_AMT ");
sb.AppendLine(" , M.U_SMLNM + ' ' + M.U_SMLNM2 AS U_PMETHOD ");
sb.AppendLine(" , M.U_STATUS AS U_STATUS ");
sb.AppendLine(" FROM ( ");
sb.AppendLine(" SELECT A.U_READCD ");
sb.AppendLine(" , A.U_REQYM ");
sb.AppendLine(" , (SELECT SUM(CASE ISNULL(F.U_TYPE, '') WHEN '110' THEN ISNULL(F.U_DEBIT, 0) ");
sb.AppendLine(" WHEN '120' THEN (-1) * ISNULL(F.U_CREDIT, 0) ");
sb.AppendLine(" ELSE 0 END) ");
sb.AppendLine(" FROM [@KIS_SO01403_HRD] F ");
sb.AppendLine(" WHERE A.DocEntry = F.DocEntry ");
sb.AppendLine(" AND A.LineId = F.U_UPLINEID ");
sb.AppendLine(" AND F.U_TYPE IN ('110', '120') ) AS U_AMT ");
sb.AppendLine(" , CASE WHEN ISNULL(B.U_TYPE, '') NOT IN ('110', '120','150') THEN ISNULL(B.U_CREDIT, 0) ELSE 0 END AS U_INAMT ");
sb.AppendLine(" , B.U_DATE ");
sb.AppendLine(" , ISNULL(B.U_DEBIT,0) AS U_DEBIT ");
sb.AppendLine(" , ISNULL(B.U_CREDIT,0) AS U_CREDIT ");
sb.AppendLine(" , B.U_TYPE ");
sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO54' AND F.U_CD = B.U_TYPE) AS U_SMLNM ");
sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO51' AND F.U_SMLCD = B.U_SUBTYPE) AS U_SMLNM2 ");
sb.AppendLine(" , A.U_STATUS ");
sb.AppendLine(" FROM [@KIS_SO01401_HRD] A ");
sb.AppendLine(" LEFT OUTER JOIN [@KIS_SO01403_HRD] B ON A.DocEntry = B.DocEntry ");
sb.AppendLine(" AND A.LineId = B.U_UPLINEID ");
sb.AppendLine(" AND B.U_TYPE NOT IN ('110', '120', '150') ");
sb.AppendLine(" ) M ");
sb.AppendLine(" WHERE M.U_AMT <> 0 AND M.U_READCD = '{0}' ");
sb.AppendLine(" ORDER BY M.U_READCD, M.U_REQYM ");
*/
sb.AppendLine(" SELECT CASE WHEN ROW_NUMBER() OVER (PARTITION BY M.U_READCD, M.U_REQYM ORDER BY M.U_READCD, M.U_REQYM, M.U_AMT, M.DocEntry, M.LineId, M.U_DATE) = 1 THEN M.U_REQYM ELSE NULL END AS U_YYYYMM ");
sb.AppendLine(" , CASE WHEN ROW_NUMBER() OVER (PARTITION BY M.U_READCD, M.U_REQYM ORDER BY M.U_READCD, M.U_REQYM, M.U_AMT, M.DocEntry, M.LineId, M.U_DATE) = 1 THEN M.U_AMT ELSE NULL END AS REQAMT ");
sb.AppendLine(" , M.U_DATE AS DEPO_DATE ");
sb.AppendLine(" , M.U_INAMT AS DEPO_AMT ");
sb.AppendLine(" , M.U_SMLNM + (CASE ISNULL(M.U_SMLNM2,'') WHEN '' THEN '' ELSE ' ' + M.U_SMLNM2 END) AS U_PMETHOD ");
sb.AppendLine(" , M.U_STATUS AS U_STATUS ");
sb.AppendLine(" FROM ( ");
sb.AppendLine(" SELECT A.U_READCD ");
sb.AppendLine(" , A.U_REQYM ");
sb.AppendLine(" , A.DocEntry ");
sb.AppendLine(" , A.LineId ");
sb.AppendLine(" , ISNULL((SELECT SUM(ISNULL(F.U_DEBIT, 0)) ");
sb.AppendLine(" FROM [@KIS_SO01403_HRD] F ");
sb.AppendLine(" WHERE A.DocEntry = F.DocEntry ");
sb.AppendLine(" AND A.LineId = F.U_UPLINEID ");
sb.AppendLine(" AND F.U_TYPE IN ('110') ), 0) AS U_AMT ");
sb.AppendLine(" , CASE WHEN ISNULL(B.U_TYPE, '') NOT IN ('110','150','910','920','000') THEN ISNULL(B.U_CREDIT, 0) ELSE 0 END AS U_INAMT ");
sb.AppendLine(" , B.U_DATE ");
sb.AppendLine(" , ISNULL(B.U_DEBIT,0) AS U_DEBIT ");
sb.AppendLine(" , ISNULL(B.U_CREDIT,0) AS U_CREDIT ");
sb.AppendLine(" , B.U_TYPE ");
sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO54' AND F.U_CD = B.U_TYPE) AS U_SMLNM ");
sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO51' AND F.U_SMLCD = B.U_SUBTYPE) AS U_SMLNM2 ");
sb.AppendLine(" , A.U_STATUS ");
sb.AppendLine(" FROM [@KIS_SO01401_HRD] A ");
sb.AppendLine(" LEFT OUTER JOIN [@KIS_SO01403_HRD] B ON A.DocEntry = B.DocEntry ");
sb.AppendLine(" AND A.LineId = B.U_UPLINEID ");
sb.AppendLine(" AND B.U_TYPE NOT IN ('110','150','910','920','000') ");
sb.AppendLine(" ) M ");
sb.AppendLine(" WHERE M.U_AMT <> 0 AND M.U_READCD = '{0}' ");
sb.AppendLine(" ORDER BY M.U_READCD, M.U_REQYM ");
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), strREADCD));
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//1. 납부방법
//FN.SetComboBoxValidValues(oGrid, "U_PMETHOD", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO09' ", FN.Enum_WholeTp.m_Nothing);
//2. 상태
FN.SetComboBoxValidValues(oGrid, "U_STATUS", " SELECT 'O' [Code], '미납' AS [Name] UNION ALL SELECT 'C' [Code], '완납' AS [Name] ", FN.Enum_WholeTp.m_Nothing);
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("U_YYYYMM", 0).ToString() == null || oGrid.DataTable.GetValue("U_YYYYMM", 0).ToString() == ""))
{
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
}
else
{
FN.BindGrid(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, ""
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight));
//FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA)
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("FindRequestData " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
string cv_ColumnsUID_s = "피고과자,현부서,희망직무,희망부서,변경시기,전환희망사유,고과자의견";
string cv_ColumnsNAM_s = "피고과자,현부서,희망직무,희망부서,변경시기,전환희망사유,고과자의견";
string cv_No_Visible_s = " ";
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
private void FindData4(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
oGrid4 = (SAPbouiCOM.Grid)oForm.Items.Item("grd4").Specific;
oGrid4.SelectionMode = BoMatrixSelect.ms_None;
oForm.Freeze(true);
//고과항목 그리드호출
try
{
StringBuilder pQuery = new StringBuilder();
string query = string.Empty;
pQuery.AppendLine(" SELECT 1 AS ROWSID, U_COMPOCD,U_COMPONM ");
pQuery.AppendLine(" FROM [@KIS_HR00202_HRD] A ");
pQuery.AppendLine(" WHERE U_ABILCD = 'U03' AND A.Code = '{0}' ");
pQuery.AppendLine(" UNION ALL ");
pQuery.AppendLine(" SELECT 2, U_COMPOCD,U_RMK1 ");
pQuery.AppendLine(" FROM [@KIS_HR00202_HRD] A ");
pQuery.AppendLine(" INNER JOIN [@KIS_AD00201] B ON A.U_COMPOCD = B.U_SMLCD AND B.Code = 'HR14' AND U_USEYN = 'Y' ");
pQuery.AppendLine(" WHERE U_ABILCD = 'U03' AND A.Code = '{0}' ");
pQuery.AppendLine(" UNION ALL ");
pQuery.AppendLine(" SELECT 3, U_COMPOCD,U_CONTENT1 ");
pQuery.AppendLine(" FROM [@KIS_HR00202_HRD] A ");
pQuery.AppendLine(" WHERE U_ABILCD = 'U03' AND A.Code = '{0}' ");
pQuery.AppendLine(" UNION ALL ");
pQuery.AppendLine(" SELECT 4, U_COMPOCD,U_CONTENT2 ");
pQuery.AppendLine(" FROM [@KIS_HR00202_HRD] A ");
pQuery.AppendLine(" WHERE U_ABILCD = 'U03' AND A.Code = '{0}' ");
pQuery.AppendLine(" ORDER BY U_COMPOCD, ROWSID ");
string sQry = string.Format(pQuery.ToString(), GRIDCODE);
cv_ColumnsUID_s = "ROWSID,U_COMPOCD,U_COMPONM";
cv_NoEditable_s = "ROWSID,U_COMPOCD,U_COMPONM";
cv_ColumnsNAM_s = "ROWSID,구분코드,내용";
cv_Right_Just_s = " ";
cv_No_Visible_s = "ROWSID,U_COMPOCD";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.DataSources.DataTables.Item("grd4").ExecuteQuery(sQry);
oGrid4.DataTable = oForm.DataSources.DataTables.Item("grd4"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid4.DataTable.Rows.Count == 1 && oGrid4.DataTable.GetValue(0, 0).ToString() == "")
{
FN.SetGridTitle(oGrid4, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid4, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid4.RowHeaders.Width = 0;
//FN.SetGirdSort(ref oGrid1);
for (int i = 0; i < oGrid4.DataTable.Rows.Count; i++)
{
if (oGrid4.DataTable.GetValue("ROWSID", i) == 1)
{
oGrid4.CommonSetting.SetRowBackColor(i + 1, 8684676);
}
}
oGrid4.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oGrid4 = null;
}
oForm.Freeze(false);
}
private static void FindData(SAPbouiCOM.Form oForm)
{
SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
string edtDATE = oForm.DataSources.UserDataSources.Item("edtDATE").Value;
string cboGROUP = oForm.DataSources.UserDataSources.Item("cboGROUP").Value;
string GrdTitle = string.Empty;
int BDATE = Convert.ToInt16(edtDATE) -1;
StringBuilder pQuery = new StringBuilder();
string query = string.Empty;
pQuery.AppendLine(" EXEC [KIS_SP_SD0180F1_HRD] ");
pQuery.AppendLine(" @DATE = '{0}' ");
pQuery.AppendLine(" ,@GROUP = '{1}' ");
string sQry = string.Format(pQuery.ToString(), edtDATE, cboGROUP);
try
{
GrdTitle = string.Format("{0}년1월,{1}년1월,{0}년2월,{1}년2월,{0}년3월,{1}년3월,{0}년4월,{1}년4월,{0}년5월,{1}년5월,{0}년6월,{1}년6월,{0}년7월,{1}년7월,{0}년8월,{1}년8월,{0}년9월,{1}년9월,{0}년10월,{1}년10월,{0}년11월,{1}년11월,{0}년12월,{1}년12월,{0}년합계,{1}년합계,ROWSID", BDATE, edtDATE);
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
string cv_ColumnsUID_s = "LINENUM,GROUP1,CARDNM,BMON1,MON1,BMON2,MON2,BMON3,MON3,BMON4,MON4,BMON5,MON5,BMON6,MON6,BMON7,MON7,BMON8,MON8,BMON9,MON9,BMON10,MON10,BMON11,MON11,BMON12,MON12,BAMTSUM,AMTSUM,ROWSID";
string cv_NoEditable_s = "LINENUM,GROUP1,CARDNM,BMON1,MON1,BMON2,MON2,BMON3,MON3,BMON4,MON4,BMON5,MON5,BMON6,MON6,BMON7,MON7,BMON8,MON8,BMON9,MON9,BMON10,MON10,BMON11,MON11,BMON12,MON12,BAMTSUM,AMTSUM,ROWSID";
string cv_ColumnsNAM_s = string.Format("#,고객그룹-기업,BP명,{0}",GrdTitle);
string cv_Right_Just_s = "BMON1,MON1,BMON2,MON2,BMON3,MON3,BMON4,MON4,BMON5,MON5,BMON6,MON6,BMON7,MON7,BMON8,MON8,BMON9,MON9,BMON10,MON10,BMON11,MON11,BMON12,MON12,BAMTSUM,AMTSUM";
string cv_No_Visible_s = "LINENUM,ROWSID";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry);
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && oGrid.DataTable.GetValue("GROUP1", 0).ToString() == "")
{
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
//FN.SetGridSumField(ref oGrid, cv_Right_Just_s);
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid.RowHeaders.Width = 0;
#region Color Setting
Color newRGBColor = Color.FromArgb(100, 100, 200);
//int rowForeColor = newRGBColor.R | (newRGBColor.G << 8) | (newRGBColor.B << 16);
string DefultFontColor = "#000000";
Color systemBackColor = Color.FromArgb(217, 229, 242);
int rowBackColor1 = Color.LightYellow.R | Color.LightYellow.G << 8 | Color.LightYellow.B << 16;
int rowBackColor2 = Color.LightCyan.R | Color.LightCyan.G << 8 | Color.LightCyan.B << 16;
int blueForeColor = Color.Blue.R | (Color.Blue.G << 8) | (Color.Blue.B << 16);
int redForeColor = Color.Red.R | Color.Red.G << 8 | Color.Red.B << 16;
//int iDefultFontColor = setting.GetCellFontColor(-1, 1);
int iDefultFontColor = Convert.ToInt32(System.Drawing.ColorTranslator.FromHtml(DefultFontColor).ToArgb());
int iDefultBackColor = systemBackColor.R | (systemBackColor.G << 8) | (systemBackColor.B << 16);
#endregion
#region GridColorSet
FN.SetColumnProperty(oForm, "grd", "BackColor=#DCDCDC");
XDocument root = XDocument.Parse(oGrid.DataTable.SerializeAsXML(BoDataTableXmlSelect.dxs_DataOnly));
//필터링 : 선택된 행의 컬랙션을 조회합니다.
var rows = from c in root.Descendants("Row")
where c.Elements("Cells").Elements("Cell").Any(o => o.Element("ColumnUid").Value == "ROWSID" && o.Element("Value").Value != "0")
select c;
string Row = string.Empty;
foreach (XElement r in rows)
{
foreach (XElement c in r.Descendants("Cell"))
{
string ColumnUid = c.Element("ColumnUid").Value;
string Value = c.Element("Value").Value;
if (ColumnUid == "LINENUM")
{
Row = c.Element("Value").Value;
}
else if (ColumnUid == "CARDNM")
{
if (Value == "소계")
oGrid.CommonSetting.SetRowBackColor(Convert.ToInt32(Row), rowBackColor1);
else
oGrid.CommonSetting.SetRowBackColor(Convert.ToInt32(Row), rowBackColor2);
}
}
}
#endregion
//for (int i = 0; i < oGrid.Rows.Count; i++)
//{
// if (oGrid.DataTable.GetValue("CARDNM", i) == "소계")
// {
// oGrid.CommonSetting.SetRowBackColor(i + 1, rowBackColor1);
// }
// else if(oGrid.DataTable.GetValue("CARDNM", i) == "합계")
// {
// oGrid.CommonSetting.SetRowBackColor(i + 1, rowBackColor2);
// }
// else
// {
// oGrid.CommonSetting.SetRowBackColor(i + 1, iDefultBackColor);
// }
//}
oGrid.CommonSetting.FixedColumnsCount = 3;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
}//fin MenuEvent
private void Grilla()
{
try
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT T0.U_Sucursal
,T0.U_TipoDoc
,COUNT(*) 'Asignados'
,SUM(CASE WHEN T1.U_Estado = 'D' THEN 1 ELSE 0 END) 'Disponibles'
,SUM(CASE WHEN T1.U_Estado = 'U' THEN 1 ELSE 0 END) 'Utilizados'
FROM [@VID_FEDIST] T0 WITH(nolock)
JOIN [@VID_FEDISTD] T1 WITH(nolock) ON T1.DocEntry = T0.DocEntry
GROUP BY
T0.U_Sucursal
,T0.U_TipoDoc
ORDER BY T0.U_Sucursal, T0.U_TipoDoc";
}
else
{
s = @"SELECT T0.""U_Sucursal""
,T0.""U_TipoDoc""
,COUNT(*) ""Asignados""
,SUM(CASE WHEN T1.""U_Estado"" = 'D' THEN 1 ELSE 0 END) ""Disponibles""
,SUM(CASE WHEN T1.""U_Estado"" = 'U' THEN 1 ELSE 0 END) ""Utilizados""
FROM ""@VID_FEDIST"" T0
JOIN ""@VID_FEDISTD"" T1 ON T1.""DocEntry"" = T0.""DocEntry""
GROUP BY
T0.""U_Sucursal""
,T0.""U_TipoDoc""
ORDER BY T0.""U_Sucursal"", T0.""U_TipoDoc"" ";
}
oDataTable.ExecuteQuery(s);
ogrid.Columns.Item("U_Sucursal").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Sucursal"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.Visible = false;
oColumn.TitleObject.Caption = "Código";
ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Tipo Documento";
ogrid.Columns.Item("Asignados").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("Asignados"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Total Asignados";
ogrid.Columns.Item("Disponibles").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("Disponibles"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Total Disponibles";
ogrid.Columns.Item("Utilizados").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("Utilizados"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Total Utilizados";
ogrid.AutoResizeColumns();
}
catch (Exception e)
{
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
OutLog("Grilla: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin Grilla
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oForm.Freeze(true);
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.DataSources.DataTables.Item("grd").Clear();
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
string cv_ColumnsUID_s = "GROUP1,CARDNM,BMON1,MON1,BMON2,MON2,BMON3,MON3,BMON4,MON4,BMON5,MON5,BMON6,MON6,BMON7,MON7,BMON8,MON8,BMON9,MON9,BMON10,MON10,BMON11,MON11,BMON12,MON12,BAMTSUM,AMTSUM";
string cv_ColumnsNAM_s = "고객그룹-기업,BP명,전년도1월,조회년도1월,전년도2월,조회년도2월,전년도3월,조회년도3월,전년도4월,조회년도4월,전년도5월,조회년도5월,전년도6월,조회년도6월,전년도7월,조회년도7월,전년도8월,조회년도8월,전년도9월,조회년도9월,전년도10월,조회년도10월,전년도11월,조회년도11월,전년도12월,조회년도12월,전년도합계,조회년도합계";
string cv_No_Visible_s = " ";
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
oForm.Freeze(false);
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
string cv_ColumnsUID_s = "SITE_CD,CARD_NO,APPR_DATE,APPR_SEQ,APPR_TIME,APPR_NO,CANCEL_YN,USE_GB,CHAIN_NM,CHAIN_ID,CHAIN_CD,APPR_AMT,SUPPLY_AMT,APPR_TAX,HALBU,RECO_HALBU_NO,CHAIN_TYPE,WS_STATUS";
string cv_ColumnsNAM_s = "금융기관코드,카드번호,승인월,승인일별 일련번호,승인시간,승인번호,승인취소여부,사용구분,가맹점명,가맹점사업자번호,가맹점번호,승인금액,공급가액,부가가치세,할부기간,청구내역할부회차,과세정보가맹점유형코드,WEB 처리상태";
string cv_No_Visible_s = " ";
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
private SAPbouiCOM.DataTable FindData(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Grid oGrid;
StringBuilder sb;
string strREQDT_FR = string.Empty;
string strREQDT_TO = string.Empty;
string strREADCD_FR = string.Empty;
string strREADCD_TO = string.Empty;
string strPAPERTP = string.Empty;
string strBRANCHCD = string.Empty;
string strSALECD = string.Empty;
string strSTATUS = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
strREQDT_FR = oUDS.Item("edtREQDT1").ValueEx;
strREQDT_TO = oUDS.Item("edtREQDT2").ValueEx;
strREADCD_FR = oUDS.Item("edtREADCD1").ValueEx;
strREADCD_TO = oUDS.Item("edtREADCD2").ValueEx;
strPAPERTP = oUDS.Item("cboPAPERTP").ValueEx;
strBRANCHCD = oUDS.Item("edtBRCHCD").ValueEx;
strSALECD = oUDS.Item("edtSALECD").ValueEx;
strSTATUS = oUDS.Item("cboSTATUS").ValueEx;
sb = new StringBuilder();
//조회
sb.AppendFormat(" EXEC KIS_SP_SO0130F1_HRD @pREQDT_FR = '{0}' ", strREQDT_FR);
sb.AppendFormat(" , @pREQDT_TO = '{0}' ", strREQDT_TO);
sb.AppendFormat(" , @pREADCD_FR = '{0}' ", strREADCD_FR);
sb.AppendFormat(" , @pREADCD_TO = '{0}' ", strREADCD_TO);
sb.AppendFormat(" , @pPAPERTP = '{0}' ", strPAPERTP);
sb.AppendFormat(" , @pBRANCHCD = '{0}' ", strBRANCHCD);
sb.AppendFormat(" , @pSALECD = '{0}' ", strSALECD);
sb.AppendFormat(" , @pSTATUS = '{0}' ", strSTATUS);
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sb.ToString());
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//1. 지종
//FN.SetComboBoxValidValues(oGrid, "U_PAPERTP", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO01' ", FN.Enum_WholeTp.m_Nothing);
//2. 상태
//FN.SetComboBoxValidValues(oGrid, "U_STATUS", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO13' ", FN.Enum_WholeTp.m_Nothing);
// 독자 링크버튼추가
FN.SetGirdColumnLinkedObjec(ref oGrid, "READCD", BoLinkedObject.lf_BusinessPartner);
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("READCD", 0).ToString() == null || oGrid.DataTable.GetValue("READCD", 0).ToString() == ""))
{
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
}
else
{
FN.BindGrid(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, ""
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight));
//FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA)
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("ET_btnFind_AFItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
SAPbouiCOM.DataTable dt = oForm.DataSources.DataTables.Item("grd");
return dt;
}
private void FindData(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
EXAMCD = oForm.Items.Item("cboYEAR").Specific.Value;
try
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd1").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
cv_ColumnsUID_s = "U_LINENUM, U_EMPNO, U_EMPNM, U_DEPTCD, U_DEPTNM, U_PASSYNL, U_PASSYNT, U_HEADER, U_LINE,RANK,LASTG";
cv_NoEditable_s = "U_LINENUM, U_EMPNO, U_EMPNM, U_DEPTCD, U_DEPTNM, U_PASSYNL, U_PASSYNT, U_HEADER, U_LINE,RANK,LASTG";
cv_ColumnsNAM_s = "#,사번,사원명,부서코드,부서명,본인고과,고과자,헤더정보,라인정보,순위,최종등급";
cv_Right_Just_s = " ";
cv_No_Visible_s = "U_HEADER, U_LINE,RANK,LASTG";
string sQry = "";
sQry = string.Format(" EXEC [KIS_SP_HR0010B2_HRD] '1','{0}'",EXAMCD);
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd1").ExecuteQuery(sQry);
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd1"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && oGrid.DataTable.GetValue("U_EMPNO", 0).ToString() == "")
{
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oForm.Items.Item("edtCREATE").Specific.Value = oGrid.DataTable.Rows.Count;
oForm.Items.Item("edtCOMPL").Specific.Value = 0;
oForm.Items.Item("edtINCOMPL").Specific.value = oForm.Items.Item("edtPERSON").Specific.Value;
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
FN.SetGridCombo(ref oGrid, "U_PASSYNL", "", " SELECT U_SMLCD,U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR11' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid, "U_PASSYNT", "", " SELECT U_SMLCD,U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR11' AND U_USEYN = 'Y'", "");
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
sQry = string.Format(" EXEC [KIS_SP_HR0010B2_HRD] '2','{0}'",EXAMCD);
oRS.DoQuery(sQry);
oForm.Items.Item("edtCREATE").Specific.Value = oGrid.DataTable.Rows.Count;
oForm.Items.Item("edtCOMPL").Specific.Value = oRS.Fields.Item(0).Value;
oForm.Items.Item("edtINCOMPL").Specific.value = Convert.ToInt16(oForm.Items.Item("edtCREATE").Specific.Value) - Convert.ToInt16(oForm.Items.Item("edtCOMPL").Specific.Value);
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Items.Item("btnSAVE").Enabled = true;
STATE = true;
oGrid = null;
}
}
}//fin MenuEvent
private void CargarGrilla()
{
try
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT DocEntry, ISNULL(U_Cuenta,'') Cuenta, ISNULL(U_Desc,'') Descripcion, ISNULL(U_Clasif,'') Clasificacion FROM [@VID_FEPLANCTA]";
}
else
{
s = @"SELECT ""DocEntry"", IFNULL(""U_Cuenta"",'') ""Cuenta"", IFNULL(""U_Desc"",'') ""Descripcion"", IFNULL(""U_Clasif"",'') ""Clasificacion"" FROM ""@VID_FEPLANCTA"" ";
}
oDataTable.ExecuteQuery(s);
if (oDataTable.IsEmpty)
{
oForm.Items.Item("btnCtaSAP").Enabled = false;
//oForm.Mode = BoFormMode.fm_ADD_MODE;
}
else
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
oDataTable.Rows.Add(1);
}
var col = ((EditTextColumn)oGrid.Columns.Item("DocEntry"));
col.Editable = false;
col.Visible = false;
col.TitleObject.Caption = "DocEntry";
col = ((EditTextColumn)oGrid.Columns.Item("Cuenta"));
//col.LinkedObjectType = "171"; // Link to Employee
col.Editable = false;
col.Visible = true;
col.TitleObject.Caption = "Código Cuenta";
col = ((EditTextColumn)oGrid.Columns.Item("Descripcion"));
col.Editable = true;
col.Visible = true;
col.TitleObject.Caption = "Descripción Cuenta";
oGrid.Columns.Item("Clasificacion").Type = BoGridColumnType.gct_ComboBox;
var colC = ((ComboBoxColumn)oGrid.Columns.Item("Clasificacion"));
colC.Editable = true;
colC.Visible = true;
colC.DisplayType = BoComboDisplayType.cdt_Description;
colC.TitleObject.Caption = "Clasificación";
var Combo = ((ComboBoxColumn)oGrid.Columns.Item("Clasificacion"));
Combo.ValidValues.Add("1", "Activo");
Combo.ValidValues.Add("2", "Pasivo");
Combo.ValidValues.Add("3", "Patrimonio");
Combo.ValidValues.Add("4", "Pérdidas y Ganancias");
Combo.ValidValues.Add("5", "Orden");
oGrid.AutoResizeColumns();
}
catch (Exception x)
{
FSBOApp.StatusBar.SetText("CargarGrilla: " + x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("CargarGrilla: " + x.Message + " ** Trace: " + x.StackTrace);
}
}
private static void FindData(SAPbouiCOM.Form oForm)
{
SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
string FRRDCD = oForm.DataSources.UserDataSources.Item("edtFRRDCD").ValueEx;
string TORDCD = oForm.DataSources.UserDataSources.Item("edtTORDCD").ValueEx;
string FRRECDT = oForm.DataSources.UserDataSources.Item("edtFRRECDT").ValueEx;
string TORECDT = oForm.DataSources.UserDataSources.Item("edtTORECDT").ValueEx;
string FRDELCD = oForm.DataSources.UserDataSources.Item("edtFRDELCD").ValueEx;
string TODELCD = oForm.DataSources.UserDataSources.Item("edtTODELCD").ValueEx;
string CALLTP = oForm.DataSources.UserDataSources.Item("cboCALLTP").ValueEx;
string RECVID = oForm.DataSources.UserDataSources.Item("edtRECVID").ValueEx;
string PROSTAT = oForm.DataSources.UserDataSources.Item("cboPROSTAT").ValueEx;
string SPROCNM = B1Connections.theAppl.Company.UserName;
StringBuilder pQuery = new StringBuilder();
string query = string.Empty;
pQuery.AppendLine(" EXEC [KIS_SP_SO0080A_HRD] ");
pQuery.AppendLine(" @TYPE='FIND' ");
pQuery.AppendLine(" , @FRRDCD='{0}' ");
pQuery.AppendLine(" , @TORDCD='{1}' ");
pQuery.AppendLine(" , @FRRECVDT='{2}' ");
pQuery.AppendLine(" , @TORECVDT='{3}' ");
pQuery.AppendLine(" , @FRDELVCD='{4}' ");
pQuery.AppendLine(" , @TODELVCD='{5}' ");
pQuery.AppendLine(" , @CALLTP='{6}' ");
pQuery.AppendLine(" , @RECVID='{7}' ");
pQuery.AppendLine(" , @PROSTAT='{8}' ");
pQuery.AppendLine(" , @SDELVCD='' ");
pQuery.AppendLine(" , @SLINEID='' ");
pQuery.AppendLine(" , @SPROCOMM='' ");
pQuery.AppendLine(" , @SPROCNM='{9}' ");
pQuery.AppendLine(" , @SPROCDT='' ");
string sQry = string.Format(pQuery.ToString(), FRRDCD, TORDCD, FRRECDT, TORECDT, FRDELCD, TODELCD, CALLTP, RECVID, PROSTAT, SPROCNM);
try
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
string cv_ColumnsUID_s = "CHK,LINEID,U_RECVDT,CODE,NAME,U_DELVCD,U_RDEPT,U_CALLTP,U_TEL,U_PAYNM,U_CENTNM,U_COMMENT,U_PROCOMM,U_RECVNM,U_PROCDT,U_PROCNM,U_MEMO";
string cv_NoEditable_s = "LINEID,U_RECVDT,CODE,NAME,U_DELVCD,U_RDEPT,U_CALLTP,U_TEL,U_PAYNM,U_CENTNM,U_COMMENT,U_RECVNM,U_PROCDT,U_PROCNM,U_MEMO";
string cv_ColumnsNAM_s = "체크,라인번호,상담일,독자코드,독자이름,배달코드,구독부서,콜유형,전화번호,요금제,분국,접수내용,처리결과,작업자,처리일자,처리자,U_MEMO";
string cv_Right_Just_s = " ";
string cv_No_Visible_s = "U_MEMO ";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry);
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && oGrid.DataTable.GetValue("LINEID", 0).ToString() == "")
{
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
oGrid.Columns.Item(0).Type = BoGridColumnType.gct_CheckBox;
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid.RowHeaders.Width = 0;
//FN.SetGirdSort(ref oGrid1);
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
private static void FindData(SAPbouiCOM.Form oForm)
{
SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
string edtDOCDTF = oForm.DataSources.UserDataSources.Item("edtDOCDTF").Value;
string edtDOCDTT = oForm.DataSources.UserDataSources.Item("edtDOCDTT").Value;
string cboPRCCD = oForm.DataSources.UserDataSources.Item("cboPRCCD").Value;
string cboSLPCD = oForm.DataSources.UserDataSources.Item("cboSLPCD").Value;
string edtCARDCDF = oForm.DataSources.UserDataSources.Item("edtCARDCDF").Value;
string edtBPCDF = oForm.DataSources.UserDataSources.Item("edtBPCDF").Value;
string cboPUBLICA = oForm.DataSources.UserDataSources.Item("cboPUBLICA").Value;
StringBuilder pQuery = new StringBuilder();
string query = string.Empty;
pQuery.AppendLine(" EXEC [KIS_SP_SD0150F_HRD] ");
pQuery.AppendLine(" @edtDOCDTF = '{0}' ");
pQuery.AppendLine(" ,@edtDOCDTT = '{1}' ");
pQuery.AppendLine(" ,@cboPRCCD = '{2}' ");
pQuery.AppendLine(" ,@cboSLPCD = '{3}' ");
pQuery.AppendLine(" ,@edtCARDCDF = '{4}' ");
pQuery.AppendLine(" ,@edtBPCDF = '{5}' ");
pQuery.AppendLine(" ,@cboPUBLICA = '{6}' ");
string sQry = string.Format(pQuery.ToString(), edtDOCDTF, edtDOCDTT, cboPRCCD, cboSLPCD, edtCARDCDF, edtBPCDF, cboPUBLICA);
try
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
string cv_ColumnsUID_s = "U_DOCDT,U_PUBLICA,U_CARDCD,U_CARDNM,U_AMTSUM,U_VATSUM,U_DOCTOT,DPMSUM,U_SLPNM,U_BPCD,U_BPNM";
string cv_NoEditable_s = "U_DOCDT,U_PUBLICA,U_CARDCD,U_CARDNM,U_AMTSUM,U_VATSUM,U_DOCTOT,DPMSUM,U_SLPNM,U_BPCD,U_BPNM";
string cv_ColumnsNAM_s = "전기일,간행물,매출처,매출처명,매출액,매출부가세,매출합계,미수금,영업사원,대행사,대행사명";
string cv_Right_Just_s = "U_AMTSUM,U_VATSUM,U_DOCTOT,DPMSUM";
string cv_No_Visible_s = " ";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry);
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && oGrid.DataTable.GetValue(1, 0).ToString() == "")
{
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
FN.SetGridSumField(ref oGrid, cv_Right_Just_s);
FN.SetGirdColumnLinkedObjec(ref oGrid, "U_CARDCD", BoLinkedObject.lf_BusinessPartner);
FN.SetGirdColumnLinkedObjec(ref oGrid, "U_BPCD", BoLinkedObject.lf_BusinessPartner);
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid.RowHeaders.Width = 0;
FN.SetGirdSort(ref oGrid);
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
FSBOf.LoadForm(xmlPath, "VID_FEIMPADIC.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
Flag = false;
oForm.Freeze(true);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select count(*) Cont from [@VID_FEIMPADIC]";
}
else
{
s = @"select count(*) ""Cont"" from ""@VID_FEIMPADIC"" ";
}
oRecordSet.DoQuery(s);
if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
else
{
oForm.Mode = BoFormMode.fm_ADD_MODE;
}
oGrid = (Grid)(oForm.Items.Item("3").Specific);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FEIMPADIC");
oDataTable = oForm.DataSources.DataTables.Add("Tax");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, U_CodImpto, U_Desc, U_Porc from [@VID_FEIMPADIC]
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)), 0";
}
else
{
s = @"select ""Code"", ""U_CodImpto"", ""U_Desc"", ""U_Porc"" from ""@VID_FEIMPADIC""
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)), 0 FROM DUMMY ";
}
oDataTable.ExecuteQuery(s);
oGrid.DataTable = oDataTable;
oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_ComboBox;
oColumn = (GridColumn)(oGrid.Columns.Item("Code"));
var oComboCol = (ComboBoxColumn)(oColumn);
oComboCol.Editable = true;
oComboCol.TitleObject.Caption = "Impuesto SAP";
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name from OSTA
UNION ALL
select WTCode 'Code', WTName 'Name' from OWHT where Inactive = 'N'";
}
else
{
s = @"select ""Code"", ""Name"" from ""OSTA""
UNION ALL
select ""WTCode"" ""Code"", ""WTName"" ""Name"" from ""OWHT"" where ""Inactive"" = 'N' ";
}
oRecordSet.DoQuery(s);
FSBOf.FillComboGrid((GridColumn)(oGrid.Columns.Item("Code")), ref oRecordSet, true);
oGrid.Columns.Item("U_CodImpto").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_CodImpto"));
var oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Código Impto. SII";
oGrid.Columns.Item("U_Desc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_Desc"));
oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Descripción Impuesto";
oGrid.Columns.Item("U_Porc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_Porc"));
oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Porcentaje Retencion";
oEditCol.RightJustified = true;
oGrid.AutoResizeColumns();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
string cv_ColumnsUID_s = "U_DOCDT,U_CARDCD,U_CARDNM,U_AMTSUM,U_VATSUM,U_DOCTOT,DPMSUM,U_SLPNM,U_BPCD,U_BPNM";
string cv_ColumnsNAM_s = "전기일,매출처,매출처명,매출액,매출부가세,매출합계,미수금,영업사원,대행사,대행사명";
string cv_No_Visible_s = " ";
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
private void FindData2(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
oGrid1 = (SAPbouiCOM.Grid)oForm.Items.Item("grd1").Specific;
oGrid2 = (SAPbouiCOM.Grid)oForm.Items.Item("grd2").Specific;
oGrid2.SelectionMode = BoMatrixSelect.ms_None;
StringBuilder pQuery = new StringBuilder();
string sQry = string.Empty;
if (iROW != -1)
{
oForm.Items.Item("edtEMPNO2").Specific.value = oGrid1.DataTable.GetValue("U_EMPNO", iROW);
oForm.Items.Item("edtDEPTNM").Specific.value = oGrid1.DataTable.GetValue("U_DEPTNM", iROW);
oForm.Items.Item("edtJIKGBNM").Specific.value = oGrid1.DataTable.GetValue("U_JIKGBNM", iROW);
oForm.Items.Item("edtJIKCHNM").Specific.value = oGrid1.DataTable.GetValue("U_JIKCHNM", iROW);
}
//고과항목 그리드호출
try
{
cv_ColumnsUID_s = "U_CHEKER, U_EMPNM, U_DEPTCD, U_JIKGBCD, U_JIKCHKCD, U_PASSYN, Code";
cv_NoEditable_s = "U_CHEKER, U_EMPNM, U_DEPTCD, U_JIKGBCD, U_JIKCHKCD, Code";
cv_ColumnsNAM_s = "고과,사원,부서,직급,직책,상태,코드";
cv_Right_Just_s = " ";
cv_No_Visible_s = "Code";
#region 조회Query
pQuery.Clear();
pQuery.AppendLine(" SELECT ");
pQuery.AppendLine(" U_CHEKER ");
pQuery.AppendLine(" ,U_EMPNM ");
pQuery.AppendLine(" ,U_DEPTCD ");
pQuery.AppendLine(" ,U_JIKGBCD ");
pQuery.AppendLine(" ,U_JIKCHKCD ");
pQuery.AppendLine(" ,U_PASSYN ");
pQuery.AppendLine(" ,Code ");
pQuery.AppendLine(" FROM [@KIS_HR00203_HRD] ");
pQuery.AppendLine(" WHERE Code = '{0}' ");
sQry = string.Format(pQuery.ToString(), GRIDCODE);
#endregion
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd2").ExecuteQuery(sQry);
oGrid2.DataTable = oForm.DataSources.DataTables.Item("grd2"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid2.DataTable.Rows.Count == 1 && oGrid2.DataTable.GetValue("U_CHEKER", 0).ToString() == "")
{
FN.SetGridTitle(oGrid2, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid2, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
FN.SetGridCombo(ref oGrid2, "U_CHEKER", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR12' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_DEPTCD", "", " SELECT U_DEPTCD,U_DEPTNM FROM [@KIS_HR00401] WHERE U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_JIKGBCD", "", " SELECT U_SMLCD,U_SMLNM FROM [@KIS_AD00101] WHERE CODE = 'HR11' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_JIKCHKCD", "", " SELECT U_SMLCD,U_SMLNM FROM [@KIS_AD00101] WHERE CODE = 'HR14' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_PASSYN", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR11' AND U_USEYN = 'Y'", "");
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid2.RowHeaders.Width = 0;
//FN.SetGirdSort(ref oGrid1);
oGrid2.AutoResizeColumns();
}
}
catch (Exception ex)
{
oForm.Freeze(false);
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
iROW = -1;
GRIDCODE = "SAVE";
oGrid2 = null;
}
}
}//fin InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
SAPbouiCOM.DataTable oDataTable;
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
String sValue;
String sValue2;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
try
{
if (pVal.EventType == BoEventTypes.et_ITEM_PRESSED)
{
if (pVal.BeforeAction == true)
{
if (((oForm.Mode == BoFormMode.fm_ADD_MODE) || (oForm.Mode == BoFormMode.fm_UPDATE_MODE)) && (pVal.ItemUID == "1"))
{
BubbleEvent = false;
if (Validar())
{
Guardar_Registros();
}
}
}
if ((pVal.BeforeAction == false) && (pVal.ItemUID == "btn_Borrar"))
{
BorrarLinea();
}
}
if ((pVal.EventType == BoEventTypes.et_CHOOSE_FROM_LIST) && (!pVal.BeforeAction))
{
oForm.Freeze(true);
if (pVal.ColUID == "U_CardCode")
{
oCFLEvento = (SAPbouiCOM.IChooseFromListEvent)(pVal);
oDataTable = oCFLEvento.SelectedObjects;
if (oDataTable != null)
{
sValue = ((System.String)oDataTable.GetValue("CardCode", 0)).Trim();
sValue2 = ((System.String)oDataTable.GetValue("CardName", 0)).Trim();
for (Int32 iCont_1 = 0; iCont_1 < odt.Rows.Count; iCont_1++)
{
if (((System.String)odt.GetValue("U_CardCode", iCont_1)).Length > 0)
{
var CardCode = ((System.String)odt.GetValue("U_CardCode", iCont_1));
if (CardCode == sValue)
{
FSBOApp.StatusBar.SetText("Proveedor ya se encuentra en la lista Negra", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning);
return;
}
}
}
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT COUNT(*) 'count' FROM [@VID_FELISTABL] WHERE U_CardCode = '{0}'";
}
else
{
s = @"SELECT COUNT(*) ""count"" FROM ""@VID_FELISTABL"" WHERE ""U_CardCode"" = '{0}'";
}
s = String.Format(s, sValue);
oRecordSet.DoQuery(s);
if (((System.Int32)oRecordSet.Fields.Item("count").Value) > 0)
{
FSBOApp.StatusBar.SetText("Codigo Proveedor se encuentra en la lista blanca, no se puede seleccionar -> Codigo " + sValue, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning);
return;
}
odt.SetValue("U_CardCode", pVal.Row, sValue);
odt.SetValue("U_CardName", pVal.Row, sValue2);
odt.SetValue("U_Activado", pVal.Row, "Y");
if ((odt.Rows.Count - 1 == pVal.Row) && (sValue != ""))
{
odt.Rows.Add(1);
}
ogrid.AutoResizeColumns();
if (oForm.Mode == BoFormMode.fm_OK_MODE)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
}
}
}
}
catch (Exception e)
{
if (FCmpny.InTransaction)
{
FCmpny.EndTransaction(BoWfTransOpt.wf_RollBack);
}
FSBOApp.StatusBar.SetText(e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace);
}
finally
{
if (oForm != null)
{
oForm.Freeze(false);
}
}
}//fin FormEvent
}//fin ActualizarRegistros
private void ActualizarGrilla()
{
SAPbouiCOM.GridColumn oColumn;
try
{
//Actualiza grilla
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, CAST(U_BaseMul AS VARCHAR(11)) U_BaseMul, U_TipoDoc, U_Fecha, U_Desde, U_Hasta, U_Utilizados, U_Asignables, U_CAF
from [@VID_FECAF]";
}
else
{
s = @"select ""Code"", TO_VARCHAR(""U_BaseMul"") ""U_BaseMul"", ""U_TipoDoc"", ""U_Fecha"", ""U_Desde"", ""U_Hasta"", ""U_Utilizados"", ""U_Asignables"", ""U_CAF""
from ""@VID_FECAF"" ";
}
oDataTable.ExecuteQuery(s);
ogrid.Columns.Item("Code").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("Code"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.Visible = false;
oColumn.TitleObject.Caption = "Código";
ogrid.Columns.Item("U_BaseMul").Type = BoGridColumnType.gct_ComboBox;
var colCombo = (ComboBoxColumn)(ogrid.Columns.Item("U_BaseMul"));
colCombo.DisplayType = BoComboDisplayType.cdt_Description;
colCombo.TitleObject.Caption = "Sociedad";
colCombo.Editable = false;
if (bMultiSoc)
{
colCombo.Visible = true;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select DocEntry, U_Sociedad 'Sociedad' from [@VID_FEMULTISOC]";
}
else
{
s = @"select ""DocEntry"", ""U_Sociedad"" ""Sociedad"" from ""@VID_FEMULTISOC"" ";
}
oRecordSet.DoQuery(s);
while (!oRecordSet.EoF)
{
colCombo.ValidValues.Add(((System.Int32)oRecordSet.Fields.Item("DocEntry").Value).ToString(), ((System.String)oRecordSet.Fields.Item("Sociedad").Value).Trim());
oRecordSet.MoveNext();
}
}
else
{
colCombo.Visible = false;
}
ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Tipo Documento";
ogrid.Columns.Item("U_Fecha").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Fecha"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.TitleObject.Caption = "Fecha CAF";
ogrid.Columns.Item("U_Desde").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Desde"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Desde";
ogrid.Columns.Item("U_Hasta").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Hasta"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Hasta";
ogrid.Columns.Item("U_Utilizados").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Utilizados"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "CAF Utilizados";
ogrid.Columns.Item("U_Asignables").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Asignables"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Asignables";
ogrid.Columns.Item("U_CAF").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_CAF"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.TitleObject.Caption = "XML CAF";
ogrid.AutoResizeColumns();
}
catch (Exception x)
{
FSBOApp.StatusBar.SetText(x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("ActualizarGrilla: " + x.Message + " ** Trace: " + x.StackTrace);
}
}
private void FindData(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Grid oGrid;
StringBuilder sb;
string strQueryTp = string.Empty;
string strYyyyMm_F = string.Empty;
string strYyyyMm_T = string.Empty;
string strReadCd_F = string.Empty;
string strReadCd_T = string.Empty;
string strCentCd_F = string.Empty;
string strCentCd_T = string.Empty;
string strBillTp = string.Empty;
string strISSUEDT_F = string.Empty;
string strISSUEDT_T = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
strQueryTp = oUDS.Item("optALL").ValueEx;
strYyyyMm_F = oUDS.Item("cboREQYM_F").ValueEx;
strYyyyMm_T = oUDS.Item("cboREQYM_T").ValueEx;
strReadCd_F = oUDS.Item("edtREAD_F").ValueEx;
strReadCd_T = oUDS.Item("edtREAD_T").ValueEx;
strCentCd_F = oUDS.Item("edtCENT_F").ValueEx;
strCentCd_T = oUDS.Item("edtCENT_T").ValueEx;
strBillTp = oUDS.Item("cboBILLTP").ValueEx;
strISSUEDT_F = oUDS.Item("edtISSUDT1").ValueEx;
strISSUEDT_T = oUDS.Item("edtISSUDT2").ValueEx;
sb = new StringBuilder();
//조회
sb.AppendFormat(" EXEC KIS_SP_SO0230F1_HRD @pFOLDLEV = '{0}' ", oForm.PaneLevel.ToString());
sb.AppendFormat(" , @pQUERYTP = '{0}' ", strQueryTp);
sb.AppendFormat(" , @pDATE_FR = '{0}' ", strYyyyMm_F);
sb.AppendFormat(" , @pDATE_TO = '{0}' ", strYyyyMm_T);
sb.AppendFormat(" , @pREAD_FR = '{0}' ", strReadCd_F);
sb.AppendFormat(" , @pREAD_TO = '{0}' ", strReadCd_T);
sb.AppendFormat(" , @pCENT_FR = '{0}' ", strCentCd_F);
sb.AppendFormat(" , @pCENT_TO = '{0}' ", strCentCd_T);
sb.AppendFormat(" , @pBILLTP = '{0}' ", strBillTp);
sb.AppendFormat(" , @pISSUDT1 = '{0}' ", strISSUEDT_F);
sb.AppendFormat(" , @pISSUDT2 = '{0}' ", strISSUEDT_T);
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
switch (oForm.PaneLevel)
{
case 1:
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd1").Specific;
oForm.DataSources.DataTables.Item("grd1").ExecuteQuery(sb.ToString());
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd1"); //데이터 그리드에 Display
FN.SetGirdSort(ref oGrid);
FN.SetSumField(ref oGrid, "SUPPAMT");
break;
case 2:
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd2").Specific;
oForm.DataSources.DataTables.Item("grd2").ExecuteQuery(sb.ToString());
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd2"); //데이터 그리드에 Display
FN.SetGirdSort(ref oGrid);
FN.SetSumField(ref oGrid, "SUPPAMT");
break;
case 3:
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd3").Specific;
oForm.DataSources.DataTables.Item("grd3").ExecuteQuery(sb.ToString());
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd3"); //데이터 그리드에 Display
FN.SetSumField(ref oGrid, "PRICE,QTY,SUPPAMT");
break;
default:
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd1").Specific;
break;
}
//그리드 컬럼셋팅
FN.SetGridCheckBox(ref oGrid, "CHK", true);
//그리드 컬럼셋팅
FN.SetGridComboDataBind(ref oGrid, "DOCTP", "R:독자,C:지국", BoComboDisplayType.cdt_Description);
//2. 세금그룹
FN.SetComboBoxValidValues(oGrid, "VATGRUP", "SELECT Code, Name FROM OVTG WHERE Code = 'A0' ", FN.Enum_WholeTp.m_Nothing);
//3. 계산서발행구분
FN.SetComboBoxValidValues(oGrid, "BILLGBN", "SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO15' ", FN.Enum_WholeTp.m_Nothing);
//링크컬럼셋팅
FN.SetGirdColumnLinkedObjec(ref oGrid, "CODE", BoLinkedObject.lf_BusinessPartner); // 독자/지국링크
FN.SetGirdColumnLinkedObjec(ref oGrid, "CARDCODE", BoLinkedObject.lf_BusinessPartner);
//FN.SetGirdColumnLinkedObjec(ref oGrid, "VATGRUP", BoLinkedObject.lf_VatGroup);
if (oForm.PaneLevel == 3)
{
FN.SetGridCheckBox(ref oGrid, "ETAX_YN", true);
FN.SetGridComboDataBind(ref oGrid, "INPUTP", "A:자동,M:수기", BoComboDisplayType.cdt_Description);
FN.SetComboBoxValidValues(oGrid, "DTSTAT", " SELECT U_CD, U_SMLNM FROM [@KIS_AD00101] WHERE Code ='VT14' ", FN.Enum_WholeTp.m_Nothing);
}
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("CODE", 0).ToString() == null || oGrid.DataTable.GetValue("CODE", 0).ToString() == ""))
{
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
}
else
{
FN.BindGrid(oGrid
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.NotEditable)
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, ""
, GetGridFieldInfo(oForm, oForm.PaneLevel, SO.SO_COMMON_HRD.GridTitleType.AlignRight));
FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA)
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("ET_btnFind_AFItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
}
private SAPbouiCOM.DataTable FindData(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Grid oGrid;
StringBuilder sb;
string strCALLPER = string.Empty;
string strColYyyyMm = string.Empty;
string strCENTCE_FR = string.Empty;
string strCENTCE_TO = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
strCALLPER = oUDS.Item("edtCALLPER").ValueEx;
strCENTCE_FR = oUDS.Item("edtCENTCD1").ValueEx;
strCENTCE_TO = oUDS.Item("edtCENTCD2").ValueEx;
sb = new StringBuilder();
//조회
sb.AppendLine(" EXEC KIS_SP_SO0260F1_HRD @pQUERY_TYPE = '{0}' ");
sb.AppendLine(" , @pPERSON = '{1}' ");
sb.AppendLine(" , @pCENTCD_FR = '{2}' ");
sb.AppendLine(" , @pCENTCD_TO = '{3}' ");
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), "Q", strCALLPER, strCENTCE_FR, strCENTCE_TO));
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("U_READCD", 0).ToString() == null || oGrid.DataTable.GetValue("U_READCD", 0).ToString() == ""))
{
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
}
else
{
strColYyyyMm = FN.GetRecordsetValue(string.Format(sb.ToString(), "C", "", "", "", "")).Replace("[", "").Replace("]", "");
FN.SetGrdColumnNumber(ref oGrid, "", GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight) + "," + strColYyyyMm, "", "");
// 독자 링크버튼추가
FN.SetGirdColumnLinkedObjec(ref oGrid, "U_READCD", BoLinkedObject.lf_BusinessPartner);
// 지국 링크버튼추가
FN.SetGirdColumnLinkedObjec(ref oGrid, "U_CENTCD", BoLinkedObject.lf_BusinessPartner);
FN.BindGrid(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid) + "," + strColYyyyMm
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName) + "," + strColYyyyMm
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable) + "," + strColYyyyMm
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, ""
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight) + "," + strColYyyyMm);
//FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA)
//oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("ET_btnFind_AFItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
SAPbouiCOM.DataTable dt = oForm.DataSources.DataTables.Item("grd");
return dt;
}
private void FindData1(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
EXAMCD = oForm.Items.Item("cboYEAR").Specific.Value;
string EMPNO = oForm.Items.Item("edtEMPNO").Specific.Value;
string DEPT = oForm.Items.Item("cboDEPT").Specific.Value;
try
{
oGrid1 = (SAPbouiCOM.Grid)oForm.Items.Item("grd1").Specific;
oGrid1.SelectionMode = BoMatrixSelect.ms_Single;
cv_ColumnsUID_s = "U_EMPNO, U_EMPNM, U_DEPTCD, U_SCORE4, U_GRADE4, U_SCORE1, U_GRADE1, U_SCORE2, U_GRADE2, U_SCORE3, U_GRADE3,U_LASTSAF,U_LASTGAF,Code";
cv_NoEditable_s = "U_EMPNO, U_EMPNM, U_DEPTCD, U_SCORE4, U_GRADE4, U_SCORE1, U_GRADE1, U_SCORE2, U_GRADE2, U_SCORE3, U_GRADE3,U_LASTSAF,U_LASTGAF,Code";
cv_ColumnsNAM_s = "사원코드,사원명,부서,본인점수,본인등급,1차고과점수,1차고과등급,2차고과점수,2차고과등급,3차고과점수,3차고과등급,최종점수,최종등급,코드";
cv_Right_Just_s = " ";
cv_No_Visible_s = "Code";
string sQry = "";
sQry = " EXEC KIS_SP_HR0100F0_HRD '" + EXAMCD + "','" + EMPNO + "','" + DEPT + "'";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd1").ExecuteQuery(sQry);
oGrid1.DataTable = oForm.DataSources.DataTables.Item("grd1"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid1.DataTable.Rows.Count == 1 && oGrid1.DataTable.GetValue("U_EMPNO", 0).ToString() == "")
{
FN.SetGridTitle(oGrid1, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid1, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
FN.SetGridCombo(ref oGrid1, "U_DEPTCD", "", " SELECT U_DEPTCD,U_DEPTNM FROM [@KIS_HR00401] WHERE U_USEYN = 'Y'", "");
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid1.RowHeaders.Width = 0;
//FN.SetGirdSort(ref oGrid1);
oGrid1.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
GRIDCODE = "";
oGrid1 = null;
}
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
string cv_ColumnsUID_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE ";
string cv_ColumnsNAM_s = " 문서번호, 신청접수년월, 신청접수일자, 신청파일이름, 결과파일이름, 총건수, 신규등록건수, 변경등록건수, 해지등록건수, 임의해지건수, 실행일자, 실행시간, 실행자 ";
string cv_No_Visible_s = " ";
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
//string expr = "BackColor=#DBE4F6&Width(ZIP_CD=80,ADDR_KOR=345)";
//FN.SetColumnProperty(oForm, "grd", expr);
}
private void FindData2(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
oGrid2 = (SAPbouiCOM.Grid)oForm.Items.Item("grd2").Specific;
oGrid2.SelectionMode = BoMatrixSelect.ms_None;
oForm.Freeze(true);
//고과항목 그리드호출
try
{
cv_ColumnsUID_s = "Code,U_DTCD, U_ABILCD, U_COMPOCD, U_BASESC, U_CONTENTS,U_GRADE4,U_GRADE1,U_GRADE2,U_GRADE3,U_LASTGAF";
cv_NoEditable_s = "Code,U_DTCD, U_ABILCD, U_COMPOCD, U_BASESC, U_CONTENTS,U_GRADE4,U_GRADE1,U_GRADE2,U_GRADE3,U_LASTGAF";
cv_ColumnsNAM_s = "코드,구분,역량,구성요소,배점,구성요소내용,평가등급,1차고과등급,2차고과등급,3차고과등급,최종등급";
cv_Right_Just_s = "U_BASESC";
cv_No_Visible_s = "Code";
string sQry = "";
sQry = " EXEC KIS_SP_HR0100F1_HRD '" + EXAMCD + "','" + GRIDCODE + "'";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.DataSources.DataTables.Item("grd2").ExecuteQuery(sQry);
oGrid2.DataTable = oForm.DataSources.DataTables.Item("grd2"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid2.DataTable.Rows.Count == 1 && oGrid2.DataTable.GetValue("U_DTCD", 0).ToString() == "")
{
FN.SetGridTitle(oGrid2, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid2, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
FN.SetGridCombo(ref oGrid2, "U_DTCD", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR02' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_ABILCD", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR03' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_COMPOCD", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR04' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_GRADE4", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR15' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_GRADE1", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR15' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_GRADE2", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR15' AND U_USEYN = 'Y'", "");
FN.SetGridCombo(ref oGrid2, "U_GRADE3", "", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR15' AND U_USEYN = 'Y'", "");
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid2.RowHeaders.Width = 0;
//FN.SetGirdSort(ref oGrid1);
oGrid2.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oGrid2 = null;
}
oForm.Freeze(false);
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
try
{
oForm.Freeze(true);
//* 미발행 그리드 초기화 */
oForm.DataSources.DataTables.Add("grd");
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
oGrid.SelectionMode = BoMatrixSelect.ms_NotSupported;
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("SetGridTitle " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
}
private void FindData3(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
oGrid3 = (SAPbouiCOM.Grid)oForm.Items.Item("grd3").Specific;
oGrid3.SelectionMode = BoMatrixSelect.ms_None;
StringBuilder pQuery = new StringBuilder();
string sQry = string.Empty;
oForm.Freeze(true);
//고과항목 그리드호출
try
{
string MTCHO = oForm.Items.Item("cboMTCHO").Specific.value;
sQry = " SELECT U_COMPOCD,U_COMPONM FROM [@KIS_HR00202_HRD] WHERE Code = '" + GRIDCODE + "' AND U_ABILCD = '" + MTCHO + "'";
oRS.DoQuery(sQry);
cv_ColumnsUID_s = "";
cv_NoEditable_s = "";
cv_ColumnsNAM_s = "";
cv_Right_Just_s = " ";
cv_No_Visible_s = " ";
for (int i = 0; i < oRS.RecordCount; i++)
{
cv_ColumnsUID_s = cv_ColumnsUID_s + oRS.Fields.Item("U_COMPONM").Value + ",";
cv_NoEditable_s = cv_NoEditable_s + oRS.Fields.Item("U_COMPONM").Value + ",";
cv_ColumnsNAM_s = cv_ColumnsNAM_s + oRS.Fields.Item("U_COMPONM").Value + ",";
oRS.MoveNext();
}
cv_ColumnsUID_s = FN.Left(cv_ColumnsUID_s, cv_ColumnsUID_s.Length - 1);
cv_NoEditable_s = FN.Left(cv_NoEditable_s, cv_NoEditable_s.Length - 1);
cv_ColumnsNAM_s = FN.Left(cv_ColumnsNAM_s, cv_ColumnsNAM_s.Length - 1);
#region 조회Query
pQuery.Clear();
pQuery.AppendLine(" EXEC [KIS_SP_PIVOT] @SQL = N' ");
pQuery.AppendLine(" SELECT U_COMPONM,U_SELVALNM FROM [@KIS_HR00202_HRD] ");
pQuery.AppendLine(" WHERE Code = ''{0}'' AND U_ABILCD = ''{1}''' ");
pQuery.AppendLine(" , @Pivot = N'U_COMPONM' ");
pQuery.AppendLine(" , @Value = N'MAX(U_SELVALNM)' ");
pQuery.AppendLine(" , @defaultPivot = NULL ");
sQry = string.Format(pQuery.ToString(), GRIDCODE, MTCHO);
#endregion
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.DataSources.DataTables.Item("grd3").ExecuteQuery(sQry);
oGrid3.DataTable = oForm.DataSources.DataTables.Item("grd3"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid3.DataTable.Rows.Count == 1 && oGrid3.DataTable.GetValue(0, 0).ToString() == "")
{
FN.SetGridTitle(oGrid3, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid3, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid3.RowHeaders.Width = 0;
//FN.SetGirdSort(ref oGrid1);
oGrid3.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oGrid3 = null;
}
oForm.Freeze(false);
}
public virtual void ET_OnFormResize(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
// ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Item oItemRet = oForm.Items.Item("retFOLD");
SAPbouiCOM.Item oItemGrd = oForm.Items.Item("grd");
oGrid = oForm.Items.Item("grd").Specific;
SAPbouiCOM.Item oItem1Mtx = oForm.Items.Item("mtx1_DUMY");
SAPbouiCOM.Item oItem2Mtx = oForm.Items.Item("mtx2_DUMY");
SAPbouiCOM.Item oItem3Mtx = oForm.Items.Item("mtx1_ORIG");
SAPbouiCOM.Item oItem4Mtx = oForm.Items.Item("mtx2_ORIG");
// 폴더박스 리사이즈
oItemRet.Height = oForm.Height - 110;
oItemRet.Width = oForm.Width - 30;
// 상담이력 메트릭스
oItem2Mtx.Top = oItem1Mtx.Height + 200;
oItem2Mtx.Width = oForm.Width - 425;
oItem2Mtx.Height = 140;
// 청구데이터(그리드)
oItemGrd.Top = oItem1Mtx.Height + 200;
oItemGrd.Width = 360;
oItemGrd.Height = 140;
// 안보이는 메트릭스
oItem3Mtx.Left = oForm.Width + 100;
oItem4Mtx.Left = oForm.Width + 100;
if (oGrid.Columns.Count > 0) oGrid.AutoResizeColumns();
((SAPbouiCOM.Matrix)oForm.Items.Item("mtx1_DUMY").Specific).AutoResizeColumns();
((SAPbouiCOM.Matrix)oForm.Items.Item("mtx2_DUMY").Specific).AutoResizeColumns();
}
private void CargarGrid()
{
String Periodo = "";
String PeriodoD = "";
String PeriodoH = "";
try
{
if (oForm.Title == "Libro Diario y Mayor")
{
Periodo = ((System.String)((ComboBox)oForm.Items.Item("Periodo").Specific).Selected.Value).Trim();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"EXEC VID_SP_FE_LibroDiario '{0}'";
}
else
{
s = @"CALL VID_SP_FE_LibroDiario ('{0}')";
}
s = String.Format(s, Periodo);
odt.ExecuteQuery(s);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"EXEC VID_SP_FE_LibroMayor '{0}'";
}
else
{
s = @"CALL VID_SP_FE_LibroMayor ('{0}')";
}
s = String.Format(s, Periodo);
odt2.ExecuteQuery(s);
}
else if (oForm.Title == "Balance")
{
PeriodoD = ((System.String)((ComboBox)oForm.Items.Item("PeriodoD").Specific).Selected.Value).Trim();
PeriodoH = ((System.String)((ComboBox)oForm.Items.Item("PeriodoH").Specific).Selected.Value).Trim();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"EXEC VID_SP_FE_Balance '{0}', '{1}'";
}
else
{
s = @"CALL VID_SP_FE_Balance ('{0}', '{1}')";
}
s = String.Format(s, PeriodoD, PeriodoH);
odt.ExecuteQuery(s);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"EXEC VID_SP_FE_Diccionario '{0}' ";
}
else
{
s = @"CALL VID_SP_FE_Diccionario ('{0}')";
}
s = String.Format(s, PeriodoD);
odt2.ExecuteQuery(s);
}
else if (oForm.Title == "Diccionario")
{
Periodo = ((System.String)((ComboBox)oForm.Items.Item("Periodo").Specific).Selected.Value).Trim();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"EXEC VID_SP_FE_Diccionario '{0}' ";
}
else
{
s = @"CALL VID_SP_FE_Diccionario ('{0}')";
}
s = String.Format(s, Periodo);
odt.ExecuteQuery(s);
}
if (!odt.IsEmpty)
{
oForm.Items.Item("btnExp").Enabled = true;
}
else
{
oForm.Items.Item("btnExp").Enabled = false;
}
for (Int32 z = 0; z < grid.Columns.Count; z++)
{
grid.Columns.Item(z).Editable = false;
}
grid.AutoResizeColumns();
if ((oForm.Title == "Libro Diario y Mayor") || (oForm.Title == "Balance"))
{
if (!odt2.IsEmpty)
{
for (Int32 z = 0; z < grid2.Columns.Count; z++)
{
grid2.Columns.Item(z).Editable = false;
}
grid2.AutoResizeColumns();
}
}
}
catch (Exception x)
{
FSBOApp.StatusBar.SetText(x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("CargarGrid: " + x.Message + " ** Trace: " + x.StackTrace);
}
}
