Como criar um concurso a partir de uma Oportunidade de Venda criada no ERP?

O seguinte exemplo permite criar automaticamente um novo concurso a partir de uma oportunidade de venda criada no ERP. Deverá ser colocado no evento AntesdeGravar da FichaOportunidadesVenda com a referência 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 inexistente. Deseja criar um novo concurso?", PRI_Questiona) = PRI_Nao Then GoTo Exit_l

Set objDlg = PlataformaPRIMAVERA.Dialogos.MostraDialogoEspera("A gerar o concurso...", , PRI_Informativo, PRI_AviCalculos, PRI_Centrado, "A criar o concurso no 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, "Foi criado um novo Concurso com o código " & Me.OportunidadeVenda.Oportunidade

Exit_l:

Set Prj = Nothing Set objDlg = Nothing Exit Sub

Error_l:

PlataformaPRIMAVERA.Dialogos.MostraErro Err.Description, PRI_Critico, "Erro ao tentar criar um Concurso." Resume Exit_l

End Sub