for each propost
    where propost.cd-modalidade = /*informe o numero da modalidade*/
      and propost.nr-proposta   = /*informe o numero da proposta*/
    no-lock:

    for each pro-pla
        where pro-pla.cd-modalidade = propost.cd-modalidade
          and pro-pla.nr-proposta   = propost.nr-proposta
              exclusive-lock:

        if pro-pla.cd-plano      = 0 
        or pro-pla.cd-tipo-plano = 0
        then assign pro-pla.cd-plano      = propost.cd-plano     
                    pro-pla.cd-tipo-plano = propost.cd-tipo-plano.  

    end.
end.

MESSAGE "Finalizado"
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.