Hola David,
He creado la carpeta en el evento de carga del formulario pero tengo otro problema, es decir, no muestra mi carpeta "Contenidos". Pero cuando veo la información del sistema y coloco el cursor en esa posición, muestra el nombre de mi carpeta y en la barra de estado muestra el ItemUid de mi carpeta.
¿Puedes ayudarme con este asunto?
Aquí está el código del programa:
Sub CrearCarpeta(ByVal Formid As String,_
ByRef pVal As SAPbouiCOM.ItemEvent, _
ByRef BuubleEvent As Boolean)
Si pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD And pVal.Before_Action = False Then
Dim OItem As SAPbouiCOM.Item = Nothing
Dim OForm As SAPbouiCOM.Form = Nothing
Dim OTempItem As SAPbouiCOM.Item = Nothing
Dim OFolder1 As SAPbouiCOM.Folder = Nothing
Try
OForm = OApp.Forms.Item(Formid)
OTempItem = OForm.Items.Item("7")
OForm.Items.Item("7").Visible = False
OItem = OForm.Items.Add("It_Fold", SAPbouiCOM.BoFormItemTypes.it_FOLDER)
OItem.Enabled = True
With OItem
.Height = OTempItem.Height
.Top = OTempItem.Top
.Left = OTempItem.Left + 65
.Width = OTempItem.Width
.Visible = True
End With
OFolder1 = OItem.Specific
OFolder1.Caption = "Contenidos"
OFolder1.Pane = 0
OApp.StatusBar.SetText("Se ha creado correctamente una nueva carpeta en Oportunidades de Ventas", SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Success)
Exit Sub
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Saludos,
Shashank Aery
