Boa tarde.
Tenho necessidade de editar uma ordem de fabrico já existente, de remover todas as operações pré-existentes e voltar novamente a inserir novas. No entanto quando faz o atualiza estou a obter um erro de constraint.
"Violation of UNIQUE KEY constraint 'GPR_OrdemFabricoOperacoes02'. Cannot insert duplicate key in object 'dbo.GPR_OrdemFabricoOperacoes'. The duplicate key value is (24726, 10)"
Isto faria sentido se eu nao estivesse numa primeira fase a utilizar o método remove todos da objeto da Ordem de Fabrico. Também testei usando o método do remove linha a linha e mesmo assim o problema mantém-se.
Envio o código em baixo.
Conseguem-me ajudar pf?
Set oOrdemFabricoExp = PRIMotorERP.Producao.OrdensFabrico.Edita(OrdemFabrico)
If Not oOrdemFabricoExp Is Nothing Then
With oOrdemFabricoExp
If .EstadoOF = enEstadoOF.tnOFPorIniciar Then
.Descricao = oOrdemFabrico.Descricao
.QtFabricada = 0
.QtRejeitada = 0
.EstadoOF = enEstadoOF.tnOFPorIniciar
.DataIniPrevista = oOrdemFabrico.DataIniPrevista
.DataFimPrevista = oOrdemFabrico.DataFimPrevista
.Observacoes = oOrdemFabrico.Observacoes
.dataEntrega = oOrdemFabrico.dataEntrega
.Confirmada = oOrdemFabrico.Confirmada
.Suspensa = oOrdemFabrico.Suspensa
.Fechada = oOrdemFabrico.Fechada
.Prioridade = oOrdemFabrico.Prioridade
'Artigos
.Artigos.RemoveTodos
For i = 1 To oOrdemFabrico.Artigos.NumItens
oOrdemFabrico.Artigos.Edita(i).EstadoRegisto = enEstadoRegisto.Inserido
oOrdemFabrico.Artigos.Edita(i).IDOrdemFabrico = .IDOrdemFabrico
oOrdemFabrico.Artigos.Edita(i).IDOrdemFabricoArtigo = 0
oOrdemFabrico.Artigos.Edita(i).EstadoBE = ""
oOrdemFabrico.Artigos.Edita(i).QtFab = 0
oOrdemFabrico.Artigos.Edita(i).QtRejeitada = 0
Set oArtigoOF = oOrdemFabrico.Artigos.Edita(i)
.Artigos.Insere oArtigoOF
Set oArtigoOF = Nothing
Next i
'Encomendas
.Encomendas.RemoveTodos
For i = 1 To oOrdemFabrico.Encomendas.NumItens
oOrdemFabrico.Encomendas.Edita(i).EstadoRegisto = enEstadoRegisto.Inserido
oOrdemFabrico.Encomendas.Edita(i).IDOrdemFabrico = .IDOrdemFabrico
oOrdemFabrico.Encomendas.Edita(i).IDOrdemFabricoArtigo = 0
oOrdemFabrico.Encomendas.Edita(i).IDOrdemFabricoEncomenda = 0
oOrdemFabrico.Encomendas.Edita(i).EstadoBE = ""
Set oEncomendasOF = oOrdemFabrico.Encomendas.Edita(i)
.Encomendas.Insere oEncomendasOF
Set oEncomendasOF = Nothing
Next i
'
'Operações
'.Operacoes.RemoveTodos
For i = .Operacoes.NumItens To 1 Step -1
.Operacoes.Remove (i)
Next i
For i = 1 To oOrdemFabrico.Operacoes.NumItens
Set oOperacaoOF = oOrdemFabrico.Operacoes.Edita(i)
oOperacaoOF.EstadoRegisto = enEstadoRegisto.Inserido
oOperacaoOF.IDOrdemFabricoOperacao = 0
oOperacaoOF.IDOrdemFabrico = .IDOrdemFabrico
oOperacaoOF.DataIniReal = Empty
oOperacaoOF.DataFimReal = Empty
oOperacaoOF.QtFabricada = 0
oOperacaoOF.QtRejeitada = 0
oOperacaoOF.EstadoBE = ""
oOperacaoOF.EstadoOperacao = enEstadoOFOperacao.tnOFOperacaoPorIniciar
oOperacaoOF.TempoConsumido = 0
oOperacaoOF.TempoOperadorConsumido = 0
oOperacaoOF.TempoMaquinaConsumido = 0
oOperacaoOF.IdCabecMovCbl = Empty
oOperacaoOF.IdCbl = Empty
oOperacaoOF.AnoCBL = 0
oOperacaoOF.Diario = Empty
oOperacaoOF.NumDiario = 0
oOperacaoOF.MovContab = 0
oOperacaoOF.IdCbl = PRIPlataforma.FuncoesGlobais.CriaGuid(True)
oOperacaoOF.Confirmada = 1
'Centros Trabalho
For j = 1 To oOrdemFabrico.Operacoes(i).CentrosTrabalho.NumItens
Set oCentroTrabalhoOF = oOrdemFabrico.Operacoes(i).CentrosTrabalho.Edita(j)
oCentroTrabalhoOF.EstadoRegisto = enEstadoRegisto.Inserido
oCentroTrabalhoOF.IDOrdemFabricoOperacaoCentroTrabalho = 0
oCentroTrabalhoOF.IDOrdemFabricoOperacao = 0
oCentroTrabalhoOF.IDOrdemFabrico = .IDOrdemFabrico
oOperacaoOF.CentrosTrabalho.Insere oCentroTrabalhoOF
Set oCentroTrabalhoOF = Nothing
Next j
'Componentes
For j = 1 To oOrdemFabrico.Operacoes(i).Componentes.NumItens
Set oComponenteOF = oOrdemFabrico.Operacoes(i).Componentes.Edita(j)
oComponenteOF.EstadoRegisto = enEstadoRegisto.Inserido
oComponenteOF.IDOrdemFabricoComponente = 0
oComponenteOF.IDOrdemFabricoOperacao = 0
oComponenteOF.IDOrdemFabricoArtigo = 0
oComponenteOF.IDOrdemFabrico = .IDOrdemFabrico
oComponenteOF.QtConsumida = 0
oComponenteOF.EstadoBE = ""
Select Case PrecoPrevistoConsumos
Case enConsumosPrecoPrevisto.PrecoCustoPadrao
oComponenteOF.Preco = PRIMotorERP.Comercial.Artigos.DaValorAtributo(oComponenteOF.Componente, "PCPadrao")
Case enConsumosPrecoPrevisto.PrecoCustoMedio
oComponenteOF.Preco = PRIMotorERP.Comercial.Artigos.DaValorAtributo(oComponenteOF.Componente, "PCMedio")
Case enConsumosPrecoPrevisto.PrecoCustoUltimo
oComponenteOF.Preco = PRIMotorERP.Comercial.Artigos.DaValorAtributo(oComponenteOF.Componente, "PCUltimo")
End Select
oOperacaoOF.Componentes.Insere oComponenteOF
Set oComponenteOF = Nothing
Next j
.Operacoes.Insere oOperacaoOF
Set oOperacaoOF = Nothing
Next i
PRIMotorERP.Producao.OrdensFabrico.Actualiza oOrdemFabricoExp
End If
End With
End If