[RESOLVIDO] Gera Operaçao Padrao

Código:

  
  FOR EACH operacao WHERE nr-oper-pad <> ? AND nr-oper-pad <> 0.
      DISP operacao.nr-oper-pad.

      CREATE oper-pad.

  ASSIGN
    oper-pad.nr-oper-pad          = operacao.nr-oper-pad
    oper-pad.descricao            = operacao.descricao
    oper-pad.tipo-oper            = operacao.tipo-oper
    oper-pad.gm-codigo            = operacao.gm-codigo
    oper-pad.revisao              = operacao.revisao
    oper-pad.fi-codigo            = operacao.fi-codigo

    oper-pad.pto-controle         = operacao.pto-controle
    oper-pad.nr-unidades          = operacao.nr-unidades
    oper-pad.fator-sobrep         = operacao.fator-sobrep
    oper-pad.un-med-tempo         = operacao.un-med-tempo
    oper-pad.proporcao            = operacao.proporcao
    oper-pad.tempo-prepar         = operacao.tempo-prepar
    oper-pad.tempo-homem          = operacao.tempo-homem
    oper-pad.tempo-maquin         = operacao.tempo-maquin
    oper-pad.numero-homem         = operacao.numero-homem
    oper-pad.data-inicio          = operacao.data-inicio
    oper-pad.data-termino         = operacao.data-termino
    oper-pad.emite-ficha          = operacao.emite-ficha
    oper-pad.preco-base           = operacao.preco-base.

  ASSIGN
    oper-pad.data-ult-ent         = operacao.data-ult-ent
    oper-pad.data-ult-rep         = operacao.data-ult-rep
    oper-pad.refugo-op            = operacao.refugo-op
    oper-pad.ponto-contr          = operacao.ponto-contr
    oper-pad.contr-qualidade      = operacao.contr-qualidade
    oper-pad.un-ciclo             = operacao.un-ciclo
    oper-pad.data-base            = operacao.data-base
    oper-pad.nr-op-simult         = operacao.nr-op-simult
    oper-pad.form-prep            = operacao.form-prep
    oper-pad.form-maq             = operacao.form-maq
    oper-pad.form-hom             = operacao.form-hom.


  END.