¿Cómo crear un concurso a partir de una Oportunidad de Venta creada en el ERP?

El siguiente ejemplo permite crear automáticamente un nuevo concurso a partir de una oportunidad de venta creada en el ERP. Deberá ser puesto en el evento AntesdeGravar de la FichaOportunidadesVenda con la referencia StdPlatBS7.00.

Private Sub FichaOportunidadesVenda_AntesDeGravar(Cancel As Boolean) On Error GoTo Error_l Dim Prj As gcpbe700.GcpBEProjecto Dim objDlg As StdBSDialogoEspera Dim str As String Dim Ent As String

If BSO.Comercial.Projectos.Existe(Me.OportunidadeVenda.Oportunidade) Then GoTo Exit_l If PlataformaPRIMAVERA.Dialogos.MostraMensagem(PRI_SimNao, "Obra/concurso no existente. ¿Desea crear un nuevo concurso?", PRI_Questiona) = PRI_Nao Then GoTo Exit_l

Set objDlg = PlataformaPRIMAVERA.Dialogos.MostraDialogoEspera("Generando el concurso...", , PRI_Informativo, PRI_AviCalculos, PRI_Centrado, "Al crear el concurso en el CCOP") Set Prj = New gcpbe700.GcpBEProjecto

Prj.Codigo = Me.OportunidadeVenda.Oportunidade Prj.Entidade = Me.OportunidadeVenda.Entidade Prj.TipoProjecto = "P" Prj.Projecto = True Prj.Descricao = Me.OportunidadeVenda.Descricao Prj.DataPrevisaoInicio = Now() Prj.DataPrevisaoFim = Now()

Ent = BSO.Consulta("Select EntidadeID from Geral_Entidade where Codigo='" & Prj.Entidade & "'")!EntidadeID

str = "Update Cop_Obras set EntidadeIDA='" & Ent & "', TipoEntidadeA=1,ERPTipoEntidadeA='C', ERPEntidadeA='" & Me.OportunidadeVenda.Entidade & "' Where Codigo = '" & Me.OportunidadeVenda.Oportunidade & "'"

BSO.Comercial.Projectos.Actualiza Prj BSO.Comercial.Projectos.ActualizaValorAtributo Me.OportunidadeVenda.Oportunidade, "Tipo", "O" BSO.Comercial.Projectos.ActualizaValorAtributo Me.OportunidadeVenda.Oportunidade, "Projecto", False BSO.Comercial.Projectos.ActualizaValorAtributo Me.OportunidadeVenda.Oportunidade, "Estado", "CONC" BSO.Comercial.Projectos.ActualizaValorAtributo Me.OportunidadeVenda.Oportunidade, "Titulo", Me.OportunidadeVenda.Descricao

PlataformaPRIMAVERA.ExecSql.ExecutaXML str

objDlg.Termina

PlataformaPRIMAVERA.Dialogos.MostraMensagem PRI_SimplesOk, "Se ha creado un nuevo Concurso con el código " & Me.OportunidadeVenda.Oportunidade

Exit_l:

Set Prj = Nothing Set objDlg = Nothing Exit Sub

Error_l:

PlataformaPRIMAVERA.Dialogos.MostraErro Err.Description, PRI_Critico, "Error al intentar crear un Concurso." Resume Exit_l

End Sub