private void desenharCampos()
{
oItem = oForm.Items.Item("7");
oNewItem = oForm.Items.Add("Ver_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 880;
oNewItem.Top = oItem.Top + 205;
oNewItem.Height = 120;
oNewItem.FromPane = 11;
oNewItem.ToPane = 11;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Ver_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Ver_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
oColumn = oColumns.Add("Ver_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Data Verificação";
oColumn.Width = 80;
oColumn.Editable = true;
/*oColumn = oColumns.Add("Ver_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
* oColumn.TitleObject.Caption = "Verificado por";
* oColumn.Width = 100;
* oColumn.Editable = true;
* oColumn.DataBind.SetBound(true, "OPR4", "U_FLX_FB_ENT_PENDENC");*/
oColumn = oColumns.Add("Ver_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Verificado por";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Ver_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Observações";
oColumn.Width = 470;
oColumn.Editable = true;
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery("SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 INNER JOIN OOIN T1 ON T1.Num = T0.IntId WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Ver_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Ver_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_VRF_DATEVER");
oColumn = oColumns.Item("Ver_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_VRF_VERIFPO");
oColumn = oColumns.Item("Ver_Amb_C3");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_VRF_OBS");
}
private void desenharCampos()
{
oItem = oForm.Items.Item("Grade");
oNewItem = oForm.Items.Add("Apr_Text0", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 65;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Ambiente / Análise Crítica";
oNewItem = oForm.Items.Add("Apr_Text1", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 200;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Ambiente / Aprovação";
oNewItem = oForm.Items.Add("Apr_Text2a", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oItem = oForm.Items.Item("Grade");
oNewItem.Top = oItem.Top + 17;
oNewItem.Height = 19;
oNewItem.Width = 400;
oNewItem.Left = 25;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Data";
oNewItem = oForm.Items.Add("Apr_Text2b", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 17;
oNewItem.Height = 19;
oNewItem.Width = 400;
oNewItem.Left = 120;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Hora";
oNewItem = oForm.Items.Add("Apr_Text2c", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oItem = oForm.Items.Item("Grade");
oNewItem.Top = oItem.Top + 17;
oNewItem.Height = 19;
oNewItem.Width = 400;
oNewItem.Left = 175;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Projetista";
oNewItem = oForm.Items.Add("Apr_Data", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 35;
oNewItem.Height = 17;
oNewItem.Width = 80;
oNewItem.Left = 25;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oEditItem.DataBind.SetBound(true, "OOPR", "U_FLX_FB_APS_DATE");
oNewItem = oForm.Items.Add("Apr_Hora", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 35;
oNewItem.Height = 17;
oNewItem.Width = 40;
oNewItem.Left = 120;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
//oEditItem.DataBind.SetBound(true, "", "EditSource");
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oEditItem.DataBind.SetBound(true, "OOPR", "U_FLX_FB_APS_HORA");
oNewItem = oForm.Items.Add("Apr_Proj", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oNewItem.Top = oItem.Top + 35;
oNewItem.Height = 17;
oNewItem.Width = 140;
oNewItem.Left = 175;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.DisplayDesc = true;
//oComboItem.DataBind.SetBound(true, "", "CombSource");
oComboItem = ((SAPbouiCOM.ComboBox)(oNewItem.Specific));
//oComboItem.DataBind.SetBound(true, "OOPR", "U_FLX_FB_APS_PROJT");
//LoadResponsavelComboVals(oComboItem);
oNewItem = oForm.Items.Add("Apr_Ped", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 235;
oNewItem.Width = 100;
oNewItem.Left = 725;
oNewItem.Height = 25;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Pedido (fechamento)";
oNewItem = oForm.Items.Add("Apr_Text3", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 220;
oNewItem.Height = 19;
oNewItem.Width = 50;
oNewItem.Left = 840;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Pedido";
oNewItem = oForm.Items.Add("Apr_Pedido", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 240;
oNewItem.Height = 17;
oNewItem.Width = 40;
oNewItem.Left = 840;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Enabled = false;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oNewItem = oForm.Items.Add("Apr_LinkPd", SAPbouiCOM.BoFormItemTypes.it_LINKED_BUTTON);
oNewItem.Top = oItem.Top + 240;
oNewItem.Height = 17;
oNewItem.Width = 40;
oNewItem.Left = 810;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oNewItem.Enabled = true;
oLink = ((SAPbouiCOM.LinkedButton)(oNewItem.Specific));
//oLink.LinkedObject = "Apr_Pedido";
oNewItem = oForm.Items.Add("Apr_Ctr", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 300;
oNewItem.Width = 100;
oNewItem.Left = 725;
oNewItem.Height = 25;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Gerar Contrato(s)";
oNewItem = oForm.Items.Add("Apr_Text4", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 285;
oNewItem.Height = 19;
oNewItem.Width = 55;
oNewItem.Left = 840;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Contrato(s)";
oNewItem = oForm.Items.Add("Apr_Contr", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 305;
oNewItem.Height = 17;
oNewItem.Width = 40;
oNewItem.Left = 840;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oNewItem = oForm.Items.Add("Apr_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 420;
oNewItem.Top = oItem.Top + 85;
oNewItem.Height = 110;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oMatrix.SelectionMode = SAPbouiCOM.BoMatrixSelect.ms_Auto;
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Apr_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
oColumn = oColumns.Add("Apr_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Detalhamento";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Apr_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Id";
oColumn.Editable = true;
oColumn.Visible = false;
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery("SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 INNER JOIN OOIN T1 ON T1.Num = T0.IntId WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Apr_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Apr_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ANC_DETALHA");
oColumn = oColumns.Item("Apr_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "Line");
oNewItem = oForm.Items.Add("NvAnalise", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 35;
oNewItem.Width = 140;
oNewItem.Left = oForm.Width - 270;
oNewItem.Height = 21;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Nova análise crítica";
oNewItem = oForm.Items.Add("Ans_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
SAPbouiCOM.Item teste = oForm.Items.Item("Apr_Amb");
oNewItem.Left = oForm.Width - 270;
oNewItem.Width = 200;
oNewItem.Top = oItem.Top + 85;
oNewItem.Height = 110;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oMatrix.SelectionMode = SAPbouiCOM.BoMatrixSelect.ms_Auto;
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Ans_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Analise Crítica";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Ans_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Id";
oColumn.Editable = true;
oColumn.Visible = false;
DBDSflx = oForm.DataSources.DBDataSources.Add("@FLX_FB_CONFMED");
oForm.DataSources.DataTables.Add("oDataTableAnalise");
oForm.DataSources.DataTables.Item("oDataTableAnalise").ExecuteQuery("SELECT * FROM [@FLX_FB_ANLCRI] where U_FLX_FB_ANLCRI_ID = '1' and U_FLX_FB_ANLCRI_AMBI = '1'");
oColumn = oColumns.Item("Ans_Amb_C0");
oColumn.DataBind.Bind("oDataTableAnalise", "U_FLX_FB_ANLCRI_ANEX");
oColumn = oColumns.Item("Ans_Amb_C1");
oColumn.DataBind.Bind("oDataTableAnalise", "Code");
oNewItem = oForm.Items.Add("Apv_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 700;
oNewItem.Top = oItem.Top + 220;
oNewItem.Height = 110;
oNewItem.FromPane = 12;
oNewItem.ToPane = 12;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Apv_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
oColumn = oColumns.Add("Apv_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Aprovado por";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Apv_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Data Aprovação";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn = oColumns.Add("Apv_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "PDFs visto com o cliente";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Apv_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Prancha de Imagem";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Apv_Amb_C5", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Memorial Descritivo";
oColumn.Width = 130;
oColumn.Editable = true;
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery("SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 INNER JOIN OOIN T1 ON T1.Num = T0.IntId WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Apv_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Apv_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_APR_APROVAD");
oColumn = oColumns.Item("Apv_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_APR_DATAAPR");
oColumn = oColumns.Item("Apv_Amb_C3");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_APR_PDFCLIE");
oColumn = oColumns.Item("Apv_Amb_C4");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_APR_PRANIMG");
oColumn = oColumns.Item("Apv_Amb_C5");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_APR_MEMDESC");
}
private void desenharCampos()
{
oItem = oForm.Items.Item("7");
oNewItem = oForm.Items.Add("Ped_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 880;
oNewItem.Top = oItem.Top + 50;
oNewItem.Height = 120;
oNewItem.FromPane = 13;
oNewItem.ToPane = 13;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Ped_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Ped_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
oColumn = oColumns.Add("Ped_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Data Pedido";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn = oColumns.Add("Ped_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "No.Pedido";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Ped_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ordem de Compra";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Ped_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Valor";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Ped_Amb_C5", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Solicitante";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Ped_Amb_C6", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Prazo Entrega";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn = oColumns.Add("Ped_Amb_C7", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Anexo (pedido impresso)";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Ped_Amb_C8", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "URL";
oColumn.Width = 100;
oColumn.Editable = true;
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery("SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 INNER JOIN OOIN T1 ON T1.Num = T0.IntId WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Ped_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Ped_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_PED_DATE");
oColumn = oColumns.Item("Ped_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_PED_NPEDIDO");
oColumn = oColumns.Item("Ped_Amb_C3");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_PED_ORDENDE");
oColumn = oColumns.Item("Ped_Amb_C4");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_PED_VALOR");
oColumn = oColumns.Item("Ped_Amb_C5");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_PED_SOLICIT");
oColumn = oColumns.Item("Ped_Amb_C6");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_PED_PRAZOEN");
oColumn = oColumns.Item("Ped_Amb_C7");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_PED_ANEXOPE");
oColumn = oColumns.Item("Ped_Amb_C8");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_PED_URL");
}
private void desenharCampos()
{
oItem = oForm.Items.Item("Grade");
oNewItem = oForm.Items.Add("Ela_Cot", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 30;
oNewItem.Width = 150;
oNewItem.Left = 730;
oNewItem.Height = 19;
oNewItem.FromPane = 11;
oNewItem.ToPane = 11;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Gerar Orçamento...";
oNewItem = oForm.Items.Add("Ela_Text1", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 30;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 11;
oNewItem.ToPane = 11;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Ambiente / Elaboração do projeto";
oNewItem = oForm.Items.Add("Ela_Text0", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 185;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 11;
oNewItem.ToPane = 11;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Ambiente / Verificação do projeto";
oNewItem = oForm.Items.Add("Ela_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 880;
oNewItem.Top = oItem.Top + 50;
oNewItem.Height = 120;
oNewItem.FromPane = 11;
oNewItem.ToPane = 11;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Ela_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Ela_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
/*oColumn = oColumns.Add("Ela_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX);
* oColumn.TitleObject.Caption = "Revisão";
* oColumn.Width = 60;
* oColumn.Editable = true;*/
oColumn = oColumns.Add("Ela_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Revisão";
oColumn.Width = 60;
oColumn.Editable = true;
oColumn = oColumns.Add("Ela_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Projetista";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn.DisplayDesc = true;
oColumn = oColumns.Add("Ela_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Início Prev";
oColumn.Width = 90;
oColumn.Editable = true;
oColumn = oColumns.Add("Ela_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Término Prev";
oColumn.Width = 90;
oColumn.Editable = true;
//oColumn.DataBind.SetBound(true, "OPR4", "U_FLX_FB_VRF_OBS");
oColumn = oColumns.Add("Ela_Amb_C5", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Início Realiz";
oColumn.Width = 90;
oColumn.Editable = true;
//oColumn.DataBind.SetBound(true, "OPR4", "U_FLX_FB_VRF_OBS");
oColumn = oColumns.Add("Ela_Amb_C6", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Término Realiz";
oColumn.Width = 90;
oColumn.Editable = true;
//oColumn.DataBind.SetBound(true, "OPR4", "U_FLX_FB_VRF_OBS");
oColumn = oColumns.Add("Ela_Amb_C7", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Arquivos CAD";
oColumn.Width = 120;
oColumn.Editable = true;
//oColumn.DataBind.SetBound(true, "OPR4", "U_FLX_FB_VRF_OBS");
oColumn = oColumns.Add("Ela_Amb_C8", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Arquivos PRJ";
oColumn.Width = 120;
oColumn.Editable = true;
//oColumn.DataBind.SetBound(true, "OPR4", "U_FLX_FB_VRF_OBS");
oColumn = oColumns.Add("Ela_Amb_C9", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Arquivos JPG";
oColumn.Width = 120;
oColumn.Editable = true;
//oColumn.DataBind.SetBound(true, "OPR4", "U_FLX_FB_VRF_OBS");
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery("SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 INNER JOIN OOIN T1 ON T1.Num = T0.IntId WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Ela_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Ela_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_REVISAO");
oColumn = oColumns.Item("Ela_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_PROJETI");
oColumn = oColumns.Item("Ela_Amb_C3");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_INICIOP");
oColumn = oColumns.Item("Ela_Amb_C4");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_TERMINP");
oColumn = oColumns.Item("Ela_Amb_C5");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_INICIOR");
oColumn = oColumns.Item("Ela_Amb_C6");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_TERMINR");
oColumn = oColumns.Item("Ela_Amb_C7");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_ARQCAD");
oColumn = oColumns.Item("Ela_Amb_C8");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_ARQPRJ");
oColumn = oColumns.Item("Ela_Amb_C9");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ELB_ARQJPG");
}
private void desenharCampos()
{
oItem = oForm.Items.Item("Grade");
oNewItem = oForm.Items.Add("Fab_Text0", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 30;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 15;
oNewItem.ToPane = 15;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Recebimento dos Ambientes";
oNewItem = oForm.Items.Add("Fab_Text1", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 185;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 15;
oNewItem.ToPane = 15;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Registro de Avarias";
oNewItem = oForm.Items.Add("Fab_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 480;
oNewItem.Top = oItem.Top + 50;
oNewItem.Height = 120;
oNewItem.FromPane = 15;
oNewItem.ToPane = 15;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oMatrix.SelectionMode = SAPbouiCOM.BoMatrixSelect.ms_Auto;
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Fab_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Fab_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
/*oColumn = oColumns.Add("Fab_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX);
* oColumn.TitleObject.Caption = "Expedição";
* oColumn.Width = 80;
* oColumn.Editable = true;*/
oColumn = oColumns.Add("Fab_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Expedição";
oColumn.Width = 80;
oColumn.Editable = true;
/*oColumn = oColumns.Add("Fab_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
* oColumn.TitleObject.Caption = "Recebimento";
* oColumn.Width = 80;
* oColumn.Editable = true;*/
oColumn = oColumns.Add("Fab_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Recebimento";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn = oColumns.Add("Fab_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Conferente";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Fab_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "IdAmbiente";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn.Visible = false;
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery(
"SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 " +
"INNER JOIN OOIN T1 ON T1.Num = T0.IntId " +
"WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Fab_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Fab_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_FAB_EXPEDIC");
oColumn = oColumns.Item("Fab_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_FAB_RECEBIM");
oColumn = oColumns.Item("Fab_Amb_C3");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_FAB_CONFERE");
oColumn = oColumns.Item("Fab_Amb_C4");
oColumn.DataBind.Bind("oMatrixDT", "Line");
oNewItem = oForm.Items.Add("Ava_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 680;
oNewItem.Top = oItem.Top + 205;
oNewItem.Height = 120;
oNewItem.FromPane = 15;
oNewItem.ToPane = 15;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oMatrix.SelectionMode = SAPbouiCOM.BoMatrixSelect.ms_Auto;
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Ava_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Ava_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Descrição";
oColumn.Width = 600;
oColumn.Editable = true;
oColumn = oColumns.Add("Ava_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "id";
oColumn.Width = 600;
oColumn.Editable = true;
oColumn.Visible = false;
oForm.DataSources.DataTables.Add("oDataTableAvr");
oForm.DataSources.DataTables.Item("oDataTableAvr").ExecuteQuery("select * from [@FLX_FB_AVR] where U_FLX_FB_AVR_IDOOPR = '1' and U_FLX_FB_AVR_IDAMBI = '1'");
oColumn = oColumns.Item("Ava_Amb_C0");
oColumn.DataBind.Bind("oDataTableAvr", "U_FLX_FB_AVR_DESC");
oColumn = oColumns.Item("Ava_Amb_C1");
oColumn.DataBind.Bind("oDataTableAvr", "Code");
}
private void desenharCampos()
{
oItem = oForm.Items.Item("Grade");
oNewItem = oForm.Items.Add("Det_Text0", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 30;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 14;
oNewItem.ToPane = 14;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Ambiente / Detalhamento do Projeto";
oNewItem = oForm.Items.Add("Det_Text1", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 185;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 14;
oNewItem.ToPane = 14;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Itens Complementares";
oNewItem = oForm.Items.Add("Det_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 860;
oNewItem.Top = oItem.Top + 50;
oNewItem.Height = 120;
oNewItem.FromPane = 14;
oNewItem.ToPane = 14;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Det_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Det_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
oColumn = oColumns.Add("Det_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Projetista";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn.DisplayDesc = true;
//oColumn.DataBind.SetBound(true, "OPR4", "U_FLX_FB_ENT_PENDENC");
oColumn = oColumns.Add("Det_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Início Previsto";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Det_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Término Previsto";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Det_Amb_C5", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Início Realizado";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Det_Amb_C6", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Término Realzado";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Det_Amb_C7", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "PDFs Detalhamento";
oColumn.Width = 200;
oColumn.Editable = true;
oColumn.DataBind.SetBound(true, "@FLX_FB_CONFMED", "U_FLX_FB_CONFMED_PRJ");
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery("SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 INNER JOIN OOIN T1 ON T1.Num = T0.IntId WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Det_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Det_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_DET_PROJETI");
oColumn = oColumns.Item("Det_Amb_C3");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_DET_INICIOP");
oColumn = oColumns.Item("Det_Amb_C4");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_DET_TERMINP");
oColumn = oColumns.Item("Det_Amb_C5");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_DET_INICIRE");
oColumn = oColumns.Item("Det_Amb_C6");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_DET_TERMINO");
oColumn = oColumns.Item("Det_Amb_C7");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_DET_PDF");
oNewItem = oForm.Items.Add("Det_Cmp", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 880;
oNewItem.Top = oItem.Top + 205;
oNewItem.Height = 120;
oNewItem.FromPane = 14;
oNewItem.ToPane = 14;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Cmp_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Cmp_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Item";
oColumn.Width = 40;
oColumn.Editable = false;
oColumn = oColumns.Add("Cmp_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Descrição";
oColumn.Width = 200;
oColumn.Editable = true;
oColumn.DataBind.SetBound(true, "", "dt");
oColumn.ChooseFromListUID = "CFL1";
oColumn.ChooseFromListAlias = "ItemName";
oColumn = oColumns.Add("Cmp_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Estoque";
oColumn.Width = 70;
oColumn.Editable = false;
oColumn = oColumns.Add("Cmp_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Qtd";
oColumn.Width = 40;
oColumn.Editable = true;
oColumn = oColumns.Add("Cmp_Amb_C6", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "IdFornecedor";
oColumn.Width = 40;
oColumn.Editable = false;
oColumn.Visible = false;
oColumn = oColumns.Add("Cmp_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Fornecedor";
oColumn.Width = 150;
oColumn.Editable = true;
oColumn.DataBind.SetBound(true, "", "dt");
oColumn.ChooseFromListUID = "CFL2";
oColumn.ChooseFromListAlias = "CardName";
oColumn = oColumns.Add("Cmp_Amb_C5", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Observação";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Cmp_Amb_C7", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "id";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn.Visible = false;
oForm.DataSources.DataTables.Add("oDataTableItc");
oForm.DataSources.DataTables.Item("oDataTableItc").ExecuteQuery("select T1.ItemCode, T1.ItemName, T1.OnHand, T0.U_FLX_FB_ITC_QTD, T2.CardCode, T2.CardName, T0.U_FLX_FB_ITC_OBS, T0.Code from [@FLX_FB_ITC] T0 inner join OITM T1 on T1.ItemCode = T0.U_FLX_FB_ITC_IDOITM inner join OCRD T2 on T2.CardCode = T0.U_FLX_FB_ITC_IDOCRD where T0.U_FLX_FB_ITC_IDOOPR = '1'");
oColumn = oColumns.Item("Cmp_Amb_C0");
oColumn.DataBind.Bind("oDataTableItc", "ItemCode");
oColumn = oColumns.Item("Cmp_Amb_C1");
oColumn.DataBind.Bind("oDataTableItc", "ItemName");
oColumn = oColumns.Item("Cmp_Amb_C4");
oColumn.DataBind.Bind("oDataTableItc", "OnHand");
oColumn = oColumns.Item("Cmp_Amb_C2");
oColumn.DataBind.Bind("oDataTableItc", "U_FLX_FB_ITC_QTD");
oColumn = oColumns.Item("Cmp_Amb_C6");
oColumn.DataBind.Bind("oDataTableItc", "CardCode");
oColumn = oColumns.Item("Cmp_Amb_C3");
oColumn.DataBind.Bind("oDataTableItc", "CardName");
oColumn = oColumns.Item("Cmp_Amb_C5");
oColumn.DataBind.Bind("oDataTableItc", "U_FLX_FB_ITC_OBS");
oColumn = oColumns.Item("Cmp_Amb_C7");
oColumn.DataBind.Bind("oDataTableItc", "Code");
}
private void desenharCampos()
{
oItem = oForm.Items.Item("7");
oNewItem = oForm.Items.Add("Etg_TextY", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 60;
oNewItem.Height = 19;
oNewItem.Width = 150;
oNewItem.Left = 25;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Declaração de conformidade: ";
oNewItem = oForm.Items.Add("Etg_Dec_An", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 60;
oNewItem.Height = 17;
oNewItem.Width = 250;
oNewItem.Left = 170;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oEditItem.DataBind.SetBound(true, "OOPR", "U_FLX_FB_ENT_DECLARA");
oNewItem = oForm.Items.Add("Etg_Decl", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 60;
oNewItem.Width = 180;
oNewItem.Left = 430;
oNewItem.Height = 20;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Nova declaração de conformidade";
///////////////////////////////////////////
oNewItem = oForm.Items.Add("Etg_Text2", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 85;
oNewItem.Height = 19;
oNewItem.Width = 150;
oNewItem.Left = 25;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Pesquisa de satisfação: ";
oNewItem = oForm.Items.Add("Etg_Pesqu", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 85;
oNewItem.Height = 17;
oNewItem.Width = 250;
oNewItem.Left = 170;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oEditItem.DataBind.SetBound(true, "OOPR", "U_FLX_FB_ENT_PESQUIS");
oNewItem = oForm.Items.Add("Etg_Pq", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 85;
oNewItem.Width = 180;
oNewItem.Left = 430;
oNewItem.Height = 20;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Nova pesquisa de satisfação";
/////////////////////////////////////////////////////
oNewItem = oForm.Items.Add("Etg_Text0", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 105;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Ambiente / Entrega";
oNewItem = oForm.Items.Add("Etg_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 580;
oNewItem.Top = oItem.Top + 125;
oNewItem.Height = 120;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oMatrix.SelectionMode = SAPbouiCOM.BoMatrixSelect.ms_Auto;
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Etg_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Etg_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
oColumn = oColumns.Add("Etg_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Entrega";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn = oColumns.Add("Etg_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Responsável";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Etg_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Laudo de Entrega";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn = oColumns.Add("Etg_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Data p/Solução";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Etg_Amb_C5", SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX);
oColumn.TitleObject.Caption = "Resolvido";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn.DisplayDesc = true;
oColumn.ValOn = "1";
oColumn.ValOff = "0";
oColumn = oColumns.Add("Etg_Amb_C6", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Id Ambiente";
oColumn.Width = 30;
oColumn.Editable = true;
oColumn.Visible = false;
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery("SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 INNER JOIN OOIN T1 ON T1.Num = T0.IntId WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Etg_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Etg_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ENT_ENTREGA");
oColumn = oColumns.Item("Etg_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ENT_RESPONS");
oColumn = oColumns.Item("Etg_Amb_C3");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ENT_LAUDO");
oColumn = oColumns.Item("Etg_Amb_C4");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ENT_DATASOL");
oColumn = oColumns.Item("Etg_Amb_C5");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_ENT_RESOLVI");
oColumn = oColumns.Item("Etg_Amb_C6");
oColumn.DataBind.Bind("oMatrixDT", "Line");
/////////////////////////////
//Botao Nova vistoria de entrega
oNewItem = oForm.Items.Add("Laudo_Ent", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 125;
oNewItem.Width = 200;
oNewItem.Left = oForm.Width - 250;
oNewItem.Height = 25;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Novo laudo de vistoria de entrega";
oNewItem = oForm.Items.Add("Etg_Text1", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 265;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Registro de Pendências";
oNewItem = oForm.Items.Add("Pen_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 880;
oNewItem.Top = oItem.Top + 285;
oNewItem.Height = 120;
oNewItem.FromPane = 17;
oNewItem.ToPane = 17;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Pen_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Pen_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Descrição";
oColumn.Width = 600;
oColumn.Editable = true;
oColumn = oColumns.Add("Pen_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Code";
oColumn.Width = 50;
oColumn.Editable = false;
oColumn.Visible = false;
oForm.DataSources.DataTables.Add("oDataTablePend");
oForm.DataSources.DataTables.Item("oDataTablePend").ExecuteQuery("select * from [@FLX_FB_PEN] where U_FLX_FB_PEN_IDOOPR = '1' and U_FLX_FB_PEN_IDAMB = '1'");
oColumn = oColumns.Item("Pen_Amb_C0");
oColumn.DataBind.Bind("oDataTablePend", "U_FLX_FB_PEN_DESC");
oColumn = oColumns.Item("Pen_Amb_C1");
oColumn.DataBind.Bind("oDataTablePend", "Code");
}
private void desenharCampos()
{
oItem = oForm.Items.Item("7");
oNewItem = oForm.Items.Add("Med_Text0", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 110;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Ambiente / Levantamento";
oNewItem = oForm.Items.Add("Med_Text1", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 270;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Conferências de Medições";
oNewItem = oForm.Items.Add("Med_Text2a", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oItem = oForm.Items.Item("Grade");
oNewItem.Top = oItem.Top + 17;
oNewItem.Height = 19;
oNewItem.Width = 400;
oNewItem.Left = 25;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Data";
oNewItem = oForm.Items.Add("Med_Text2b", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 17;
oNewItem.Height = 19;
oNewItem.Width = 400;
oNewItem.Left = 120;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Hora";
oNewItem = oForm.Items.Add("Med_Text2c", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 17;
oNewItem.Height = 19;
oNewItem.Width = 400;
oNewItem.Left = 175;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Projetista";
// Comentado campos de ligação com a tabela a partir daqui
DBDSflx = oForm.DataSources.DBDataSources.Add("@FLX_FB_MED");
oNewItem = oForm.Items.Add("Med_Data", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 35;
oNewItem.Height = 17;
oNewItem.Width = 80;
oNewItem.Left = 25;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oEditItem.DataBind.SetBound(true, "OOPR", "U_FLX_FB_MED_DATEMED");
oNewItem = oForm.Items.Add("Med_Hora", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 35;
oNewItem.Height = 17;
oNewItem.Width = 40;
oNewItem.Left = 120;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oEditItem.DataBind.SetBound(true, "OOPR", "U_FLX_FB_MED_HORAMED");
oNewItem = oForm.Items.Add("Med_Proj", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oNewItem.Top = oItem.Top + 35;
oNewItem.Height = 17;
oNewItem.Width = 140;
oNewItem.Left = 175;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oNewItem.DisplayDesc = true;
oComboItem = ((SAPbouiCOM.ComboBox)(oNewItem.Specific));
DBDSflx = oForm.DataSources.DBDataSources.Add("@FLX_FB_CONFMED");
oNewItem = oForm.Items.Add("Med_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 500;
oNewItem.Top = oItem.Top + 85;
oNewItem.Height = 110;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
//SBO_Application.MessageBox("PASSO 14", 1, "Ok", "", "");
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oMatrix.SelectionMode = SAPbouiCOM.BoMatrixSelect.ms_Auto;
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Med_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 60;
oColumn.Editable = false;
oColumn = oColumns.Add("Med_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Levantamento (anexos)";
oColumn.Width = 140;
oColumn.Editable = true;
oColumn.DataBind.SetBound(true, "@FLX_FB_CONFMED", "U_FLX_FB_CONFMED_PRJ");
oColumn = oColumns.Add("Med_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "IdAmbiente";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn.Visible = false;
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery(
"SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 " +
"INNER JOIN OOIN T1 ON T1.Num = T0.IntId " +
"WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Med_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Med_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_MED_LEVANTA");
oColumn = oColumns.Item("Med_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "Line");
oMatrix.LoadFromDataSource();
oNewItem = oForm.Items.Add("NvLev", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 210;
oNewItem.Width = 180;
oNewItem.Left = 400;
oNewItem.Height = 19;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Novo levantamento";
oNewItem = oForm.Items.Add("Med_Cnf", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 300;
oNewItem.Top = oItem.Top + 250;
oNewItem.Height = 110;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oMatrix.SelectionMode = SAPbouiCOM.BoMatrixSelect.ms_Auto;
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Med_Cnf_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Data";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn = oColumns.Add("med_Cnf_C1", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Conferente";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Med_Cnf_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Id";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn.Visible = false;
oNewItem = oForm.Items.Add("Med_Age", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 35;
oNewItem.Width = 80;
oNewItem.Left = 430;
oNewItem.Height = 19;
oNewItem.FromPane = 10;
oNewItem.ToPane = 10;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Agendar";
oForm.DataSources.DataTables.Add("oDataTable");
oForm.DataSources.DataTables.Item("oDataTable").ExecuteQuery("select * from [@FLX_FB_CONFMED] where U_FLX_FB_CONFMED_ID = '1'");
oColumn = oColumns.Item("Med_Cnf_C0");
oColumn.DataBind.Bind("oDataTable", "U_FLX_FB_CONFMED_DAT");
oColumn = oColumns.Item("med_Cnf_C1");
oColumn.DataBind.Bind("oDataTable", "U_FLX_FB_CONFMED_PRJ");
oColumn = oColumns.Item("Med_Cnf_C2");
oColumn.DataBind.Bind("oDataTable", "Code");
}
private void desenharCampos()
{
oItem = oForm.Items.Item("7");
oNewItem = oForm.Items.Add("Laudo_Text", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 60;
oNewItem.Height = 19;
oNewItem.Width = 150;
oNewItem.Left = 25;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Laudo de vistoria inicial: ";
oNewItem = oForm.Items.Add("Ini_An", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 60;
oNewItem.Height = 17;
oNewItem.Width = 250;
oNewItem.Left = 170;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
//oEditItem.DataBind.SetBound(true, "OOPR", "U_FLX_FB_MTG_INICIAL");
oNewItem = oForm.Items.Add("Laudo_Ini", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 60;
oNewItem.Width = 200;
oNewItem.Left = 430;
oNewItem.Height = 20;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Novo laudo de vistoria inicial";
oNewItem = oForm.Items.Add("Mon_Text0", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 80;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Ambiente / Pendências";
oNewItem = oForm.Items.Add("Mon_Amb", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 740;
oNewItem.Top = oItem.Top + 100;
oNewItem.Height = 120;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Mon_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Mon_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Ambiente";
oColumn.Width = 80;
oColumn.Editable = false;
oColumn = oColumns.Add("Mon_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oColumn.TitleObject.Caption = "Responsável";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Mon_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Descrição";
oColumn.Width = 320;
oColumn.Editable = true;
oColumn = oColumns.Add("Mon_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Anexo Vistoria Int. 1";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Mon_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Anexo Vistoria Int. 2";
oColumn.Width = 120;
oColumn.Editable = true;
oColumn = oColumns.Add("Mon_Amb_C5", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Anexo Vistoria Int. 3";
oColumn.Width = 120;
oColumn.Editable = true;
oForm.DataSources.DataTables.Item("oMatrixDT").ExecuteQuery("SELECT T1.[Num], T1.[Descript], T0.* FROM OPR4 T0 INNER JOIN OOIN T1 ON T1.Num = T0.IntId WHERE T0.[OprId] = '1'");
oColumn = oColumns.Item("Mon_Amb_C0");
oColumn.DataBind.Bind("oMatrixDT", "Descript");
oColumn = oColumns.Item("Mon_Amb_C1");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_MTG_RESPONS");
oColumn = oColumns.Item("Mon_Amb_C2");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_MTG_DESCRIC");
oColumn = oColumns.Item("Mon_Amb_C3");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_MTG_VSTINT1");
oColumn = oColumns.Item("Mon_Amb_C4");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_MTG_VSTINT2");
oColumn = oColumns.Item("Mon_Amb_C5");
oColumn.DataBind.Bind("oMatrixDT", "U_FLX_FB_MTG_VSTINT3");
//Botao Nova vistoria intermediaria
oNewItem = oForm.Items.Add("Laudo_Int", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 230;
oNewItem.Width = 200;
oNewItem.Left = 25;
oNewItem.Height = 25;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Novo laudo de vistoria intermediária";
oNewItem = oForm.Items.Add("Mon_OS", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 50;
oNewItem.Width = 100;
oNewItem.Left = 780;
oNewItem.Height = 25;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Gerar OS";
oNewItem = oForm.Items.Add("Mon_Text2", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 80;
oNewItem.Height = 19;
oNewItem.Width = 60;
oNewItem.Left = 810;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "No. OS";
oNewItem = oForm.Items.Add("Mon_NoOS", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oNewItem.Top = oItem.Top + 100;
oNewItem.Height = 17;
oNewItem.Width = 40;
oNewItem.Left = 810;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Enabled = false;
oEditItem = ((SAPbouiCOM.EditText)(oNewItem.Specific));
oNewItem = oForm.Items.Add("Mon_Planej", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Top = oItem.Top + 150;
oNewItem.Width = 100;
oNewItem.Left = 780;
oNewItem.Height = 25;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Visible = true;
oButton = ((SAPbouiCOM.Button)(oNewItem.Specific));
oButton.Caption = "Planejamento";
oNewItem = oForm.Items.Add("Mon_Text1", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oNewItem.Top = oItem.Top + 285;
oNewItem.Height = 19;
oNewItem.Width = 350;
oNewItem.Left = 25;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oNewItem.Visible = true;
oTextItem = ((SAPbouiCOM.StaticText)(oNewItem.Specific));
oTextItem.Caption = "Itens Complementares";
oNewItem = oForm.Items.Add("Mon_Itc", SAPbouiCOM.BoFormItemTypes.it_MATRIX);
oNewItem.Left = 25;
oNewItem.Width = 880;
oNewItem.Top = oItem.Top + 305;
oNewItem.Height = 120;
oNewItem.FromPane = 16;
oNewItem.ToPane = 16;
oMatrix = ((SAPbouiCOM.Matrix)(oNewItem.Specific));
oColumns = oMatrix.Columns;
oColumn = oColumns.Add("Itc_#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "#";
oColumn.Width = 30;
oColumn.Editable = false;
oColumn = oColumns.Add("Itc_Amb_C0", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Item";
oColumn.Width = 40;
oColumn.Editable = false;
oColumn = oColumns.Add("Itc_Amb_C1", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Descrição";
oColumn.Width = 200;
oColumn.Editable = false;
oColumn = oColumns.Add("Itc_Amb_C8", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Estoque";
oColumn.Width = 40;
oColumn.Editable = false;
oColumn = oColumns.Add("Itc_Amb_C2", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Qtd";
oColumn.Width = 40;
oColumn.Editable = false;
oColumn = oColumns.Add("Itc_Amb_C3", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Fornecedor";
oColumn.Width = 150;
oColumn.Editable = false;
oColumn = oColumns.Add("Itc_Amb_C4", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Observação";
oColumn.Width = 200;
oColumn.Editable = false;
oColumn = oColumns.Add("Itc_Amb_C5", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Prz Entrega";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn = oColumns.Add("Itc_Amb_C6", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "Solicitante";
oColumn.Width = 100;
oColumn.Editable = true;
oColumn = oColumns.Add("Itc_Amb_C7", SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX);
oColumn.TitleObject.Caption = "Recebido";
oColumn.Width = 80;
oColumn.Editable = true;
oColumn.DisplayDesc = true;
oColumn.ValOn = "1";
oColumn.ValOff = "0";
oColumn = oColumns.Add("Itc_Amb_C9", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "idFornecedor";
oColumn.Width = 40;
oColumn.Editable = false;
oColumn.Visible = false;
oColumn = oColumns.Add("Itc_Amb_10", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oColumn.TitleObject.Caption = "idItensComp";
oColumn.Width = 40;
oColumn.Editable = false;
oColumn.Visible = false;
oForm.DataSources.DataTables.Item("oDataTableItc").ExecuteQuery("select T1.ItemCode, T1.ItemName, T1.OnHand, T0.U_FLX_FB_ITC_QTD, T2.CardCode, T2.CardName, T0.U_FLX_FB_ITC_OBS, T0.DocEntry, T0.U_FLX_FB_ITC_PRZETG, T0.U_FLX_FB_ITC_SOLICI, T0.U_FLX_FB_ITC_RECEB from [@FLX_FB_ITC] T0 inner join OITM T1 on T1.ItemCode = T0.U_FLX_FB_ITC_IDOITM inner join OCRD T2 on T2.CardCode = T0.U_FLX_FB_ITC_IDOCRD where T0.U_FLX_FB_ITC_IDOOPR = '1'");
oColumn = oColumns.Item("Itc_Amb_C0");
oColumn.DataBind.Bind("oDataTableItc", "ItemCode");
oColumn = oColumns.Item("Itc_Amb_C1");
oColumn.DataBind.Bind("oDataTableItc", "ItemName");
oColumn = oColumns.Item("Itc_Amb_C8");
oColumn.DataBind.Bind("oDataTableItc", "OnHand");
oColumn = oColumns.Item("Itc_Amb_C2");
oColumn.DataBind.Bind("oDataTableItc", "U_FLX_FB_ITC_QTD");
oColumn = oColumns.Item("Itc_Amb_C9");
oColumn.DataBind.Bind("oDataTableItc", "CardCode");
oColumn = oColumns.Item("Itc_Amb_C3");
oColumn.DataBind.Bind("oDataTableItc", "CardName");
oColumn = oColumns.Item("Itc_Amb_C4");
oColumn.DataBind.Bind("oDataTableItc", "U_FLX_FB_ITC_OBS");
oColumn = oColumns.Item("Itc_Amb_10");
oColumn.DataBind.Bind("oDataTableItc", "DocEntry");
oColumn = oColumns.Item("Itc_Amb_C5");
oColumn.DataBind.Bind("oDataTableItc", "U_FLX_FB_ITC_PRZETG");
oColumn = oColumns.Item("Itc_Amb_C6");
oColumn.DataBind.Bind("oDataTableItc", "U_FLX_FB_ITC_SOLICI");
oColumn = oColumns.Item("Itc_Amb_C7");
oColumn.DataBind.Bind("oDataTableItc", "U_FLX_FB_ITC_RECEB");
}
