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

For i = 1 To oOrdemFabrico.Operacoes.NumItens
     Set oOperacaoOF = oOrdemFabrico.Operacoes.Edita(i)
     oOperacaoOF.EstadoRegisto = enEstadoRegisto.Inserido
     oOperacaoOF.IDOrdemFabricoOperacao = 0
     oOperacaoOF.IDOrdemFabrico = .IDOrdemFabrico
     oOperacaoOF.Operacao = i